fact: Definition Qmin_mult_pos_distr_r : forall x y z : Q, 0 <= x -> x * Qmin y z == Qmin (x*y) (x*z) := fun x y z H => @monotone_meet_distr Qto _ (Qmult_pos_monotone_r _ H) y z.
imports: Coq.QArith.QArith_base CoRN.order.TotalOrder