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.NeutralAtom.Position line 12
abbrev Position := EuclideanSpace ℝ (Fin 3)
abbreviation OAI.NeutralAtom.Configuration line 13
abbrev Configuration (n : ℕ) := Fin n → Position
abbreviation OAI.NeutralAtom.Spins line 14
abbrev Spins (n : ℕ) := Fin n → Fin 2
abbreviation OAI.NeutralAtom.Wavefunction line 15
abbrev Wavefunction (n : ℕ) := Spins n → Configuration n → ℂ
abbreviation OAI.NeutralAtom.Gradient line 16
abbrev Gradient (n : ℕ) := Spins n → Fin n → Fin 3 → Configuration n → ℂ
definition OAI.NeutralAtom.coordinateDirection line 18
def coordinateDirection {n : ℕ} (i : Fin n) (a : Fin 3) : Configuration n := Pi.single i (EuclideanSpace.single a 1)
definition OAI.NeutralAtom.HasWeakGradient line 21
def HasWeakGradient {n : ℕ} (ψ : Wavefunction n) (g : Gradient n) : Prop := ∀ σ i a (φ : Configuration n → ℝ), ContDiff ℝ ∞ φ → HasCompactSupport φ → (∫ x, (fderiv ℝ φ x (coordinateDirection i a) : ℂ) * ψ σ x) = -(∫ x, (φ x : ℂ) * g σ i a x)
definition OAI.NeutralAtom.IsAntisymmetric line 26
def IsAntisymmetric {n : ℕ} (ψ : Wavefunction n) : Prop := ∀ (p : Equiv.Perm (Fin n)) (σ : Spins n), (fun x : Configuration n => ψ (σ ∘ p) (x ∘ p)) =ᵐ[volume] (fun x => (((Equiv.Perm.sign p : ℤ) : ℂ)) * ψ σ x)
definition OAI.NeutralAtom.FormDomain line 31
def FormDomain {n : ℕ} (ψ : Wavefunction n) (g : Gradient n) : Prop := IsAntisymmetric ψ ∧ HasWeakGradient ψ g ∧ (∀ σ, MemLp (ψ σ) 2 volume) ∧ (∀ σ i a, MemLp (g σ i a) 2 volume) ∧ (∀ σ i, Integrable (fun x : Configuration n => ‖x i‖⁻¹ * ‖ψ σ x‖ ^ 2)) ∧ (∀ σ i j, i < j → Integrable (fun x : Configuration n => ‖x i - x j‖⁻¹ * ‖ψ σ x‖ ^ 2))
definition OAI.NeutralAtom.normSquared line 39
def normSquared {n : ℕ} (ψ : Wavefunction n) : ℝ := ∑ σ : Spins n, ∫ x : Configuration n, ‖ψ σ x‖ ^ 2
definition OAI.NeutralAtom.coulombPotential line 42
def coulombPotential {n : ℕ} (Z : ℕ) (x : Configuration n) : ℝ := -(Z : ℝ) * (∑ i : Fin n, ‖x i‖⁻¹) + ∑ i : Fin n, ∑ j ∈ Finset.univ.filter (fun j : Fin n => i < j), ‖x i - x j‖⁻¹
definition OAI.NeutralAtom.energy line 46
def energy {n : ℕ} (Z : ℕ) (ψ : Wavefunction n) (g : Gradient n) : ℝ := (1 / 2 : ℝ) * (∑ σ : Spins n, ∑ i : Fin n, ∑ a : Fin 3, ∫ x : Configuration n, ‖g σ i a x‖ ^ 2) + ∑ σ : Spins n, ∫ x : Configuration n, coulombPotential Z x * ‖ψ σ x‖ ^ 2
definition OAI.NeutralAtom.IsNormalizedGroundState line 51
def IsNormalizedGroundState (Z : ℕ) (ψ : Wavefunction Z) : Prop := ∃ g : Gradient Z, FormDomain ψ g ∧ normSquared ψ = 1 ∧ ∀ (χ : Wavefunction Z) (h : Gradient Z), FormDomain χ h → normSquared χ = 1 → energy Z ψ g ≤ energy Z χ h
definition OAI.NeutralAtom.density line 56
def density {N : ℕ} (ψ : Wavefunction (N + 1)) (x : Position) : ℝ := (N + 1 : ℝ) * ∑ σ : Spins (N + 1), ∫ y : Configuration N, ‖ψ σ (Fin.cons x y)‖ ^ 2
definition OAI.NeutralAtom.exteriorMass line 60
def exteriorMass {N : ℕ} (ψ : Wavefunction (N + 1)) (r : ℝ) : ℝ := ∫ x in {x : Position | r < ‖x‖}, density ψ x
definition OAI.NeutralAtom.radius line 63
def radius {N : ℕ} (ψ : Wavefunction (N + 1)) (m : ℕ) : ℝ := sInf {r : ℝ | 0 ≤ r ∧ exteriorMass ψ r ≤ (m : ℝ)}
definition OAI.NeutralAtom.bTF line 66
def bTF : ℝ := (81 * Real.pi ^ 2 / 2) ^ (1 / 3 : ℝ)
definition OAI.NeutralAtom.largeCharge line 68
def largeCharge (m : ℕ) : Filter ℕ := atTop ⊓ Filter.principal {N : ℕ | m < N + 1}
definition OAI.NeutralAtom.upperRadius line 71
def upperRadius (Ψ : ∀ N : ℕ, Wavefunction (N + 1)) (m : ℕ) : EReal := Filter.limsup (fun N : ℕ => (radius (Ψ N) m : EReal)) (largeCharge m)
definition OAI.NeutralAtom.lowerRadius line 74
def lowerRadius (Ψ : ∀ N : ℕ, Wavefunction (N + 1)) (m : ℕ) : EReal := Filter.liminf (fun N : ℕ => (radius (Ψ N) m : EReal)) (largeCharge m)