intros.
elim H0; clear H0.
intros e' Ht; elim Ht; clear Ht.
intros H0 H1.
unfold sync_qa in |- *.
apply union_d.
apply imp_dans_tq; auto.
exists e'; auto.
Qed.
(*  et aussi...								*)

(* Specifications: *)
Lemma sync_d_def :
forall (e1 e2 x : Elt) (q dA : Ensf),
dans x alph ->
chemin_A q dA e1 e2 (cons x nil) ->
dans (couple e1 (couple x e2)) (sync_d q dA).