(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(***************************************************************************)
(* File: axs_fundation.v                                                   *)
(* auteur: alex@sysal.ibp.fr                                               *)
(* date: 19/10/95                                                          *)
(***************************************************************************)
Require Export axs_choice.
Axiom
axs_fundation :
forall x : E, x <> Vide -> exists y : E, In y x /\ inter y x = Vide.

(***************************************************************************)
(* Un ensemble ne s'appartient pas.                                        *)
(***************************************************************************)
Lemma lem_sing_not_empty : forall x : E, singleton x <> Vide.