Require Export TopologicalSpaces.
From ZornsLemma Require Export EnsemblesSpec.
Section interior_closure.
Variable X:TopologicalSpace.
Variable S:Ensemble (point_set X).
Definition interior := FamilyUnion
[ U:Ensemble (point_set X) | open U /\ Included U S ].
Definition closure := FamilyIntersection
[ F:Ensemble (point_set X) | closed F /\ Included S F ].

Lemma closure_minimal: forall F:Ensemble (point_set X),
closed F -> Included S F -> Included closure F.