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

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