Mercurial > hg > Members > kono > Proof > ZF-in-agda
changeset 1176:ae586d6275c2
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 22 Feb 2023 10:11:00 +0900 |
parents | 7d2bae0ff36b |
children | 66355bace86f |
files | src/Topology.agda |
diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/Topology.agda Tue Feb 21 12:02:41 2023 +0900 +++ b/src/Topology.agda Wed Feb 22 10:11:00 2023 +0900 @@ -464,10 +464,14 @@ -- there is no finite cover. From Compactness, (OX X) is not a cover of L ( contraposition of Compact) -- it means there is a limit -- - Intersection : (X : Ordinal ) → HOD - Intersection X = record { od = record { def = λ x → {y : Ordinal} → odef (* X) y → odef (* y) x } ; odmax = ? ; <odmax = ? } + Intersection : (X : Ordinal ) → o∅ o< X → HOD -- ∩ X + Intersection X 0<X = record { od = record { def = λ x → {y : Ordinal} → odef (* X) y → odef (* y) x } ; odmax = osuc X ; <odmax = i00 } where + i00 : {x : Ordinal} → ({y : Ordinal} → odef (* X) y → odef (* y) x) → x o< osuc X + i00 {x} xy = begin + x ≤⟨ ? ⟩ + X ∎ where open o≤-Reasoning O has-intersection : {X : Ordinal} (CX : * X ⊆ CS top) (fip : {C x : Ordinal} → * C ⊆ * X → Subbase (* C) x → o∅ o< x) - → ¬ ( Intersection X =h= od∅ ) + → ¬ ( Intersection X ? =h= od∅ ) has-intersection {X} CX fip i=0 = ? where no-cover : ¬ ( (* (OX CX)) covers L ) no-cover = ?