fact: Definition phi : decT A 'rV_n k.+1 := fun x => let i := tuple2N (tuple_of_row x) in if i is N0 then def else if (i.-1 < #| S |)%nat then nth def (enum S) i.-1 else def.
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