fact: Definition seq_to_seto B l := [set i | i in [seq (inord i : 'I_B.+1) | i <- l]].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq path fintype div bigop binomial) mathcomp(prime finset ssralg ssrnum ssrint)