comparison ordinal.agda @ 325:1a54dbe1ea4c

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 04 Jul 2020 22:48:49 +0900
parents fbabb20f222e
children 5544f4921a44
comparison
equal deleted inserted replaced
324:fbabb20f222e 325:1a54dbe1ea4c
209 C-Ordinal {n} = record { 209 C-Ordinal {n} = record {
210 ord = Ordinal {suc n} 210 ord = Ordinal {suc n}
211 ; o∅ = o∅ 211 ; o∅ = o∅
212 ; osuc = osuc 212 ; osuc = osuc
213 ; _o<_ = _o<_ 213 ; _o<_ = _o<_
214 ; next = ? 214 ; next = {!!}
215 ; isOrdinal = record { 215 ; isOrdinal = record {
216 Otrans = ordtrans 216 Otrans = ordtrans
217 ; OTri = trio< 217 ; OTri = trio<
218 ; ¬x<0 = ¬x<0 218 ; ¬x<0 = ¬x<0
219 ; <-osuc = <-osuc 219 ; <-osuc = <-osuc
220 ; osuc-≡< = osuc-≡< 220 ; osuc-≡< = osuc-≡<
221 ; TransFinite = TransFinite1 221 ; TransFinite = TransFinite1
222 ; is-limit = ? 222 ; is-limit = {!!}
223 ; next-limit = ? 223 ; next-limit = {!!}
224 } 224 }
225 } where 225 } where
226 ord1 : Set (suc n) 226 ord1 : Set (suc n)
227 ord1 = Ordinal {suc n} 227 ord1 = Ordinal {suc n}
228 TransFinite1 : { ψ : ord1 → Set (suc n) } 228 TransFinite1 : { ψ : ord1 → Set (suc n) }