proposition: Lemma Gunion_disj_LG : ~ dans S X -> ~ dans S V1 -> ~ dans S V2 -> isGram X V1 R1 S1 -> isGram X V2 R2 S2 -> inter V1 V2 empty -> l_egal (LG X Vu Ru S) (lunion (LG X V1 R1 S1) (LG X V2 R2 S2)).
proof: Proof. intros. unfold l_egal in |- *; split. apply Gunion_disj_LG_inclus1; assumption. exact Gunion_disj_LG_inclus4. Qed.
imports: Ensf Words more_words Rat need fonctions Relations gram gram2 gram3