proposition: Lemma Rle0Pf i : 0 <= Pf i.
proof: Proof. rewrite /Pf. by case: pickP => [x _ | _ ]; [exact/RleP/FDist.ge0|]. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) Reals mathcomp(Rstruct) ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist proba entropy divergence log_sum source_code