proposition: Lemma multNonnegativeRationals_le1_l : ∏ q r : NonnegativeRationals, q <= 1 -> q * r <= r.
proof: Proof. intros q r Hq. pattern r at 2 ; rewrite <- islunit_oneNonnegativeRationals. now apply multNonnegativeRationals_lecompat_r. Qed.
imports: UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.RealNumbers.Sets UniMath.RealNumbers.Fields UniMath.Algebra.DivisionRig UniMath.OrderTheory.Lattice.Lattice UniMath.RealNumbers.Prelim