Definition neighborhood_filter {X:TopologicalSpace} (x0:point_set X) :
  Filter (point_set X).Definition filter_limit {X:TopologicalSpace} (F:Filter (point_set X))
  (x0:point_set X) : Prop :=
  Included (filter_family (neighborhood_filter x0))
           (filter_family F).Definition filter_cluster_point {X:TopologicalSpace}
  (F:Filter (point_set X)) (x0:point_set X) : Prop :=
  forall S:Ensemble (point_set X), In (filter_family F) S ->
  In (closure S) x0.

Lemma ultrafilter_cluster_point_is_limit: forall {X:TopologicalSpace} (F:Filter (point_set X)) (x0:point_set X), filter_cluster_point F x0 -> ultrafilter F -> filter_limit F x0.