(** * Rbar_min *)
Definition Rbar_min (x y : Rbar) : Rbar :=
match x, y with
| z, p_infty | p_infty, z => z
| _ , m_infty | m_infty, _ => m_infty
| Finite x, Finite y => Rmin x y
end.

Lemma Rbar_min_r (x y : Rbar) : Rbar_le (Rbar_min x y) y.