fact: Definition f : encT A 'rV_n k.+1 := fun x => if x \in S then let i := index x (enum S) in row_of_tuple (Tuple (size_bitseq_of_nat i.+1 n)) else \row_(j < n) false.
imports: mathcomp(all_ssreflect ssralg matrix) Reals Lra mathcomp(Rstruct) ssrZ ssrR Reals_ext ssr_ext ssralg_ext logb natbin fdist proba entropy aep typ_seq source_code