fact: Definition mlet := fun y : U => psum (fun x => mu x * f x y).
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp classical_sets mathcomp_extra) xfinmap ereal reals discrete topology realseq realsum