fact: Definition mkdistrd : {distr T / R} := if @idP `[< isdistr mu >] is ReflectT Px then mkdistr (asboolW Px) else dnull.
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp classical_sets mathcomp_extra) xfinmap ereal reals discrete topology realseq realsum