ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  hashennn GIF version

Theorem hashennn 10023
Description: The size of a set equinumerous to an element of ω. (Contributed by Jim Kingdon, 21-Feb-2022.)
Assertion
Ref Expression
hashennn ((𝑁 ∈ ω ∧ 𝑁𝐴) → (♯‘𝐴) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))
Distinct variable groups:   𝑥,𝐴   𝑥,𝑁

Proof of Theorem hashennn
Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-ihash 10019 . . . . 5 ♯ = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}))
21fveq1i 5254 . . . 4 (♯‘𝐴) = (((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}))‘𝐴)
3 funmpt 5005 . . . . 5 Fun (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})
4 hashennnuni 10022 . . . . . . . . 9 ((𝑁 ∈ ω ∧ 𝑁𝐴) → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴} = 𝑁)
54eqcomd 2088 . . . . . . . 8 ((𝑁 ∈ ω ∧ 𝑁𝐴) → 𝑁 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴})
6 nnfi 6518 . . . . . . . . . . 11 (𝑁 ∈ ω → 𝑁 ∈ Fin)
76adantr 270 . . . . . . . . . 10 ((𝑁 ∈ ω ∧ 𝑁𝐴) → 𝑁 ∈ Fin)
8 simpr 108 . . . . . . . . . . 11 ((𝑁 ∈ ω ∧ 𝑁𝐴) → 𝑁𝐴)
98ensymd 6430 . . . . . . . . . 10 ((𝑁 ∈ ω ∧ 𝑁𝐴) → 𝐴𝑁)
10 enfii 6520 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝐴𝑁) → 𝐴 ∈ Fin)
117, 9, 10syl2anc 403 . . . . . . . . 9 ((𝑁 ∈ ω ∧ 𝑁𝐴) → 𝐴 ∈ Fin)
12 simpl 107 . . . . . . . . 9 ((𝑁 ∈ ω ∧ 𝑁𝐴) → 𝑁 ∈ ω)
13 simpr 108 . . . . . . . . . . 11 ((𝑥 = 𝐴𝑧 = 𝑁) → 𝑧 = 𝑁)
14 breq2 3815 . . . . . . . . . . . . . 14 (𝑥 = 𝐴 → (𝑦𝑥𝑦𝐴))
1514adantr 270 . . . . . . . . . . . . 13 ((𝑥 = 𝐴𝑧 = 𝑁) → (𝑦𝑥𝑦𝐴))
1615rabbidv 2601 . . . . . . . . . . . 12 ((𝑥 = 𝐴𝑧 = 𝑁) → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥} = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴})
1716unieqd 3638 . . . . . . . . . . 11 ((𝑥 = 𝐴𝑧 = 𝑁) → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥} = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴})
1813, 17eqeq12d 2097 . . . . . . . . . 10 ((𝑥 = 𝐴𝑧 = 𝑁) → (𝑧 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥} ↔ 𝑁 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴}))
1918opelopabga 4054 . . . . . . . . 9 ((𝐴 ∈ Fin ∧ 𝑁 ∈ ω) → (⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}} ↔ 𝑁 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴}))
2011, 12, 19syl2anc 403 . . . . . . . 8 ((𝑁 ∈ ω ∧ 𝑁𝐴) → (⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}} ↔ 𝑁 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴}))
215, 20mpbird 165 . . . . . . 7 ((𝑁 ∈ ω ∧ 𝑁𝐴) → ⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}})
22 mptv 3900 . . . . . . 7 (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}) = {⟨𝑥, 𝑧⟩ ∣ 𝑧 = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}}
2321, 22syl6eleqr 2176 . . . . . 6 ((𝑁 ∈ ω ∧ 𝑁𝐴) → ⟨𝐴, 𝑁⟩ ∈ (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}))
24 opeldmg 4599 . . . . . . 7 ((𝐴 ∈ Fin ∧ 𝑁 ∈ ω) → (⟨𝐴, 𝑁⟩ ∈ (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}) → 𝐴 ∈ dom (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})))
2511, 12, 24syl2anc 403 . . . . . 6 ((𝑁 ∈ ω ∧ 𝑁𝐴) → (⟨𝐴, 𝑁⟩ ∈ (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}) → 𝐴 ∈ dom (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})))
2623, 25mpd 13 . . . . 5 ((𝑁 ∈ ω ∧ 𝑁𝐴) → 𝐴 ∈ dom (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}))
27 fvco 5319 . . . . 5 ((Fun (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}) ∧ 𝐴 ∈ dom (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})) → (((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}))‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})‘𝐴)))
283, 26, 27sylancr 405 . . . 4 ((𝑁 ∈ ω ∧ 𝑁𝐴) → (((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}))‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})‘𝐴)))
292, 28syl5eq 2127 . . 3 ((𝑁 ∈ ω ∧ 𝑁𝐴) → (♯‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})‘𝐴)))
3011elexd 2623 . . . . . 6 ((𝑁 ∈ ω ∧ 𝑁𝐴) → 𝐴 ∈ V)
314, 12eqeltrd 2159 . . . . . 6 ((𝑁 ∈ ω ∧ 𝑁𝐴) → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴} ∈ ω)
3214rabbidv 2601 . . . . . . . 8 (𝑥 = 𝐴 → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥} = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴})
3332unieqd 3638 . . . . . . 7 (𝑥 = 𝐴 {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥} = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴})
34 eqid 2083 . . . . . . 7 (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥}) = (𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})
3533, 34fvmptg 5325 . . . . . 6 ((𝐴 ∈ V ∧ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴} ∈ ω) → ((𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})‘𝐴) = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴})
3630, 31, 35syl2anc 403 . . . . 5 ((𝑁 ∈ ω ∧ 𝑁𝐴) → ((𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})‘𝐴) = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝐴})
3736, 4eqtrd 2115 . . . 4 ((𝑁 ∈ ω ∧ 𝑁𝐴) → ((𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})‘𝐴) = 𝑁)
3837fveq2d 5257 . . 3 ((𝑁 ∈ ω ∧ 𝑁𝐴) → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦𝑥})‘𝐴)) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁))
3929, 38eqtrd 2115 . 2 ((𝑁 ∈ ω ∧ 𝑁𝐴) → (♯‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁))
40 ordom 4384 . . . . . . 7 Ord ω
41 ordirr 4321 . . . . . . 7 (Ord ω → ¬ ω ∈ ω)
4240, 41ax-mp 7 . . . . . 6 ¬ ω ∈ ω
43 eleq1 2145 . . . . . 6 (ω = 𝑁 → (ω ∈ ω ↔ 𝑁 ∈ ω))
4442, 43mtbii 632 . . . . 5 (ω = 𝑁 → ¬ 𝑁 ∈ ω)
4544necon2ai 2303 . . . 4 (𝑁 ∈ ω → ω ≠ 𝑁)
46 fvunsng 5433 . . . 4 ((𝑁 ∈ ω ∧ ω ≠ 𝑁) → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))
4745, 46mpdan 412 . . 3 (𝑁 ∈ ω → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))
4847adantr 270 . 2 ((𝑁 ∈ ω ∧ 𝑁𝐴) → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))
4939, 48eqtrd 2115 1 ((𝑁 ∈ ω ∧ 𝑁𝐴) → (♯‘𝐴) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 102  wb 103   = wceq 1285  wcel 1434  wne 2249  {crab 2357  Vcvv 2612  cun 2982  {csn 3422  cop 3425   cuni 3627   class class class wbr 3811  {copab 3864  cmpt 3865  Ord word 4153  ωcom 4368  dom cdm 4401  ccom 4405  Fun wfun 4963  cfv 4969  (class class class)co 5591  freccfrec 6087  cen 6385  cdom 6386  Fincfn 6387  0cc0 7253  1c1 7254   + caddc 7256  +∞cpnf 7422  cz 8646  chash 10018
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 577  ax-in2 578  ax-io 663  ax-5 1377  ax-7 1378  ax-gen 1379  ax-ie1 1423  ax-ie2 1424  ax-8 1436  ax-10 1437  ax-11 1438  ax-i12 1439  ax-bndl 1440  ax-4 1441  ax-13 1445  ax-14 1446  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2065  ax-sep 3922  ax-nul 3930  ax-pow 3974  ax-pr 4000  ax-un 4224  ax-setind 4316  ax-iinf 4366
This theorem depends on definitions:  df-bi 115  df-dc 777  df-3or 921  df-3an 922  df-tru 1288  df-fal 1291  df-nf 1391  df-sb 1688  df-eu 1946  df-mo 1947  df-clab 2070  df-cleq 2076  df-clel 2079  df-nfc 2212  df-ne 2250  df-ral 2358  df-rex 2359  df-rab 2362  df-v 2614  df-sbc 2827  df-dif 2986  df-un 2988  df-in 2990  df-ss 2997  df-nul 3270  df-pw 3408  df-sn 3428  df-pr 3429  df-op 3431  df-uni 3628  df-int 3663  df-br 3812  df-opab 3866  df-mpt 3867  df-tr 3902  df-id 4084  df-iord 4157  df-on 4159  df-suc 4162  df-iom 4369  df-xp 4407  df-rel 4408  df-cnv 4409  df-co 4410  df-dm 4411  df-rn 4412  df-res 4413  df-ima 4414  df-iota 4934  df-fun 4971  df-fn 4972  df-f 4973  df-f1 4974  df-fo 4975  df-f1o 4976  df-fv 4977  df-er 6222  df-en 6388  df-dom 6389  df-fin 6390  df-ihash 10019
This theorem is referenced by:  hashcl  10024  hashfz1  10026  hashen  10027  fihashdom  10046  hashun  10048
  Copyright terms: Public domain W3C validator