(** ** Construction of a new rational by multiplication with an integer or pure fraction *)
(** (or to be more precise multiplication with a rational of the form z/1 or 1/p) *)

(** [x<y] iff [~(y<=x)] *)
Lemma Qnot_lt_le x y : ~ x < y -> y <= x.
#[global]
Hint Resolve Qle_not_lt Qlt_not_le Qnot_le_lt Qnot_lt_le
Qlt_le_weak Qlt_not_eq Qle_antisym Qle_refl: qarith.