proposition: Lemma ler_wMn2r n : {homo (@GRing.natmul R)^~ n : x y / x <= y}.
proof: Proof. by move=> x y hxy /=; case: n=> // n; rewrite ler_pMn2r. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(ssrAC div fintype path bigop order finset fingroup) mathcomp(ssralg poly)