(*									*)
(*  Grace a l'axiome de decidabilite on peut construire, a partir d'un	*)
(*  ensemble e et d'un predicat f:Elt->Prop, le sous-ensemble des	*)
(*  elements de e qui verifient f.					*)
(*									*)
(* empty *)  empty (* add   *)
(* true *)	 add x (tq f F) (* false *)
(*  									*)
(*  On montre maintenant que (tq f E) est bien l'ensemble voulu, 	*)
(*  (ie) si x est dans (tq f E) alors il est dans E et (f x) est vrai...*)
(*									*)

Lemma dans_tq_imp :
forall (x : Elt) (f : Elt -> Prop) (E : Ensf),
dans x (tq f E) -> dans x E /\ f x.