Displacement bounds for the time-one Laurent flow
OpenOAI.FreeGroupFactorMain.laurent_flow_displacementThroughout, is the group von Neumann algebra of a discrete group acting on , with canonical trace , left-regular unitaries , and . Let be a finite type and the free group on and one extra generator ; write in . Let be finitely supported with self-adjoint, and let () be finitely supported real functions on . The flow is the differential equation , where is the evaluation of the word in the tuple . Assume and . Let be the free-group cocycle with and . There is a -preserving, ultraweakly continuous -automorphism of fixing such that
for all and . These are the displacement estimates of Proposition 3.1 of the paper, with a Laurent polynomial in place of the bounded logarithm of .
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
namespace FreeGroupFactorMain
noncomputable section
universe uA uB uG uH uι
open Set Metric Filter
open scoped NNReal Topology BigOperators ContDiff
namespace UnitaryEvaluation
variable {A : Type uA} [CStarAlgebra A] {ι : Type uι}
end UnitaryEvaluation
section
open UnitaryEvaluation
variable {A : Type uA} {B : Type uB} [CStarAlgebra A] [CStarAlgebra B]
end
section
variable {A : Type uA} [CStarAlgebra A]
end
namespace UnitaryEvaluation
variable {A : Type uA} [CStarAlgebra A] {ι : Type uι} [Fintype ι] [DecidableEq ι]
end UnitaryEvaluation
section
open UnitaryEvaluation
variable {ι : Type uι} [Fintype ι] [DecidableEq ι]
theorem laurent_flow_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) :
∃ β : groupVonNeumann (FreeGroup (Option ι)) ≃⋆ₐ[ℂ] groupVonNeumann (FreeGroup (Option ι)),
(∀ T, canonicalTrace (β T) = canonicalTrace T) ∧
@Continuous _ _ (groupUltraweakTopology (FreeGroup (Option ι)))
(groupUltraweakTopology (FreeGroup (Option ι))) β ∧
β (groupUnitary (FreeGroup.of none)) = groupUnitary (FreeGroup.of none) ∧
(∀ j : ι, ‖β (groupUnitary (FreeGroup.of (some j))) - groupUnitary (FreeGroup.of (some j))‖ ≤
3*K*Real.sqrt ((h j).sum (fun _ r => r^2))) ∧
∀ w : FreeGroup ι, ‖β (groupUnitary (FreeGroup.map Option.some w)) -
NormedSpace.exp (Complex.I • laurentValue (generatorUnitary (none : Option ι)) l) *
groupUnitary (FreeGroup.map Option.some w)‖ ≤
3*K*Real.sqrt ((freeCocycle h w - Finsupp.single 1 1).sum (fun _ r => r^2)) := by
sorry
end
end
end FreeGroupFactorMain
end OAI