fact: Definition f : encT X (seq bool) n := fun x => if x \in `TS P n epsilon then true :: enc_typ x else false :: enc_not_typ (tuple_of_row x).
imports: mathcomp(all_ssreflect ssralg matrix) Reals Lra mathcomp(Rstruct) ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist proba entropy aep typ_seq natbin source_code