injection H.
trivial.
Qed.
(*  Quelques simplifications  *)
Definition zero : Elt := natural 0.
Definition un : Elt := natural 1.
Definition singleton (e : Elt) : Ensf := add e empty.
(*  Quelques petits lemmes divers...  *)

Lemma False_imp_P : forall P : Prop, False -> P.
intros.