(* End of proof of notEEexists                                             *)

(***************************************************************************)
(* Intersection d'un ensemble a                                            *)
(* a est un ensemble non vide. On recherche l'ensemble dont tous les       *)
(* elements sont elements des elements de a.                               *)
(***************************************************************************)
Definition Einter (a : E) (Ine : a <> Vide) :=
  subset (fun v0 : E => forall v3 : E, In v3 a -> In v0 v3) (reunion a).

Lemma lem_Einter_vide : forall (x : E) (Nv : x <> Vide), In Vide x -> Einter x Nv = Vide.