fact: Definition pinsker_fun' p c := fun q => (q - p) * (inv_fct (fun q => (q * (1 - q) * ln 2)) q - 8 * c).
imports: mathcomp(all_ssreflect ssralg ssrnum) Reals Lra mathcomp(mathcomp_extra Rstruct reals) ssrR Reals_ext realType_ext Ranalysis_ext ssr_ext logb ln_facts bigop_ext convex fdist divergence variation_dist partition_inequality