(** * Some Topology on [Rbar] *)
Definition Rbar_locally' (a : Rbar) (P : R -> Prop) :=
match a with
| Finite a => locally' a P
| p_infty => exists M : R, forall x, M < x -> P x
| m_infty => exists M : R, forall x, x < M -> P x
end.
Definition Rbar_locally (a : Rbar) (P : R -> Prop) :=
match a with
| Finite a => locally a P
| p_infty => exists M : R, forall x, M < x -> P x
| m_infty => exists M : R, forall x, x < M -> P x
end.
Global Instance Rbar_locally'_filter :
forall x, ProperFilter (Rbar_locally' x).
Global Instance Rbar_locally_filter :
forall x, ProperFilter (Rbar_locally x).
(** Open sets in [Rbar] *)

Lemma Rbar_locally'_le_finite :
forall x : R, filter_le (Rbar_locally' x) (locally x).