Integrating the four square-gap moments #
theorem
Verification.integrated_innerSquareMoment
(r : ℝ)
(hr : r ∈ Set.Ioo 0 1)
:
∫ (x : ℝ) in r..1, innerSquareMoment x (√(x ^ 2 - r ^ 2)) 0 = radicalMoment r 0 ∧ ∫ (x : ℝ) in r..1, innerSquareMoment x (√(x ^ 2 - r ^ 2)) 1 = (2 * radicalMoment r 1 + r ^ 2 * radicalMoment r 0) / 3 ∧ ∫ (x : ℝ) in r..1, innerSquareMoment x (√(x ^ 2 - r ^ 2)) 2 = (8 * radicalMoment r 2 + 4 * r ^ 2 * radicalMoment r 1 + 3 * r ^ 4 * radicalMoment r 0) / 15 ∧ ∫ (x : ℝ) in r..1, innerSquareMoment x (√(x ^ 2 - r ^ 2)) 3 = (16 * radicalMoment r 3 + 8 * r ^ 2 * radicalMoment r 2 + 6 * r ^ 4 * radicalMoment r 1 + 5 * r ^ 6 * radicalMoment r 0) / 35