proposition: Lemma Radon_NikodymE (numu : nu `<< mu) : Radon_Nikodym = sval (cid (Radon_Nikodym0 numu)).
proof: Proof. rewrite /= /Radon_Nikodym; case: pselect => //= numu'. by congr (sval (cid (Radon_Nikodym0 _))); exact: Prop_irrelevance. Qed.
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