Users' Mathboxes Mathbox for Jim Kingdon < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >   Mathboxes  >  subctctexmid GIF version

Theorem subctctexmid 13841
Description: If every subcountable set is countable and Markov's principle holds, excluded middle follows. Proposition 2.6 of [BauerSwan], p. 14:4. The proof is taken from that paper. (Contributed by Jim Kingdon, 29-Nov-2023.)
Hypotheses
Ref Expression
subctctexmid.x (𝜑 → ∀𝑥(∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) → ∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o)))
subctctexmid.mk (𝜑 → ω ∈ Markov)
Assertion
Ref Expression
subctctexmid (𝜑EXMID)
Distinct variable groups:   𝑓,𝑠,𝑥   𝜑,𝑔   𝑥,𝑔
Allowed substitution hints:   𝜑(𝑥,𝑓,𝑠)

Proof of Theorem subctctexmid
Dummy variables 𝑦 𝑧 𝑛 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 subctctexmid.x . . . . 5 (𝜑 → ∀𝑥(∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) → ∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o)))
2 omex 4569 . . . . . . . 8 ω ∈ V
32rabex 4125 . . . . . . 7 {𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V
43a1i 9 . . . . . 6 (𝜑 → {𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V)
5 ssrab2 3226 . . . . . . 7 {𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω
6 f1oi 5469 . . . . . . . . 9 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–1-1-onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
7 f1ofo 5438 . . . . . . . . 9 (( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–1-1-onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} → ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
86, 7ax-mp 5 . . . . . . . 8 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
9 resiexg 4928 . . . . . . . . . 10 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V → ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) ∈ V)
103, 9ax-mp 5 . . . . . . . . 9 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) ∈ V
11 foeq1 5405 . . . . . . . . 9 (𝑓 = ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) → (𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1210, 11spcev 2820 . . . . . . . 8 (( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} → ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
138, 12ax-mp 5 . . . . . . 7 𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
145, 13pm3.2i 270 . . . . . 6 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
15 sseq1 3164 . . . . . . . 8 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑠 ⊆ ω ↔ {𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω))
16 foeq2 5406 . . . . . . . . 9 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1716exbidv 1813 . . . . . . . 8 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1815, 17anbi12d 465 . . . . . . 7 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → ((𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) ↔ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
1918spcegv 2813 . . . . . 6 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V → (({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) → ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
204, 14, 19mpisyl 1434 . . . . 5 (𝜑 → ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
21 foeq3 5407 . . . . . . . . . 10 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑓:𝑠onto𝑥𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
2221exbidv 1813 . . . . . . . . 9 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑓 𝑓:𝑠onto𝑥 ↔ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
2322anbi2d 460 . . . . . . . 8 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → ((𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) ↔ (𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
2423exbidv 1813 . . . . . . 7 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) ↔ ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
25 djueq1 7001 . . . . . . . . 9 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑥 ⊔ 1o) = ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
26 foeq3 5407 . . . . . . . . 9 ((𝑥 ⊔ 1o) = ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) → (𝑔:ω–onto→(𝑥 ⊔ 1o) ↔ 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
2725, 26syl 14 . . . . . . . 8 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑔:ω–onto→(𝑥 ⊔ 1o) ↔ 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
2827exbidv 1813 . . . . . . 7 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o) ↔ ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
2924, 28imbi12d 233 . . . . . 6 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → ((∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) → ∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o)) ↔ (∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) → ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))))
303, 29spcv 2819 . . . . 5 (∀𝑥(∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) → ∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o)) → (∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) → ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
311, 20, 30sylc 62 . . . 4 (𝜑 → ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
32 fveq1 5484 . . . . . . . . . . . 12 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (𝑛) = ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛))
3332eqeq1d 2174 . . . . . . . . . . 11 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → ((𝑛) = 1o ↔ ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3433rexbidv 2466 . . . . . . . . . 10 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (∃𝑛 ∈ ω (𝑛) = 1o ↔ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3534notbid 657 . . . . . . . . 9 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (¬ ∃𝑛 ∈ ω (𝑛) = 1o ↔ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3635notbid 657 . . . . . . . 8 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o ↔ ¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3736, 34imbi12d 233 . . . . . . 7 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → ((¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o) ↔ (¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o)))
38 subctctexmid.mk . . . . . . . . 9 (𝜑 → ω ∈ Markov)
39 ismkvnex 7115 . . . . . . . . . 10 (ω ∈ Markov → (ω ∈ Markov ↔ ∀ ∈ (2o𝑚 ω)(¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o)))
4038, 39syl 14 . . . . . . . . 9 (𝜑 → (ω ∈ Markov ↔ ∀ ∈ (2o𝑚 ω)(¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o)))
4138, 40mpbid 146 . . . . . . . 8 (𝜑 → ∀ ∈ (2o𝑚 ω)(¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o))
4241adantr 274 . . . . . . 7 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → ∀ ∈ (2o𝑚 ω)(¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o))
43 1lt2o 6406 . . . . . . . . . . . 12 1o ∈ 2o
4443a1i 9 . . . . . . . . . . 11 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ (1st ‘(𝑔𝑛)) = ∅) → 1o ∈ 2o)
45 0lt2o 6405 . . . . . . . . . . . 12 ∅ ∈ 2o
4645a1i 9 . . . . . . . . . . 11 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ ¬ (1st ‘(𝑔𝑛)) = ∅) → ∅ ∈ 2o)
47 simplr 520 . . . . . . . . . . . . . . 15 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
48 fof 5409 . . . . . . . . . . . . . . 15 (𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) → 𝑔:ω⟶({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
4947, 48syl 14 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑔:ω⟶({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
50 simpr 109 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑛 ∈ ω)
5149, 50ffvelrnd 5620 . . . . . . . . . . . . 13 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
52 eldju1st 7032 . . . . . . . . . . . . 13 ((𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) → ((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o))
5351, 52syl 14 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → ((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o))
54 1n0 6396 . . . . . . . . . . . . . . . 16 1o ≠ ∅
5554neii 2337 . . . . . . . . . . . . . . 15 ¬ 1o = ∅
56 eqeq1 2172 . . . . . . . . . . . . . . 15 ((1st ‘(𝑔𝑛)) = 1o → ((1st ‘(𝑔𝑛)) = ∅ ↔ 1o = ∅))
5755, 56mtbiri 665 . . . . . . . . . . . . . 14 ((1st ‘(𝑔𝑛)) = 1o → ¬ (1st ‘(𝑔𝑛)) = ∅)
5857orim2i 751 . . . . . . . . . . . . 13 (((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o) → ((1st ‘(𝑔𝑛)) = ∅ ∨ ¬ (1st ‘(𝑔𝑛)) = ∅))
59 df-dc 825 . . . . . . . . . . . . 13 (DECID (1st ‘(𝑔𝑛)) = ∅ ↔ ((1st ‘(𝑔𝑛)) = ∅ ∨ ¬ (1st ‘(𝑔𝑛)) = ∅))
6058, 59sylibr 133 . . . . . . . . . . . 12 (((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o) → DECID (1st ‘(𝑔𝑛)) = ∅)
6153, 60syl 14 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → DECID (1st ‘(𝑔𝑛)) = ∅)
6244, 46, 61ifcldadc 3548 . . . . . . . . . 10 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ∈ 2o)
6362fmpttd 5639 . . . . . . . . 9 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)):ω⟶2o)
64 2fveq3 5490 . . . . . . . . . . . . . 14 (𝑤 = 𝑛 → (1st ‘(𝑔𝑤)) = (1st ‘(𝑔𝑛)))
6564eqeq1d 2174 . . . . . . . . . . . . 13 (𝑤 = 𝑛 → ((1st ‘(𝑔𝑤)) = ∅ ↔ (1st ‘(𝑔𝑛)) = ∅))
6665ifbid 3540 . . . . . . . . . . . 12 (𝑤 = 𝑛 → if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
67 eqcom 2167 . . . . . . . . . . . 12 (𝑤 = 𝑛𝑛 = 𝑤)
68 eqcom 2167 . . . . . . . . . . . 12 (if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ↔ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
6966, 67, 683imtr3i 199 . . . . . . . . . . 11 (𝑛 = 𝑤 → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
7069cbvmptv 4077 . . . . . . . . . 10 (𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)) = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
7170feq1i 5329 . . . . . . . . 9 ((𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)):ω⟶2o ↔ (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
7263, 71sylib 121 . . . . . . . 8 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
73 2onn 6485 . . . . . . . . . 10 2o ∈ ω
7473elexi 2737 . . . . . . . . 9 2o ∈ V
7574, 2elmap 6639 . . . . . . . 8 ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) ∈ (2o𝑚 ω) ↔ (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
7672, 75sylibr 133 . . . . . . 7 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) ∈ (2o𝑚 ω))
7737, 42, 76rspcdva 2834 . . . . . 6 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
78 eqid 2165 . . . . . . . . . . . . 13 (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
7978, 66, 50, 62fvmptd3 5578 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
8079eqeq1d 2174 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o ↔ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o))
8151adantr 274 . . . . . . . . . . . . . . 15 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
82 simpr 109 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o)
8382eqcomd 2171 . . . . . . . . . . . . . . . 16 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → 1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
84 eqifdc 3553 . . . . . . . . . . . . . . . . . . 19 (DECID (1st ‘(𝑔𝑛)) = ∅ → (1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ↔ (((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ∨ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅))))
8561, 84syl 14 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ↔ (((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ∨ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅))))
86 eqid 2165 . . . . . . . . . . . . . . . . . . 19 1o = 1o
87 orcom 718 . . . . . . . . . . . . . . . . . . . 20 ((((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ∨ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅)) ↔ ((¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅) ∨ ((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o)))
8855intnan 919 . . . . . . . . . . . . . . . . . . . . 21 ¬ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅)
89 biorf 734 . . . . . . . . . . . . . . . . . . . . 21 (¬ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅) → (((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ↔ ((¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅) ∨ ((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o))))
9088, 89ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 (((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ↔ ((¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅) ∨ ((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o)))
9187, 90bitr4i 186 . . . . . . . . . . . . . . . . . . 19 ((((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ∨ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅)) ↔ ((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o))
9286, 91mpbiran2 931 . . . . . . . . . . . . . . . . . 18 ((((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ∨ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅)) ↔ (1st ‘(𝑔𝑛)) = ∅)
9385, 92bitrdi 195 . . . . . . . . . . . . . . . . 17 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ↔ (1st ‘(𝑔𝑛)) = ∅))
9493adantr 274 . . . . . . . . . . . . . . . 16 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ↔ (1st ‘(𝑔𝑛)) = ∅))
9583, 94mpbid 146 . . . . . . . . . . . . . . 15 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (1st ‘(𝑔𝑛)) = ∅)
96 eldju2ndl 7033 . . . . . . . . . . . . . . 15 (((𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) ∧ (1st ‘(𝑔𝑛)) = ∅) → (2nd ‘(𝑔𝑛)) ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
9781, 95, 96syl2anc 409 . . . . . . . . . . . . . 14 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (2nd ‘(𝑔𝑛)) ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
98 biidd 171 . . . . . . . . . . . . . . 15 (𝑧 = (2nd ‘(𝑔𝑛)) → (𝑦 = {∅} ↔ 𝑦 = {∅}))
9998elrab 2881 . . . . . . . . . . . . . 14 ((2nd ‘(𝑔𝑛)) ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ ((2nd ‘(𝑔𝑛)) ∈ ω ∧ 𝑦 = {∅}))
10097, 99sylib 121 . . . . . . . . . . . . 13 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → ((2nd ‘(𝑔𝑛)) ∈ ω ∧ 𝑦 = {∅}))
101100simprd 113 . . . . . . . . . . . 12 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → 𝑦 = {∅})
102101ex 114 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o𝑦 = {∅}))
10380, 102sylbid 149 . . . . . . . . . 10 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o𝑦 = {∅}))
104103rexlimdva 2582 . . . . . . . . 9 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o𝑦 = {∅}))
105 simplr 520 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
106 biidd 171 . . . . . . . . . . . . . 14 (𝑧 = ∅ → (𝑦 = {∅} ↔ 𝑦 = {∅}))
107 peano1 4570 . . . . . . . . . . . . . . 15 ∅ ∈ ω
108107a1i 9 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∅ ∈ ω)
109 simpr 109 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → 𝑦 = {∅})
110106, 108, 109elrabd 2883 . . . . . . . . . . . . 13 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∅ ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
111 djulcl 7012 . . . . . . . . . . . . 13 (∅ ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (inl‘∅) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
112110, 111syl 14 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → (inl‘∅) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
113 foelrn 5720 . . . . . . . . . . . 12 ((𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) ∧ (inl‘∅) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → ∃𝑛 ∈ ω (inl‘∅) = (𝑔𝑛))
114105, 112, 113syl2anc 409 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∃𝑛 ∈ ω (inl‘∅) = (𝑔𝑛))
11579adantlr 469 . . . . . . . . . . . . . 14 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) ∧ 𝑛 ∈ ω) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
116 fveq2 5485 . . . . . . . . . . . . . . . 16 ((inl‘∅) = (𝑔𝑛) → (1st ‘(inl‘∅)) = (1st ‘(𝑔𝑛)))
117 1stinl 7035 . . . . . . . . . . . . . . . . 17 (∅ ∈ ω → (1st ‘(inl‘∅)) = ∅)
118107, 117ax-mp 5 . . . . . . . . . . . . . . . 16 (1st ‘(inl‘∅)) = ∅
119116, 118eqtr3di 2213 . . . . . . . . . . . . . . 15 ((inl‘∅) = (𝑔𝑛) → (1st ‘(𝑔𝑛)) = ∅)
120119iftrued 3526 . . . . . . . . . . . . . 14 ((inl‘∅) = (𝑔𝑛) → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o)
121115, 120sylan9eq 2218 . . . . . . . . . . . . 13 (((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) ∧ 𝑛 ∈ ω) ∧ (inl‘∅) = (𝑔𝑛)) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o)
122121ex 114 . . . . . . . . . . . 12 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) ∧ 𝑛 ∈ ω) → ((inl‘∅) = (𝑔𝑛) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
123122reximdva 2567 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → (∃𝑛 ∈ ω (inl‘∅) = (𝑔𝑛) → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
124114, 123mpd 13 . . . . . . . . . 10 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o)
125124ex 114 . . . . . . . . 9 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑦 = {∅} → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
126104, 125impbid 128 . . . . . . . 8 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o𝑦 = {∅}))
127126notbid 657 . . . . . . 7 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o ↔ ¬ 𝑦 = {∅}))
128127notbid 657 . . . . . 6 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o ↔ ¬ ¬ 𝑦 = {∅}))
12977, 128, 1263imtr3d 201 . . . . 5 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ¬ 𝑦 = {∅} → 𝑦 = {∅}))
130 df-stab 821 . . . . 5 (STAB 𝑦 = {∅} ↔ (¬ ¬ 𝑦 = {∅} → 𝑦 = {∅}))
131129, 130sylibr 133 . . . 4 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → STAB 𝑦 = {∅})
13231, 131exlimddv 1886 . . 3 (𝜑STAB 𝑦 = {∅})
133132adantr 274 . 2 ((𝜑𝑦 ⊆ {∅}) → STAB 𝑦 = {∅})
134133exmid1stab 13840 1 (𝜑EXMID)
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  wb 104  wo 698  STAB wstab 820  DECID wdc 824  wal 1341   = wceq 1343  wex 1480  wcel 2136  wral 2443  wrex 2444  {crab 2447  Vcvv 2725  wss 3115  c0 3408  ifcif 3519  {csn 3575  cmpt 4042  EXMIDwem 4172   I cid 4265  ωcom 4566  cres 4605  wf 5183  ontowfo 5185  1-1-ontowf1o 5186  cfv 5187  (class class class)co 5841  1st c1st 6103  2nd c2nd 6104  1oc1o 6373  2oc2o 6374  𝑚 cmap 6610  cdju 6998  inlcinl 7006  Markovcmarkov 7111
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-sep 4099  ax-nul 4107  ax-pow 4152  ax-pr 4186  ax-un 4410  ax-setind 4513  ax-iinf 4564
This theorem depends on definitions:  df-bi 116  df-stab 821  df-dc 825  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2296  df-ne 2336  df-ral 2448  df-rex 2449  df-rab 2452  df-v 2727  df-sbc 2951  df-csb 3045  df-dif 3117  df-un 3119  df-in 3121  df-ss 3128  df-nul 3409  df-if 3520  df-pw 3560  df-sn 3581  df-pr 3582  df-op 3584  df-uni 3789  df-int 3824  df-br 3982  df-opab 4043  df-mpt 4044  df-tr 4080  df-exmid 4173  df-id 4270  df-iord 4343  df-on 4345  df-suc 4348  df-iom 4567  df-xp 4609  df-rel 4610  df-cnv 4611  df-co 4612  df-dm 4613  df-rn 4614  df-res 4615  df-ima 4616  df-iota 5152  df-fun 5189  df-fn 5190  df-f 5191  df-f1 5192  df-fo 5193  df-f1o 5194  df-fv 5195  df-ov 5844  df-oprab 5845  df-mpo 5846  df-1st 6105  df-2nd 6106  df-1o 6380  df-2o 6381  df-map 6612  df-dju 6999  df-inl 7008  df-inr 7009  df-markov 7112
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator