(*  De meme pour l2...							*)

Axiom
  chemin_restriction_2 :
    forall (q2 qd2 qa2 d2 q1 qa1 d1 : Ensf) (w : Word) (e1 e2 : Elt),
    automate q2 qd2 qa2 d2 ->
    chemin e1 e2 (union_disj q1 q2) (union (injg_d1 q1 d1) (injd_d2 q2 d2)) w ->
    dans e1 (map injdroite q2) ->
    dans e2 (union_disj qa1 qa2) ->
    chemin (first e1) (first e2) q2 d2 w /\ dans e2 (map injdroite qa2).

(* Specifications: *)
Lemma chemin_extension_1 : forall (q1 qd1 qa1 d1 q2 d2 : Ensf) (w : Word) (e1 e2 : Elt), automate q1 qd1 qa1 d1 -> chemin e1 e2 q1 d1 w -> dans e1 q1 -> dans e2 qa1 -> chemin (couple e1 zero) (couple e2 zero) (union_disj q1 q2) (union (injg_d1 q1 d1) (injd_d2 q2 d2)) w.