Proof
fun X A a Y B b y y' H E H1 H2 H3 H4 =>
H2 y y' (eq_refl (sum X Y) (inr X Y y)) (eq_refl (sum X Y) (inr X Y y')) H.

(* Specifications: *)
Lemma PAIR_rt1 :
forall (X : Typ1) (A : Rel X) (a : X) (Y : Typ1) (B : Rel Y) (b : Y),
PAIR X A a Y B b (inl X Y a) (out X Y).