proposition: Lemma pr_pred0_eq (mu : {distr T / R}) (E : pred T) : E =1 pred0 -> \P_[mu] E = 0.
proof: Proof. by move=> eq; rewrite -(pr_pred0 mu); apply/eq_pr. Qed.
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp classical_sets mathcomp_extra) xfinmap ereal reals discrete topology realseq realsum