Proof
fun (F G X : Ens) (c : Comp_prop F G X) =>
Comp_inter_xy F G (PR1 X) (Comp_INTER F G X) (PR2 X)
(Comp_INTER_pr1 F G X c).

Theorem Comp_INTER_th2 :
forall (F G X : Ens) (c : Comp_prop F G X),
IN (PAIR (Comp_INTER F G X) (PR2 X)) G.