proposition: Lemma entropy_fdist_rV_of_prod n (P : {fdist A * 'rV[A]_n}) : `H (fdist_rV_of_prod P) = `H P.
proof: Proof. rewrite /entropy /=; congr (- _). rewrite -(big_rV_cons_behead _ xpredT xpredT) /= pair_bigA /=. apply eq_bigr => -[a b] _ /=. by rewrite fdist_rV_of_prodE /= row_mx_row_ord0 rbehead_row_mx. 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