Limit tuple at infinite rank from local approximation
ProvedOAI.FreeGroupFactorMain.InfiniteGeneration.generating_haar_tupleThroughout, is the group von Neumann algebra of a discrete group acting on , with canonical trace , left-regular unitaries , and . Let and . Let for be the initial tuple, and for let be the extra generators. The orbit is the set of tuples for -preserving -automorphisms of . Tuples carry the metric in the operator norm. Assume that for every in the orbit, and there are in the orbit with and a finitely supported on with . Then there is a triple of unitaries in with for every nonidentity and
This is the limit step for the infinite-rank factor. Lean proves it by a Baire-type lemma rather than by the explicit iteration of Section 5 of the paper, which treats finite rank.
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.
import Mathlib
import Definitions.Def_FreeGroupFactorProof18
namespace OAI
noncomputable section
universe uA uG uι
open Set Metric Filter
open scoped NNReal Topology BigOperators ContDiff ENNReal
attribute [local instance] Classical.propDecidable
namespace FreeGroupFactorMain.Generation
end FreeGroupFactorMain.Generation
namespace FreeGroupFactorMain.InfiniteGeneration
open Generation
end FreeGroupFactorMain.InfiniteGeneration
namespace FreeGroupFactorMain.Generation
variable {G : Type uG} [Group G] {ι : Type uι}
end FreeGroupFactorMain.Generation
namespace FreeGroupFactorMain.InfiniteGeneration
open Generation
theorem generating_haar_tuple
(hlocal : ∀ U ∈ orbit, ∀ δ : ℝ, 0 < δ → ∀ g : Group, ∀ ε : ℝ, 0 < ε →
∃ V ∈ orbit, dist V U < δ ∧ ∃ p : FreeGroup (Fin 3) →₀ ℂ,
dist (groupL2 (poly V p)) (lp.single 2 g (1 : ℂ)) < ε) :
∃ U : Tuple,
(∀ g : FreeGroup (Fin 3), canonicalTrace (word U g) = if g = 1 then 1 else 0) ∧
⊤ ≤ (Submodule.span ℂ (Set.range (fun g => groupL2 (word U g)))).topologicalClosure := by
sorry
end FreeGroupFactorMain.InfiniteGeneration
end
end OAI