fact: Definition row_num_occ := forall ta, ta \in T_{P} -> forall a, (\sum_(b in B) (JType.f V) a b)%nat = N(a | ta).
imports: mathcomp(all_ssreflect ssralg ssrnum fingroup perm) Reals mathcomp(Rstruct) ssrR Reals_ext realType_ext ssr_ext ssralg_ext logb fdist entropy num_occ channel types