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