Existence of a singular integrator: increasing, differentiable, derivative unbounded and with dense small values
ProvedRudin.ch06_exists_singular_integratorA singular integrator is a function which is monotonically increasing, differentiable at every point of , non-constant there, whose derivative is unbounded above on and satisfies
i.e. takes arbitrarily small values on every nondegenerate subinterval. This statement asserts that such a function exists.
The two requirements pull in opposite directions and both are needed. The dense small values are the feature of Pompeiu's function, a strictly increasing everywhere differentiable function whose derivative vanishes on a dense set, obtained as the inverse of over an enumeration of the rationals: at a point where has infinite derivative the inverse has derivative . Pompeiu's own function has bounded derivative, since , so the unboundedness clause asks for a variant whose derivative also blows up, which can be arranged by kernels that flatten away from their singularity.
Note that the derivative cannot be unbounded on every subinterval: a derivative is of Baire class , so its points of continuity are dense in every subinterval, and near such a point it is bounded. Unboundedness at a single point of is all that is asked for here.
The interest of the statement is that it decides the remaining unbounded statements of Rudin's Chapter 6: as recorded in Rudin.ch06_singular_integrator_refutes, a singular integrator refutes the versions of Theorems 6.17, 6.21 and 6.22 that omit the boundedness hypothesis, and conversely, if the derivative of the integrator is bounded, those theorems hold.
import Mathlib import Definitions.Def_Rudin_ch06_stieltjes open Filter Topology
namespace Rudin
/-- There is a monotonically increasing function on `[0,1]`, differentiable at every point, which
is not constant, whose derivative is unbounded above and takes arbitrarily small values on every
nondegenerate subinterval. -/
theorem ch06_exists_singular_integrator :
∃ α : ℝ → ℝ, Monotone α ∧
(∀ x ∈ Set.Icc (0:ℝ) 1, HasDerivAt α (deriv α x) x) ∧
α 0 < α 1 ∧
(∀ K : ℝ, ∃ x ∈ Set.Icc (0:ℝ) 1, K < deriv α x) ∧
(∀ u v : ℝ, 0 ≤ u → u < v → v ≤ 1 → ∀ ε > 0, ∃ x ∈ Set.Icc u v, deriv α x < ε) := by sorry
end Rudin