(* End of proof of lem_not_vide_in_vide                                    *)

(***************************************************************************)
(* Intersection de deux ensembles                                          *)
(***************************************************************************)
Definition def_F_inter (s x : E) := In x s.Definition inter (a b : E) := subset (def_F_inter b) a.

Lemma lem_inter_unicite : forall a b i : E, (forall x : E, In x i <-> In x a /\ In x b) -> i = inter a b.