proposition: Lemma measurableE : emeasurable (@ocitv R) = G.-sigma.-measurable.
proof: Proof. rewrite ErealGenCInfty.measurableE eqEsubset; split => A. apply: smallest_sub; first exact: smallest_sigma_algebra. move=> _ [x ->]; rewrite -[X in _.-measurable X]setCK; apply: measurableC. by apply: sub_sigma_algebra; exists x; rewrite setCitvr. apply: smallest_sub; first exact: smallest_sigma_algebra. move=> x Gx; rewrite -(setCK x); apply: measurableC; apply: sub_sigma_algebra. by case: Gx => y ->; exists y; rewrite setCitvl. 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