proposition: Lemma fdist_marginal_post_probE b n0 : (`U HC) '_ n0 `^^ W (b | y) = marginal_post_prob_den y * (\sum_(t in 'rV_n | t ``_ n0 == b) (`U HC) `^^ W (t | y)).
proof: Proof. by rewrite ffunE. Qed.
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