Displacement bounds with inactive free generators
OpenOAI.FreeGroupFactorMain.FiniteActive.displacementfree-group-factorsoai-math
Throughout, is the group von Neumann algebra of a discrete group acting on , with canonical trace , left-regular unitaries , and . Let be finite, arbitrary, , . Let be finitely supported with , self-adjoint and , and let be finitely supported real functions on with associated cocycle , that is and . There is a -preserving ultraweakly continuous -automorphism of fixing and every , , with
for , . This is the paper's Proposition 3.1 with inactive generators.
Formalization Note The statement is verbatim from OpenAI's Lean development, with the listed Definitions imported in place of the upstream modules; the definitions are supporting code for this statement.
Preamble
import Mathlib
import Definitions.Def_FreeGroupFactorProof18
namespace OAI
noncomputable section
universe uA uι uκ
open Set Metric Filter
open scoped NNReal Topology BigOperators ContDiff ENNReal
attribute [local instance] Classical.propDecidable
namespace FreeGroupFactorMain.FiniteActive
section
open UnitaryEvaluation
open scoped ENNReal
end
open UnitaryEvaluation
end FreeGroupFactorMain.FiniteActive
namespace FreeGroupFactorMain.UnitaryEvaluation
variable {A : Type uA} [CStarAlgebra A] {ι : Type uι} {κ : Type uκ}
end FreeGroupFactorMain.UnitaryEvaluation
namespace FreeGroupFactorMain.FiniteActive
section
open UnitaryEvaluation
variable {ι : Type uι} {κ : Type uκ} [Fintype ι] [DecidableEq ι] [DecidableEq κ]
Formal statement
theorem displacement (h : ι → FreeGroup ι →₀ ℝ) (l : ℤ →₀ ℂ) (h0 : l 0 = 0)
(hS : IsSelfAdjoint (laurentValue (generatorUnitary (none : Option (ι ⊕ κ))) l))
(K : ℝ) (hK : 0 ≤ K)
(hn : ‖laurentValue (generatorUnitary (none : Option (ι ⊕ κ))) l‖ ≤ K) :
∃ β : Ambient ι κ ≃⋆ₐ[ℂ] Ambient ι κ,
(∀ T, canonicalTrace (β T) = canonicalTrace T) ∧
@Continuous _ _ (groupUltraweakTopology (FreeGroup (Option (ι ⊕ κ))))
(groupUltraweakTopology (FreeGroup (Option (ι ⊕ κ)))) β ∧
β (groupUnitary (FreeGroup.of none)) = groupUnitary (FreeGroup.of none) ∧
(∀ k : κ, β (groupUnitary (FreeGroup.of (some (Sum.inr k)))) =
groupUnitary (FreeGroup.of (some (Sum.inr k)))) ∧
(∀ i : ι, ‖β (groupUnitary (FreeGroup.of (some (Sum.inl i) : Option (ι ⊕ κ)))) -
groupUnitary (FreeGroup.of (some (Sum.inl i) : Option (ι ⊕ κ)))‖ ≤
3*K*Real.sqrt ((h i).sum (fun _ r => r^2))) ∧
∀ w : FreeGroup ι, ‖β (groupUnitary (FreeGroup.map (fun i => some (Sum.inl i)) w)) -
NormedSpace.exp (Complex.I • laurentValue (generatorUnitary (none : Option (ι ⊕ κ))) l) *
groupUnitary (FreeGroup.map (fun i => some (Sum.inl i)) w)‖ ≤
3*K*Real.sqrt ((freeCocycle h w - Finsupp.single 1 1).sum (fun _ r => r^2)) := by
sorry
end
end FreeGroupFactorMain.FiniteActive
end
end OAI
Source
OpenAI, An isomorphism of the free group factors, September 23, 2026, https://github.com/openai/math (paper: preprints/An-isomorphism-of-the-free-group-factors-September-23-2026/An-isomorphism-of-the-free-group-factors-September-23-2026.pdf; Lean: lean/OAI/Analysis/FreeGroupFactor and lean/OAI/Analysis/InterpolatedFactors, Apache License 2.0); Lean declaration `OAI.FreeGroupFactorMain.FiniteActive.displacement`, https://github.com/openai/math/blob/adc7f1241b42e322a6451854ab7e4b4c146bf78a/lean/OAI/Analysis/FreeGroupFactor/FiniteActive.lean#L281