fact: Definition success_factor_bound := exp2(- n%:R * +| log #|M|%:R / n%:R - `I(P, V) |).
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) Reals mathcomp(Rstruct) ssrR Reals_ext ssr_ext ssralg_ext logb fdist entropy ln_facts num_occ types jtypes divergence conditional_divergence entropy channel_code channel