Skip to content

Commit 1c35cc1

Browse files
committed
Add Ω/+ open-case inversion lemmas for Buchholz order
1 parent 6eeea5e commit 1c35cc1

2 files changed

Lines changed: 16 additions & 0 deletions

File tree

proofs/agda/Ordinal/Buchholz/Order.agda

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -115,6 +115,20 @@ infix 4 _<ᵇ_
115115
-- Left leg: <ᵇ-+1 (x = bplus _ _, y = bplus _ _)
116116
<ᵇ-trans (<ᵇ-+1 p) (<ᵇ-+1 q) = <ᵇ-+1 (<ᵇ-trans p q)
117117

118+
----------------------------------------------------------------------------
119+
-- WF-2 open-case inversions (Ω vs +)
120+
----------------------------------------------------------------------------
121+
122+
-- The current 7-constructor core has no witness for either direction.
123+
-- These inversion lemmas pin that fact explicitly for downstream case
124+
-- splits while the comparison rule is still deferred.
125+
126+
<ᵇ-inv-Ω+ : {μ x y} bOmega μ <ᵇ bplus x y
127+
<ᵇ-inv-Ω+ ()
128+
129+
<ᵇ-inv-+Ω : {x y μ} bplus x y <ᵇ bOmega μ
130+
<ᵇ-inv-+Ω ()
131+
118132
----------------------------------------------------------------------------
119133
-- Strict-below-ψ examples, for downstream ordering checks
120134
----------------------------------------------------------------------------

proofs/agda/Smoke.agda

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -181,6 +181,8 @@ open import Ordinal.Buchholz.Order using
181181
; <ᵇ-+1
182182
; <ᵇ-irrefl
183183
; <ᵇ-trans
184+
; <ᵇ-inv-Ω+
185+
; <ᵇ-inv-+Ω
184186
; bzero<Ω0
185187
; Ω0<Ω1
186188
; Ω1<Ωω

0 commit comments

Comments
 (0)