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

Theorem subctctexmid 16913
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 4720 . . . . . . . 8 ω ∈ V
32rabex 4261 . . . . . . 7 {𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V
43a1i 9 . . . . . 6 (𝜑 → {𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V)
5 ssrab2 3327 . . . . . . 7 {𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω
6 f1oi 5659 . . . . . . . . 9 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–1-1-onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
7 f1ofo 5626 . . . . . . . . 9 (( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–1-1-onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} → ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
86, 7ax-mp 5 . . . . . . . 8 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
9 resiexg 5088 . . . . . . . . . 10 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V → ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) ∈ V)
103, 9ax-mp 5 . . . . . . . . 9 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) ∈ V
11 foeq1 5591 . . . . . . . . 9 (𝑓 = ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) → (𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1210, 11spcev 2914 . . . . . . . 8 (( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} → ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
138, 12ax-mp 5 . . . . . . 7 𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
145, 13pm3.2i 272 . . . . . 6 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
15 sseq1 3265 . . . . . . . 8 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑠 ⊆ ω ↔ {𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω))
16 foeq2 5592 . . . . . . . . 9 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1716exbidv 1874 . . . . . . . 8 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1815, 17anbi12d 473 . . . . . . 7 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → ((𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) ↔ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
1918spcegv 2907 . . . . . 6 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V → (({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) → ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
204, 14, 19mpisyl 1492 . . . . 5 (𝜑 → ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
21 foeq3 5593 . . . . . . . . . 10 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑓:𝑠onto𝑥𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
2221exbidv 1874 . . . . . . . . 9 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑓 𝑓:𝑠onto𝑥 ↔ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
2322anbi2d 464 . . . . . . . 8 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → ((𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) ↔ (𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
2423exbidv 1874 . . . . . . 7 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) ↔ ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
25 djueq1 7344 . . . . . . . . 9 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑥 ⊔ 1o) = ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
26 foeq3 5593 . . . . . . . . 9 ((𝑥 ⊔ 1o) = ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) → (𝑔:ω–onto→(𝑥 ⊔ 1o) ↔ 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
2725, 26syl 14 . . . . . . . 8 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑔:ω–onto→(𝑥 ⊔ 1o) ↔ 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
2827exbidv 1874 . . . . . . 7 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o) ↔ ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
2924, 28imbi12d 234 . . . . . 6 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → ((∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) → ∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o)) ↔ (∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) → ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))))
303, 29spcv 2913 . . . . 5 (∀𝑥(∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) → ∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o)) → (∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) → ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
311, 20, 30sylc 62 . . . 4 (𝜑 → ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
32 fveq1 5674 . . . . . . . . . . . 12 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (𝑛) = ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛))
3332eqeq1d 2243 . . . . . . . . . . 11 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → ((𝑛) = 1o ↔ ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3433rexbidv 2545 . . . . . . . . . 10 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (∃𝑛 ∈ ω (𝑛) = 1o ↔ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3534notbid 673 . . . . . . . . 9 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (¬ ∃𝑛 ∈ ω (𝑛) = 1o ↔ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3635notbid 673 . . . . . . . 8 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o ↔ ¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3736, 34imbi12d 234 . . . . . . 7 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → ((¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o) ↔ (¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o)))
38 subctctexmid.mk . . . . . . . . 9 (𝜑 → ω ∈ Markov)
39 ismkvnex 7459 . . . . . . . . . 10 (ω ∈ Markov → (ω ∈ Markov ↔ ∀ ∈ (2o𝑚 ω)(¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o)))
4038, 39syl 14 . . . . . . . . 9 (𝜑 → (ω ∈ Markov ↔ ∀ ∈ (2o𝑚 ω)(¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o)))
4138, 40mpbid 147 . . . . . . . 8 (𝜑 → ∀ ∈ (2o𝑚 ω)(¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o))
4241adantr 276 . . . . . . 7 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → ∀ ∈ (2o𝑚 ω)(¬ ¬ ∃𝑛 ∈ ω (𝑛) = 1o → ∃𝑛 ∈ ω (𝑛) = 1o))
43 1lt2o 6688 . . . . . . . . . . . 12 1o ∈ 2o
4443a1i 9 . . . . . . . . . . 11 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ (1st ‘(𝑔𝑛)) = ∅) → 1o ∈ 2o)
45 0lt2o 6687 . . . . . . . . . . . 12 ∅ ∈ 2o
4645a1i 9 . . . . . . . . . . 11 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ ¬ (1st ‘(𝑔𝑛)) = ∅) → ∅ ∈ 2o)
47 simplr 529 . . . . . . . . . . . . . . 15 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
48 fof 5595 . . . . . . . . . . . . . . 15 (𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) → 𝑔:ω⟶({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
4947, 48syl 14 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑔:ω⟶({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
50 simpr 110 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑛 ∈ ω)
5149, 50ffvelcdmd 5818 . . . . . . . . . . . . 13 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
52 eldju1st 7375 . . . . . . . . . . . . 13 ((𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) → ((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o))
5351, 52syl 14 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → ((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o))
54 1n0 6678 . . . . . . . . . . . . . . . 16 1o ≠ ∅
5554neii 2416 . . . . . . . . . . . . . . 15 ¬ 1o = ∅
56 eqeq1 2241 . . . . . . . . . . . . . . 15 ((1st ‘(𝑔𝑛)) = 1o → ((1st ‘(𝑔𝑛)) = ∅ ↔ 1o = ∅))
5755, 56mtbiri 682 . . . . . . . . . . . . . 14 ((1st ‘(𝑔𝑛)) = 1o → ¬ (1st ‘(𝑔𝑛)) = ∅)
5857orim2i 769 . . . . . . . . . . . . 13 (((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o) → ((1st ‘(𝑔𝑛)) = ∅ ∨ ¬ (1st ‘(𝑔𝑛)) = ∅))
59 df-dc 843 . . . . . . . . . . . . 13 (DECID (1st ‘(𝑔𝑛)) = ∅ ↔ ((1st ‘(𝑔𝑛)) = ∅ ∨ ¬ (1st ‘(𝑔𝑛)) = ∅))
6058, 59sylibr 134 . . . . . . . . . . . 12 (((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o) → DECID (1st ‘(𝑔𝑛)) = ∅)
6153, 60syl 14 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → DECID (1st ‘(𝑔𝑛)) = ∅)
6244, 46, 61ifcldadc 3656 . . . . . . . . . 10 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ∈ 2o)
6362fmpttd 5837 . . . . . . . . 9 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)):ω⟶2o)
64 2fveq3 5680 . . . . . . . . . . . . . 14 (𝑤 = 𝑛 → (1st ‘(𝑔𝑤)) = (1st ‘(𝑔𝑛)))
6564eqeq1d 2243 . . . . . . . . . . . . 13 (𝑤 = 𝑛 → ((1st ‘(𝑔𝑤)) = ∅ ↔ (1st ‘(𝑔𝑛)) = ∅))
6665ifbid 3648 . . . . . . . . . . . 12 (𝑤 = 𝑛 → if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
67 eqcom 2236 . . . . . . . . . . . 12 (𝑤 = 𝑛𝑛 = 𝑤)
68 eqcom 2236 . . . . . . . . . . . 12 (if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ↔ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
6966, 67, 683imtr3i 200 . . . . . . . . . . 11 (𝑛 = 𝑤 → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
7069cbvmptv 4211 . . . . . . . . . 10 (𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)) = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
7170feq1i 5506 . . . . . . . . 9 ((𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)):ω⟶2o ↔ (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
7263, 71sylib 122 . . . . . . . 8 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
73 2onn 6767 . . . . . . . . . 10 2o ∈ ω
7473elexi 2828 . . . . . . . . 9 2o ∈ V
7574, 2elmap 6924 . . . . . . . 8 ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) ∈ (2o𝑚 ω) ↔ (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
7672, 75sylibr 134 . . . . . . 7 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) ∈ (2o𝑚 ω))
7737, 42, 76rspcdva 2928 . . . . . 6 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
78 eqid 2234 . . . . . . . . . . . . 13 (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
7978, 66, 50, 62fvmptd3 5776 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
8079eqeq1d 2243 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o ↔ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o))
8151adantr 276 . . . . . . . . . . . . . . 15 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
82 simpr 110 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o)
8382eqcomd 2240 . . . . . . . . . . . . . . . 16 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → 1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
84 eqifdc 3663 . . . . . . . . . . . . . . . . . . 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 2234 . . . . . . . . . . . . . . . . . . 19 1o = 1o
87 orcom 736 . . . . . . . . . . . . . . . . . . . 20 ((((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ∨ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅)) ↔ ((¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅) ∨ ((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o)))
8855intnan 937 . . . . . . . . . . . . . . . . . . . . 21 ¬ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅)
89 biorf 752 . . . . . . . . . . . . . . . . . . . . 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 187 . . . . . . . . . . . . . . . . . . 19 ((((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ∨ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅)) ↔ ((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o))
9286, 91mpbiran2 950 . . . . . . . . . . . . . . . . . 18 ((((1st ‘(𝑔𝑛)) = ∅ ∧ 1o = 1o) ∨ (¬ (1st ‘(𝑔𝑛)) = ∅ ∧ 1o = ∅)) ↔ (1st ‘(𝑔𝑛)) = ∅)
9385, 92bitrdi 196 . . . . . . . . . . . . . . . . 17 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ↔ (1st ‘(𝑔𝑛)) = ∅))
9493adantr 276 . . . . . . . . . . . . . . . 16 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ↔ (1st ‘(𝑔𝑛)) = ∅))
9583, 94mpbid 147 . . . . . . . . . . . . . . 15 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (1st ‘(𝑔𝑛)) = ∅)
96 eldju2ndl 7376 . . . . . . . . . . . . . . 15 (((𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) ∧ (1st ‘(𝑔𝑛)) = ∅) → (2nd ‘(𝑔𝑛)) ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
9781, 95, 96syl2anc 411 . . . . . . . . . . . . . 14 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (2nd ‘(𝑔𝑛)) ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
98 biidd 172 . . . . . . . . . . . . . . 15 (𝑧 = (2nd ‘(𝑔𝑛)) → (𝑦 = {∅} ↔ 𝑦 = {∅}))
9998elrab 2976 . . . . . . . . . . . . . 14 ((2nd ‘(𝑔𝑛)) ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ ((2nd ‘(𝑔𝑛)) ∈ ω ∧ 𝑦 = {∅}))
10097, 99sylib 122 . . . . . . . . . . . . 13 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → ((2nd ‘(𝑔𝑛)) ∈ ω ∧ 𝑦 = {∅}))
101100simprd 114 . . . . . . . . . . . 12 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → 𝑦 = {∅})
102101ex 115 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o𝑦 = {∅}))
10380, 102sylbid 150 . . . . . . . . . 10 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o𝑦 = {∅}))
104103rexlimdva 2662 . . . . . . . . 9 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o𝑦 = {∅}))
105 simplr 529 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
106 biidd 172 . . . . . . . . . . . . . 14 (𝑧 = ∅ → (𝑦 = {∅} ↔ 𝑦 = {∅}))
107 peano1 4721 . . . . . . . . . . . . . . 15 ∅ ∈ ω
108107a1i 9 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∅ ∈ ω)
109 simpr 110 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → 𝑦 = {∅})
110106, 108, 109elrabd 2978 . . . . . . . . . . . . 13 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∅ ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
111 djulcl 7355 . . . . . . . . . . . . 13 (∅ ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (inl‘∅) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
112110, 111syl 14 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → (inl‘∅) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
113 foelrn 5931 . . . . . . . . . . . 12 ((𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) ∧ (inl‘∅) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → ∃𝑛 ∈ ω (inl‘∅) = (𝑔𝑛))
114105, 112, 113syl2anc 411 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∃𝑛 ∈ ω (inl‘∅) = (𝑔𝑛))
11579adantlr 477 . . . . . . . . . . . . . 14 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) ∧ 𝑛 ∈ ω) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
116 fveq2 5675 . . . . . . . . . . . . . . . 16 ((inl‘∅) = (𝑔𝑛) → (1st ‘(inl‘∅)) = (1st ‘(𝑔𝑛)))
117 1stinl 7378 . . . . . . . . . . . . . . . . 17 (∅ ∈ ω → (1st ‘(inl‘∅)) = ∅)
118107, 117ax-mp 5 . . . . . . . . . . . . . . . 16 (1st ‘(inl‘∅)) = ∅
119116, 118eqtr3di 2282 . . . . . . . . . . . . . . 15 ((inl‘∅) = (𝑔𝑛) → (1st ‘(𝑔𝑛)) = ∅)
120119iftrued 3633 . . . . . . . . . . . . . 14 ((inl‘∅) = (𝑔𝑛) → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o)
121115, 120sylan9eq 2287 . . . . . . . . . . . . 13 (((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) ∧ 𝑛 ∈ ω) ∧ (inl‘∅) = (𝑔𝑛)) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o)
122121ex 115 . . . . . . . . . . . 12 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) ∧ 𝑛 ∈ ω) → ((inl‘∅) = (𝑔𝑛) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
123122reximdva 2646 . . . . . . . . . . 11 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → (∃𝑛 ∈ ω (inl‘∅) = (𝑔𝑛) → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
124114, 123mpd 13 . . . . . . . . . 10 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o)
125124ex 115 . . . . . . . . 9 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑦 = {∅} → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
126104, 125impbid 129 . . . . . . . 8 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o𝑦 = {∅}))
127126notbid 673 . . . . . . 7 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o ↔ ¬ 𝑦 = {∅}))
128127notbid 673 . . . . . 6 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o ↔ ¬ ¬ 𝑦 = {∅}))
12977, 128, 1263imtr3d 202 . . . . 5 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ¬ 𝑦 = {∅} → 𝑦 = {∅}))
130 df-stab 839 . . . . 5 (STAB 𝑦 = {∅} ↔ (¬ ¬ 𝑦 = {∅} → 𝑦 = {∅}))
131129, 130sylibr 134 . . . 4 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → STAB 𝑦 = {∅})
13231, 131exlimddv 1950 . . 3 (𝜑STAB 𝑦 = {∅})
133132adantr 276 . 2 ((𝜑𝑦 ⊆ {∅}) → STAB 𝑦 = {∅})
134133exmid1stab 4326 1 (𝜑EXMID)
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  wb 105  wo 716  STAB wstab 838  DECID wdc 842  wal 1396   = wceq 1398  wex 1541  wcel 2205  wral 2522  wrex 2523  {crab 2526  Vcvv 2815  wss 3214  c0 3512  ifcif 3624  {csn 3694  cmpt 4176  EXMIDwem 4312   I cid 4414  ωcom 4717  cres 4756  wf 5353  ontowfo 5355  1-1-ontowf1o 5356  cfv 5357  (class class class)co 6058  1st c1st 6345  2nd c2nd 6346  1oc1o 6653  2oc2o 6654  𝑚 cmap 6895  cdju 7341  inlcinl 7349  Markovcmarkov 7455
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2207  ax-14 2208  ax-ext 2216  ax-sep 4233  ax-nul 4241  ax-pow 4292  ax-pr 4327  ax-un 4559  ax-setind 4664  ax-iinf 4715
This theorem depends on definitions:  df-bi 117  df-stab 839  df-dc 843  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ne 2415  df-ral 2527  df-rex 2528  df-rab 2531  df-v 2817  df-sbc 3046  df-csb 3142  df-dif 3216  df-un 3218  df-in 3220  df-ss 3227  df-nul 3513  df-if 3625  df-pw 3676  df-sn 3700  df-pr 3701  df-op 3703  df-uni 3920  df-int 3955  df-br 4115  df-opab 4177  df-mpt 4178  df-tr 4214  df-exmid 4313  df-id 4419  df-iord 4492  df-on 4494  df-suc 4497  df-iom 4718  df-xp 4760  df-rel 4761  df-cnv 4762  df-co 4763  df-dm 4764  df-rn 4765  df-res 4766  df-ima 4767  df-iota 5317  df-fun 5359  df-fn 5360  df-f 5361  df-f1 5362  df-fo 5363  df-f1o 5364  df-fv 5365  df-ov 6061  df-oprab 6062  df-mpo 6063  df-1st 6347  df-2nd 6348  df-1o 6660  df-2o 6661  df-map 6897  df-dju 7342  df-inl 7351  df-inr 7352  df-markov 7456
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator