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 interior_neighborhood: forall {X:TopologicalSpace}
(N:Ensemble (point_set X)) (x:point_set X),
In (interior N) x -> neighborhood N x.