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.