(*  De meme pour d2...							*)

Axiom
  transition_a_droite_2 :
    forall (q1 qa1 d1 q2 qd2 d2 : Ensf) (e0 x e : Elt),
    dans e0 (map injdroite q2) ->
    dans x alph ->
    dans (couple e0 (couple x e))
      (union (pont qa1 qd2) (union (injg_d1 q1 d1) (injd_d2 q2 d2))) ->
    dans (couple (first e0) (couple x (first e))) d2.

Lemma lconc_is_reg1 : forall (q1 qd1 qa1 d1 q2 qd2 qa2 d2 : Ensf) (l1 l2 : wordset), automate q1 qd1 qa1 d1 -> eqwordset (reconnait q1 qd1 qa1 d1) l1 -> automate q2 qd2 qa2 d2 -> eqwordset (reconnait q2 qd2 qa2 d2) l2 -> eqwordset (reconnait_A (union_disj q1 q2) (map injgauche qd1) (map injdroite qa2) (union (pont qa1 qd2) (union (injg_d1 q1 d1) (injd_d2 q2 d2)))) (lconc l1 l2).