proposition: Lemma measurableE : (@ocitv R).-sigma.-measurable = G.-sigma.-measurable.
proof: Proof. rewrite eqEsubset; split => A. apply: smallest_sub; first exact: smallest_sigma_algebra. by move=> I [x _ <-]; apply: measurable_itv_bounded. apply: smallest_sub; first exact: smallest_sigma_algebra. by move=> A' /= [x ->]; apply: measurable_itv. 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