proposition: Lemma measurable_itv_bnd_infty b x : G.-sigma.-measurable [set` Interval -oo%O (BSide b x)].
proof: Proof. case: b; first by apply sub_sigma_algebra; eexists; reflexivity. rewrite -setCitvr itv_o_inftyEbigcup; apply/measurableC/bigcupT_measurable => n. rewrite -setCitvl; apply: measurableC. by apply: sub_sigma_algebra; eexists; reflexivity. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum ssrint interval) mathcomp(finmap fingroup perm rat) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop) reals ereal signed topology numfun normedtype HB(structures) sequences esum measure real_interval realfun exp lebesgue_stieltjes_measure