(*									*)
(*  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)).

Lemma automate_A_def2 : forall q qd qa d : Ensf, automate_A q qd qa d -> inclus qd q.