Definition hqlthandmultr ( n m k : hq ) ( is : hqgth k 0 ) : hqlth n m -> hqlth ( n * k ) ( m * k ) := hqgthandmultr _ _ _ is .
Require Import UniMath.Algebra.Monoids. Require Import UniMath.Algebra.Groups.