constCharge

formal source

  96  conserved := fun _ _ _ => rfl
  97
  98/-- A constant topological charge. -/
  99def constCharge (N : ℕ) (n : ℤ) : TopologicalCharge N where
 100  value := fun _ => n
 101  conserved := fun _ _ _ => rfl
 102
 103/-! ## Part 3: Charge Count from Dimension -/
 104
 105/-- The number of **independent topological charges** supported by dimension D.
 106
 107    - D = 1: 0 (no linking)
 108    - D = 2: 0 (everything unlinks)
 109    - D = 3: 3 (one per coordinate plane of Q₃)
 110    - D ≥ 4: 0 (everything unlinks) -/
 111def independent_charge_count (D : ℕ) : ℕ :=
 112  if D = 3 then 3 else 0
 113
 114theorem three_charges_at_D3 : independent_charge_count 3 = 3 := by
 115  simp [independent_charge_count]
 116
 117theorem no_charges_at_other_D (D : ℕ) (hD : D ≠ 3) :
 118    independent_charge_count D = 0 := by
 119  simp [independent_charge_count, hD]
 120
 121/-- Linking-based charges exist iff D = 3. -/
 122theorem linking_iff_D3 (D : ℕ) :
 123    0 < independent_charge_count D ↔ D = 3 := by
 124  simp [independent_charge_count]; split <;> omega
 125
 126/-- Charge count = face pairs = colors = generations. -/
 127theorem charge_count_equals_face_pairs :
 128    independent_charge_count 3 = face_pairs 3 := rfl
 129