Parameter Composition_preserves_injectivity.M2

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