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 interior_fixes_open: open S -> interior = S.