Proof
fun (F G X : Ens) (c : Comp_prop F G X) =>
Range_th1 G (Comp_INTER F G X) (PR2 X) (Comp_INTER_th2 F G X c).
Section comp_prop_3.
Variable F G X : Ens.
Hypothesis c : Comp_prop F G X.
Let step1 : is_a_pair X.
Proof Comp_pair F G X c.
Let step2 : IN (PR1 X) (Domain F).
Proof Comp_prop_th1 F G X c.
Let step3 : IN (PR2 X) (Range G).
Proof Comp_prop_th2 F G X c.
Let step4 : in_cartesian (Domain F) (Range G) X.
Proof Build_in_cartesian (Domain F) (Range G) X step1 step2 step3.

(* Specifications: *)
Lemma comp_prop_3_Out : IN X (Cartesian (Domain F) (Range G)).
Proof Cartesian_pr1 (Domain F) (Range G) X step4.