replace (Z (natural n)) with (S n); auto.
Qed.
(*									*)
(*  On montre d'abord que tout entier dans x est strictement plus petit	*)
(*  que (sup x)								*)
(*									*)

(* Specifications: *)
Lemma lt_n_sup : forall (x : Ensf) (n : nat), dans (natural n) x -> n < sup x.
simple induction x.