Type_equal.Lift
X : Base.T.T1
val lift : ('a, 'b) Base__Type_equal.t -> ('a X.t, 'b X.t) Base__Type_equal.t