Theorem hashennn 10854

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.

Step	Hyp	Ref	Expression
1		df-ihash 10850	. . . . 5 ⊢ ♯ = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))
2	1	fveq1i 5556	. . . 4 ⊢ (♯‘𝐴) = (((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))‘𝐴)
3		funmpt 5293	. . . . 5 ⊢ Fun (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})
4		hashennnuni 10853	. . . . . . . . 9 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴} = 𝑁)
5	4	eqcomd 2199	. . . . . . . 8 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝑁 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
6		nnfi 6930	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ω → 𝑁 ∈ Fin)
7	6	adantr 276	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝑁 ∈ Fin)
8		simpr 110	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝑁 ≈ 𝐴)
9	8	ensymd 6839	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝐴 ≈ 𝑁)
10		enfii 6932	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝐴 ≈ 𝑁) → 𝐴 ∈ Fin)
11	7, 9, 10	syl2anc 411	. . . . . . . . 9 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝐴 ∈ Fin)
12		simpl 109	. . . . . . . . 9 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝑁 ∈ ω)
13		simpr 110	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → 𝑧 = 𝑁)
14		breq2 4034	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝐴 → (𝑦 ≼ 𝑥 ↔ 𝑦 ≼ 𝐴))
15	14	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → (𝑦 ≼ 𝑥 ↔ 𝑦 ≼ 𝐴))
16	15	rabbidv 2749	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
17	16	unieqd 3847	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
18	13, 17	eqeq12d 2208	. . . . . . . . . 10 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → (𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} ↔ 𝑁 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴}))
19	18	opelopabga 4294	. . . . . . . . 9 ⊢ ((𝐴 ∈ Fin ∧ 𝑁 ∈ ω) → (⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}} ↔ 𝑁 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴}))
20	11, 12, 19	syl2anc 411	. . . . . . . 8 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}} ↔ 𝑁 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴}))
21	5, 20	mpbird 167	. . . . . . 7 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}})
22		mptv 4127	. . . . . . 7 ⊢ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}) = {⟨𝑥, 𝑧⟩ ∣ 𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}}
23	21, 22	eleqtrrdi 2287	. . . . . 6 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ⟨𝐴, 𝑁⟩ ∈ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))
24		opeldmg 4868	. . . . . . 7 ⊢ ((𝐴 ∈ Fin ∧ 𝑁 ∈ ω) → (⟨𝐴, 𝑁⟩ ∈ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}) → 𝐴 ∈ dom (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})))
25	11, 12, 24	syl2anc 411	. . . . . 6 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (⟨𝐴, 𝑁⟩ ∈ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}) → 𝐴 ∈ dom (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})))
26	23, 25	mpd 13	. . . . 5 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝐴 ∈ dom (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))
27		fvco 5628	. . . . 5 ⊢ ((Fun (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}) ∧ 𝐴 ∈ dom (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})) → (((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴)))
28	3, 26, 27	sylancr 414	. . . 4 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴)))
29	2, 28	eqtrid 2238	. . 3 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (♯‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴)))
30	11	elexd 2773	. . . . . 6 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝐴 ∈ V)
31	4, 12	eqeltrd 2270	. . . . . 6 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴} ∈ ω)
32	14	rabbidv 2749	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
33	32	unieqd 3847	. . . . . . 7 ⊢ (𝑥 = 𝐴 → ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
34		eqid 2193	. . . . . . 7 ⊢ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}) = (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})
35	33, 34	fvmptg 5634	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴} ∈ ω) → ((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴) = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
36	30, 31, 35	syl2anc 411	. . . . 5 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴) = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
37	36, 4	eqtrd 2226	. . . 4 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴) = 𝑁)
38	37	fveq2d 5559	. . 3 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴)) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁))
39	29, 38	eqtrd 2226	. 2 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (♯‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁))
40		ordom 4640	. . . . . . 7 ⊢ Ord ω
41		ordirr 4575	. . . . . . 7 ⊢ (Ord ω → ¬ ω ∈ ω)
42	40, 41	ax-mp 5	. . . . . 6 ⊢ ¬ ω ∈ ω
43		eleq1 2256	. . . . . 6 ⊢ (ω = 𝑁 → (ω ∈ ω ↔ 𝑁 ∈ ω))
44	42, 43	mtbii 675	. . . . 5 ⊢ (ω = 𝑁 → ¬ 𝑁 ∈ ω)
45	44	necon2ai 2418	. . . 4 ⊢ (𝑁 ∈ ω → ω ≠ 𝑁)
46		fvunsng 5753	. . . 4 ⊢ ((𝑁 ∈ ω ∧ ω ≠ 𝑁) → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))
47	45, 46	mpdan 421	. . 3 ⊢ (𝑁 ∈ ω → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))
48	47	adantr 276	. 2 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))
49	39, 48	eqtrd 2226	1 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (♯‘𝐴) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1364   ∈ wcel 2164   ≠ wne 2364  {crab 2476  Vcvv 2760   ∪ cun 3152  {csn 3619  ⟨cop 3622  ∪ cuni 3836   class class class wbr 4030  {copab 4090   ↦ cmpt 4091  Ord word 4394  ωcom 4623  dom cdm 4660   ∘ ccom 4664  Fun wfun 5249  ‘cfv 5255  (class class class)co 5919  freccfrec 6445   ≈ cen 6794   ≼ cdom 6795  Fincfn 6796  0cc0 7874  1c1 7875   + caddc 7877  +∞cpnf 8053  ℤcz 9320  ♯chash 10849

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 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2166  ax-14 2167  ax-ext 2175  ax-sep 4148  ax-nul 4156  ax-pow 4204  ax-pr 4239  ax-un 4465  ax-setind 4570  ax-iinf 4621

This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2045  df-mo 2046  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ne 2365  df-ral 2477  df-rex 2478  df-rab 2481  df-v 2762  df-sbc 2987  df-dif 3156  df-un 3158  df-in 3160  df-ss 3167  df-nul 3448  df-pw 3604  df-sn 3625  df-pr 3626  df-op 3628  df-uni 3837  df-int 3872  df-br 4031  df-opab 4092  df-mpt 4093  df-tr 4129  df-id 4325  df-iord 4398  df-on 4400  df-suc 4403  df-iom 4624  df-xp 4666  df-rel 4667  df-cnv 4668  df-co 4669  df-dm 4670  df-rn 4671  df-res 4672  df-ima 4673  df-iota 5216  df-fun 5257  df-fn 5258  df-f 5259  df-f1 5260  df-fo 5261  df-f1o 5262  df-fv 5263  df-er 6589  df-en 6797  df-dom 6798  df-fin 6799  df-ihash 10850

This theorem is referenced by:  hashcl  10855  hashfz1  10857  hashen  10858  fihashdom  10877  hashun  10879