fact: Hypothesis P_dom_by_Q : fdist_binary card_A p (Set2.a card_A) `<< fdist_binary card_A q (Set2.a card_A).
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