sig type ('a, 'b) t val invariant : 'a Invariant_intf.inv -> 'b Invariant_intf.inv -> ('a, 'b) Invariant_intf.S2.t Invariant_intf.inv end