fact: Definition free_convType_mor_supp (A B : CC) (f : A -> B ) (d : {dist A}) (x : finsupp d) : [finType of finsupp ((free_convType_mor (hom_choiceType f)) d)] := FSetSub (mem_finsupp_free_convType_mor f x).
imports: Reals mathcomp(all_ssreflect) mathcomp(boolp classical_sets) mathcomp(finmap) infotheo(Reals_ext classical_sets_ext ssrR ssr_ext) infotheo(fdist fsdist convex necset) monae_lib HB(structures) category