proposition: Lemma fdist_support_LB : 1 <= INR #|X|.
proof: Proof. rewrite (_ : 1 = INR 1) //; apply/le_INR/leP/fdist_card_neq0; exact: P. 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