(* 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.

(***************************************************************************)
(* Un ensemble ne s'appartient pas.                                        *)
(***************************************************************************)
Lemma lem_sing_not_empty : forall x : E, singleton x <> Vide.
unfold not in |- *; intros.