intros.
apply chemin_cons with e2; auto.
Qed.
(*									*)
(*  AUTOMATES ASYNCHRONES						*)
(*									*)
Definition automate_A (q qd qa d : Ensf) : Prop :=
inclus qa q /\
inclus qd q /\ inclus d (prodcart q (prodcart (add epsilon alph) q)).

(* Specifications: *)
Lemma automate_A_def2 :
forall q qd qa d : Ensf, automate_A q qd qa d -> inclus qd q.