fact: Definition fdist_marginal_post_prob i : {fdist A} := FDist.make (f0 i) (f1 i).
imports: mathcomp(all_ssreflect all_algebra zmodp matrix) Reals mathcomp(Rstruct) ssrR Reals_ext ssr_ext ssralg_ext bigop_ext fdist proba channel jfdist_cond