# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1657356763 -32400
# Node ID b27501ac4f4a208728e21f46d18cbd377b11c414
# Parent  55767354aee78b3df82734e5a5f94e4628677d0a
...

diff -r 55767354aee7 -r b27501ac4f4a src/zorn.agda
--- a/src/zorn.agda	Sat Jul 09 17:37:32 2022 +0900
+++ b/src/zorn.agda	Sat Jul 09 17:52:43 2022 +0900
@@ -262,17 +262,17 @@
    field
       psup :  Ordinal → Ordinal 
       psup<z : (x : Ordinal ) →   psup x o< & A 
-      chainf : (x : Ordinal) → x o≤ z  →  HOD
-      is-chain : (x w : Ordinal) → (x≤z : x o≤ z) → odef (chainf x x≤z ) w → Chain A f mf ay (psup x ) w 
-      psup-mono : (x y : Ordinal) → (x≤z : x o≤ z ) → chainf x x≤z ⊆' chainf z ? 
+      chainf : (x : Ordinal) → HOD
+      is-chain : (x w : Ordinal) → odef (chainf x) w → Chain A f mf ay (psup x ) w 
+      psup-mono : (x y : Ordinal) → (x≤z : x o≤ z ) → chainf x ⊆' chainf z 
 
 record ZChain ( A : HOD )    ( f : Ordinal → Ordinal )  (mf : ≤-monotonic-f A f) {init : Ordinal} (ay : odef A init)  
           (zc0 : (x : Ordinal) →  ZChain1 A f mf ay x ) ( z : Ordinal ) : Set (Level.suc n) where
    chain : HOD
-   chain = ZChain1.chainf (zc0 (& A)) z ?
+   chain = ZChain1.chainf (zc0 (& A)) z 
    field
-      chain-mono : (px py : Ordinal) → (px≤py : px o≤ py ) (y≤x : py o≤ z ) → (w : Ordinal ) 
-          → ZChain1.chainf (zc0 (& A)) px  ? ⊆' ZChain1.chainf (zc0 (& A)) py ?
+      chain-mono : (px py : Ordinal) → (x≤y : px o≤ py ) (y≤z : py o≤ z ) → (w : Ordinal ) 
+          → ZChain1.chainf (zc0 (& A)) px   ⊆' ZChain1.chainf (zc0 (& A)) py 
       chain⊆A : chain ⊆' A
       chain∋init : odef chain init
       initial : {y : Ordinal } → odef chain y → * init ≤ * y