intros.
elim H; auto.
intros e0 e3 H0 H1.
rewrite <- H1.
assumption.
Qed.
(*									*)
(*  Un mot reconnu par un automate_A est dans le monoide engendre par 	*)
(*  alph.								*)
(*									*)

(* Specifications: *)
Lemma cheminA_monoid :
forall (w : Word) (q qd qaA dA : Ensf),
automate_A q qd qaA dA ->
forall e1 e2 : Elt, chemin_A q dA e1 e2 w -> inmonoid alph w.