Conformal boundary profile and its finite-order logarithmic expansion
OpenQAlgorithms.Papers.Independent.Intakethird100.P58.conformal_uv_profileConsider a regular rotational disk profile in the conformal reduced model, with boundary-cylinder radius and maximal depth . Write for the direct graph, for its inverse, , and . The graphs satisfy the Euler–Lagrange equation of , the regular axis condition, and positive finite regulated area. Such regular disks exist for every . There are universal functions of one real variable such that each disk has a coefficient with
and
All limits approach the boundary from the physical interior. This identifies the local terms that control the conformal UV subtraction; it asserts no convergence of an infinite formal series.
Formalization Note The printed variable is corrected to , as required by the real square root and the displayed ODE. The coordinate correction was independently checked against (3.8)–(3.10) and (3.14) in moderation round one.
import Definitions.Def_QAlgorithms_Papers_Independent_Intakethird100_P58
noncomputable section
namespace QAlgorithms.Papers.Independent.Intakethird100.P58
open Set Filter MeasureTheory
open scoped Topology
/-- PDF pp.7--9, (3.8)--(3.11),(3.14): finite-order conformal boundary
asymptotics of the regular disk profile. The printed x=1-R/r is corrected to
x=1-r/R because (3.8),(3.9),(3.10),(3.14) require positive x in the interior.
The three second-order coefficients depend only on a1, and no convergence of
an infinite formal series is asserted. The coordinate correction is fixed by
these source equations. -/
theorem conformal_uv_profile :
∃ B1 B2 B3 : ℝ → ℝ,
(∀ R : ℝ, 0 < R → ∃ b : ℝ, ∃ r : ℝ → ℝ, IsDisk .conformal R b r) ∧
∀ (R b : ℝ) (r : ℝ → ℝ), IsDisk .conformal R b r →
(Tendsto (fun t => height r b t /
(2 * Real.sqrt R * Real.sqrt (R - t)))
(nhdsWithin R (Iio R)) (nhds 1)) ∧
(∃ a1 : ℝ,
Asymptotics.IsLittleO (nhdsWithin (0 : ℝ) (Ioi 0))
(fun x => conformalF R b r x -
(1 + a1 * x + x * Real.log x / 8 + B1 a1 * x ^ 2 +
B2 a1 * x ^ 2 * Real.log x + B3 a1 * x ^ 2 * Real.log x ^ 2))
(fun x => x ^ 2)) ∧
Asymptotics.IsBigO (nhdsWithin (0 : ℝ) (Ioi 0))
(fun z => r z - R + z ^ 2 / (4 * R))
(fun z => z ^ 4 * Real.log z) := by sorry
end QAlgorithms.Papers.Independent.Intakethird100.P58
end
Read-back
What the Lean code literally says, in plain math · gpt-6.1-sol
There exist three functions , common to all the data below, with the following properties. For every real , there exist a real and a function satisfying these disk conditions: , , is continuous and strictly decreasing on , is twice continuously differentiable at every as a function on , and for every ,
For every real with , the function must be Lebesgue interval-integrable from to . The remaining disk conditions are and, on defining
that is twice continuously differentiable within and has derivative at within . The infimum defining is assigned the value when its set is empty. For every real and every function satisfying all these disk conditions, including , one has
there exists a real , which may depend on , such that, as ,
and, as ,
Here the little- assertion means that the absolute value of its left-hand side divided by tends to ; the big- assertion means that the absolute value of its left-hand side is eventually bounded by a fixed nonnegative constant times .
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.