Parameter LiftBinary.I

type ('a, 'b) t
val inject : ('a, 'b) t -> ('a, 'b) T.t