Metamath Proof Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >  fin1a2lem6 Structured version   Visualization version   GIF version

Theorem fin1a2lem6 9419
 Description: Lemma for fin1a2 9429. Establish that ω can be broken into two equipollent pieces. (Contributed by Stefan O'Rear, 7-Nov-2014.)
Hypotheses
Ref Expression
fin1a2lem.b 𝐸 = (𝑥 ∈ ω ↦ (2𝑜 ·𝑜 𝑥))
fin1a2lem.aa 𝑆 = (𝑥 ∈ On ↦ suc 𝑥)
Assertion
Ref Expression
fin1a2lem6 (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(ω ∖ ran 𝐸)

Proof of Theorem fin1a2lem6
Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fin1a2lem.aa . . . 4 𝑆 = (𝑥 ∈ On ↦ suc 𝑥)
21fin1a2lem2 9415 . . 3 𝑆:On–1-1→On
3 fin1a2lem.b . . . . 5 𝐸 = (𝑥 ∈ ω ↦ (2𝑜 ·𝑜 𝑥))
43fin1a2lem4 9417 . . . 4 𝐸:ω–1-1→ω
5 f1f 6262 . . . 4 (𝐸:ω–1-1→ω → 𝐸:ω⟶ω)
6 frn 6214 . . . . 5 (𝐸:ω⟶ω → ran 𝐸 ⊆ ω)
7 omsson 7234 . . . . 5 ω ⊆ On
86, 7syl6ss 3756 . . . 4 (𝐸:ω⟶ω → ran 𝐸 ⊆ On)
94, 5, 8mp2b 10 . . 3 ran 𝐸 ⊆ On
10 f1ores 6312 . . 3 ((𝑆:On–1-1→On ∧ ran 𝐸 ⊆ On) → (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(𝑆 “ ran 𝐸))
112, 9, 10mp2an 710 . 2 (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(𝑆 “ ran 𝐸)
129sseli 3740 . . . . . . . . 9 (𝑏 ∈ ran 𝐸𝑏 ∈ On)
131fin1a2lem1 9414 . . . . . . . . 9 (𝑏 ∈ On → (𝑆𝑏) = suc 𝑏)
1412, 13syl 17 . . . . . . . 8 (𝑏 ∈ ran 𝐸 → (𝑆𝑏) = suc 𝑏)
1514eqeq1d 2762 . . . . . . 7 (𝑏 ∈ ran 𝐸 → ((𝑆𝑏) = 𝑎 ↔ suc 𝑏 = 𝑎))
1615rexbiia 3178 . . . . . 6 (∃𝑏 ∈ ran 𝐸(𝑆𝑏) = 𝑎 ↔ ∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎)
174, 5, 6mp2b 10 . . . . . . . . . . . 12 ran 𝐸 ⊆ ω
1817sseli 3740 . . . . . . . . . . 11 (𝑏 ∈ ran 𝐸𝑏 ∈ ω)
19 peano2 7251 . . . . . . . . . . 11 (𝑏 ∈ ω → suc 𝑏 ∈ ω)
2018, 19syl 17 . . . . . . . . . 10 (𝑏 ∈ ran 𝐸 → suc 𝑏 ∈ ω)
213fin1a2lem5 9418 . . . . . . . . . . . 12 (𝑏 ∈ ω → (𝑏 ∈ ran 𝐸 ↔ ¬ suc 𝑏 ∈ ran 𝐸))
2221biimpd 219 . . . . . . . . . . 11 (𝑏 ∈ ω → (𝑏 ∈ ran 𝐸 → ¬ suc 𝑏 ∈ ran 𝐸))
2318, 22mpcom 38 . . . . . . . . . 10 (𝑏 ∈ ran 𝐸 → ¬ suc 𝑏 ∈ ran 𝐸)
2420, 23jca 555 . . . . . . . . 9 (𝑏 ∈ ran 𝐸 → (suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸))
25 eleq1 2827 . . . . . . . . . 10 (suc 𝑏 = 𝑎 → (suc 𝑏 ∈ ω ↔ 𝑎 ∈ ω))
26 eleq1 2827 . . . . . . . . . . 11 (suc 𝑏 = 𝑎 → (suc 𝑏 ∈ ran 𝐸𝑎 ∈ ran 𝐸))
2726notbid 307 . . . . . . . . . 10 (suc 𝑏 = 𝑎 → (¬ suc 𝑏 ∈ ran 𝐸 ↔ ¬ 𝑎 ∈ ran 𝐸))
2825, 27anbi12d 749 . . . . . . . . 9 (suc 𝑏 = 𝑎 → ((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ↔ (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸)))
2924, 28syl5ibcom 235 . . . . . . . 8 (𝑏 ∈ ran 𝐸 → (suc 𝑏 = 𝑎 → (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸)))
3029rexlimiv 3165 . . . . . . 7 (∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎 → (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸))
31 peano1 7250 . . . . . . . . . . . . . 14 ∅ ∈ ω
323fin1a2lem3 9416 . . . . . . . . . . . . . 14 (∅ ∈ ω → (𝐸‘∅) = (2𝑜 ·𝑜 ∅))
3331, 32ax-mp 5 . . . . . . . . . . . . 13 (𝐸‘∅) = (2𝑜 ·𝑜 ∅)
34 om0x 7768 . . . . . . . . . . . . 13 (2𝑜 ·𝑜 ∅) = ∅
3533, 34eqtri 2782 . . . . . . . . . . . 12 (𝐸‘∅) = ∅
36 f1fun 6264 . . . . . . . . . . . . . 14 (𝐸:ω–1-1→ω → Fun 𝐸)
374, 36ax-mp 5 . . . . . . . . . . . . 13 Fun 𝐸
38 f1dm 6266 . . . . . . . . . . . . . . 15 (𝐸:ω–1-1→ω → dom 𝐸 = ω)
394, 38ax-mp 5 . . . . . . . . . . . . . 14 dom 𝐸 = ω
4031, 39eleqtrri 2838 . . . . . . . . . . . . 13 ∅ ∈ dom 𝐸
41 fvelrn 6515 . . . . . . . . . . . . 13 ((Fun 𝐸 ∧ ∅ ∈ dom 𝐸) → (𝐸‘∅) ∈ ran 𝐸)
4237, 40, 41mp2an 710 . . . . . . . . . . . 12 (𝐸‘∅) ∈ ran 𝐸
4335, 42eqeltrri 2836 . . . . . . . . . . 11 ∅ ∈ ran 𝐸
44 eleq1 2827 . . . . . . . . . . 11 (𝑎 = ∅ → (𝑎 ∈ ran 𝐸 ↔ ∅ ∈ ran 𝐸))
4543, 44mpbiri 248 . . . . . . . . . 10 (𝑎 = ∅ → 𝑎 ∈ ran 𝐸)
4645necon3bi 2958 . . . . . . . . 9 𝑎 ∈ ran 𝐸𝑎 ≠ ∅)
47 nnsuc 7247 . . . . . . . . 9 ((𝑎 ∈ ω ∧ 𝑎 ≠ ∅) → ∃𝑏 ∈ ω 𝑎 = suc 𝑏)
4846, 47sylan2 492 . . . . . . . 8 ((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) → ∃𝑏 ∈ ω 𝑎 = suc 𝑏)
49 eleq1 2827 . . . . . . . . . . . . . . . 16 (𝑎 = suc 𝑏 → (𝑎 ∈ ω ↔ suc 𝑏 ∈ ω))
50 eleq1 2827 . . . . . . . . . . . . . . . . 17 (𝑎 = suc 𝑏 → (𝑎 ∈ ran 𝐸 ↔ suc 𝑏 ∈ ran 𝐸))
5150notbid 307 . . . . . . . . . . . . . . . 16 (𝑎 = suc 𝑏 → (¬ 𝑎 ∈ ran 𝐸 ↔ ¬ suc 𝑏 ∈ ran 𝐸))
5249, 51anbi12d 749 . . . . . . . . . . . . . . 15 (𝑎 = suc 𝑏 → ((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ↔ (suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸)))
5352anbi1d 743 . . . . . . . . . . . . . 14 (𝑎 = suc 𝑏 → (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) ↔ ((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ∧ 𝑏 ∈ ω)))
54 simplr 809 . . . . . . . . . . . . . . 15 (((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → ¬ suc 𝑏 ∈ ran 𝐸)
5521adantl 473 . . . . . . . . . . . . . . 15 (((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → (𝑏 ∈ ran 𝐸 ↔ ¬ suc 𝑏 ∈ ran 𝐸))
5654, 55mpbird 247 . . . . . . . . . . . . . 14 (((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → 𝑏 ∈ ran 𝐸)
5753, 56syl6bi 243 . . . . . . . . . . . . 13 (𝑎 = suc 𝑏 → (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → 𝑏 ∈ ran 𝐸))
5857com12 32 . . . . . . . . . . . 12 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → (𝑎 = suc 𝑏𝑏 ∈ ran 𝐸))
5958impr 650 . . . . . . . . . . 11 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ (𝑏 ∈ ω ∧ 𝑎 = suc 𝑏)) → 𝑏 ∈ ran 𝐸)
60 simprr 813 . . . . . . . . . . . 12 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ (𝑏 ∈ ω ∧ 𝑎 = suc 𝑏)) → 𝑎 = suc 𝑏)
6160eqcomd 2766 . . . . . . . . . . 11 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ (𝑏 ∈ ω ∧ 𝑎 = suc 𝑏)) → suc 𝑏 = 𝑎)
6259, 61jca 555 . . . . . . . . . 10 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ (𝑏 ∈ ω ∧ 𝑎 = suc 𝑏)) → (𝑏 ∈ ran 𝐸 ∧ suc 𝑏 = 𝑎))
6362ex 449 . . . . . . . . 9 ((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) → ((𝑏 ∈ ω ∧ 𝑎 = suc 𝑏) → (𝑏 ∈ ran 𝐸 ∧ suc 𝑏 = 𝑎)))
6463reximdv2 3152 . . . . . . . 8 ((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) → (∃𝑏 ∈ ω 𝑎 = suc 𝑏 → ∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎))
6548, 64mpd 15 . . . . . . 7 ((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) → ∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎)
6630, 65impbii 199 . . . . . 6 (∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎 ↔ (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸))
6716, 66bitri 264 . . . . 5 (∃𝑏 ∈ ran 𝐸(𝑆𝑏) = 𝑎 ↔ (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸))
68 f1fn 6263 . . . . . . 7 (𝑆:On–1-1→On → 𝑆 Fn On)
692, 68ax-mp 5 . . . . . 6 𝑆 Fn On
70 fvelimab 6415 . . . . . 6 ((𝑆 Fn On ∧ ran 𝐸 ⊆ On) → (𝑎 ∈ (𝑆 “ ran 𝐸) ↔ ∃𝑏 ∈ ran 𝐸(𝑆𝑏) = 𝑎))
7169, 9, 70mp2an 710 . . . . 5 (𝑎 ∈ (𝑆 “ ran 𝐸) ↔ ∃𝑏 ∈ ran 𝐸(𝑆𝑏) = 𝑎)
72 eldif 3725 . . . . 5 (𝑎 ∈ (ω ∖ ran 𝐸) ↔ (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸))
7367, 71, 723bitr4i 292 . . . 4 (𝑎 ∈ (𝑆 “ ran 𝐸) ↔ 𝑎 ∈ (ω ∖ ran 𝐸))
7473eqriv 2757 . . 3 (𝑆 “ ran 𝐸) = (ω ∖ ran 𝐸)
75 f1oeq3 6290 . . 3 ((𝑆 “ ran 𝐸) = (ω ∖ ran 𝐸) → ((𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(𝑆 “ ran 𝐸) ↔ (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(ω ∖ ran 𝐸)))
7674, 75ax-mp 5 . 2 ((𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(𝑆 “ ran 𝐸) ↔ (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(ω ∖ ran 𝐸))
7711, 76mpbi 220 1 (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(ω ∖ ran 𝐸)
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   ↔ wb 196   ∧ wa 383   = wceq 1632   ∈ wcel 2139   ≠ wne 2932  ∃wrex 3051   ∖ cdif 3712   ⊆ wss 3715  ∅c0 4058   ↦ cmpt 4881  dom cdm 5266  ran crn 5267   ↾ cres 5268   “ cima 5269  Oncon0 5884  suc csuc 5886  Fun wfun 6043   Fn wfn 6044  ⟶wf 6045  –1-1→wf1 6046  –1-1-onto→wf1o 6048  ‘cfv 6049  (class class class)co 6813  ωcom 7230  2𝑜c2o 7723   ·𝑜 comu 7727 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-rep 4923  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7114 This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-ral 3055  df-rex 3056  df-reu 3057  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-iun 4674  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-ov 6816  df-oprab 6817  df-mpt2 6818  df-om 7231  df-1st 7333  df-2nd 7334  df-wrecs 7576  df-recs 7637  df-rdg 7675  df-1o 7729  df-2o 7730  df-oadd 7733  df-omul 7734 This theorem is referenced by:  fin1a2lem7  9420
 Copyright terms: Public domain W3C validator