intros q d w e1 e2 H.
elim H; clear H.
auto.
intros.
apply chemin_A_cons with e0; auto.
Qed.
(*									*)
(*  Si on va de e1 a e par w1 et de e a e2 par w2 alors on va de 	*)
(*  e1 a e2 par (Append w1 w2).						*)
(*									*)

(* Specifications: *)
Lemma chemin_Append :
forall (e1 e e2 : Elt) (q d : Ensf) (w1 w2 : Word),
chemin_A q d e1 e w1 ->
chemin_A q d e e2 w2 -> chemin_A q d e1 e2 (Append w1 w2).