intros n m p H H1;
red; apply Rmult_lt_neg_compat_l_rev with p; auto with real.
Qed.
(* For replace *)

(* Specifications: *)
Theorem eq_Rlt_trans_l : forall x y z, (x = z) -> (x < y) -> (z < y).
intros x y z H; rewrite H; auto.