proposition: Lemma probability_le1 (A : set T) : measurable A -> P A <= 1.
proof: Proof. move=> mA; rewrite -(@probability_setT _ _ _ P). by apply: le_measure => //; rewrite ?in_setE. Qed.
imports: mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop ) reals ereal signed topology normedtype sequences esum numfun HB(structures)