sig
  type ('a, 'b) t
  val equal :
    'a Equal.equal -> 'b Equal.equal -> ('a, 'b) Equal.S2.t Equal.equal
end