478
|
1 {-# OPTIONS --allow-unsolved-metas #-}
|
431
|
2 open import Level
|
|
3 open import Ordinals
|
477
|
4 module zorn {n : Level } (O : Ordinals {n}) where
|
431
|
5
|
|
6 open import zf
|
477
|
7 open import logic
|
|
8 -- open import partfunc {n} O
|
|
9 import OD
|
|
10
|
|
11 open import Relation.Nullary
|
|
12 open import Relation.Binary
|
|
13 open import Data.Empty
|
431
|
14 open import Relation.Binary
|
|
15 open import Relation.Binary.Core
|
477
|
16 open import Relation.Binary.PropositionalEquality
|
|
17 import BAlgbra
|
431
|
18
|
|
19
|
|
20 open inOrdinal O
|
|
21 open OD O
|
|
22 open OD.OD
|
|
23 open ODAxiom odAxiom
|
477
|
24 import OrdUtil
|
|
25 import ODUtil
|
431
|
26 open Ordinals.Ordinals O
|
|
27 open Ordinals.IsOrdinals isOrdinal
|
|
28 open Ordinals.IsNext isNext
|
|
29 open OrdUtil O
|
477
|
30 open ODUtil O
|
|
31
|
|
32
|
|
33 import ODC
|
|
34
|
|
35
|
|
36 open _∧_
|
|
37 open _∨_
|
|
38 open Bool
|
431
|
39
|
|
40
|
|
41 open HOD
|
|
42
|
469
|
43 record Element (A : HOD) : Set (suc n) where
|
|
44 field
|
|
45 elm : HOD
|
|
46 is-elm : A ∋ elm
|
|
47
|
|
48 open Element
|
|
49
|
468
|
50 TotalOrderSet : ( A : HOD ) → (_<_ : (x y : HOD) → Set n ) → Set (suc n)
|
469
|
51 TotalOrderSet A _<_ = Trichotomous (λ (x : Element A) y → elm x ≡ elm y ) (λ x y → elm x < elm y )
|
|
52
|
470
|
53 PartialOrderSet : ( A : HOD ) → (_<_ : (x y : HOD) → Set n ) → Set (suc n)
|
|
54 PartialOrderSet A _<_ = (a b : Element A)
|
483
|
55 → (elm a < elm b → ((¬ elm b < elm a) ∧ (¬ (elm a ≡ elm b) ))) ∧ (elm a ≡ elm b → (¬ elm a < elm b) ∧ (¬ elm b < elm a))
|
470
|
56
|
469
|
57 me : { A a : HOD } → A ∋ a → Element A
|
|
58 me {A} {a} lt = record { elm = a ; is-elm = lt }
|
|
59
|
464
|
60 record SUP ( A B : HOD ) (_<_ : (x y : HOD) → Set n ) : Set (suc n) where
|
|
61 field
|
|
62 sup : HOD
|
|
63 A∋maximal : A ∋ sup
|
478
|
64 x≤sup : {x : HOD} → B ∋ x → (x ≡ sup ) ∨ (x < sup ) -- B is Total
|
464
|
65
|
|
66 record Maximal ( A : HOD ) (_<_ : (x y : HOD) → Set n ) : Set (suc n) where
|
|
67 field
|
|
68 maximal : HOD
|
472
|
69 A∋maximal : A ∋ maximal
|
478
|
70 ¬maximal<x : {x : HOD} → A ∋ x → ¬ maximal < x -- A is Partial, use negative
|
464
|
71
|
477
|
72 open _==_
|
|
73 open _⊆_
|
|
74
|
467
|
75 record ZChain ( A : HOD ) (y : Ordinal) (_<_ : (x y : HOD) → Set n ) : Set (suc n) where
|
464
|
76 field
|
483
|
77 fb : Ordinal → HOD
|
|
78 A∋fb : (ox : Ordinal ) → ox o< y → A ∋ fb ox
|
|
79 monotonic : (ox oy : Ordinal ) → ox o< y → ox o< oy → fb ox < fb oy
|
464
|
80
|
|
81 Zorn-lemma : { A : HOD } → { _<_ : (x y : HOD) → Set n }
|
|
82 → o∅ o< & A
|
470
|
83 → PartialOrderSet A _<_
|
478
|
84 → ( ( B : HOD) → (B⊆A : B ⊆ A) → TotalOrderSet B _<_ → SUP A B _<_ ) -- SUP condition
|
464
|
85 → Maximal A _<_
|
478
|
86 Zorn-lemma {A} {_<_} 0<A PO supP = zorn00 where
|
472
|
87 someA : HOD
|
477
|
88 someA = ODC.minimal O A (λ eq → ¬x<0 ( subst (λ k → o∅ o< k ) (=od∅→≡o∅ eq) 0<A ))
|
473
|
89 isSomeA : A ∋ someA
|
477
|
90 isSomeA = ODC.x∋minimal O A (λ eq → ¬x<0 ( subst (λ k → o∅ o< k ) (=od∅→≡o∅ eq) 0<A ))
|
467
|
91 HasMaximal : HOD
|
482
|
92 HasMaximal = record { od = record { def = λ y → odef A y ∧ ((m : Ordinal) → odef A m → ¬ (* y < * m))} ; odmax = & A ; <odmax = z08 } where
|
|
93 z08 : {y : Ordinal} → (odef A y ∧ ((m : Ordinal) → odef A m → ¬ (* y < * m))) → y o< & A
|
|
94 z08 {y} P = subst (λ k → k o< & A) &iso (c<→o< {* y} (subst (λ k → odef A k) (sym &iso) (proj1 P)))
|
|
95 no-maximal : HasMaximal =h= od∅ → (y : Ordinal) → (odef A y ∧ ((m : Ordinal) → odef A m → ¬ (* y < * m))) → ⊥
|
|
96 no-maximal nomx y P = ¬x<0 (eq→ nomx {y} ⟪ proj1 P , (λ m am → (proj2 P) m am ) ⟫ )
|
472
|
97 Gtx : { x : HOD} → A ∋ x → HOD
|
482
|
98 Gtx {x} ax = record { od = record { def = λ y → odef A y ∧ (x < (* y)) } ; odmax = & A ; <odmax = z09 } where
|
|
99 z09 : {y : Ordinal} → (odef A y ∧ (x < (* y))) → y o< & A
|
|
100 z09 {y} P = subst (λ k → k o< & A) &iso (c<→o< {* y} (subst (λ k → odef A k) (sym &iso) (proj1 P)))
|
470
|
101 z01 : {a b : HOD} → A ∋ a → A ∋ b → (a ≡ b ) ∨ (a < b ) → b < a → ⊥
|
|
102 z01 {a} {b} A∋a A∋b (case1 a=b) b<a = proj1 (proj2 (PO (me A∋b) (me A∋a)) (sym a=b)) b<a
|
483
|
103 z01 {a} {b} A∋a A∋b (case2 a<b) b<a = {!!}
|
|
104 -- proj1 (PO (me A∋b) (me A∋a)) b<a ⟪ a<b , (λ b=a → proj1 (proj2 (PO (me A∋b) (me A∋a)) b=a ) b<a ) ⟫
|
478
|
105 -- ZChain is not compatible with the SUP condition
|
483
|
106 B : (z : ZChain A (& A) _<_ ) → HOD
|
|
107 B = {!!}
|
|
108 ZChain→¬SUP : (z : ZChain A (& A) _<_ ) → ¬ (SUP A (B z) _<_ )
|
|
109 ZChain→¬SUP z sp = ⊥-elim {!!} where
|
472
|
110 z03 : & (SUP.sup sp) o< osuc (& A)
|
|
111 z03 = ordtrans (c<→o< (SUP.A∋maximal sp)) <-osuc
|
483
|
112 z02 : (x : HOD) → B z ∋ x → SUP.sup sp < x → ⊥
|
|
113 z02 x xe s<x = {!!} -- z01 (incl (ZChain.B⊆A z) xe) (SUP.A∋maximal sp) (SUP.x≤sup sp xe) s<x
|
471
|
114 ind : HasMaximal =h= od∅
|
|
115 → (x : Ordinal) → ((y : Ordinal) → y o< x → ZChain A y _<_ )
|
464
|
116 → ZChain A x _<_
|
471
|
117 ind nomx x prev with Oprev-p x
|
477
|
118 ... | yes op with ODC.∋-p O A (* x)
|
483
|
119 ... | no ¬Ax = {!!} where
|
476
|
120 -- we have previous ordinal and ¬ A ∋ x, use previous Zchain
|
471
|
121 px = Oprev.oprev op
|
|
122 zc1 : ZChain A px _<_
|
|
123 zc1 = prev px (subst (λ k → px o< k) (Oprev.oprev=x op) <-osuc)
|
483
|
124 z04 : {!!} -- (sup : HOD) (as : A ∋ sup) → & sup o< osuc x → sup < ZChain.fb zc1 as
|
471
|
125 z04 sup as s<x with trio< (& sup) x
|
|
126 ... | tri≈ ¬a b ¬c = ⊥-elim (¬Ax (subst (λ k → odef A k) (trans b (sym &iso)) as) )
|
483
|
127 ... | tri< a ¬b ¬c = {!!} -- ZChain.¬x≤sup zc1 _ as ( subst (λ k → & sup o< k ) (sym (Oprev.oprev=x op)) a )
|
472
|
128 ... | tri> ¬a ¬b c with osuc-≡< s<x
|
|
129 ... | case1 eq = ⊥-elim (¬Ax (subst (λ k → odef A k) (trans eq (sym &iso)) as) )
|
|
130 ... | case2 lt = ⊥-elim (¬a lt )
|
476
|
131 ... | yes ax = z06 where -- we have previous ordinal and A ∋ x
|
472
|
132 px = Oprev.oprev op
|
|
133 zc1 : ZChain A px _<_
|
|
134 zc1 = prev px (subst (λ k → px o< k) (Oprev.oprev=x op) <-osuc)
|
473
|
135 z06 : ZChain A x _<_
|
|
136 z06 with is-o∅ (& (Gtx ax))
|
482
|
137 ... | yes nogt = ⊥-elim (no-maximal nomx x ⟪ subst (λ k → odef A k) &iso ax , x-is-maximal ⟫ ) where -- no larger element, so it is maximal
|
|
138 x-is-maximal : (m : Ordinal) → odef A m → ¬ (* x < * m)
|
|
139 x-is-maximal m am = ¬x<m where
|
475
|
140 ¬x<m : ¬ (* x < * m)
|
|
141 ¬x<m x<m = ∅< {Gtx ax} {* m} ⟪ subst (λ k → odef A k) (sym &iso) am , subst (λ k → * x < k ) (cong (*) (sym &iso)) x<m ⟫ (≡o∅→=od∅ nogt)
|
483
|
142 ... | no not = {!!} where
|
476
|
143 ind nomx x prev | no ¬ox with trio< (& A) x --- limit ordinal case
|
483
|
144 ... | tri< a ¬b ¬c = {!!} where
|
475
|
145 zc1 : ZChain A (& A) _<_
|
|
146 zc1 = prev (& A) a
|
483
|
147 ... | tri≈ ¬a b ¬c = {!!} where
|
478
|
148 ... | tri> ¬a ¬b c with ODC.∋-p O A (* x)
|
|
149 ... | no ¬Ax = {!!} where
|
|
150 ... | yes ax with is-o∅ (& (Gtx ax))
|
482
|
151 ... | yes nogt = ⊥-elim (no-maximal nomx x ⟪ subst (λ k → odef A k) &iso ax , x-is-maximal ⟫ ) where -- no larger element, so it is maximal
|
|
152 x-is-maximal : (m : Ordinal) → odef A m → ¬ (* x < * m)
|
|
153 x-is-maximal m am = ¬x<m where
|
478
|
154 ¬x<m : ¬ (* x < * m)
|
|
155 ¬x<m x<m = ∅< {Gtx ax} {* m} ⟪ subst (λ k → odef A k) (sym &iso) am , subst (λ k → * x < k ) (cong (*) (sym &iso)) x<m ⟫ (≡o∅→=od∅ nogt)
|
|
156 ... | no not = {!!} where
|
467
|
157 zorn00 : Maximal A _<_
|
|
158 zorn00 with is-o∅ ( & HasMaximal )
|
477
|
159 ... | no not = record { maximal = ODC.minimal O HasMaximal (λ eq → not (=od∅→≡o∅ eq)) ; A∋maximal = zorn01 ; ¬maximal<x = zorn02 } where
|
478
|
160 -- yes we have the maximal
|
483
|
161 hasm : odef HasMaximal ( & ( ODC.minimal O HasMaximal (λ eq → not (=od∅→≡o∅ eq)) ) )
|
|
162 hasm = ODC.x∋minimal O HasMaximal (λ eq → not (=od∅→≡o∅ eq))
|
477
|
163 zorn01 : A ∋ ODC.minimal O HasMaximal (λ eq → not (=od∅→≡o∅ eq))
|
483
|
164 zorn01 = proj1 hasm
|
477
|
165 zorn02 : {x : HOD} → A ∋ x → ¬ (ODC.minimal O HasMaximal (λ eq → not (=od∅→≡o∅ eq)) < x)
|
483
|
166 zorn02 {x} ax m<x = ((proj2 hasm) (& x) ax) (subst₂ (λ j k → j < k) (sym *iso) (sym *iso) m<x )
|
|
167 ... | yes ¬Maximal = ⊥-elim {!!} where
|
478
|
168 -- if we have no maximal, make ZChain, which contradict SUP condition
|
471
|
169 z : (x : Ordinal) → HasMaximal =h= od∅ → ZChain A x _<_
|
|
170 z x nomx = TransFinite (ind nomx) x
|
464
|
171
|
482
|
172 _⊆'_ : ( A B : HOD ) → Set n
|
|
173 _⊆'_ A B = (x : Ordinal ) → odef A x → odef B x
|
|
174
|
|
175 MaximumSubset : {L P : HOD}
|
|
176 → o∅ o< & L → o∅ o< & P → P ⊆ L
|
|
177 → PartialOrderSet P _⊆'_
|
|
178 → ( (B : HOD) → B ⊆ P → TotalOrderSet B _⊆'_ → SUP P B _⊆'_ )
|
|
179 → Maximal P (_⊆'_)
|
|
180 MaximumSubset {L} {P} 0<L 0<P P⊆L PO SP = Zorn-lemma {P} {_⊆'_} 0<P PO SP
|