(***********************************)
(********* Intersection  ***********)
(***********************************)
(******** little intersection *******)
Definition intersection (A B : Ens) := Set_Of A (fun X : Ens => IN X B).

Theorem intersection_th2 : forall A B : Ens, SUB (intersection A B) B.
Proof
fun (A B U : Ens) (i : IN U (intersection A B)) =>
Set_Of_th2 A (fun X : Ens => IN X B) U i.