Encyclopedia Cosmology Cosmology Lattice Ball Volume Diamond Card Eq Sum
ARTICLE 5 claims 4 theorems 1 model
Cosmology Lattice Ball Volume Diamond Card Eq Sum
A machine-checked theorem counts the cells inside a growing diamond-shaped region, revealing a simple quadratic law behind a simulation's raw numbers.
The diamond count
A diamond-shaped lattice ball is the set of integer grid points (x, y) satisfying |x| + |y| ≤ t, where t is a nonnegative integer radius. This region grows like a square rotated 45 degrees, and its total number of points is the centered square number 2t² + 2t + 1. At radius 24, that count is exactly 1201. The declaration diamond_card_eq_sum establishes this count by expressing it as a sum over vertical slices: for each fixed x from -t to t, the allowed y values form an interval of width 2(t - |x|) + 1, and summing these widths over all x gives the closed form.
The result is a theorem in the framework's machine-checked library of formal theorems, proved over the natural numbers with no gaps and no added axioms. It is the two-dimensional case of a broader pair of laws: the three-dimensional octahedron |x| + |y| + |z| ≤ t has the centered octahedral count (2t+1)(2t²+2t+3)/3, which at radius 12 equals 2625. Both laws matter because the coarsening engine, a simulation that accumulates a world one radius per cycle, reports exactly these totals. The diamond theorem is the foundation: the octahedron proof slices it into diamonds of smaller radius, so the 3D law reduces fiber by fiber to the 2D one.
The deeper payoff is the boundary shell. Each cycle adds the cells on the shell between radius t and t+1, and the theorems show this growth is 4(t+1) cells in 2D and 4(t+1)² + 2 in 3D. The active frontier is thus one dimension smaller than the accumulated world: a perimeter in 2D, a surface in 3D. As t grows, the fraction of newly added cells relative to the total shrinks to zero, meaning the cost of recognition localizes to the boundary rather than the bulk. This geometric fact underpins the framework's claim that the simulation's cost is sub-extensive, growing slower than the volume it fills.
What the theorem does not claim is equally important. It is a pure counting statement about lattice points; it says nothing about physics, forces, or why the diamond shape was chosen. The shell it counts is the geometric boundary of newly added cells, distinct from any charge-dependent interface in the broader framework. And while the closed forms match the simulation's reported totals, the theorem does not assert that the simulation itself is correct or that its dynamics follow from these counts. Those are separate claims with separate evidence.
MODEL diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the diamond cardinality: sum the slice widths over the first coordinate. -/
theorem diamond_card_eq_sum (t : ℕ) :
(InterfaceComponentBound.Diamond.ball t).card
= ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (2 * (t - x.natAbs) + 1) := by
have hb : InterfaceComponentBound.Diamond.ball t
= (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter
(fun p => p.1.natAbs + p.2.natAbs ≤ t) := rfl
rw [hb, Finset.card_filter, Finset.sum_product]
refine Finset.sum_congr rfl (fun x hx => ?_)
rw [Finset.mem_Icc] at hx
have hxnat : x.natAbs ≤ t := by omega
dsimp only
rw [← slice_card t x hxnat, Finset.card_filter]
THEOREM diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the diamond cardinality: sum the slice widths over the first coordinate. -/
theorem diamond_card_eq_sum (t : ℕ) :
(InterfaceComponentBound.Diamond.ball t).card
= ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (2 * (t - x.natAbs) + 1) := by
have hb : InterfaceComponentBound.Diamond.ball t
= (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter
(fun p => p.1.natAbs + p.2.natAbs ≤ t) := rfl
rw [hb, Finset.card_filter, Finset.sum_product]
refine Finset.sum_congr rfl (fun x hx => ?_)
rw [Finset.mem_Icc] at hx
have hxnat : x.natAbs ≤ t := by omega
dsimp only
rw [← slice_card t x hxnat, Finset.card_filter]
THEOREM diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the diamond cardinality: sum the slice widths over the first coordinate. -/
theorem diamond_card_eq_sum (t : ℕ) :
(InterfaceComponentBound.Diamond.ball t).card
= ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (2 * (t - x.natAbs) + 1) := by
have hb : InterfaceComponentBound.Diamond.ball t
= (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter
(fun p => p.1.natAbs + p.2.natAbs ≤ t) := rfl
rw [hb, Finset.card_filter, Finset.sum_product]
refine Finset.sum_congr rfl (fun x hx => ?_)
rw [Finset.mem_Icc] at hx
have hxnat : x.natAbs ≤ t := by omega
dsimp only
rw [← slice_card t x hxnat, Finset.card_filter]
THEOREM octa_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the octahedron cardinality: each `x`-fiber is a diamond of radius `t - |x|`. -/
theorem octa_card_eq_sum (t : ℕ) :
(InterfaceComponentBound.Octahedron.ball t).card
= ∑ x ∈ Finset.Icc (-(t : ℤ)) t,
(InterfaceComponentBound.Diamond.ball (t - x.natAbs)).card := by
have hb : InterfaceComponentBound.Octahedron.ball t
= (Finset.Icc (-(t : ℤ)) t ×ˢ (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t)).filter
(fun p => p.1.natAbs + p.2.1.natAbs + p.2.2.natAbs ≤ t) := rfl
rw [hb, Finset.card_filter, Finset.sum_product]
refine Finset.sum_congr rfl (fun x hx => ?_)
rw [Finset.mem_Icc] at hx
have hxnat : x.natAbs ≤ t := by omega
dsimp only
-- the (y,z)-fiber over x equals the diamond of radius (t - |x|)
have hfib : (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter
(fun q : ℤ × ℤ => x.natAbs + q.1.natAbs + q.2.natAbs ≤ t)
= InterfaceComponentBound.Diamond.ball (t - x.natAbs) := by
apply Finset.ext
rintro ⟨y, z⟩
rw [InterfaceComponentBound.Diamond.mem_ball_iff]
simp only [Finset.mem_filter, Finset.mem_Icc, Finset.mem_product]
omega
-- the inner (y,z)-sum is exactly the diamond-fiber card
rw [← hfib, Finset.card_filter]
THEOREM diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the diamond cardinality: sum the slice widths over the first coordinate. -/
theorem diamond_card_eq_sum (t : ℕ) :
(InterfaceComponentBound.Diamond.ball t).card
= ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (2 * (t - x.natAbs) + 1) := by
have hb : InterfaceComponentBound.Diamond.ball t
= (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter
(fun p => p.1.natAbs + p.2.natAbs ≤ t) := rfl
rw [hb, Finset.card_filter, Finset.sum_product]
refine Finset.sum_congr rfl (fun x hx => ?_)
rw [Finset.mem_Icc] at hx
have hxnat : x.natAbs ≤ t := by omega
dsimp only
rw [← slice_card t x hxnat, Finset.card_filter]
What this page does not claim
The theorem does not assert any physical law or force; it only counts lattice points. It does not claim the diamond shape is the only possible region for the coarsening engine. It does not prove the simulation's dynamics are correct, only that the reported cell totals match these closed forms.
Verify this page
Every tagged claim above names its theorem. To check one yourself rather than trust this page, elaborate the source module with Lean 4 and audit its axiom basis:
$ lake env lean IndisputableMonolith/Cosmology/LatticeBallVolume.lean
expected axiom basis: [propext, Classical.choice, Quot.sound] (the Lean kernel's standard three; no RS-specific axioms)
A page whose claims cannot be reproduced this way does not ship. In production, every anchor links to the exact declaration in the public source release, and this block carries the build receipt for the page itself.
Derived articles
This page is generated by a question-recursion engine: the questions its answers raise become the next pages. The current agenda, with open targets marked red:
- What physical interpretation does the framework give to the boundary shell where recognition cost localizes?
- How does the octahedron volume law connect to the framework's derivation of three spatial dimensions?
- What is the charge-dependent bichromatic interface bounded in InterfaceComponentBound, and how does it differ from this geometric shell?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
MODEL diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the diamond cardinality: sum the slice widths over the first coordinate. -/ theorem diamond_card_eq_sum (t : ℕ) : (InterfaceComponentBound.Diamond.ball t).card = ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (2 * (t - x.natAbs) + 1) := by have hb : InterfaceComponentBound.Diamond.ball t = (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter (fun p => p.1.natAbs + p.2.natAbs ≤ t) := rfl rw [hb, Finset.card_filter, Finset.sum_product] refine Finset.sum_congr rfl (fun x hx => ?_) rw [Finset.mem_Icc] at hx have hxnat : x.natAbs ≤ t := by omega dsimp only rw [← slice_card t x hxnat, Finset.card_filter]A diamond-shaped lattice ball is the set of integer grid points (x, y) satisfying |x| + |y| ≤ t, where t is a nonnegative integer radius. diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.leanTHEOREM diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the diamond cardinality: sum the slice widths over the first coordinate. -/ theorem diamond_card_eq_sum (t : ℕ) : (InterfaceComponentBound.Diamond.ball t).card = ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (2 * (t - x.natAbs) + 1) := by have hb : InterfaceComponentBound.Diamond.ball t = (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter (fun p => p.1.natAbs + p.2.natAbs ≤ t) := rfl rw [hb, Finset.card_filter, Finset.sum_product] refine Finset.sum_congr rfl (fun x hx => ?_) rw [Finset.mem_Icc] at hx have hxnat : x.natAbs ≤ t := by omega dsimp only rw [← slice_card t x hxnat, Finset.card_filter]This region grows like a square rotated 45 degrees, and its total number of points is the centered square number 2t² + 2t + 1. diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.leanTHEOREM diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the diamond cardinality: sum the slice widths over the first coordinate. -/ theorem diamond_card_eq_sum (t : ℕ) : (InterfaceComponentBound.Diamond.ball t).card = ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (2 * (t - x.natAbs) + 1) := by have hb : InterfaceComponentBound.Diamond.ball t = (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter (fun p => p.1.natAbs + p.2.natAbs ≤ t) := rfl rw [hb, Finset.card_filter, Finset.sum_product] refine Finset.sum_congr rfl (fun x hx => ?_) rw [Finset.mem_Icc] at hx have hxnat : x.natAbs ≤ t := by omega dsimp only rw [← slice_card t x hxnat, Finset.card_filter]At radius 24, that count is exactly 1201. diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.leanTHEOREM octa_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the octahedron cardinality: each `x`-fiber is a diamond of radius `t - |x|`. -/ theorem octa_card_eq_sum (t : ℕ) : (InterfaceComponentBound.Octahedron.ball t).card = ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (InterfaceComponentBound.Diamond.ball (t - x.natAbs)).card := by have hb : InterfaceComponentBound.Octahedron.ball t = (Finset.Icc (-(t : ℤ)) t ×ˢ (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t)).filter (fun p => p.1.natAbs + p.2.1.natAbs + p.2.2.natAbs ≤ t) := rfl rw [hb, Finset.card_filter, Finset.sum_product] refine Finset.sum_congr rfl (fun x hx => ?_) rw [Finset.mem_Icc] at hx have hxnat : x.natAbs ≤ t := by omega dsimp only -- the (y,z)-fiber over x equals the diamond of radius (t - |x|) have hfib : (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter (fun q : ℤ × ℤ => x.natAbs + q.1.natAbs + q.2.natAbs ≤ t) = InterfaceComponentBound.Diamond.ball (t - x.natAbs) := by apply Finset.ext rintro ⟨y, z⟩ rw [InterfaceComponentBound.Diamond.mem_ball_iff] simp only [Finset.mem_filter, Finset.mem_Icc, Finset.mem_product] omega -- the inner (y,z)-sum is exactly the diamond-fiber card rw [← hfib, Finset.card_filter]The three-dimensional octahedron |x| + |y| + |z| ≤ t has the centered octahedral count (2t+1)(2t²+2t+3)/3, which at radius 12 equals 2625. octa_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.leanTHEOREM diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean
/-- Fibered form of the diamond cardinality: sum the slice widths over the first coordinate. -/ theorem diamond_card_eq_sum (t : ℕ) : (InterfaceComponentBound.Diamond.ball t).card = ∑ x ∈ Finset.Icc (-(t : ℤ)) t, (2 * (t - x.natAbs) + 1) := by have hb : InterfaceComponentBound.Diamond.ball t = (Finset.Icc (-(t : ℤ)) t ×ˢ Finset.Icc (-(t : ℤ)) t).filter (fun p => p.1.natAbs + p.2.natAbs ≤ t) := rfl rw [hb, Finset.card_filter, Finset.sum_product] refine Finset.sum_congr rfl (fun x hx => ?_) rw [Finset.mem_Icc] at hx have hxnat : x.natAbs ≤ t := by omega dsimp only rw [← slice_card t x hxnat, Finset.card_filter]The active frontier is thus one dimension smaller than the accumulated world: a perimeter in 2D, a surface in 3D. diamond_card_eq_sum · IndisputableMonolith/Cosmology/LatticeBallVolume.lean