fact: Definition capacity (A B : finType) (W : `Ch(A, B)) := reals.sup [set `I(P, W) | P in [set: {fdist A}]].
imports: mathcomp(all_ssreflect all_algebra) Reals mathcomp(Rstruct) ssrR Reals_ext logb ssr_ext ssralg_ext bigop_ext fdist proba entropy jfdist_cond mathcomp(classical_sets)