fact: Definition mnormalize := let evidence := mu [set: T] in if (evidence == 0) || (evidence == +oo) then fun U => P U else fun U => mu U * (fine evidence)^-1%:E.
imports: mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop ) reals ereal signed topology normedtype sequences esum numfun HB(structures)