fact: Definition mrat (s : seq T) : T -> R := fun x : T => (count (pred1 x) s)%:R / (size s)%:R.
imports: mathcomp(all_ssreflect all_algebra) mathcomp.classical(boolp classical_sets mathcomp_extra) xfinmap ereal reals discrete topology realseq realsum