(** * Rbar_abs *)

Definition Rbar_abs (x : Rbar) :=
  match x with
    | Finite x => Finite (Rabs x)
    | _ => p_infty
  end.

Lemma Rbar_abs_neg (x : Rbar) : Rbar_le x 0 -> Rbar_abs x = Rbar_opp x.