Qed.
(* Definition word_inv : Elt -> Word := [e:Elt] (<Word>Case e of (* natural *) [n:nat]nil (* couple  *) [a:Elt][b:Elt]nil (* up      *) [e:Ensf]nil (* word    *) [w:Word]w end ). *)
Definition word_inv (e : Elt) : Word :=
match e with
| word w => w
| _ => nil
end.
(*  Quelques resultats triviaux sur les constructeurs...		*)

(* Specifications: *)
Lemma add_add :
forall (a b : Elt) (c d : Ensf), a = b -> c = d -> add a c = add b d.