fact: Definition is_finer P Q := [forall (x | x \in S), pblock P x \subset pblock Q x].
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(div ssralg ssrint ssrnum binomial) tools combclass sorted ordtype partition