fact: Definition phi : decT X (seq bool) n := fun y => if [ pick x | f x == y ] is Some x then x else row_of_tuple phi_def.
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