Proof
fun (A B U : Ens) (i : IN U (Cartesian A B)) =>
in_cartesian_pr2 A B U (Cartesian_pr2 A B U i).
Section cartpair.
Variable A B X Y : Ens.
Hypothesis i : IN (PAIR X Y) (Cartesian A B).
Let U := PAIR X Y.
Let X1 := PR1 U.
Let Y1 := PR2 U.
Let step1 : EQ X X1.
Proof PAIR_proj_th3 X Y.
Let step2 : IN X1 A.
Proof Cartesian_proj1_th A B U i.

(* Specifications: *)
Lemma cartpairA_Out : IN X A.
Proof Extensionality X X1 A step1 step2.