fact: Definition tcode_untyped_code := mkCode [ffun m => if tuple_of_row (enc c m) \in T_{P} then enc c m else def] (dec c).
imports: mathcomp(all_ssreflect ssralg ssrnum perm) mathcomp(matrix) mathcomp(Rstruct) Reals ssrR Reals_ext realType_ext ssr_ext ssralg_ext logb fdist proba entropy num_occ channel_code channel typ_seq