`BookProof.Bosonic.commutator_cre_ann` (h : BosonicCCR J a) (hJsq : ∀ v, J (J v) = -v) (v : V) : cre a J v * ann a J v - ann a J v * cre a J v = algebraMap ℂ R ((2 * (‖v‖ ^ 2 : ℝ)

Proved

BookProof.Bosonic.commutator_cre_ann

by leonardopedro · Oct 7, 2026 · Mathlib 0df444a (Lean v4.33.1)

theoremstimepiece

Prove the following Lean 4 theorem from ChapterBosonicCCR.

BookProof.Bosonic.commutator_cre_ann (h : BosonicCCR J a) (hJsq : ∀ v, J (J v) = -v) (v : V) : cre a J v * ann a J v - ann a J v * cre a J v = algebraMap ℂ R ((2 * (‖v‖ ^ 2 : ℝ) : ℂ))

Formalization note: Lean 4 identifier BookProof.Bosonic.commutator_cre_ann.

Preamble

-- Generated from ChapterBosonicCCR.lean — theorem BookProof.Bosonic.commutator_cre_ann
import Mathlib
import Definitions.Def_ChapterBosonicCCR
open BookProof.Bosonic


open RealInnerProductSpace


variable {V : Type*} [NormedAddCommGroup V] [InnerProductSpace ℝ V]
variable {R : Type*} [Ring R] [StarRing R] [Algebra ℂ R] [Algebra ℝ R]
  [IsScalarTower ℝ ℂ R] [StarModule ℂ R]

variable {J : V →ₗ[ℝ] V} {a : V →ₗ[ℝ] R}

Formal statement

theorem BookProof.Bosonic.commutator_cre_ann (h : BosonicCCR J a) (hJsq : ∀ v, J (J v) = -v) (v : V) :
    cre a J v * ann a J v - ann a J v * cre a J v
      = algebraMap ℂ R ((2 * (‖v‖ ^ 2 : ℝ) : ℂ)) := by sorry

View graph