fact: Definition diter {A : choiceType} n (f : A -> {distr A / R}) := fun a => (iter n (dlift f) (dunit a)).
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp classical_sets mathcomp_extra) xfinmap ereal reals discrete topology realseq realsum