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

Theorem subctctexmid 16761
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 4714 . . . . . . . 8 ω ∈ V
32rabex 4255 . . . . . . 7 {𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V
43a1i 9 . . . . . 6 (𝜑 → {𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V)
5 ssrab2 3322 . . . . . . 7 {𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω
6 f1oi 5653 . . . . . . . . 9 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–1-1-onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
7 f1ofo 5620 . . . . . . . . 9 (( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–1-1-onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} → ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
86, 7ax-mp 5 . . . . . . . 8 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
9 resiexg 5082 . . . . . . . . . 10 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V → ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) ∈ V)
103, 9ax-mp 5 . . . . . . . . 9 ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) ∈ V
11 foeq1 5585 . . . . . . . . 9 (𝑓 = ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}) → (𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ ( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1210, 11spcev 2911 . . . . . . . 8 (( I ↾ {𝑧 ∈ ω ∣ 𝑦 = {∅}}):{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} → ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
138, 12ax-mp 5 . . . . . . 7 𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}
145, 13pm3.2i 272 . . . . . 6 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})
15 sseq1 3260 . . . . . . . 8 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑠 ⊆ ω ↔ {𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω))
16 foeq2 5586 . . . . . . . . 9 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1716exbidv 1874 . . . . . . . 8 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}} ↔ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
1815, 17anbi12d 473 . . . . . . 7 (𝑠 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → ((𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) ↔ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
1918spcegv 2904 . . . . . 6 ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ∈ V → (({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊆ ω ∧ ∃𝑓 𝑓:{𝑧 ∈ ω ∣ 𝑦 = {∅}}–onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) → ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
204, 14, 19mpisyl 1492 . . . . 5 (𝜑 → ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
21 foeq3 5587 . . . . . . . . . 10 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑓:𝑠onto𝑥𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
2221exbidv 1874 . . . . . . . . 9 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑓 𝑓:𝑠onto𝑥 ↔ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}))
2322anbi2d 464 . . . . . . . 8 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → ((𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) ↔ (𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
2423exbidv 1874 . . . . . . 7 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) ↔ ∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}})))
25 djueq1 7330 . . . . . . . . 9 (𝑥 = {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (𝑥 ⊔ 1o) = ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
26 foeq3 5587 . . . . . . . . 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 2910 . . . . 5 (∀𝑥(∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto𝑥) → ∃𝑔 𝑔:ω–onto→(𝑥 ⊔ 1o)) → (∃𝑠(𝑠 ⊆ ω ∧ ∃𝑓 𝑓:𝑠onto→{𝑧 ∈ ω ∣ 𝑦 = {∅}}) → ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)))
311, 20, 30sylc 62 . . . 4 (𝜑 → ∃𝑔 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
32 fveq1 5668 . . . . . . . . . . . 12 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → (𝑛) = ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛))
3332eqeq1d 2241 . . . . . . . . . . 11 ( = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) → ((𝑛) = 1o ↔ ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
3433rexbidv 2543 . . . . . . . . . 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 7445 . . . . . . . . . 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 6674 . . . . . . . . . . . 12 1o ∈ 2o
4443a1i 9 . . . . . . . . . . 11 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ (1st ‘(𝑔𝑛)) = ∅) → 1o ∈ 2o)
45 0lt2o 6673 . . . . . . . . . . . 12 ∅ ∈ 2o
4645a1i 9 . . . . . . . . . . 11 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ ¬ (1st ‘(𝑔𝑛)) = ∅) → ∅ ∈ 2o)
47 simplr 529 . . . . . . . . . . . . . . 15 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
48 fof 5589 . . . . . . . . . . . . . . 15 (𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) → 𝑔:ω⟶({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
4947, 48syl 14 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑔:ω⟶({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
50 simpr 110 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → 𝑛 ∈ ω)
5149, 50ffvelcdmd 5812 . . . . . . . . . . . . 13 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → (𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
52 eldju1st 7361 . . . . . . . . . . . . 13 ((𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) → ((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o))
5351, 52syl 14 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → ((1st ‘(𝑔𝑛)) = ∅ ∨ (1st ‘(𝑔𝑛)) = 1o))
54 1n0 6664 . . . . . . . . . . . . . . . 16 1o ≠ ∅
5554neii 2414 . . . . . . . . . . . . . . 15 ¬ 1o = ∅
56 eqeq1 2239 . . . . . . . . . . . . . . 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 3651 . . . . . . . . . 10 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) ∈ 2o)
6362fmpttd 5831 . . . . . . . . 9 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)):ω⟶2o)
64 2fveq3 5674 . . . . . . . . . . . . . 14 (𝑤 = 𝑛 → (1st ‘(𝑔𝑤)) = (1st ‘(𝑔𝑛)))
6564eqeq1d 2241 . . . . . . . . . . . . 13 (𝑤 = 𝑛 → ((1st ‘(𝑔𝑤)) = ∅ ↔ (1st ‘(𝑔𝑛)) = ∅))
6665ifbid 3643 . . . . . . . . . . . 12 (𝑤 = 𝑛 → if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
67 eqcom 2234 . . . . . . . . . . . 12 (𝑤 = 𝑛𝑛 = 𝑤)
68 eqcom 2234 . . . . . . . . . . . 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 4205 . . . . . . . . . 10 (𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)) = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
7170feq1i 5500 . . . . . . . . 9 ((𝑛 ∈ ω ↦ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅)):ω⟶2o ↔ (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
7263, 71sylib 122 . . . . . . . 8 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
73 2onn 6753 . . . . . . . . . 10 2o ∈ ω
7473elexi 2825 . . . . . . . . 9 2o ∈ V
7574, 2elmap 6910 . . . . . . . 8 ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) ∈ (2o𝑚 ω) ↔ (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)):ω⟶2o)
7672, 75sylibr 134 . . . . . . 7 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) ∈ (2o𝑚 ω))
7737, 42, 76rspcdva 2925 . . . . . 6 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (¬ ¬ ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o → ∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
78 eqid 2232 . . . . . . . . . . . . 13 (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅)) = (𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))
7978, 66, 50, 62fvmptd3 5770 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
8079eqeq1d 2241 . . . . . . . . . . 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 2238 . . . . . . . . . . . . . . . 16 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → 1o = if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅))
84 eqifdc 3658 . . . . . . . . . . . . . . . . . . 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 2232 . . . . . . . . . . . . . . . . . . 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 7362 . . . . . . . . . . . . . . 15 (((𝑔𝑛) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o) ∧ (1st ‘(𝑔𝑛)) = ∅) → (2nd ‘(𝑔𝑛)) ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
9781, 95, 96syl2anc 411 . . . . . . . . . . . . . 14 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑛 ∈ ω) ∧ if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o) → (2nd ‘(𝑔𝑛)) ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
98 biidd 172 . . . . . . . . . . . . . . 15 (𝑧 = (2nd ‘(𝑔𝑛)) → (𝑦 = {∅} ↔ 𝑦 = {∅}))
9998elrab 2972 . . . . . . . . . . . . . 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 2660 . . . . . . . . 9 ((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) → (∃𝑛 ∈ ω ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o𝑦 = {∅}))
105 simplr 529 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → 𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
106 biidd 172 . . . . . . . . . . . . . 14 (𝑧 = ∅ → (𝑦 = {∅} ↔ 𝑦 = {∅}))
107 peano1 4715 . . . . . . . . . . . . . . 15 ∅ ∈ ω
108107a1i 9 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∅ ∈ ω)
109 simpr 110 . . . . . . . . . . . . . 14 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → 𝑦 = {∅})
110106, 108, 109elrabd 2974 . . . . . . . . . . . . 13 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → ∅ ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}})
111 djulcl 7341 . . . . . . . . . . . . 13 (∅ ∈ {𝑧 ∈ ω ∣ 𝑦 = {∅}} → (inl‘∅) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
112110, 111syl 14 . . . . . . . . . . . 12 (((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) → (inl‘∅) ∈ ({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o))
113 foelrn 5924 . . . . . . . . . . . 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 5669 . . . . . . . . . . . . . . . 16 ((inl‘∅) = (𝑔𝑛) → (1st ‘(inl‘∅)) = (1st ‘(𝑔𝑛)))
117 1stinl 7364 . . . . . . . . . . . . . . . . 17 (∅ ∈ ω → (1st ‘(inl‘∅)) = ∅)
118107, 117ax-mp 5 . . . . . . . . . . . . . . . 16 (1st ‘(inl‘∅)) = ∅
119116, 118eqtr3di 2280 . . . . . . . . . . . . . . 15 ((inl‘∅) = (𝑔𝑛) → (1st ‘(𝑔𝑛)) = ∅)
120119iftrued 3628 . . . . . . . . . . . . . 14 ((inl‘∅) = (𝑔𝑛) → if((1st ‘(𝑔𝑛)) = ∅, 1o, ∅) = 1o)
121115, 120sylan9eq 2285 . . . . . . . . . . . . 13 (((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) ∧ 𝑛 ∈ ω) ∧ (inl‘∅) = (𝑔𝑛)) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o)
122121ex 115 . . . . . . . . . . . 12 ((((𝜑𝑔:ω–onto→({𝑧 ∈ ω ∣ 𝑦 = {∅}} ⊔ 1o)) ∧ 𝑦 = {∅}) ∧ 𝑛 ∈ ω) → ((inl‘∅) = (𝑔𝑛) → ((𝑤 ∈ ω ↦ if((1st ‘(𝑔𝑤)) = ∅, 1o, ∅))‘𝑛) = 1o))
123122reximdva 2644 . . . . . . . . . . 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 1948 . . 3 (𝜑STAB 𝑦 = {∅})
133132adantr 276 . 2 ((𝜑𝑦 ⊆ {∅}) → STAB 𝑦 = {∅})
134133exmid1stab 4320 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 2203  wral 2520  wrex 2521  {crab 2524  Vcvv 2812  wss 3210  c0 3507  ifcif 3619  {csn 3688  cmpt 4170  EXMIDwem 4306   I cid 4408  ωcom 4711  cres 4750  wf 5347  ontowfo 5349  1-1-ontowf1o 5350  cfv 5351  (class class class)co 6049  1st c1st 6331  2nd c2nd 6332  1oc1o 6639  2oc2o 6640  𝑚 cmap 6881  cdju 7327  inlcinl 7335  Markovcmarkov 7441
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 2205  ax-14 2206  ax-ext 2214  ax-sep 4227  ax-nul 4235  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-iinf 4709
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 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-ral 2525  df-rex 2526  df-rab 2529  df-v 2814  df-sbc 3042  df-csb 3138  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-if 3620  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-int 3949  df-br 4109  df-opab 4171  df-mpt 4172  df-tr 4208  df-exmid 4307  df-id 4413  df-iord 4486  df-on 4488  df-suc 4491  df-iom 4712  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-ov 6052  df-oprab 6053  df-mpo 6054  df-1st 6333  df-2nd 6334  df-1o 6646  df-2o 6647  df-map 6883  df-dju 7328  df-inl 7337  df-inr 7338  df-markov 7442
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator