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.
structure OAI.Pureness.CStarAlgebraNorm line 18
structure CStarAlgebraNorm (R : Type uR) [Ring R] [StarRing R] [Algebra ℂ R] extends AlgebraNorm ℂ R where cstar : ∀ x, toAlgebraNorm (star x * x) = toAlgebraNorm x * toAlgebraNorm x
structure OAI.Pureness.TracialState line 22
structure TracialState (A : Type uA) [CStarAlgebra A] [PartialOrder A] where functional : A →ₚ[ℂ] ℂ normalized : functional 1 = 1 tracial : ∀ a b : A, functional (a * b) = functional (b * a)
structure OAI.Pureness.ClosedStarIdeal line 27
structure ClosedStarIdeal (D : Type uD) [CStarAlgebra D] where ideal : TwoSidedIdeal D star_mem : ∀ {u : D}, u ∈ ideal → star u ∈ ideal isClosed : IsClosed (ideal : Set D)
definition OAI.ComparatorModel.Pureness.IsNuclear line 44
def IsNuclear (A : Type u) [CStarAlgebra A] : Prop := ∀ (B : Type v) [CStarAlgebra B], Subsingleton (CStarAlgebraNorm (A ⊗[ℂ] B))
definition OAI.ComparatorModel.CurrentMain.RealRankZero line 57
def RealRankZero (D : Type) [CStarAlgebra D] : Prop := ∀ a : D, IsSelfAdjoint a → ∀ ε : ℝ, 0 < ε → ∃ b : D, IsSelfAdjoint b ∧ (spectrum ℂ b).Finite ∧ ‖a - b‖ < ε
definition OAI.ComparatorModel.CurrentMain.traceTwoNorm line 61
def traceTwoNorm {D : Type} [CStarAlgebra D] [PartialOrder D] (τ : TracialState D) (a : D) : ℝ := Real.sqrt (τ.functional (star a * a)).re
abbreviation OAI.ComparatorModel.Pureness.ClosedStarIdeal.Quotient line 81
abbrev Quotient := J.ideal.ringCon.Quotient
definition OAI.ComparatorModel.Pureness.ClosedStarIdeal.quotientMap line 83
def quotientMap : D →ₐ[ℂ] J.Quotient := J.ideal.ringCon.mkₐ ℂ
class OAI.ComparatorModel.Pureness.ClosedStarIdeal.NormConstruction line 131
class NormConstruction : Prop where mul_le : ∀ {D : Type} [CStarAlgebra D] (J : ClosedStarIdeal D) (x y : J.Quotient), ‖x*y‖ ≤ ‖x‖*‖y‖ star_eq : ∀ {D : Type} [CStarAlgebra D] (J : ClosedStarIdeal D) (x : J.Quotient), ‖star x‖ = ‖x‖ square_le : ∀ {D : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (J : ClosedStarIdeal D) (x : J.Quotient), ‖x‖ * ‖x‖ ≤ ‖star x * x‖
definition OAI.ComparatorModel.CurrentMain.familyTwoNorm line 182
def CurrentMain.familyTwoNorm (a : D) : ℝ := ⨆ i, traceTwoNorm (τ i) a
definition OAI.ComparatorModel.CurrentMain.IsFamilyNull line 201
def CurrentMain.IsFamilyNull (F : Filter X) (u : X → D) : Prop := Tendsto (fun n => familyTwoNorm τ (u n)) F (𝓝 0)
class OAI.ComparatorModel.CurrentMain.NullConstruction line 204
class CurrentMain.NullConstruction : Prop where
Show the remaining 17 lines
zero : ∀ {D I X : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] (F : Filter X), IsFamilyNull τ F (fun _ => 0) add : ∀ {D I X : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] {F : Filter X} {u v : X → D}, IsFamilyNull τ F u → IsFamilyNull τ F v → IsFamilyNull τ F (fun n => u n + v n) neg : ∀ {D I X : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] {F : Filter X} {u : X → D}, IsFamilyNull τ F u → IsFamilyNull τ F (fun n => -u n) star : ∀ {D I X : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] {F : Filter X} {u : X → D}, IsFamilyNull τ F u → IsFamilyNull τ F (fun n => star (u n)) mul_left : ∀ {D I X : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] {F : Filter X} {u v : X → D}, IsFamilyNull τ F v → ∀ {M : ℝ}, (∀ n, ‖u n‖ ≤ M) → IsFamilyNull τ F (fun n => u n * v n) mul_right : ∀ {D I X : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] {F : Filter X} {u v : X → D}, IsFamilyNull τ F u → ∀ {M : ℝ}, (∀ n, ‖v n‖ ≤ M) → IsFamilyNull τ F (fun n => u n * v n) closed : ∀ {D I X : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] (F : Filter X), IsClosed {u : lp (fun _ : X => D) ∞ | IsFamilyNull τ F (fun n => u n)}
definition OAI.ComparatorModel.CurrentMain.familyNullTwoSided line 227
def CurrentMain.familyNullTwoSided (F : Filter X) : TwoSidedIdeal (lp (fun _ : X => D) ∞) := TwoSidedIdeal.mk' {u | IsFamilyNull τ F (fun n => u n)} (NullConstruction.zero τ F) (fun hu hv => NullConstruction.add τ hu hv) (fun hu => NullConstruction.neg τ hu) (fun {u _} hv => NullConstruction.mul_left τ hv (lp.norm_apply_le_norm ENNReal.top_ne_zero u)) (fun {_ v} hu => NullConstruction.mul_right τ hu (lp.norm_apply_le_norm ENNReal.top_ne_zero v))
definition OAI.ComparatorModel.CurrentMain.familyNullIdeal line 237
def CurrentMain.familyNullIdeal (F : Filter X) : ClosedStarIdeal (lp (fun _ : X => D) ∞) where
Show the remaining 12 lines
ideal := familyNullTwoSided τ F star_mem := by intro u hu apply (TwoSidedIdeal.mem_mk' _ _ _ _ _ _ (star u)).mpr exact NullConstruction.star τ ((TwoSidedIdeal.mem_mk' _ _ _ _ _ _ u).mp hu) isClosed := by have he : (familyNullTwoSided τ F : Set (lp (fun _ : X => D) ∞)) = {u | IsFamilyNull τ F (fun n => u n)} := by ext u exact TwoSidedIdeal.mem_mk' _ _ _ _ _ _ u rw [he] exact NullConstruction.closed τ F
definition OAI.ComparatorModel.CurrentMain.IsFamilyCauchy line 259
def CurrentMain.IsFamilyCauchy (u : ℕ → D) : Prop := IsFamilyNull τ (atTop : Filter (ℕ × ℕ)) (fun p => u p.1 - u p.2)
class OAI.ComparatorModel.CurrentMain.CauchyConstruction line 262
class CurrentMain.CauchyConstruction : Prop where
Show the remaining 15 lines
const : ∀ {D I : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] (a : D), IsFamilyCauchy τ (fun _ => a) add : ∀ {D I : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] {u v : ℕ → D}, IsFamilyCauchy τ u → IsFamilyCauchy τ v → IsFamilyCauchy τ (fun n => u n+v n) star : ∀ {D I : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] {u : ℕ → D}, IsFamilyCauchy τ u → IsFamilyCauchy τ (fun n => star (u n)) mul : ∀ {D I : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] {u v : ℕ → D}, IsFamilyCauchy τ u → IsFamilyCauchy τ v → ∀ {M N : ℝ}, (∀ n, ‖u n‖ ≤ M) → (∀ n, ‖v n‖ ≤ N) → IsFamilyCauchy τ (fun n => u n*v n) closed : ∀ {D I : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (τ : I → Pureness.TracialState D) [Nonempty I] [Nontrivial D], IsClosed {u : lp (fun _ : ℕ => D) ∞ | IsFamilyCauchy τ (fun n => u n)}
definition OAI.ComparatorModel.CurrentMain.familyCauchyAlgebra line 283
def CurrentMain.familyCauchyAlgebra : StarSubalgebra ℂ (lp (fun _ : ℕ => D) ∞) where carrier := {u | IsFamilyCauchy τ (fun n => u n)} zero_mem' := CauchyConstruction.const τ 0 one_mem' := CauchyConstruction.const τ 1 add_mem' hu hv := CauchyConstruction.add τ hu hv mul_mem' {u v} hu hv := CauchyConstruction.mul τ hu hv (lp.norm_apply_le_norm ENNReal.top_ne_zero u) (lp.norm_apply_le_norm ENNReal.top_ne_zero v) algebraMap_mem' z := CauchyConstruction.const τ (algebraMap ℂ D z) star_mem' hu := CauchyConstruction.star τ hu
definition OAI.ComparatorModel.CurrentMain.familyCauchyNullIdeal line 299
def CurrentMain.familyCauchyNullIdeal : ClosedStarIdeal (familyCauchyAlgebra τ) where ideal := TwoSidedIdeal.comap (familyCauchyAlgebra τ).val.toRingHom (familyNullIdeal τ atTop).ideal star_mem := by intro u hu apply (familyNullIdeal τ atTop).star_mem hu isClosed := by exact (familyNullIdeal τ atTop).isClosed.preimage (continuous_subtype_val : Continuous (fun u : familyCauchyAlgebra τ => u.1))
abbreviation OAI.ComparatorModel.CurrentMain.UniformTracialCompletion line 309
abbrev CurrentMain.UniformTracialCompletion := (familyCauchyNullIdeal τ).Quotient
definition OAI.ComparatorModel.Pureness.ClosedStarIdeal.descendedValue line 331
def Pureness.ClosedStarIdeal.descendedValue : J.Quotient → ℂ := Quotient.lift τ.functional (by intro u v huv change J.ideal.ringCon u v at huv rw [TwoSidedIdeal.rel_iff] at huv have h := hτ (u-v) huv rw [map_sub, sub_eq_zero] at h exact h)
definition OAI.ComparatorModel.Pureness.ClosedStarIdeal.descendedLinear line 339
def Pureness.ClosedStarIdeal.descendedLinear : J.Quotient →ₗ[ℂ] ℂ where toFun := J.descendedValue τ hτ map_add' x y := Quotient.inductionOn₂' x y (fun u v => τ.functional.map_add u v) map_smul' c x := Quotient.inductionOn' x (fun u => τ.functional.map_smul c u)
definition OAI.ComparatorModel.Pureness.ClosedStarIdeal.descendedTrace line 344
def Pureness.ClosedStarIdeal.descendedTrace : TracialState J.Quotient where
Show the remaining 12 lines
functional := { J.descendedLinear τ hτ with monotone' := by intro x y hxy apply sub_nonneg.mp change 0 ≤ J.descendedLinear τ hτ y - J.descendedLinear τ hτ x rw [← map_sub] obtain ⟨z,hz⟩ := CStarAlgebra.nonneg_iff_eq_star_mul_self.mp (sub_nonneg.mpr hxy) rw [hz] induction z using Quotient.inductionOn' with | h u => exact τ.functional.map_nonneg (star_mul_self_nonneg u) } normalized := τ.normalized tracial x y := Quotient.inductionOn₂' x y (fun u v => τ.tracial u v)
definition OAI.ComparatorModel.CurrentMain.ultraTraceValue line 380
def CurrentMain.ultraTraceValue (u : lp (fun _ : X => D) ∞) : ℂ := limUnder (U : Filter X) (fun n => (θ n).functional (u n))
class OAI.ComparatorModel.CurrentMain.LimitConstruction line 383
class CurrentMain.LimitConstruction : Prop where tendsto : ∀ {D X : Type} [CStarAlgebra D] [PartialOrder D] [StarOrderedRing D] (θ : X → Pureness.TracialState D) (U : Ultrafilter X) (u : lp (fun _ : X => D) ∞), Tendsto (fun n => (θ n).functional (u n)) (U : Filter X) (𝓝 (ultraTraceValue θ U u))
16 more definitions are reached the same way; the full file lists them.