proposition: Lemma fdist_supp_lg_add_1_neq_0 : 1 + log (INR #|X|) <> 0.
proof: Proof. by apply: nesym; apply: Rlt_not_eq; apply: (Rplus_lt_le_0_compat _ _ Rlt_0_1); rewrite -(Log_1 2); apply: Log_increasing_le => //; apply: fdist_support_LB. Qed.
imports: mathcomp(all_ssreflect ssralg matrix) Reals Lra mathcomp(Rstruct) ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist proba entropy aep typ_seq natbin source_code