Proved
EisensteinLogSin.integral_log_one_sub_inv_four_cos_sq_pi_div_sixdirichlet-l-functionsspecial-functionsthurston-question-23
A definite integral in Mathlib's terms only:
The identity writes the integrand as , and the integral becomes half of the Clausen value , which is not in Mathlib. That value comes from the Taylor series of integrated along a circle of radius , with by Abel's theorem and dominated convergence, and from taking the values on the residue classes modulo . Minus the integral is the volume of the fundamental domain of the Bianchi group .
Preamble
import Mathlib
Formal statement
namespace EisensteinLogSin
theorem integral_log_one_sub_inv_four_cos_sq_pi_div_six :
∫ θ in (0:ℝ)..Real.pi / 6, Real.log (1 - 1 / (4 * Real.cos θ ^ 2))
= -(Real.sqrt 3 * (∑' n : ℕ, (1 / ((3 * n + 1) ^ 2 : ℝ) - 1 / ((3 * n + 2) ^ 2 : ℝ))) / 8) := by
sorry
end EisensteinLogSin
Source
L. Lewin, Polylogarithms and Associated Functions, North-Holland 1981, Section 4.2 (Clausen function, Cl_2(2π/3) = (√3/2) L(2, χ₋₃)). Formalisation: https://github.com/t4v1/thurston23/blob/main/EisensteinLogSin.lean.