intros f g.
unfold eg_f_W_W, Word_ext, comp, comp_word in |- *.
simple induction x; simpl in |- *; auto.
Qed.
Hint Resolve comp_Word_ext.
Definition Id (E : Ensf) (f : Elt -> Elt) :=
forall x : Elt, dans x E -> f x = x :>Elt.

(* Specifications: *)
Lemma Id_inv :
forall (E : Ensf) (f : Elt -> Elt) (x : Elt),
dans x E -> Id E f -> f x = x :>Elt.