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