intros.
cut (x1 = x2 /\ w1 = w2); [ intuition | auto ].
Qed.
(*									*)
(*  Un mot est soit nil, soit de la forme (cons x w0).			*)
(*									*)

Lemma nil_or_cons :
forall w : Word,
w = nil \/ (exists x : Elt, (exists w0 : Word, w = cons x w0)).