fact: Fixpoint enum_partnsk sm sz mx : (seq (seq nat)) := if sz is sz.+1 then flatten [seq [seq i :: p | p <- enum_partnsk (sm - i) sz i] | i <- iota 1 (minn sm mx)] else if sm is sm.+1 then [::] else [:: [::]].
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(div ssralg ssrint ssrnum binomial) tools combclass sorted ordtype