intros n m p H H1; apply Rle_ge; auto with real.
Qed.

(* Specifications: *)
Theorem Rmult_ge_neg_compat_l:
forall n m p : R, (m >= n)%R -> (0 >= p)%R -> (p * n >= p * m)%R.
Theorem Rmult_ge_neg_compat_l:
forall n m p : R, (m >= n)%R -> (0 >= p)%R -> (p * n >= p * m)%R.