(* 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_propertie_lr : forall a b x : E, In x (inter a b) -> In x a /\ In x b.