# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1668612178 -32400
# Node ID c190f708862ae43d1b6b66e5c4c0f521c84dc0f8
# Parent  9672214d4e13873247a0ca44c5a2fe3c95914c96
f (supf x) = supf x

diff -r 9672214d4e13 -r c190f708862a src/zorn.agda
--- a/src/zorn.agda	Thu Nov 17 00:04:52 2022 +0900
+++ b/src/zorn.agda	Thu Nov 17 00:22:58 2022 +0900
@@ -829,6 +829,16 @@
            ax : odef A x
            is-sup : IsMinSUP A B f ax
 
+     supf-fc : ( f : Ordinal → Ordinal ) → (mf : ≤-monotonic-f A f ) {y : Ordinal} (ay : odef A y) → Ordinal  → Ordinal
+     supf-fc f mf {y} ay x = TransFinite0 ind x where
+            ind : (x : Ordinal) → ((z : Ordinal) → z o< x → Ordinal ) → Ordinal
+            ind x prev  with trio< x o∅ 
+            ... | tri< a ¬b ¬c = ?
+            ... | tri≈ ¬a b ¬c = MinSUP.sup (ysup f mf ay)
+            ... | tri> ¬a ¬b 0<x with Oprev-p x
+            ... | yes op = ?
+            ... | no lim = ?
+
      --
      -- create all ZChains under o< x
      --