Theorem hashennn 11141

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 11137	. . . . 5 ⊢ ♯ = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))
2	1	fveq1i 5670	. . . 4 ⊢ (♯‘𝐴) = (((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩}) ∘ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))‘𝐴)
3		funmpt 5389	. . . . 5 ⊢ Fun (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})
4		hashennnuni 11140	. . . . . . . . 9 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴} = 𝑁)
5	4	eqcomd 2238	. . . . . . . 8 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝑁 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
6		nnfi 7126	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ω → 𝑁 ∈ Fin)
7	6	adantr 276	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝑁 ∈ Fin)
8		simpr 110	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝑁 ≈ 𝐴)
9	8	ensymd 7022	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝐴 ≈ 𝑁)
10		enfii 7128	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝐴 ≈ 𝑁) → 𝐴 ∈ Fin)
11	7, 9, 10	syl2anc 411	. . . . . . . . 9 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝐴 ∈ Fin)
12		simpl 109	. . . . . . . . 9 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝑁 ∈ ω)
13		simpr 110	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → 𝑧 = 𝑁)
14		breq2 4112	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝐴 → (𝑦 ≼ 𝑥 ↔ 𝑦 ≼ 𝐴))
15	14	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → (𝑦 ≼ 𝑥 ↔ 𝑦 ≼ 𝐴))
16	15	rabbidv 2801	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
17	16	unieqd 3924	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
18	13, 17	eqeq12d 2247	. . . . . . . . . 10 ⊢ ((𝑥 = 𝐴 ∧ 𝑧 = 𝑁) → (𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} ↔ 𝑁 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴}))
19	18	opelopabga 4380	. . . . . . . . 9 ⊢ ((𝐴 ∈ Fin ∧ 𝑁 ∈ ω) → (⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}} ↔ 𝑁 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴}))
20	11, 12, 19	syl2anc 411	. . . . . . . 8 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}} ↔ 𝑁 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴}))
21	5, 20	mpbird 167	. . . . . . 7 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ⟨𝐴, 𝑁⟩ ∈ {⟨𝑥, 𝑧⟩ ∣ 𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}})
22		mptv 4206	. . . . . . 7 ⊢ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}) = {⟨𝑥, 𝑧⟩ ∣ 𝑧 = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}}
23	21, 22	eleqtrrdi 2326	. . . . . 6 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ⟨𝐴, 𝑁⟩ ∈ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}))
24		opeldmg 4960	. . . . . . 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 5746	. . . . 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 2277	. . 3 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (♯‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴)))
30	11	elexd 2826	. . . . . 6 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → 𝐴 ∈ V)
31	4, 12	eqeltrd 2309	. . . . . 6 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴} ∈ ω)
32	14	rabbidv 2801	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} = {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
33	32	unieqd 3924	. . . . . . 7 ⊢ (𝑥 = 𝐴 → ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥} = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
34		eqid 2232	. . . . . . 7 ⊢ (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥}) = (𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})
35	33, 34	fvmptg 5752	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴} ∈ ω) → ((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴) = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
36	30, 31, 35	syl2anc 411	. . . . 5 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴) = ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝐴})
37	36, 4	eqtrd 2265	. . . 4 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴) = 𝑁)
38	37	fveq2d 5673	. . 3 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘((𝑥 ∈ V ↦ ∪ {𝑦 ∈ (ω ∪ {ω}) ∣ 𝑦 ≼ 𝑥})‘𝐴)) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁))
39	29, 38	eqtrd 2265	. 2 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (♯‘𝐴) = ((frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0) ∪ {⟨ω, +∞⟩})‘𝑁))
40		ordom 4728	. . . . . . 7 ⊢ Ord ω
41		ordirr 4663	. . . . . . 7 ⊢ (Ord ω → ¬ ω ∈ ω)
42	40, 41	ax-mp 5	. . . . . 6 ⊢ ¬ ω ∈ ω
43		eleq1 2295	. . . . . 6 ⊢ (ω = 𝑁 → (ω ∈ ω ↔ 𝑁 ∈ ω))
44	42, 43	mtbii 681	. . . . 5 ⊢ (ω = 𝑁 → ¬ 𝑁 ∈ ω)
45	44	necon2ai 2466	. . . 4 ⊢ (𝑁 ∈ ω → ω ≠ 𝑁)
46		fvunsng 5877	. . . 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 2265	1 ⊢ ((𝑁 ∈ ω ∧ 𝑁 ≈ 𝐴) → (♯‘𝐴) = (frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)‘𝑁))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1398   ∈ wcel 2203   ≠ wne 2412  {crab 2524  Vcvv 2812   ∪ cun 3208  {csn 3688  ⟨cop 3691  ∪ cuni 3913   class class class wbr 4108  {copab 4169   ↦ cmpt 4170  Ord word 4482  ωcom 4711  dom cdm 4748   ∘ ccom 4752  Fun wfun 5345  ‘cfv 5351  (class class class)co 6049  freccfrec 6620   ≈ cen 6972   ≼ cdom 6973  Fincfn 6974  0cc0 8126  1c1 8127   + caddc 8129  +∞cpnf 8304  ℤcz 9576  ♯chash 11136

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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-sep 4227  ax-nul 4235  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-iinf 4709

This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-ral 2525  df-rex 2526  df-rab 2529  df-v 2814  df-sbc 3042  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-int 3949  df-br 4109  df-opab 4171  df-mpt 4172  df-tr 4208  df-id 4413  df-iord 4486  df-on 4488  df-suc 4491  df-iom 4712  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-er 6766  df-en 6975  df-dom 6976  df-fin 6977  df-ihash 11137

This theorem is referenced by:  hashcl  11142  hashfz1  11144  hashen  11145  fihashdom  11165  hashun  11167