proposition: Lemma dvdmxMr (m0 m1 m2 m3 : nat) (K : 'M_(m2, m0)) (M : 'M[R]_(m1, m2)) (N : 'M_(m3, m2)) : (M %| N) -> (M *m K %| N *m K).
proof: Proof. by case/dvdmxP=>X hX; apply/dvdmxP; exists X; rewrite mulmxA hX. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq path) mathcomp(ssralg fintype perm choice matrix bigop zmodp mxalgebra poly) ssrcomplements dvdring stronglydiscrete