proposition: Lemma entropy_rV (A : finType) n (P : {fdist 'rV[A]_n.+1}) : `H P = joint_entropy (fdist_belast_last_of_rV P).
proof: Proof. rewrite /joint_entropy /entropy; congr (- _) => /=. rewrite -(big_rV_belast_last _ xpredT xpredT) /=. rewrite pair_big /=; apply eq_bigr => -[a b] _ /=. by rewrite fdist_belast_last_of_rVE. 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