Proof total_th4_Out.
Section total_and_pairs_1.
Variable R : Ens.
Variable A B : Ens.
Hypothesis i : IN (PAIR A B) R.
Let step1 : IN A (First A).
Proof Singleton_pr1 A.
Let step2 : IN B (Singleton B).
Proof Singleton_pr1 B.
Let step3 : IN (Singleton B) (Second B).
Proof Doubleton_th2 Zero (Singleton B).
Let step4 : IN (First A) (PAIR A B).
Proof Doubleton_th1 (First A) (Second B).
Let step5 : IN (Second B) (PAIR A B).
Proof Doubleton_th2 (First A) (Second B).

(* Specifications: *)
Lemma total_and_pairs_1_OutA : IN A (Total R).
Proof Total_th3 A (First A) (PAIR A B) R step1 step4 i.
Lemma total_and_pairs_1_OutB : IN B (Total R).
Proof Total_th4 B (Singleton B) (Second B) (PAIR A B) R step2 step3 step5 i.