diff ordinal.agda @ 97:f2b579106770

power set using sup on Def
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 09 Jun 2019 19:41:53 +0900
parents 4659a815b70d
children 1daa1d24348c
line wrap: on
line diff
--- a/ordinal.agda	Sat Jun 08 22:17:40 2019 +0900
+++ b/ordinal.agda	Sun Jun 09 19:41:53 2019 +0900
@@ -289,3 +289,4 @@
 TransFinite caseΦ caseOSuc record { lv = lv ; ord = (Φ (lv)) } = caseΦ lv
 TransFinite caseΦ caseOSuc record { lv = lx ; ord = (OSuc lx ox) } = 
       caseOSuc lx ox (TransFinite caseΦ caseOSuc  record { lv = lx ; ord = ox })
+