diff Ordinals.agda @ 235:846e0926bb89

fix cardinal
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 15 Aug 2019 04:51:24 +0900
parents 59771eb07df0
children 63df67b6281c
line wrap: on
line diff
--- a/Ordinals.agda	Tue Aug 13 22:21:10 2019 +0900
+++ b/Ordinals.agda	Thu Aug 15 04:51:24 2019 +0900
@@ -50,6 +50,7 @@
         ¬x<0 = IsOrdinals.¬x<0 (Ordinals.isOrdinal O)
         osuc-≡< = IsOrdinals.osuc-≡<  (Ordinals.isOrdinal O)
         <-osuc = IsOrdinals.<-osuc  (Ordinals.isOrdinal O)
+        TransFinite = IsOrdinals.TransFinite  (Ordinals.isOrdinal O)
         
         o<-dom :   { x y : Ordinal } → x o< y → Ordinal 
         o<-dom  {x} _ = x