(* 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_langage : forall (X V R : Ensf) (S : Elt), isGram X V R S -> islanguage X (LG X V R S).