One-step perturbation with inactive free generators
OpenOAI.FreeGroupFactorMain.FiniteActive.one_step_from_laurentfree-group-factorsoai-math
Throughout, is the group von Neumann algebra of a discrete group acting on , with canonical trace , left-regular unitaries , and . Let , arbitrary, , , . Suppose is finitely supported with , is self-adjoint with , and for a scalar of modulus one. Suppose is a finitely supported real function on and with and both below , where is the cocycle with , for , and . Then there are a -preserving -automorphism of fixing each , , and a word with
This is the form of Proposition 5.1 of the paper used for the infinite-rank factor.
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 κ]
end
open UnitaryEvaluation
Formal statement
theorem one_step_from_laurent {κ : Type uκ} [DecidableEq κ]
(n : ℕ) {ε : ℝ} (hε : 0 < ε)
(l : ℤ →₀ ℂ) (hl0 : l 0 = 0)
(hlS : IsSelfAdjoint (laurentValue (generatorUnitary (none : Option (Fin n ⊕ κ))) l))
(hln : ‖laurentValue (generatorUnitary (none : Option (Fin n ⊕ κ))) l‖ ≤ 2*(Real.pi+1))
(z : unitary ℂ) (hze : twoNorm (NormedSpace.exp (Complex.I • laurentValue
(generatorUnitary (none : Option (Fin n ⊕ κ))) l) -
(z : ℂ) • groupUnitary (FreeGroup.of none)) < ε/2)
(w : FreeGroup (Fin n)) (h : Coeff (FreeGroup (Fin n)))
(hh : coefficientNorm h < (ε/2)/(3*(2*(Real.pi+1))))
(hw : coefficientNorm (freeCocycle (firstCoefficients h) w-Finsupp.single 1 1) <
(ε/2)/(3*(2*(Real.pi+1)))) :
∃ α : Ambient (Fin n) κ ≃⋆ₐ[ℂ] Ambient (Fin n) κ,
(∀ T, canonicalTrace (α T) = canonicalTrace T) ∧
(∀ k : κ, α (groupUnitary (FreeGroup.of (some (Sum.inr k)))) =
groupUnitary (FreeGroup.of (some (Sum.inr k)))) ∧
∃ w : FreeGroup (Fin n),
(∀ i : Fin n, ‖α (groupUnitary (FreeGroup.of (some (Sum.inl i)))) -
groupUnitary (FreeGroup.of (some (Sum.inl i)))‖ < ε) ∧
twoNorm (α (groupUnitary (FreeGroup.map (fun i => some (Sum.inl i)) w)) -
groupUnitary (FreeGroup.of none)) < ε := by
sorry
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.one_step_from_laurent`, https://github.com/openai/math/blob/adc7f1241b42e322a6451854ab7e4b4c146bf78a/lean/OAI/Analysis/FreeGroupFactor/FiniteActive.lean#L316