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

Theorem fin23lem22 9093
Description: Lemma for fin23 9155 but could be used elsewhere if we find a good name for it. Explicit construction of a bijection (actually an isomorphism, see fin23lem27 9094) between an infinite subset of ω and ω itself. (Contributed by Stefan O'Rear, 1-Nov-2014.)
Hypothesis
Ref Expression
fin23lem22.b 𝐶 = (𝑖 ∈ ω ↦ (𝑗𝑆 (𝑗𝑆) ≈ 𝑖))
Assertion
Ref Expression
fin23lem22 ((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) → 𝐶:ω–1-1-onto𝑆)
Distinct variable group:   𝑖,𝑗,𝑆
Allowed substitution hints:   𝐶(𝑖,𝑗)

Proof of Theorem fin23lem22
Dummy variable 𝑎 is distinct from all other variables.
StepHypRef Expression
1 fin23lem22.b . 2 𝐶 = (𝑖 ∈ ω ↦ (𝑗𝑆 (𝑗𝑆) ≈ 𝑖))
2 fin23lem23 9092 . . 3 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑖 ∈ ω) → ∃!𝑗𝑆 (𝑗𝑆) ≈ 𝑖)
3 riotacl 6579 . . 3 (∃!𝑗𝑆 (𝑗𝑆) ≈ 𝑖 → (𝑗𝑆 (𝑗𝑆) ≈ 𝑖) ∈ 𝑆)
42, 3syl 17 . 2 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑖 ∈ ω) → (𝑗𝑆 (𝑗𝑆) ≈ 𝑖) ∈ 𝑆)
5 simpll 789 . . . 4 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑎𝑆) → 𝑆 ⊆ ω)
6 simpr 477 . . . 4 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑎𝑆) → 𝑎𝑆)
75, 6sseldd 3584 . . 3 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑎𝑆) → 𝑎 ∈ ω)
8 nnfi 8097 . . 3 (𝑎 ∈ ω → 𝑎 ∈ Fin)
9 infi 8128 . . 3 (𝑎 ∈ Fin → (𝑎𝑆) ∈ Fin)
10 ficardom 8731 . . 3 ((𝑎𝑆) ∈ Fin → (card‘(𝑎𝑆)) ∈ ω)
117, 8, 9, 104syl 19 . 2 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑎𝑆) → (card‘(𝑎𝑆)) ∈ ω)
12 cardnn 8733 . . . . . . 7 (𝑖 ∈ ω → (card‘𝑖) = 𝑖)
1312eqcomd 2627 . . . . . 6 (𝑖 ∈ ω → 𝑖 = (card‘𝑖))
1413eqeq1d 2623 . . . . 5 (𝑖 ∈ ω → (𝑖 = (card‘(𝑎𝑆)) ↔ (card‘𝑖) = (card‘(𝑎𝑆))))
15 eqcom 2628 . . . . 5 ((card‘𝑖) = (card‘(𝑎𝑆)) ↔ (card‘(𝑎𝑆)) = (card‘𝑖))
1614, 15syl6bb 276 . . . 4 (𝑖 ∈ ω → (𝑖 = (card‘(𝑎𝑆)) ↔ (card‘(𝑎𝑆)) = (card‘𝑖)))
1716ad2antrl 763 . . 3 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → (𝑖 = (card‘(𝑎𝑆)) ↔ (card‘(𝑎𝑆)) = (card‘𝑖)))
18 simpll 789 . . . . . . 7 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → 𝑆 ⊆ ω)
19 simprr 795 . . . . . . 7 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → 𝑎𝑆)
2018, 19sseldd 3584 . . . . . 6 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → 𝑎 ∈ ω)
21 nnon 7018 . . . . . 6 (𝑎 ∈ ω → 𝑎 ∈ On)
22 onenon 8719 . . . . . 6 (𝑎 ∈ On → 𝑎 ∈ dom card)
2320, 21, 223syl 18 . . . . 5 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → 𝑎 ∈ dom card)
24 inss1 3811 . . . . 5 (𝑎𝑆) ⊆ 𝑎
25 ssnum 8806 . . . . 5 ((𝑎 ∈ dom card ∧ (𝑎𝑆) ⊆ 𝑎) → (𝑎𝑆) ∈ dom card)
2623, 24, 25sylancl 693 . . . 4 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → (𝑎𝑆) ∈ dom card)
27 nnon 7018 . . . . . 6 (𝑖 ∈ ω → 𝑖 ∈ On)
2827ad2antrl 763 . . . . 5 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → 𝑖 ∈ On)
29 onenon 8719 . . . . 5 (𝑖 ∈ On → 𝑖 ∈ dom card)
3028, 29syl 17 . . . 4 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → 𝑖 ∈ dom card)
31 carden2 8757 . . . 4 (((𝑎𝑆) ∈ dom card ∧ 𝑖 ∈ dom card) → ((card‘(𝑎𝑆)) = (card‘𝑖) ↔ (𝑎𝑆) ≈ 𝑖))
3226, 30, 31syl2anc 692 . . 3 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → ((card‘(𝑎𝑆)) = (card‘𝑖) ↔ (𝑎𝑆) ≈ 𝑖))
332adantrr 752 . . . . 5 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → ∃!𝑗𝑆 (𝑗𝑆) ≈ 𝑖)
34 ineq1 3785 . . . . . . 7 (𝑗 = 𝑎 → (𝑗𝑆) = (𝑎𝑆))
3534breq1d 4623 . . . . . 6 (𝑗 = 𝑎 → ((𝑗𝑆) ≈ 𝑖 ↔ (𝑎𝑆) ≈ 𝑖))
3635riota2 6587 . . . . 5 ((𝑎𝑆 ∧ ∃!𝑗𝑆 (𝑗𝑆) ≈ 𝑖) → ((𝑎𝑆) ≈ 𝑖 ↔ (𝑗𝑆 (𝑗𝑆) ≈ 𝑖) = 𝑎))
3719, 33, 36syl2anc 692 . . . 4 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → ((𝑎𝑆) ≈ 𝑖 ↔ (𝑗𝑆 (𝑗𝑆) ≈ 𝑖) = 𝑎))
38 eqcom 2628 . . . 4 ((𝑗𝑆 (𝑗𝑆) ≈ 𝑖) = 𝑎𝑎 = (𝑗𝑆 (𝑗𝑆) ≈ 𝑖))
3937, 38syl6bb 276 . . 3 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → ((𝑎𝑆) ≈ 𝑖𝑎 = (𝑗𝑆 (𝑗𝑆) ≈ 𝑖)))
4017, 32, 393bitrd 294 . 2 (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎𝑆)) → (𝑖 = (card‘(𝑎𝑆)) ↔ 𝑎 = (𝑗𝑆 (𝑗𝑆) ≈ 𝑖)))
411, 4, 11, 40f1o2d 6840 1 ((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) → 𝐶:ω–1-1-onto𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 384   = wceq 1480  wcel 1987  ∃!wreu 2909  cin 3554  wss 3555   class class class wbr 4613  cmpt 4673  dom cdm 5074  Oncon0 5682  1-1-ontowf1o 5846  cfv 5847  crio 6564  ωcom 7012  cen 7896  Fincfn 7899  cardccrd 8705
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4731  ax-sep 4741  ax-nul 4749  ax-pow 4803  ax-pr 4867  ax-un 6902
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-ral 2912  df-rex 2913  df-reu 2914  df-rmo 2915  df-rab 2916  df-v 3188  df-sbc 3418  df-csb 3515  df-dif 3558  df-un 3560  df-in 3562  df-ss 3569  df-pss 3571  df-nul 3892  df-if 4059  df-pw 4132  df-sn 4149  df-pr 4151  df-tp 4153  df-op 4155  df-uni 4403  df-int 4441  df-iun 4487  df-br 4614  df-opab 4674  df-mpt 4675  df-tr 4713  df-eprel 4985  df-id 4989  df-po 4995  df-so 4996  df-fr 5033  df-se 5034  df-we 5035  df-xp 5080  df-rel 5081  df-cnv 5082  df-co 5083  df-dm 5084  df-rn 5085  df-res 5086  df-ima 5087  df-pred 5639  df-ord 5685  df-on 5686  df-lim 5687  df-suc 5688  df-iota 5810  df-fun 5849  df-fn 5850  df-f 5851  df-f1 5852  df-fo 5853  df-f1o 5854  df-fv 5855  df-isom 5856  df-riota 6565  df-om 7013  df-wrecs 7352  df-recs 7413  df-1o 7505  df-er 7687  df-en 7900  df-dom 7901  df-sdom 7902  df-fin 7903  df-card 8709
This theorem is referenced by:  fin23lem27  9094  fin23lem28  9106  fin23lem30  9108  isf32lem6  9124  isf32lem7  9125  isf32lem8  9126
  Copyright terms: Public domain W3C validator