fact: Definition dswap : {distr (B * A) / R} := dmargin (fun xy => (xy.2, xy.1)) mu.
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp classical_sets mathcomp_extra) xfinmap ereal reals discrete topology realseq realsum