(*  (Derivestar R u v) signifie "u se recrit en v par zero ou plusieurs productions de R" *)


Definition Derivestar (R : Ensf) := Rstar Word (Derive R).

Lemma Derivestar_inv : forall (R : Ensf) (u v : Word), Derivestar R u v -> u = v \/ (exists2 w : Word, Derive R u w & Derivestar R w v).