(** The same for the right injection (inr X Y) : Y -> (sum X Y). *)

(* Specifications: *)
Lemma PAIR_deloc2 :
forall (X : Typ1) (A : Rel X) (a : X) (Y : Typ1) (B : Rel Y) (b : Y),
deloc Y B (sum X Y) (PAIR X A a Y B b) (inr X Y).
Lemma PAIR_eqv2 :
forall (X : Typ1) (A : Rel X) (a : X) (Y : Typ1) (B : Rel Y) (b : Y),
EQV Y B b (sum X Y) (PAIR X A a Y B b) (inr X Y b).