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