Theorem 6.17 — Stieltjes integrals with a density (bounded form)
ProvedRudin.ch06_reduction_to_riemann_of_boundedRudin's Theorem 6.17, stated with the boundedness hypotheses that Chapter 6 assumes throughout (Definitions 6.1 and 6.2).
Let be monotonically increasing on and differentiable at every point of , and suppose its derivative is bounded on and Riemann integrable there. Let be bounded on . Then
and whenever ,
Why the boundedness of is stated explicitly. In this development the upper and lower integrals are ordinary suprema and infima of sets of reals, which take a default value on sets that are unbounded. Rudin's convention is that a member of is bounded by definition (Definition 6.1 works throughout with bounded functions), so "" in the book already carries boundedness; here it is spelled out as a separate hypothesis, exactly as the boundedness of is.
Proof idea. Given , choose a partition with . On any refinement of , the mean value theorem produces, in each subinterval, a point with , and is bounded by the oscillation of on that subinterval for every in it. Comparing the two integrands term by term gives
with a bound for , and the same estimate for the lower sums. Passing to common refinements and letting shows that the upper integrals of and of coincide, and likewise the lower integrals; the two assertions follow at once.
import Mathlib import Definitions.Def_Rudin_ch06_stieltjes open Filter Topology
namespace Rudin
/-- Rudin, Theorem 6.17, with the boundedness hypotheses of Chapter 6: let `α` increase
monotonically on `[a, b]` and be differentiable there, with `α'` bounded and Riemann-integrable,
and let `f` be bounded. Then `f ∈ ℛ(α)` if and only if `f α' ∈ ℛ`, and in that case
`∫ₐᵇ f dα = ∫ₐᵇ f(x) α'(x) dx`. -/
theorem ch06_reduction_to_riemann_of_bounded (a b : ℝ) (hab : a ≤ b) (f α : ℝ → ℝ)
(hα : MonotoneOn α (Set.Icc a b))
(hαd : ∀ x ∈ Set.Icc a b, HasDerivAt α (deriv α x) x)
(hα' : RiemannIntegrable a b (deriv α))
(hα'b : ∃ K, ∀ x ∈ Set.Icc a b, |deriv α x| ≤ K)
(hf : ∃ M, ∀ x ∈ Set.Icc a b, |f x| ≤ M) :
(RSIntegrable a b f α ↔ RiemannIntegrable a b (fun x => f x * deriv α x)) ∧
(RSIntegrable a b f α →
RSIntegral a b f α = RiemannIntegral a b (fun x => f x * deriv α x)) := by sorry
end Rudin