Section resultats.
Variable X V1 R1 : Ensf.
Variable S1 : Elt.
Variable V2 R2 : Ensf.
Variable S2 : Elt.
Let C := Gunion V1 R1 V2 R2.
Let Vu := fst C.
Let Ru := snd C.
intro G1.
intro G2.
unfold Vu in |- *.
unfold C in |- *.
unfold Gunion in |- *.
simpl in |- *.
apply union_inter.
apply isGram2 with R1 S1; assumption.
apply isGram2 with R2 S2; assumption.
Qed.

Lemma Gunion_Regles :
isGram X V1 R1 S1 -> isGram X V2 R2 S2 -> Regles X Vu Ru.