Mercurial > hg > Members > kono > Proof > ZF-in-agda
diff Ordinals.agda @ 388:19687f3304c9
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 25 Jul 2020 12:54:28 +0900 |
parents | 8b0715e28b33 |
children | 43b0a6ca7602 |
line wrap: on
line diff
--- a/Ordinals.agda Sat Jul 25 09:09:00 2020 +0900 +++ b/Ordinals.agda Sat Jul 25 12:54:28 2020 +0900 @@ -24,6 +24,9 @@ TransFinite : { ψ : ord → Set n } → ( (x : ord) → ( (y : ord ) → y o< x → ψ y ) → ψ x ) → ∀ (x : ord) → ψ x + TransFinite1 : { ψ : ord → Set (suc n) } + → ( (x : ord) → ( (y : ord ) → y o< x → ψ y ) → ψ x ) + → ∀ (x : ord) → ψ x record IsNext {n : Level } (ord : Set n) (o∅ : ord ) (osuc : ord → ord ) (_o<_ : ord → ord → Set n) (next : ord → ord ) : Set (suc (suc n)) where field @@ -62,6 +65,7 @@ osuc-≡< = IsOrdinals.osuc-≡< (Ordinals.isOrdinal O) <-osuc = IsOrdinals.<-osuc (Ordinals.isOrdinal O) TransFinite = IsOrdinals.TransFinite (Ordinals.isOrdinal O) + TransFinite1 = IsOrdinals.TransFinite1 (Ordinals.isOrdinal O) x<nx = IsNext.x<nx (Ordinals.isNext O) osuc<nx = IsNext.osuc<nx (Ordinals.isNext O)