Parameter Lebegue_Int: forall {Omega: Type} {sigma: SigmaAlgebra Omega} (f: MeasurableFunction Omega R) (m: Measure Omega), R.

Axiom Int_Indicator: forall {Omega: Type} {sigma: SigmaAlgebra Omega} (P: measurable_set Omega) (m: Measure Omega), Lebegue_Int (IndicatorR P) m = m P.
Record ProbabilityMeasure (Omega: Type) {sigma: SigmaAlgebra Omega}: Type := {
PS_MS :> Measure Omega;
universe_measure_1: PS_MS (Full_MSet _) = 1
}.