Proof fun (R X : Ens) (i : IN X (Domain R)) => EV_pr R X (Domain_pr2 R X i).
Section Domain_th1_proof.
Variable R : Ens.
Variable X Y : Ens.
Hypothesis i : IN (PAIR X Y) R.
Let step1 : Domain_prop R X.
Proof EXISTS_th1 (fun Y1 : Ens => IN (PAIR X Y1) R) Y i.

Lemma Domain_th1_Out : IN X (Domain R).
Proof Domain_pr1 R X step1.