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