proposition: Lemma mnmP m1 m2 : (m1 = m2) <-> (m1 =1 m2).
proof: Proof. case: m1 m2 => [m1] [m2] /=; split => [->//|h]. by apply/val_inj/eq_from_tnth => i; rewrite -!multinomE. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path) mathcomp(choice fintype tuple finfun bigop finset binomial) mathcomp(order fingroup perm ssralg zmodp poly ssrint) mathcomp(matrix vector) mathcomp(bigenough) ssrcomplements freeg