Lemma Gunion_disj_Derivestar_S : ~ dans S X -> ~ dans S V1 -> ~ dans S V2 -> isGram X V1 R1 S1 -> isGram X V2 R2 S2 -> inter V1 V2 empty -> forall u : Word, Derivestar Ru (cons S nil) u -> cons S nil = u :>Word \/ Derivestar R1 (cons S1 nil) u \/ Derivestar R2 (cons S2 nil) u.