(* 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.

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