Proof
fun (F G X : Ens) (c : Comp_prop F G X) =>
CHOICE_pr (fun Y : Ens => Comp_inter F G (PR1 X) Y (PR2 X))
(Comp_intern F G X c).

(* Specifications: *)
Theorem Comp_INTER_th1 :
forall (F G X : Ens) (c : Comp_prop F G X),
IN (PAIR (PR1 X) (Comp_INTER F G X)) F.