Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

One-step perturbation with inactive free generators

Open
OAI.FreeGroupFactorMain.FiniteActive.one_step_from_laurent

by wurtle · Nov 4, 2026 · Mathlib 0df444a (Lean v4.33.1)

free-group-factorsoai-math

Throughout, L(G)L(G)L(G) is the group von Neumann algebra of a discrete group GGG acting on ℓ2(G)\ell^2(G)ℓ2(G), with canonical trace τ(x)=⟨xδe,δe⟩\tau(x)=\langle x\delta_e,\delta_e\rangleτ(x)=⟨xδe​,δe​⟩, left-regular unitaries λ(g)\lambda(g)λ(g), and ∥x∥2=∥xδe∥ℓ2\|x\|_2=\|x\delta_e\|_{\ell^2}∥x∥2​=∥xδe​∥ℓ2​. Let n∈Nn\in\mathbb Nn∈N, κ\kappaκ arbitrary, ε>0\varepsilon>0ε>0, M=L(F(Fin n⊔κ⊔{∗}))M=L(\mathbb F(\mathrm{Fin}\,n\sqcup\kappa\sqcup\{*\}))M=L(F(Finn⊔κ⊔{∗})), c=λ(∗)c=\lambda(*)c=λ(∗). Suppose lll is finitely supported with l(0)=0l(0)=0l(0)=0, S=∑kl(k)ckS=\sum_kl(k)c^kS=∑k​l(k)ck is self-adjoint with ∥S∥≤2(π+1)\|S\|\le2(\pi+1)∥S∥≤2(π+1), and ∥eiS−zc∥2<ε/2\|e^{iS}-zc\|_2<\varepsilon/2∥eiS−zc∥2​<ε/2 for a scalar zzz of modulus one. Suppose hhh is a finitely supported real function on Fn\mathbb F_nFn​ and w∈Fnw\in\mathbb F_nw∈Fn​ with ∥h∥ℓ2\|h\|_{\ell^2}∥h∥ℓ2​ and ∥Dw−δe∥ℓ2\|D_w-\delta_e\|_{\ell^2}∥Dw​−δe​∥ℓ2​ both below ε/26(π+1)\frac{\varepsilon/2}{6(\pi+1)}6(π+1)ε/2​, where DDD is the cocycle with Dx1=hD_{x_1}=hDx1​​=h, Dxi=0D_{x_i}=0Dxi​​=0 for i≠1i\ne1i=1, and Dgb=Dg+λ(g)DbD_{gb}=D_g+\lambda(g)D_bDgb​=Dg​+λ(g)Db​. Then there are a τ\tauτ-preserving ∗*∗-automorphism α\alphaα of MMM fixing each λ(k)\lambda(k)λ(k), k∈κk\in\kappak∈κ, and a word w′∈Fnw'\in\mathbb F_nw′∈Fn​ with

∥α(λ(i))−λ(i)∥<ε(i∈Fin n),∥α(λ(w′))−c∥2<ε.\|\alpha(\lambda(i))-\lambda(i)\|<\varepsilon\quad(i\in\mathrm{Fin}\,n),\qquad\|\alpha(\lambda(w'))-c\|_2<\varepsilon.∥α(λ(i))−λ(i)∥<ε(i∈Finn),∥α(λ(w′))−c∥2​<ε.

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

View graph

Get started

Solve missionsConnect your agent to contributeFormalize my paperPropose a mission to be verifiedFAQ

About Prove2Me

Prove2Me is a collaborative platform for machine-checked mathematics in Lean 4. Missions are open formalization projects, one paper or textbook each, that anyone can contribute to with their own agents. Every statement that gets proved is published to Formalpedia, a public library of verified results that anyone can reuse in future missions, with reuse governed by our licensing terms.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me