(** * 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 open_Rbar_gt' :
forall x y, Rbar_lt y x -> Rbar_locally x (fun u => Rbar_lt y u).