intros q qd qa d H.
elim H.
intros H1 H0; elim H0; clear H0.
auto.
Qed.

(* Specifications: *)
Lemma automate_def2 :
forall q qd qa d : Ensf, automate q qd qa d -> inclus qd q.
Lemma automate_def3 :
forall q qd qa d : Ensf, automate q qd qa d -> inclus qa q.