Theorem. ∀F,G∈fset ( F⋂G≠∅ ⇒ Intersect(F)⊆Union(G) )
Define nset to be the type { S : S∈set ∧ ∃A∈set ( A∈S ) }
Define fset to be the type { S : S∈set ∧ ∀x∈obj ( x∈S ⇒ x∈set ) }
∀S∈set ∀x∈obj ( x∈Union(S) ⇔ ∃T∈set ( T∈S ∧ x∈T ) )
∀S∈nset ∀x∈obj ( x∈Intersect(S) ⇔ ∀T∈set ( T∈S ⇒ x∈T ) ) [Lemma]
x∈obj ; [S is a type] ⊢ x∈S : bool
Given F,G ∈ fset:
If F⋂G≠∅:
Given x ∈ Intersect(F):
∃ x ∈ obj ( x ∈ F ⋂ G )
Let A ∈ obj such that A ∈ F ⋂ G
A ∈ F ∧ A ∈ G
A ∈ F