# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1593423451 -32400
# Node ID 4804f3f3485f118eab610e97522261bdcd65c49f
# Parent  2c111bfcc89ad6c9ea8a6739c7228a631c8deab3
...

diff -r 2c111bfcc89a -r 4804f3f3485f OD.agda
--- a/OD.agda	Mon Jun 29 18:31:56 2020 +0900
+++ b/OD.agda	Mon Jun 29 18:37:31 2020 +0900
@@ -147,7 +147,7 @@
 x c< a = a ∋ x 
 
 cseq : {n : Level} →  HOD  →  HOD 
-cseq x = record { od = record { def = λ y → odef x (osuc y) } ; odmax = {!!} ; <odmax = {!!} } where
+cseq x = record { od = record { def = λ y → odef x (osuc y) } ; odmax = osuc (odmax x) ; <odmax = ? } where
 
 odef-subst :  {Z : HOD } {X : Ordinal  }{z : HOD } {x : Ordinal  }→ odef Z X → Z ≡ z  →  X ≡ x  →  odef z x
 odef-subst df refl refl = df