intros e1 e e2 q d w1 w2 H.
elim H.
intros e0 e3 H0 H1 H2.
simpl in |- *; rewrite H1; auto.
intros.
simpl in |- *.
cut (chemin_A q d e3 e2 (Append w w2)); auto.
intro.
apply chemin_A_cons with e3; auto.
intros.
cut (chemin_A q d e3 e2 (Append w w2)); auto.
intro.
apply chemin_A_epsilon with e3; auto.
Qed.
(*									*)
(*  Si on a un cheminA de e1 a e2 alors e1 et e2 sont dans q.		*)
(*									*)

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