(* john major on pairs *)
Section Coercions2.
Variable (T : Type -> Type -> Type).
Program
Definition coerce2 A1 A2 B1 B2 (x : T A1 A2) :
(A1, A2) = (B1, B2) -> T B1 B2.

Lemma refl_jmeq2 A B (x : T A B) : jmeq2 x x.