fact: Structure distr := Distr { mu :> T -> R; _ : forall x, 0 <= mu x; _ : summable mu; _ : psum mu <= 1 }.
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp classical_sets mathcomp_extra) xfinmap ereal reals discrete topology realseq realsum