functor (M1 : Injective) -> functor (M2 : Injective) -> sig type 'a t = 'a M1.t M2.t val strip : ('a t, 'b t) equal -> ('a, 'b) equal end