(** *** Cancellation in inequalities of products *)

(* TODO: We may want to deprecate it but cannot because of the hint used in external libs (the stdlib can already be compiled without it) *)
Lemma Rinv_1_lt_contravar : forall r1 r2, 1 <= r1 -> r1 < r2 -> / r2 < / r1.
#[global]
Hint Resolve Rinv_1_lt_contravar: real.