The lines of the Lean statement that state the theorem, then the definitions in the file that it uses.
Local definitions the statement names, followed through the definitions they name in turn. The match is by name in the source text, so a name reached only through notation can be missed; the full file is below.
abbreviation OAI.KaplanskyConsequences.Regular.HilbertSum line 13
abbrev HilbertSum (ι H : Type*) [NormedAddCommGroup H] := lp (fun _ : ι => H) 2
definition OAI.KaplanskyConsequences.Regular.reindex line 22
def reindex (e : ι ≃ ι) : HilbertSum ι H ≃ₗᵢ[ℂ] HilbertSum ι H where
Show the remaining 10 lines
toFun x := ⟨fun i => x (e.symm i), reindex_mem e.symm x⟩ invFun x := ⟨fun i => x (e i), reindex_mem e x⟩ left_inv x := by ext; simp right_inv x := by ext; simp map_add' x y := by ext; rfl map_smul' r x := by ext; rfl norm_map' x := by rw [lp.norm_eq_tsum_rpow (by norm_num),lp.norm_eq_tsum_rpow (by norm_num)] congr 1 exact e.symm.tsum_eq (fun i => ‖x i‖ ^ (2 : ℝ≥0∞).toReal)
definition OAI.KaplanskyConsequences.Regular.left line 39
def left (g : G) : HilbertSum G H →L[ℂ] HilbertSum G H := (reindex (Equiv.mulLeft g)).toLinearIsometry.toContinuousLinearMap
definition OAI.KaplanskyConsequences.Regular.Algebra line 60
def Algebra (G : Type*) [Group G] : StarSubalgebra ℂ (HilbertSum G ℂ →L[ℂ] HilbertSum G ℂ) := (StarAlgebra.adjoin ℂ (Set.range (left (H := ℂ) (G := G)))).topologicalClosure
abbreviation OAI.KaplanskyConsequences.Regular.F2 line 77
abbrev F2 := FreeGroup (Fin 2)
definition OAI.KaplanskyConsequences.Regular.diagonal line 85
def diagonal (T : H →L[ℂ] H) : HilbertSum G H →L[ℂ] HilbertSum G H := lp.mapCLM 2 (fun _ => T) (norm_nonneg T) (fun _ => le_rfl)
structure OAI.Kaplansky.OneQuasitrace line 101
structure OneQuasitrace (A : Type*) [CStarAlgebra A] where toFun : A → ℂ square_nonneg : ∀ x, 0 ≤ toFun (star x * x) square_swap : ∀ x, toFun (star x * x) = toFun (x * star x) real_imag : ∀ h k, IsSelfAdjoint h → IsSelfAdjoint k → toFun (h + Complex.I • k) = toFun h + Complex.I * toFun k abelian_linear : ∀ S : NonUnitalStarSubalgebra ℂ A, IsClosed (S : Set A) → (∀ x y : S, x * y = y * x) → ∃ f : S →ₗ[ℂ] ℂ, ∀ x : S, f x = toFun x
definition OAI.Kaplansky.OneQuasitrace.Normalized line 113
def OneQuasitrace.Normalized (τ : OneQuasitrace A) : Prop := τ 1 = 1
definition OAI.Kaplansky.ProperlyInfinite line 122
def ProperlyInfinite (A : Type*) [CStarAlgebra A] : Prop := ∃ s t : A, star s*s = 1 ∧ star t*t = 1 ∧ star s*t = 0
definition OAI.Kaplansky.upperLeft line 131
def upperLeft (a : A) : CStarMatrix (Fin 2) (Fin 2) A := CStarMatrix.ofMatrix fun i j => if i = 0 ∧ j = 0 then a else 0
definition OAI.Kaplansky.OneQuasitrace.IsTwo line 134
def OneQuasitrace.IsTwo (τ : OneQuasitrace A) : Prop := ∃ σ : OneQuasitrace (CStarMatrix (Fin 2) (Fin 2) A), ∀ a, σ (upperLeft a) = τ a
structure OAI.KaplanskyConsequences.ClosedStarIdeal line 147
structure ClosedStarIdeal (A : Type*) [CStarAlgebra A] extends NonUnitalStarSubalgebra ℂ A where mul_mem_left : ∀ (a b : A), b ∈ toNonUnitalStarSubalgebra → a * b ∈ toNonUnitalStarSubalgebra mul_mem_right : ∀ (a b : A), a ∈ toNonUnitalStarSubalgebra → a * b ∈ toNonUnitalStarSubalgebra closed : IsClosed (toNonUnitalStarSubalgebra : Set A)
definition OAI.KaplanskyConsequences.StablyFinite line 158
def StablyFinite (A : Type*) [CStarAlgebra A] : Prop := ∀ n : ℕ, 0 < n → ∀ v : CStarMatrix (Fin n) (Fin n) A, star v * v = 1 → v * star v = 1
structure OAI.KaplanskyConsequences.TracialState line 162
structure TracialState (A : Type*) [CStarAlgebra A] where functional : A →ₚ[ℂ] ℂ normalized : functional 1 = 1 tracial : ∀ a b, functional (a * b) = functional (b * a)
definition OAI.KaplanskyConsequences.TraceFreeStablyFinite line 167
def TraceFreeStablyFinite : Prop := ∃ (A : Type) (inst : CStarAlgebra A), letI := inst Nontrivial A ∧ TopologicalSpace.SeparableSpace A ∧ StablyFinite A ∧ IsEmpty (TracialState A)
definition OAI.KaplanskyConsequences.Regular.tensorAlgebra line 182
def tensorAlgebra (ρ : A →⋆ₐ[ℂ] (H →L[ℂ] H)) : StarSubalgebra ℂ (HilbertSum G H →L[ℂ] HilbertSum G H) := (StarAlgebra.adjoin ℂ (Set.range (fun a => diagonal (G:=G) (ρ a)) ∪ Set.range (left (G:=G) (H:=H)))).topologicalClosure
definition OAI.KaplanskyConsequences.ReducedQuasitraceLoss line 200
def ReducedQuasitraceLoss : Prop :=
Show the remaining 12 lines
∃ (B : Type) (instB : CStarAlgebra B), letI := instB Nontrivial B ∧ TopologicalSpace.SeparableSpace B ∧ (∃ τ : OneQuasitrace B, τ.Normalized ∧ τ.IsTwo) ∧ ∃ (H : Type) (instH : NormedAddCommGroup H) (innerH : InnerProductSpace ℂ H), letI := instH letI := innerH ∃ (completeH : CompleteSpace H), letI := completeH ∃ ρ : B →⋆ₐ[ℂ] (H →L[ℂ] H), Function.Injective ρ ∧ ProperlyInfinite (tensorAlgebra (G:=F2) ρ) ∧ ¬ ∃ τ : OneQuasitrace (tensorAlgebra (G:=F2) ρ), τ.Normalized ∧ τ.IsTwo
definition OAI.KaplanskyConsequences.CStarSimple line 217
def CStarSimple (A : Type*) [CStarAlgebra A] : Prop := ∀ I : ClosedStarIdeal A, (∀ a : A, a ∈ I.toNonUnitalStarSubalgebra → a = 0) ∨ (∀ a : A, a ∈ I.toNonUnitalStarSubalgebra)
definition OAI.KaplanskyConsequences.SimpleStableTensorCounterexample line 222
def SimpleStableTensorCounterexample : Prop :=
Show the remaining 11 lines
CStarSimple (Algebra F2) ∧ StablyFinite (Algebra F2) ∧ ∃ (M : Type) (instM : CStarAlgebra M), letI := instM Nontrivial M ∧ CStarSimple M ∧ StablyFinite M ∧ ∃ (H : Type) (instH : NormedAddCommGroup H) (innerH : InnerProductSpace ℂ H), letI := instH letI := innerH ∃ (completeH : CompleteSpace H), letI := completeH ∃ ρ : M →⋆ₐ[ℂ] (H →L[ℂ] H), Function.Injective ρ ∧ ProperlyInfinite (tensorAlgebra (G:=F2) ρ)