proposition: Lemma pmulr_rgt0 x y : 0 < x -> (0 < x * y) = (0 < y).
proof: Proof. exact: pmulr_rgt0. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(ssrAC div fintype path bigop order finset fingroup) mathcomp(ssralg poly)