intros q1 q2 d w e1 e2 H.
elim H; clear H.
auto.
intros.
apply chemin_A_cons with e; auto.
intros.
apply chemin_A_epsilon with e; auto.
Qed.
(*  Si on a un chemin au sens des AF alors on a un chemin au sens des	*)
(*  AA.									*)

(* Specifications: *)
Lemma chemin_chemin_A :
forall (q d : Ensf) (w : Word) (e1 e2 : Elt),
chemin e1 e2 q d w -> chemin_A q d e1 e2 w.