X : Base.T.T2
val lift : ('a1, 'b1) Base__Type_equal.t ‑> ('a2, 'b2) Base__Type_equal.t ‑> (('a1, 'a2) X.t, ('b1, 'b2) X.t) Base__Type_equal.t