Mercurial > hg > Members > kono > Proof > ZF-in-agda
diff Ordinals.agda @ 387:8b0715e28b33
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 25 Jul 2020 09:09:00 +0900 |
parents | 4cbcf71b09c4 |
children | 19687f3304c9 |
line wrap: on
line diff
--- a/Ordinals.agda Thu Jul 23 17:50:28 2020 +0900 +++ b/Ordinals.agda Sat Jul 25 09:09:00 2020 +0900 @@ -24,9 +24,6 @@ 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 @@ -65,7 +62,6 @@ 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)