proposition: Lemma num_le_maxl a x y : Num.max x%:num y%:num <= a = (x%:num <= a) && (y%:num <= a).
proof: Proof. by rewrite -comparable_le_maxl// real_comparable. Qed.
imports: HB(structures) Coq(ssreflect ssrfun ssrbool) mathcomp(ssrnat eqtype choice order ssralg ssrnum ssrint) mathcomp(mathcomp_extra)