fact: Fixpoint enum_yamevaln n ev := if n is n'.+1 then flatten [seq [seq i :: y | y <- enum_yamevaln n' (decr_nth ev i)] | i <- iota 0 (size ev) & is_rem_corner ev i] else [:: [::]].
imports: HB(structures) mathcomp(all_ssreflect) tools combclass partition