proposition: Lemma expand_interval_open_to_closed a b c d : a <= b -> b < c -> c <= d -> forall x, b < x < c -> a <= x <= d.
proof: Proof. move=> ? ? ? x [? ?]; split; [exact/ltRW/(@leR_ltR_trans b)|exact/ltRW/(@ltR_leR_trans c)]. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrnum matrix) mathcomp(mathcomp_extra Rstruct reals) Reals Ranalysis_ext Lra ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist jfdist_cond entropy convex binary_entropy_function log_sum divergence