module type S1 = sig .. end
sig
end
type 'a t
'a
val equal : 'a Equal.equal -> 'a t Equal.equal
'a Equal.equal -> 'a t Equal.equal