LedgerSnapshot

formal source

  61
  62/-- A ledger state at a given tick. The state space is indexed by ticks,
  63    not by a continuous time parameter. -/
  64structure LedgerSnapshot where
  65  tick : Tick
  66  defect : ℝ
  67  defect_nonneg : 0 ≤ defect
  68
  69/-- Temporal ordering: snapshot A is before snapshot B iff its tick index is smaller. -/
  70def before (a b : LedgerSnapshot) : Prop := a.tick.index < b.tick.index
  71
  72instance : DecidableRel before := fun a b => Nat.decLt a.tick.index b.tick.index
  73
  74/-! ## Arrow of Time: Defect Monotonicity -/
  75
  76/-- **Core Principle**: Within a single epoch, the defect is non-increasing.
  77    Recognition events reduce defect (move toward the cost minimum).
  78    This is what gives time its direction. -/
  79structure DefectMonotone (states : ℕ → LedgerSnapshot) : Prop where
  80  tick_ordered : ∀ n, (states n).tick.index ≤ (states (n + 1)).tick.index
  81  defect_decreasing : ∀ n,
  82    (states (n + 1)).tick.index = (states n).tick.index + 1 →
  83    (states (n + 1)).defect ≤ (states n).defect
  84
  85/-- The arrow of time is the direction of defect decrease.
  86    Time "flows" from higher defect to lower defect. -/
  87def arrow_of_time (s₁ s₂ : LedgerSnapshot) : Prop :=
  88  before s₁ s₂ ∧ s₂.defect ≤ s₁.defect
  89
  90/-- **Theorem (F-006)**: The arrow of time is well-defined.
  91    If defect decreases along the tick sequence, the temporal
  92    ordering and the thermodynamic arrow agree. -/
  93theorem arrow_well_defined (states : ℕ → LedgerSnapshot)
  94    (h : DefectMonotone states) (n : ℕ)