auto with real.
Qed.

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