fact: Definition dlift {A : choiceType} (f : A -> {distr A / R}) := fun d => \dlet_(x <- d) f x.
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp classical_sets mathcomp_extra) xfinmap ereal reals discrete topology realseq realsum