fact: Definition typed_tuples := [set t : n.-tuple A | [forall a, type.d P a == (INR N(a | t) / INR n)%R] ].
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