proposition: Lemma EFin_itv r : [set s | r%:E < s%:E] = `]r, +oo[%classic.
proof: Proof. by rewrite predeqE => s; split => [|]; rewrite /= lte_fin in_itv/= andbT. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum ssrint interval) mathcomp(finmap fingroup perm rat) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop) reals ereal signed topology numfun normedtype HB(structures) sequences esum measure real_interval realfun exp lebesgue_stieltjes_measure