fact: Definition enc_not_typ x := enum_val (widen_ord card_le_Xn_Lnt (enum_rank 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