fact: Definition exp_cdiv := if (type.d P) |- V <<b W then exp2 (- INR n * D(V || W | P)) else 0.
imports: mathcomp(all_ssreflect ssralg finset matrix) Reals mathcomp(Rstruct) ssrR realType_ext Reals_ext ssr_ext ssralg_ext logb ln_facts num_occ fdist entropy channel divergence types jtypes proba jfdist_cond