proposition: Lemma max_wH u : wH u <= n.
proof: Proof. by rewrite /wH (leq_trans (count_size _ _)) // size_tuple. Qed.
imports: Reals mathcomp(all_ssreflect fingroup zmodp ssralg finalg perm matrix) mathcomp(poly mxalgebra mxpoly) mathcomp(Rstruct) ssr_ext ssralg_ext f2 num_occ natbin ssrR Reals_ext bigop_ext