(* LG X V R S est l'ensemble de mots engendre par la grammaire (X V R S) *)

Definition LG (X V R : Ensf) (S : Elt) : wordset :=
  fun w : Word => Derivestar R (cons S nil) w /\ inmonoid X w.

Lemma LG_inv : forall (X V R : Ensf) (S : Elt) (w : Word), LG X V R S w -> inmonoid X w.