(** Rbar_mult_pos *)

(* Specifications: *)
Lemma Rbar_mult_pos_eq (x y : Rbar) (z : posreal) :
x = y <-> (Rbar_mult_pos x z) = (Rbar_mult_pos y z).
Lemma Rbar_mult_pos_lt (x y : Rbar) (z : posreal) :
Rbar_lt x y <-> Rbar_lt (Rbar_mult_pos x z) (Rbar_mult_pos y z).
Lemma Rbar_mult_pos_le (x y : Rbar) (z : posreal) :
Rbar_le x y <-> Rbar_le (Rbar_mult_pos x z) (Rbar_mult_pos y z).