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

changeset 1202:d6781ad8149e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author kono
date Thu, 02 Mar 2023 12:42:22 +0800
parents 03684784bc5f
children 2f09ce1dd2a1
files src/Tychonoff.agda
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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