proposition: Lemma f0 g : (0 <= f g)%mcR.
proof: Proof. rewrite ffunE; apply/RleP; exact: prodR_ge0. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum matrix perm) Reals Lra Classical mathcomp(Rstruct classical_sets) ssrZ ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist proba entropy aep typ_seq joint_typ_seq channel channel_code