fact: Definition f : T -> \bar R := match pselect (nu `<< mu) with | left nu_mu => sval (cid (radon_nikodym_sigma_finite nu_mu)) | right _ => cst -oo end.
imports: mathcomp(all_ssreflect ssralg ssrnum ssrint interval) mathcomp(finmap fingroup perm rat) mathcomp(mathcomp_extra boolp classical_sets cardinality) mathcomp(functions fsbigop set_interval) HB(structures) reals ereal signed topology numfun normedtype sequences esum measure realfun lebesgue_measure lebesgue_integral