fact: Definition Gunion_disj_p (V1 R1 : Ensf) (S1 : Elt) (V2 R2 : Ensf) (S2 S : Elt) := (add S (fst (Gunion V1 R1 V2 R2)), (add (couple S (word (cons S1 nil))) (add (couple S (word (cons S2 nil))) (snd (Gunion V1 R1 V2 R2))), S)).
imports: Ensf Words more_words need fonctions Relations