fact: Structure setpart : predArgType := SetPart {setpartval :> {set {set T}}; _ : partition setpartval S}.
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(div ssralg ssrint ssrnum binomial) tools combclass sorted ordtype partition