Parameter Composition_preserves_injectivity.M1

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