red in |- *.
intro.
cut (sup x < sup x).
change (~ sup x < sup x) in |- *.
apply lt_irrefl.
apply lt_n_sup.
assumption.
Qed.
(*									   *)
(*  Le resultat final : 						   *)
(*      Pout tout ensemble e il existe un element x n'appartenant pas a e  *)
(*	(a savoir (natural (sup x)) )					   *)
(*									   *)

(* Specifications: *)
Lemma exist_other : forall e : Ensf, exists x : Elt, ~ dans x e.
intro.