fact: Record t := mk { f :> {fsfun A -> real_realType with 0} ; _ : all (fun x => (0 < f x)%mcR) (finsupp f) && \sum_(a <- finsupp f) f a == 1}.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrnum) mathcomp(finmap) Reals mathcomp(mathcomp_extra) mathcomp(classical_sets boolp cardinality Rstruct reals) mathcomp(ereal topology esum measure probability) ssrR realType_ext Reals_ext ssr_ext ssralg_ext bigop_ext fdist convex