proposition: Lemma subvs_scaleAr k (x y : subvs_of A) : k *: (x * y) = x * (k *: y).
proof: Proof. exact/val_inj/scalerAr. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path) mathcomp(choice fintype div tuple finfun bigop ssralg) mathcomp(finalg zmodp matrix vector poly)