# HG changeset patch
# User kono
# Date 1677732142 -28800
# Node ID d6781ad8149e5805a2df671b34fb5afaba88750b
# Parent  03684784bc5fd4674f3daedb7c2a8fae22aae81c
...

diff -r 03684784bc5f -r d6781ad8149e src/Tychonoff.agda
--- a/src/Tychonoff.agda	Thu Mar 02 11:09:02 2023 +0800
+++ b/src/Tychonoff.agda	Thu Mar 02 12:42:22 2023 +0800
@@ -93,6 +93,7 @@
         ; <odmax = λ {x} lt → subst₂ (λ j k → j o< osuc k) &iso refl (⊆→o≤ (FBase.u⊆P lt))  }
      N⊆PP : {X : Ordinal } → (CSX : * X ⊆ CS TP) → (fp : fip CSX) → N CSX fp ⊆ Power P
      N⊆PP CSX fp nx b xb  = FBase.u⊆P nx xb
+     -- filter base is not empty
      nc : {X : Ordinal} → (CSX : * X ⊆ CS TP) → (fip : fip CSX) → HOD
      nc {X} CSX fip with trio< o∅ X
      ... | tri< 0<X ¬b ¬c = ODC.minimal O (* (& e)) (0<P→ne (subst (λ k → o∅ o< k) (sym &iso) (fip (gi Xe))) ) where