fact: Definition is_shannon_fano (f : Encoding.t A T) := forall s, size (f s) = '| ceil (Log #|T|%:R (1 / P s)%R) |.
imports: mathcomp(all_ssreflect ssralg ssrnum) Reals mathcomp(Rstruct) ssrZ ssrR logb Reals_ext realType_ext ssr_ext fdist entropy kraft