intros q qd qaA dA H.
exists (sync_d q dA).
exists (sync_qa q qaA dA).
split.
apply automateA_automate; auto.
unfold eqwordset in |- *.
split.
intro.
apply reconnaitA_reconnait; auto.
intro.
apply reconnait_reconnaitA; auto.
Qed.
(*									*)
(* Les mots reconnus par un automate forment un langage : 		*)
(*   par definition meme puisqu'un mot reconnu est dans le monoide	*)
(*   engendre par alph...						*)
(*									*)

(* Specifications: *)
Lemma Recislang :
forall q qd qa d : Ensf,
automate q qd qa d -> islanguage alph (reconnait q qd qa d).