(************************************************************************)
(*									*)
(*          Si l est regulier alors l* est aussi regulier.      	*)
(*									*)
(************************************************************************)

Definition transition_back (g0 x : Elt) : Elt := couple x (couple epsilon g0).Definition delta (g0 : Elt) (qa : Ensf) : Ensf := map (transition_back g0) qa.Definition fun_d_dstar (g0 : Elt) (qa d : Ensf) : Ensf :=
  union d (delta g0 qa).

Lemma chemin_g0_g0 : forall (q qa d : Ensf) (g0 : Elt) (w0 : Word), automate q (singleton g0) qa d -> (forall e x : Elt, dans (couple g0 (couple x e)) d -> x = epsilon :>Elt) -> chemin g0 g0 q d w0 -> w0 = nil :>Word.