intros n m p H1 H2; replace (p * n)%Z with (-(-p * n))%Z; auto with zarith; try ring.
replace (p * m)%Z with (-(-p * m))%Z; auto with zarith; try ring.
apply Zopp_le; apply Zmult_le_compat_l; auto with zarith.
Qed.

(* Specifications: *)
Theorem Zopp_lt: forall n m, (m < n -> -n < -m)%Z.
auto with zarith.