fact: Definition hoH (k : nat) := / n%:R * \sum_(w in {: k.-tuple A}) #|takes w l|%:R * match Bool.bool_dec (size w != O) true with | left H => `H (num_occ_dist H) | _ => 0 end.
imports: mathcomp(all_ssreflect ssralg ssrnum) Reals mathcomp(Rstruct) ssrR realType_ext Reals_ext ssr_ext ssralg_ext logb fdist entropy convex ln_facts jensen num_occ