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

Theorem fin1a2lem6 9513
Description: Lemma for fin1a2 9523. 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 9509 . . 3 𝑆:On–1-1→On
3 fin1a2lem.b . . . . 5 𝐸 = (𝑥 ∈ ω ↦ (2𝑜 ·𝑜 𝑥))
43fin1a2lem4 9511 . . . 4 𝐸:ω–1-1→ω
5 f1f 6314 . . . 4 (𝐸:ω–1-1→ω → 𝐸:ω⟶ω)
6 frn 6260 . . . . 5 (𝐸:ω⟶ω → ran 𝐸 ⊆ ω)
7 omsson 7301 . . . . 5 ω ⊆ On
86, 7syl6ss 3808 . . . 4 (𝐸:ω⟶ω → ran 𝐸 ⊆ On)
94, 5, 8mp2b 10 . . 3 ran 𝐸 ⊆ On
10 f1ores 6368 . . 3 ((𝑆:On–1-1→On ∧ ran 𝐸 ⊆ On) → (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(𝑆 “ ran 𝐸))
112, 9, 10mp2an 684 . 2 (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(𝑆 “ ran 𝐸)
129sseli 3792 . . . . . . . . 9 (𝑏 ∈ ran 𝐸𝑏 ∈ On)
131fin1a2lem1 9508 . . . . . . . . 9 (𝑏 ∈ On → (𝑆𝑏) = suc 𝑏)
1412, 13syl 17 . . . . . . . 8 (𝑏 ∈ ran 𝐸 → (𝑆𝑏) = suc 𝑏)
1514eqeq1d 2799 . . . . . . 7 (𝑏 ∈ ran 𝐸 → ((𝑆𝑏) = 𝑎 ↔ suc 𝑏 = 𝑎))
1615rexbiia 3219 . . . . . 6 (∃𝑏 ∈ ran 𝐸(𝑆𝑏) = 𝑎 ↔ ∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎)
174, 5, 6mp2b 10 . . . . . . . . . . . 12 ran 𝐸 ⊆ ω
1817sseli 3792 . . . . . . . . . . 11 (𝑏 ∈ ran 𝐸𝑏 ∈ ω)
19 peano2 7318 . . . . . . . . . . 11 (𝑏 ∈ ω → suc 𝑏 ∈ ω)
2018, 19syl 17 . . . . . . . . . 10 (𝑏 ∈ ran 𝐸 → suc 𝑏 ∈ ω)
213fin1a2lem5 9512 . . . . . . . . . . . 12 (𝑏 ∈ ω → (𝑏 ∈ ran 𝐸 ↔ ¬ suc 𝑏 ∈ ran 𝐸))
2221biimpd 221 . . . . . . . . . . 11 (𝑏 ∈ ω → (𝑏 ∈ ran 𝐸 → ¬ suc 𝑏 ∈ ran 𝐸))
2318, 22mpcom 38 . . . . . . . . . 10 (𝑏 ∈ ran 𝐸 → ¬ suc 𝑏 ∈ ran 𝐸)
2420, 23jca 508 . . . . . . . . 9 (𝑏 ∈ ran 𝐸 → (suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸))
25 eleq1 2864 . . . . . . . . . 10 (suc 𝑏 = 𝑎 → (suc 𝑏 ∈ ω ↔ 𝑎 ∈ ω))
26 eleq1 2864 . . . . . . . . . . 11 (suc 𝑏 = 𝑎 → (suc 𝑏 ∈ ran 𝐸𝑎 ∈ ran 𝐸))
2726notbid 310 . . . . . . . . . 10 (suc 𝑏 = 𝑎 → (¬ suc 𝑏 ∈ ran 𝐸 ↔ ¬ 𝑎 ∈ ran 𝐸))
2825, 27anbi12d 625 . . . . . . . . 9 (suc 𝑏 = 𝑎 → ((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ↔ (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸)))
2924, 28syl5ibcom 237 . . . . . . . 8 (𝑏 ∈ ran 𝐸 → (suc 𝑏 = 𝑎 → (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸)))
3029rexlimiv 3206 . . . . . . 7 (∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎 → (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸))
31 peano1 7317 . . . . . . . . . . . . . 14 ∅ ∈ ω
323fin1a2lem3 9510 . . . . . . . . . . . . . 14 (∅ ∈ ω → (𝐸‘∅) = (2𝑜 ·𝑜 ∅))
3331, 32ax-mp 5 . . . . . . . . . . . . 13 (𝐸‘∅) = (2𝑜 ·𝑜 ∅)
34 2on 7806 . . . . . . . . . . . . . 14 2𝑜 ∈ On
35 om0 7835 . . . . . . . . . . . . . 14 (2𝑜 ∈ On → (2𝑜 ·𝑜 ∅) = ∅)
3634, 35ax-mp 5 . . . . . . . . . . . . 13 (2𝑜 ·𝑜 ∅) = ∅
3733, 36eqtri 2819 . . . . . . . . . . . 12 (𝐸‘∅) = ∅
38 f1fun 6316 . . . . . . . . . . . . . 14 (𝐸:ω–1-1→ω → Fun 𝐸)
394, 38ax-mp 5 . . . . . . . . . . . . 13 Fun 𝐸
40 f1dm 6318 . . . . . . . . . . . . . . 15 (𝐸:ω–1-1→ω → dom 𝐸 = ω)
414, 40ax-mp 5 . . . . . . . . . . . . . 14 dom 𝐸 = ω
4231, 41eleqtrri 2875 . . . . . . . . . . . . 13 ∅ ∈ dom 𝐸
43 fvelrn 6576 . . . . . . . . . . . . 13 ((Fun 𝐸 ∧ ∅ ∈ dom 𝐸) → (𝐸‘∅) ∈ ran 𝐸)
4439, 42, 43mp2an 684 . . . . . . . . . . . 12 (𝐸‘∅) ∈ ran 𝐸
4537, 44eqeltrri 2873 . . . . . . . . . . 11 ∅ ∈ ran 𝐸
46 eleq1 2864 . . . . . . . . . . 11 (𝑎 = ∅ → (𝑎 ∈ ran 𝐸 ↔ ∅ ∈ ran 𝐸))
4745, 46mpbiri 250 . . . . . . . . . 10 (𝑎 = ∅ → 𝑎 ∈ ran 𝐸)
4847necon3bi 2995 . . . . . . . . 9 𝑎 ∈ ran 𝐸𝑎 ≠ ∅)
49 nnsuc 7314 . . . . . . . . 9 ((𝑎 ∈ ω ∧ 𝑎 ≠ ∅) → ∃𝑏 ∈ ω 𝑎 = suc 𝑏)
5048, 49sylan2 587 . . . . . . . 8 ((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) → ∃𝑏 ∈ ω 𝑎 = suc 𝑏)
51 eleq1 2864 . . . . . . . . . . . . 13 (𝑎 = suc 𝑏 → (𝑎 ∈ ω ↔ suc 𝑏 ∈ ω))
52 eleq1 2864 . . . . . . . . . . . . . 14 (𝑎 = suc 𝑏 → (𝑎 ∈ ran 𝐸 ↔ suc 𝑏 ∈ ran 𝐸))
5352notbid 310 . . . . . . . . . . . . 13 (𝑎 = suc 𝑏 → (¬ 𝑎 ∈ ran 𝐸 ↔ ¬ suc 𝑏 ∈ ran 𝐸))
5451, 53anbi12d 625 . . . . . . . . . . . 12 (𝑎 = suc 𝑏 → ((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ↔ (suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸)))
5554anbi1d 624 . . . . . . . . . . 11 (𝑎 = suc 𝑏 → (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) ↔ ((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ∧ 𝑏 ∈ ω)))
56 simplr 786 . . . . . . . . . . . 12 (((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → ¬ suc 𝑏 ∈ ran 𝐸)
5721adantl 474 . . . . . . . . . . . 12 (((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → (𝑏 ∈ ran 𝐸 ↔ ¬ suc 𝑏 ∈ ran 𝐸))
5856, 57mpbird 249 . . . . . . . . . . 11 (((suc 𝑏 ∈ ω ∧ ¬ suc 𝑏 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → 𝑏 ∈ ran 𝐸)
5955, 58syl6bi 245 . . . . . . . . . 10 (𝑎 = suc 𝑏 → (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → 𝑏 ∈ ran 𝐸))
6059com12 32 . . . . . . . . 9 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ 𝑏 ∈ ω) → (𝑎 = suc 𝑏𝑏 ∈ ran 𝐸))
6160impr 447 . . . . . . . 8 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ (𝑏 ∈ ω ∧ 𝑎 = suc 𝑏)) → 𝑏 ∈ ran 𝐸)
62 simprr 790 . . . . . . . . 9 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ (𝑏 ∈ ω ∧ 𝑎 = suc 𝑏)) → 𝑎 = suc 𝑏)
6362eqcomd 2803 . . . . . . . 8 (((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) ∧ (𝑏 ∈ ω ∧ 𝑎 = suc 𝑏)) → suc 𝑏 = 𝑎)
6450, 61, 63reximssdv 3197 . . . . . . 7 ((𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸) → ∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎)
6530, 64impbii 201 . . . . . 6 (∃𝑏 ∈ ran 𝐸 suc 𝑏 = 𝑎 ↔ (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸))
6616, 65bitri 267 . . . . 5 (∃𝑏 ∈ ran 𝐸(𝑆𝑏) = 𝑎 ↔ (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸))
67 f1fn 6315 . . . . . . 7 (𝑆:On–1-1→On → 𝑆 Fn On)
682, 67ax-mp 5 . . . . . 6 𝑆 Fn On
69 fvelimab 6476 . . . . . 6 ((𝑆 Fn On ∧ ran 𝐸 ⊆ On) → (𝑎 ∈ (𝑆 “ ran 𝐸) ↔ ∃𝑏 ∈ ran 𝐸(𝑆𝑏) = 𝑎))
7068, 9, 69mp2an 684 . . . . 5 (𝑎 ∈ (𝑆 “ ran 𝐸) ↔ ∃𝑏 ∈ ran 𝐸(𝑆𝑏) = 𝑎)
71 eldif 3777 . . . . 5 (𝑎 ∈ (ω ∖ ran 𝐸) ↔ (𝑎 ∈ ω ∧ ¬ 𝑎 ∈ ran 𝐸))
7266, 70, 713bitr4i 295 . . . 4 (𝑎 ∈ (𝑆 “ ran 𝐸) ↔ 𝑎 ∈ (ω ∖ ran 𝐸))
7372eqriv 2794 . . 3 (𝑆 “ ran 𝐸) = (ω ∖ ran 𝐸)
74 f1oeq3 6345 . . 3 ((𝑆 “ ran 𝐸) = (ω ∖ ran 𝐸) → ((𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(𝑆 “ ran 𝐸) ↔ (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(ω ∖ ran 𝐸)))
7573, 74ax-mp 5 . 2 ((𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(𝑆 “ ran 𝐸) ↔ (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(ω ∖ ran 𝐸))
7611, 75mpbi 222 1 (𝑆 ↾ ran 𝐸):ran 𝐸1-1-onto→(ω ∖ ran 𝐸)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wb 198  wa 385   = wceq 1653  wcel 2157  wne 2969  wrex 3088  cdif 3764  wss 3767  c0 4113  cmpt 4920  dom cdm 5310  ran crn 5311  cres 5312  cima 5313  Oncon0 5939  suc csuc 5941  Fun wfun 6093   Fn wfn 6094  wf 6095  1-1wf1 6096  1-1-ontowf1o 6098  cfv 6099  (class class class)co 6876  ωcom 7297  2𝑜c2o 7791   ·𝑜 comu 7795
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2354  ax-ext 2775  ax-rep 4962  ax-sep 4973  ax-nul 4981  ax-pow 5033  ax-pr 5095  ax-un 7181
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3or 1109  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2590  df-eu 2607  df-clab 2784  df-cleq 2790  df-clel 2793  df-nfc 2928  df-ne 2970  df-ral 3092  df-rex 3093  df-reu 3094  df-rab 3096  df-v 3385  df-sbc 3632  df-csb 3727  df-dif 3770  df-un 3772  df-in 3774  df-ss 3781  df-pss 3783  df-nul 4114  df-if 4276  df-pw 4349  df-sn 4367  df-pr 4369  df-tp 4371  df-op 4373  df-uni 4627  df-iun 4710  df-br 4842  df-opab 4904  df-mpt 4921  df-tr 4944  df-id 5218  df-eprel 5223  df-po 5231  df-so 5232  df-fr 5269  df-we 5271  df-xp 5316  df-rel 5317  df-cnv 5318  df-co 5319  df-dm 5320  df-rn 5321  df-res 5322  df-ima 5323  df-pred 5896  df-ord 5942  df-on 5943  df-lim 5944  df-suc 5945  df-iota 6062  df-fun 6101  df-fn 6102  df-f 6103  df-f1 6104  df-fo 6105  df-f1o 6106  df-fv 6107  df-ov 6879  df-oprab 6880  df-mpt2 6881  df-om 7298  df-wrecs 7643  df-recs 7705  df-rdg 7743  df-1o 7797  df-2o 7798  df-oadd 7801  df-omul 7802
This theorem is referenced by:  fin1a2lem7  9514
  Copyright terms: Public domain W3C validator