Encyclopedia Masses Masses Mass Genesis T10 Commit Settlement Window
ARTICLE 5 claims 5 theorems
Masses Mass Genesis T10 Commit Settlement Window
A machine-checked proof shows how a single commitment in a discrete ledger clears at the next tick, and why the clock phase, not the source, decides the shape.
The settlement window
In the Recognition Science framework, a ledger, a discrete record of events, tracks commitments that occupy a single tick. The T10 commit settlement window is the rule for how one such commitment clears: it occupies its commit tick at full strength and clears at the next tick. The window is the discrete tick-derivative of the occupation, meaning it records the change from one tick to the next, a +1 at the commit tick and a -1 at the clearing tick.
The module proves, with machine-checked theorems, that at every one of the eight phases this settlement window is neutral (its entries sum to zero), physically admissible, and supported on exactly the adjacent pair {phase, phase+1}. At phase zero, the window is exactly the gap-one two-phase mode, a previously known shape, now supplied by a carried mechanism for the first time. Gap-two shapes are excluded from the entire family: no commitment posts a gap-two window.
The honest wall is that the settlement readout is phase-borne, not source-borne. Phases zero and two carry the same signed posting source, both post on axis zero, yet their settlement windows differ. Therefore no functional source-to-window relation contains the settlement family, and the previously named source-window naturality interface cannot be the settlement law. The physical law reads the clock phase of the commitment, not the source object alone. The anchor position, which adjacent pair, is exactly the clock freedom already proved as Rhat-orbit nonuniqueness.
What this establishes is a concrete bridge premise: a carried settlement mechanism, the tick-derivative of the phase-zero commitment occupation, produces a window with raw phase-zero/one anchor support. The certificate theorem t10CommitSettlementWindowCert packages the whole result. The consequence is that the framework's octave computation now has a settlement readout it pointed at, and the wall clarifies that the law of settlement is a clock-phase law, not a source law.
THEOREM commitSettlementWindow_neutral · commitSettlementWindow_currentPhysicalPhotonWindowCompatible · commitSettlementWindow_adjacentPairSupport · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
theorem commitSettlementWindow_neutral (phase : Fin 8) :
IsNeutral (commitSettlementWindow phase) := by
show (∑ t : Fin 8, (commitOccupationWindow phase t -
commitOccupationWindow phase (t - 1))) = 0
rw [Finset.sum_sub_distrib]
have hbij :
(∑ t : Fin 8, commitOccupationWindow phase (t - 1)) =
∑ t : Fin 8, commitOccupationWindow phase t :=
Fintype.sum_equiv (Equiv.subRight (1 : Fin 8))
_ _ (fun t => rfl)
rw [hbij, sub_self]
theorem commitSettlementWindow_currentPhysicalPhotonWindowCompatible
(phase : Fin 8) :
CurrentPhysicalPhotonWindowCompatible (commitSettlementWindow phase) := by
refine ⟨commitSettlementWindow_nontrivial phase, ?_⟩
rw [LightLanguage.Geometry.NeutralMeaningManifold.neutralize_of_neutral
(commitSettlementWindow phase) (commitSettlementWindow_neutral phase)]
intro hzero
have hall :=
(Finset.sum_eq_zero_iff_of_nonneg
(fun i _ => Complex.normSq_nonneg (commitSettlementWindow phase i))).mp
(by simpa [normSq8] using hzero) phase (Finset.mem_univ phase)
have hone := Complex.normSq_eq_zero.mp hall
rw [commitSettlementWindow_at_commit] at hone
exact one_ne_zero hone
theorem commitSettlementWindow_adjacentPairSupport (phase : Fin 8) :
RawPhotonAdjacentPairSupport phase (commitSettlementWindow phase) := by
intro t hcommit hclear
unfold commitSettlementWindow commitOccupationWindow
have hshift : t - 1 ≠ phase := by
intro h
exact hclear (sub_eq_iff_eq_add.mp h)
rw [if_neg hcommit, if_neg hshift]
ring
THEOREM commitSettlementWindow_zero_eq_gapOne · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
theorem commitSettlementWindow_zero_eq_gapOne :
commitSettlementWindow 0 = gapOneTwoPhaseMode := by
funext t
fin_cases t <;>
simp [commitSettlementWindow, commitOccupationWindow,
gapOneTwoPhaseMode]
THEOREM commitSettlementWindow_ne_gapTwo · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
theorem commitSettlementWindow_ne_gapTwo (phase : Fin 8) :
commitSettlementWindow phase ≠ gapTwoTwoPhaseMode := by
intro h
have hcommit := congrFun h phase
rw [commitSettlementWindow_at_commit] at hcommit
unfold gapTwoTwoPhaseMode at hcommit
by_cases h0 : phase.val = 0
· have hval1 : (phase + 1).val = 1 := by
have hphase : phase = 0 := Fin.ext h0
subst hphase
decide
have hclear := congrFun h (phase + 1)
rw [commitSettlementWindow_at_clear] at hclear
unfold gapTwoTwoPhaseMode at hclear
rw [if_neg (by rw [hval1]; norm_num),
if_neg (by rw [hval1]; norm_num)] at hclear
norm_num at hclear
· rw [if_neg h0] at hcommit
by_cases h2 : phase.val = 2
· rw [if_pos h2] at hcommit
norm_num at hcommit
· rw [if_neg h2] at hcommit
norm_num at hcommit
THEOREM phaseSource_zero_eq_phaseSource_two · commitSettlementWindow_zero_ne_two · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
/-- Phases zero and two post on the same axis, so they carry the SAME signed
posting source object. -/
theorem phaseSource_zero_eq_phaseSource_two :
phaseSignedPostingPhotonSource3 0 = phaseSignedPostingPhotonSource3 2 := by
have hevent :
(phaseBearingCoherenceScaledEventOperator3 (0 : Fin 8)).event =
(phaseBearingCoherenceScaledEventOperator3 (2 : Fin 8)).event := by
show (phaseBearingPostingEvent3 (0 : Fin 8)).1 =
(phaseBearingPostingEvent3 (2 : Fin 8)).1
unfold phaseBearingPostingEvent3
rw [grayPhaseAxis3_zero_eq_two_axis]
exact signedSource_ext hevent
(phaseBearingCoherenceScaledEventOperator3_source_attachment 0)
(phaseBearingCoherenceScaledEventOperator3_source_attachment 2)
theorem commitSettlementWindow_zero_ne_two :
commitSettlementWindow 0 ≠ commitSettlementWindow 2 := by
intro h
have h0 := congrFun h 0
rw [commitSettlementWindow_at_commit] at h0
have hzero : commitSettlementWindow 2 0 = 0 :=
commitSettlementWindow_adjacentPairSupport 2 0
(by decide) (by decide)
rw [hzero] at h0
exact one_ne_zero h0
THEOREM no_functional_sourceRelation_contains_settlement · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
/-- **Interface wall.** No functional source-to-window relation contains the
settlement family: phases zero and two share one source but settle different
windows. The physical settlement law reads the clock phase of the
commitment, not the source object alone, so the source-functional naturality
interface cannot be the settlement law. -/
theorem no_functional_sourceRelation_contains_settlement :
¬ ∃ relation : SignedSourcePhotonWindowRelation3,
IsFunctionalSignedSourcePhotonWindowRelation3 relation ∧
∀ phase : Fin 8,
relation (phaseSignedPostingPhotonSource3 phase)
(commitSettlementWindow phase) := by
rintro ⟨relation, hfunctional, hcontains⟩
have h0 := hcontains 0
have h2 := hcontains 2
rw [← phaseSource_zero_eq_phaseSource_two] at h2
exact commitSettlementWindow_zero_ne_two
(hfunctional (phaseSignedPostingPhotonSource3 0)
(commitSettlementWindow 0) (commitSettlementWindow 2) h0 h2)
What this page does not claim
The module does not prove that the settlement window is the unique possible readout. The module does not identify which physical system realizes the phase-borne law. The module does not claim that the source-window naturality interface is invalid in all contexts, only that it cannot be the settlement law.
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/Masses/MassGenesis/T10CommitSettlementWindow.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 mechanism selects the clock phase of a commitment?
- How does the Rhat-orbit nonuniqueness manifest in observable mass spectra?
- What carries the settlement law if not a source-to-window relation?
- How does the phase-zero settlement window connect to the octave computation's target readout?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
THEOREM commitSettlementWindow_neutral · commitSettlementWindow_currentPhysicalPhotonWindowCompatible · commitSettlementWindow_adjacentPairSupport · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
theorem commitSettlementWindow_neutral (phase : Fin 8) : IsNeutral (commitSettlementWindow phase) := by show (∑ t : Fin 8, (commitOccupationWindow phase t - commitOccupationWindow phase (t - 1))) = 0 rw [Finset.sum_sub_distrib] have hbij : (∑ t : Fin 8, commitOccupationWindow phase (t - 1)) = ∑ t : Fin 8, commitOccupationWindow phase t := Fintype.sum_equiv (Equiv.subRight (1 : Fin 8)) _ _ (fun t => rfl) rw [hbij, sub_self]theorem commitSettlementWindow_currentPhysicalPhotonWindowCompatible (phase : Fin 8) : CurrentPhysicalPhotonWindowCompatible (commitSettlementWindow phase) := by refine ⟨commitSettlementWindow_nontrivial phase, ?_⟩ rw [LightLanguage.Geometry.NeutralMeaningManifold.neutralize_of_neutral (commitSettlementWindow phase) (commitSettlementWindow_neutral phase)] intro hzero have hall := (Finset.sum_eq_zero_iff_of_nonneg (fun i _ => Complex.normSq_nonneg (commitSettlementWindow phase i))).mp (by simpa [normSq8] using hzero) phase (Finset.mem_univ phase) have hone := Complex.normSq_eq_zero.mp hall rw [commitSettlementWindow_at_commit] at hone exact one_ne_zero honetheorem commitSettlementWindow_adjacentPairSupport (phase : Fin 8) : RawPhotonAdjacentPairSupport phase (commitSettlementWindow phase) := by intro t hcommit hclear unfold commitSettlementWindow commitOccupationWindow have hshift : t - 1 ≠ phase := by intro h exact hclear (sub_eq_iff_eq_add.mp h) rw [if_neg hcommit, if_neg hshift] ringAt every phase the settlement window is neutral, physically admissible, and supported on exactly the adjacent pair {phase, phase+1}. commitSettlementWindow_neutral · commitSettlementWindow_currentPhysicalPhotonWindowCompatible · commitSettlementWindow_adjacentPairSupport · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.leanTHEOREM commitSettlementWindow_zero_eq_gapOne · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
theorem commitSettlementWindow_zero_eq_gapOne : commitSettlementWindow 0 = gapOneTwoPhaseMode := by funext t fin_cases t <;> simp [commitSettlementWindow, commitOccupationWindow, gapOneTwoPhaseMode]At phase zero, the window is exactly the gap-one two-phase mode. commitSettlementWindow_zero_eq_gapOne · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.leanTHEOREM commitSettlementWindow_ne_gapTwo · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
theorem commitSettlementWindow_ne_gapTwo (phase : Fin 8) : commitSettlementWindow phase ≠ gapTwoTwoPhaseMode := by intro h have hcommit := congrFun h phase rw [commitSettlementWindow_at_commit] at hcommit unfold gapTwoTwoPhaseMode at hcommit by_cases h0 : phase.val = 0 · have hval1 : (phase + 1).val = 1 := by have hphase : phase = 0 := Fin.ext h0 subst hphase decide have hclear := congrFun h (phase + 1) rw [commitSettlementWindow_at_clear] at hclear unfold gapTwoTwoPhaseMode at hclear rw [if_neg (by rw [hval1]; norm_num), if_neg (by rw [hval1]; norm_num)] at hclear norm_num at hclear · rw [if_neg h0] at hcommit by_cases h2 : phase.val = 2 · rw [if_pos h2] at hcommit norm_num at hcommit · rw [if_neg h2] at hcommit norm_num at hcommitGap-two shapes are excluded from the entire family. commitSettlementWindow_ne_gapTwo · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.leanTHEOREM phaseSource_zero_eq_phaseSource_two · commitSettlementWindow_zero_ne_two · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
/-- Phases zero and two post on the same axis, so they carry the SAME signed posting source object. -/ theorem phaseSource_zero_eq_phaseSource_two : phaseSignedPostingPhotonSource3 0 = phaseSignedPostingPhotonSource3 2 := by have hevent : (phaseBearingCoherenceScaledEventOperator3 (0 : Fin 8)).event = (phaseBearingCoherenceScaledEventOperator3 (2 : Fin 8)).event := by show (phaseBearingPostingEvent3 (0 : Fin 8)).1 = (phaseBearingPostingEvent3 (2 : Fin 8)).1 unfold phaseBearingPostingEvent3 rw [grayPhaseAxis3_zero_eq_two_axis] exact signedSource_ext hevent (phaseBearingCoherenceScaledEventOperator3_source_attachment 0) (phaseBearingCoherenceScaledEventOperator3_source_attachment 2)theorem commitSettlementWindow_zero_ne_two : commitSettlementWindow 0 ≠ commitSettlementWindow 2 := by intro h have h0 := congrFun h 0 rw [commitSettlementWindow_at_commit] at h0 have hzero : commitSettlementWindow 2 0 = 0 := commitSettlementWindow_adjacentPairSupport 2 0 (by decide) (by decide) rw [hzero] at h0 exact one_ne_zero h0Phases zero and two carry the same signed posting source, yet their settlement windows differ. phaseSource_zero_eq_phaseSource_two · commitSettlementWindow_zero_ne_two · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.leanTHEOREM no_functional_sourceRelation_contains_settlement · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean
/-- **Interface wall.** No functional source-to-window relation contains the settlement family: phases zero and two share one source but settle different windows. The physical settlement law reads the clock phase of the commitment, not the source object alone, so the source-functional naturality interface cannot be the settlement law. -/ theorem no_functional_sourceRelation_contains_settlement : ¬ ∃ relation : SignedSourcePhotonWindowRelation3, IsFunctionalSignedSourcePhotonWindowRelation3 relation ∧ ∀ phase : Fin 8, relation (phaseSignedPostingPhotonSource3 phase) (commitSettlementWindow phase) := by rintro ⟨relation, hfunctional, hcontains⟩ have h0 := hcontains 0 have h2 := hcontains 2 rw [← phaseSource_zero_eq_phaseSource_two] at h2 exact commitSettlementWindow_zero_ne_two (hfunctional (phaseSignedPostingPhotonSource3 0) (commitSettlementWindow 0) (commitSettlementWindow 2) h0 h2)No functional source-to-window relation contains the settlement family. no_functional_sourceRelation_contains_settlement · IndisputableMonolith/Masses/MassGenesis/T10CommitSettlementWindow.lean