(* End of proof of lem_comprehension_rl                                    *)

(***************************************************************************)
(* Consequences                                                            *)
(***************************************************************************)

(***************************************************************************)
(* Existence de l'ensemble vide                                            *)
(***************************************************************************)
Definition def_F_vide (v0 : E) := v0 <> v0.Definition vide (a : E) := subset def_F_vide a.

(* Specifications: *)
Lemma lem_vide_propertie : forall v0 v1 : E, ~ In v0 (vide v1).
Lemma lem_vide_unicite : forall v0 v1 : E, vide v0 = vide v1.