OAI.ThreeTorus.exists_predicted_whitening: intermediate lemma from OpenAI, A smooth three-torus diffeomorphism with simple Lebesgue spectrum
ProvedOAI.ThreeTorus.exists_predicted_whiteningAn intermediate lemma of the split of OpenAI's proof of OAI.ThreeTorus.simple_lebesgue_spectrum, carved from OpenAI's openai/math development for this platform. The statement and its proof are OpenAI's (OpenAI, A smooth three-torus diffeomorphism with simple Lebesgue spectrum, OpenAI Math Release, September 23, 2026, result family 144, github.com/openai/math, Apache License 2.0); in Lean it is the declaration OAI.ThreeTorus.exists_predicted_whitening of lean/OAI/Dynamics/ThreeTorus/ThreeTorus/Stages.lean at commit adc7f12, ported to Lean 4.33.1 and Mathlib 0df444a.
The statement, as published (namespace OAI.ThreeTorus, with open Set Function MeasureTheory, open scoped Topology BigOperators ComplexConjugate):
theorem exists_predicted_whitening {n : ℕ} (C : ColoredState (Fin n))
(ρ : Fin n → Fin n) (hρ : Involutive ρ) (hr : C.Reflection ρ)
(b : Fin n → ℂ) (hb : ∀ i, b (ρ i)=conj (b i))
(Q : PhysicalJetData) (frame : PhysicalFrame)
{e r η κ ζ : ℝ} (he : 0 < e) (hr0 : 0 < r) (hr1 : r < 1)
(her : e ≤ (r^2/64)^2) (hη : 0 < η) (hκ : 0 < κ) (hζ : 0 < ζ)
(hpC : (∫ z, |blockTotal C.density z-1| ∂phaseHaar) < e) :
∃ W : MeasurablePackets, ∃ V : ℝ → ℝ, ∃ hp : Periodic V 1,
∃ _hs : ContDiff ℝ ((⊤ : ℕ∞) : WithTop ℕ∞) V,
∃ δ l u : ℝ, ∃ β : Equiv.Perm TripleTorus, ∃ frame' : PhysicalFrame, ∃ d : ℤ →₀ ℂ,
0 < δ ∧ δ < 1/8 ∧ δ < κ ∧ δ < l ∧ l < u ∧ u < 1-δ ∧
(∀ x ∈ Ioo δ (1-δ), 0 < deriv V x) ∧ W.Supported l u ∧
(∃ τ, W.Reflection τ) ∧ W.spectrum (fun z => (hp.lift z:UnitAddCircle))=phaseHaar ∧
Continuous β ∧ MeasurePreserving β tripleVolume tripleVolume ∧
frame'.chart=frame.chart.trans β ∧ Q.Close ζ frame C.packets.V frame' V ∧
physicalDist C.totalVector (W.vector ∘ β) < e+r ∧
physicalDist (fun x => ∑ i, b i*C.vector i x)
(finitePacketLaurent (fun z => (hp.lift z:UnitAddCircle)) W.m W.A d ∘ β) < η
Definitions. The statement is written with OAI.ThreeTorus.ColoredState, OAI.ThreeTorus.MeasurablePackets, OAI.ThreeTorus.PhysicalFrame, OAI.ThreeTorus.PhysicalJetData, OAI.ThreeTorus.TripleTorus, OAI.ThreeTorus.blockTotal, OAI.ThreeTorus.finitePacketLaurent, OAI.ThreeTorus.phaseHaar, OAI.ThreeTorus.physicalDist, OAI.ThreeTorus.tripleVolume, OAI.ThreeTorus.ColoredState.Reflection, OAI.ThreeTorus.ColoredState.density, OAI.ThreeTorus.ColoredState.totalVector, OAI.ThreeTorus.ColoredState.vector, OAI.ThreeTorus.MeasurablePackets.Reflection, OAI.ThreeTorus.MeasurablePackets.Supported, OAI.ThreeTorus.MeasurablePackets.spectrum, OAI.ThreeTorus.MeasurablePackets.vector, OAI.ThreeTorus.PassagePackets and OAI.ThreeTorus.PhysicalJetData.Close (definitions bundle OAIQ13Tt000 of this split).
Used by. The proof of OAI.ThreeTorus.StageState.exists_step of this split imports it.
import Mathlib import Definitions.Def_OAIQ13Tt000
section
attribute [-instance] _root_.OAI.ThreeTorus.tripleVolume_regular
set_option linter.all false
set_option linter.unusedVariables false
set_option linter.unusedTactic false
set_option linter.unreachableTactic false
namespace OAI
section
noncomputable section
open Set Function MeasureTheory
open scoped Topology BigOperators ComplexConjugate
namespace ThreeTorus
theorem exists_predicted_whitening {n : ℕ} (C : ColoredState (Fin n))
(ρ : Fin n → Fin n) (hρ : Involutive ρ) (hr : C.Reflection ρ)
(b : Fin n → ℂ) (hb : ∀ i, b (ρ i)=conj (b i))
(Q : PhysicalJetData) (frame : PhysicalFrame)
{e r η κ ζ : ℝ} (he : 0 < e) (hr0 : 0 < r) (hr1 : r < 1)
(her : e ≤ (r^2/64)^2) (hη : 0 < η) (hκ : 0 < κ) (hζ : 0 < ζ)
(hpC : (∫ z, |blockTotal C.density z-1| ∂phaseHaar) < e) :
∃ W : MeasurablePackets, ∃ V : ℝ → ℝ, ∃ hp : Periodic V 1,
∃ _hs : ContDiff ℝ ((⊤ : ℕ∞) : WithTop ℕ∞) V,
∃ δ l u : ℝ, ∃ β : Equiv.Perm TripleTorus, ∃ frame' : PhysicalFrame, ∃ d : ℤ →₀ ℂ,
0 < δ ∧ δ < 1/8 ∧ δ < κ ∧ δ < l ∧ l < u ∧ u < 1-δ ∧
(∀ x ∈ Ioo δ (1-δ), 0 < deriv V x) ∧ W.Supported l u ∧
(∃ τ, W.Reflection τ) ∧ W.spectrum (fun z => (hp.lift z:UnitAddCircle))=phaseHaar ∧
Continuous β ∧ MeasurePreserving β tripleVolume tripleVolume ∧
frame'.chart=frame.chart.trans β ∧ Q.Close ζ frame C.packets.V frame' V ∧
physicalDist C.totalVector (W.vector ∘ β) < e+r ∧
physicalDist (fun x => ∑ i, b i*C.vector i x)
(finitePacketLaurent (fun z => (hp.lift z:UnitAddCircle)) W.m W.A d ∘ β) < η := by
sorry
end ThreeTorus
end
end
end OAI
end