fact: Structure finpredType (T : eqType) := FinPredType { finpred_sort :> Type; tofinpred : finpred_sort -> pred T; _ : {finpred_seq : finpred_sort -> seq T | ((forall p, uniq (finpred_seq p)) * forall p x, x \in finpred_seq p = tofinpred p x)%type} }.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrnat eqtype ssrfun seq) mathcomp(choice path finset finfun fintype bigop)