Hint Resolve Qmult_resp_nonzero.

(* Specifications: *)
Lemma Qlt_mult_pos_pos :
forall x y : Q, Qlt Zero x -> Qlt Zero y -> Qlt Zero (Qmult x y).
Lemma Qlt_mult_neg_pos :
forall x y : Q, Qlt x Zero -> Qlt Zero y -> Qlt (Qmult x y) Zero.