fact: Definition card_type_of_row (i : 'I_#|A|) := match Bool.bool_dec (N(enum_val i | ta) == O) true with | left _ => 1 | right Ha => #| T_{type_of_row (Bool.eq_true_not_negb _ Ha)} | end.
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