(* Proof of lem_comprehension_rl                                           *)
intros; elim (axs_comprehension F a v0); intros; exact (H1 H).
Qed.
(* 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).
intros; unfold vide in |- *; unfold def_F_vide in |- *; unfold not in |- *;
intros.