# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1655612693 -32400
# Node ID 267a44ce18b5a6c10a30c93504ebf9c2e9c2cf83
# Parent  3938bed729a512346c386084e097f42b8ae3edef
...

diff -r 3938bed729a5 -r 267a44ce18b5 src/OrdUtil.agda
--- 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