Mercurial > hg > Members > kono > Proof > ZF-in-agda

changeset 680:b27501ac4f4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 09 Jul 2022 17:52:43 +0900
parents 55767354aee7
children c5c8e37d9a6c
files src/zorn.agda
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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