proposition: Lemma entropy_Ex (P : {fdist A}) : `H P = `E (`-- (`log P)).
proof: Proof. rewrite /entropy /log_RV /= big_morph_oppR. by apply eq_bigr => a _; rewrite mulRC -mulNR. Qed.
imports: mathcomp(all_ssreflect all_algebra fingroup perm matrix) Reals mathcomp(Rstruct) ssrR Reals_ext realType_ext ssr_ext ssralg_ext bigop_ext logb ln_facts fdist jfdist_cond proba binary_entropy_function divergence