1 2 3 4 5 6 7
# type _ prod = Prod : ('a * 'y) prod # Characters 87-96: type d = d * d ^^^^^^^^^ Error: The type abbreviation d is cyclic #