proposition: Lemma lee_wpmul2l x : 0 <= x -> {homo *%E x : y z / y <= z}.
proof: Proof. by move=> x0 y z yz; rewrite !(muleC x) lee_wpmul2r. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra) signed