Module type Equal.S2

type ('a, 'b) t
val equal : 'a equal -> 'b equal -> ( 'a, 'b ) t equal