(*  Quelques simplifications  *)

Definition zero : Elt := natural 0.Definition un : Elt := natural 1.Definition singleton (e : Elt) : Ensf := add e empty.

(* Specifications: *)
Lemma False_imp_P : forall P : Prop, False -> P.
Lemma equal_add : forall (a b : Ensf) (e : Elt), a = b -> add e a = add e b.