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

changeset 621:267a44ce18b5

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 Sun, 19 Jun 2022 13:24:53 +0900
parents 3938bed729a5
children 7ddb909eb9ab
files src/OrdUtil.agda
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/OrdUtil.agda	Sat Jun 18 12:28:09 2022 +0900
+++ b/src/OrdUtil.agda	Sun Jun 19 13:24:53 2022 +0900
@@ -264,6 +264,14 @@
     os-iso← : {x : Ordinal} →  os→  (os← x) (os←limit x) ≡ x
     os-iso→ : {x : Ordinal} → (lt : x o< maxordinal ) →  os← (os→ x lt) ≡ x
 
+TransFiniteInd : { ψ : Ordinal  → Set (suc n) }
+          → { prop :  ( (x : Ordinal)  → ψ x)  → Ordinal  → Set (suc n) }
+          → ( ind  :  (x : Ordinal)  → ( (y : Ordinal  ) → y o< x → ψ y ) → ψ x )
+          → ( pind :  (x : Ordinal)  → ( (y : Ordinal  ) → y o< x → prop (TransFinite {ψ} ind) y ) → prop (TransFinite {ψ} ind) x )
+          →  (x : Ordinal) -> prop (TransFinite {ψ} ind) x
+TransFiniteInd {ψ} {prop} ind pind  = {!!}
+
+
 module o≤-Reasoning {n : Level}  (O : Ordinals {n} )  where
 
     -- open inOrdinal O