fact: Definition isregular_D (l : wordset) : Prop := exists q : Ensf, (exists g0 : Elt, (exists qa : Ensf, (exists d : Ensf, automate q (singleton g0) qa d /\ (forall w : Word, chemin g0 g0 q d w -> w = nil :>Word) /\ eqwordset (reconnait q (singleton g0) qa d) l))).
imports: Ensf Max Words Dec