proposition: Lemma lte_pmul2l z : z \is a fin_num -> 0 < z -> {mono *%E z : x y / x < y}.
proof: Proof. by move=> zfin z0 x y; rewrite 2!(muleC z) lte_pmul2r. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra) signed