Mercurial > hg > Members > kono > Proof > ZF-in-agda
diff Ordinals.agda @ 393:43b0a6ca7602
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 26 Jul 2020 21:10:37 +0900 |
parents | 19687f3304c9 |
children | 6dcea4c7cba1 |
line wrap: on
line diff
--- a/Ordinals.agda Sat Jul 25 17:36:27 2020 +0900 +++ b/Ordinals.agda Sun Jul 26 21:10:37 2020 +0900 @@ -227,6 +227,12 @@ → ¬ p FExists {m} {l} ψ {p} P = contra-position ( λ p y ψy → P {y} ψy p ) + nexto∅ : {x : Ordinal} → o∅ o< next x + nexto∅ {x} with trio< o∅ x + nexto∅ {x} | tri< a ¬b ¬c = ordtrans a x<nx + nexto∅ {x} | tri≈ ¬a b ¬c = subst (λ k → k o< next x) (sym b) x<nx + nexto∅ {x} | tri> ¬a ¬b c = ⊥-elim ( ¬x<0 c ) + next< : {x y z : Ordinal} → x o< next z → y o< next x → y o< next z next< {x} {y} {z} x<nz y<nx with trio< y (next z) next< {x} {y} {z} x<nz y<nx | tri< a ¬b ¬c = a @@ -256,6 +262,9 @@ y<nx : y o< next x y<nx = osuc< (sym eq) + omax<next : {x y : Ordinal} → x o< y → omax x y o< next y + omax<next {x} {y} x<y = subst (λ k → k o< next y ) (omax< _ _ x<y ) (osuc<nx x<nx) + record OrdinalSubset (maxordinal : Ordinal) : Set (suc n) where field os→ : (x : Ordinal) → x o< maxordinal → Ordinal