fact: Record t (A T : finType) := mk { f :> {ffun A -> seq T}; f_inj : injective f }.
imports: mathcomp(all_ssreflect ssralg ssrnum) Reals mathcomp(Rstruct) ssrZ ssrR logb Reals_ext realType_ext ssr_ext fdist entropy kraft