Require Export TopologicalSpaces Ensembles InteriorsClosures.
Definition open_neighborhood {X:TopologicalSpace}
(U:Ensemble (point_set X)) (x:point_set X) :=
open U /\ In U x.
Definition neighborhood {X:TopologicalSpace}
(N:Ensemble (point_set X)) (x:point_set X) :=
exists U:Ensemble (point_set X),
open_neighborhood U x /\ Included U N.

Lemma neighborhood_interior: forall {X:TopologicalSpace}
(N:Ensemble (point_set X)) (x:point_set X),
neighborhood N x -> In (interior N) x.