module T: sig .. end
sig
end
product
type 'a product =
'a
|
Nil : unit product
unit product
Cons : 'a0 Ty.T.ty * 'b product -> ('a0 * 'b) product
'a0 Ty.T.ty * 'b product
('a0 * 'b) product