Theorem fin23lem22 10235

Description: Lemma for fin23 10297 but could be used elsewhere if we find a good name for it. Explicit construction of a bijection (actually an isomorphism, see fin23lem27 10236) 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.

Step	Hyp	Ref	Expression
1		fin23lem22.b	. 2 ⊢ 𝐶 = (𝑖 ∈ ω ↦ (℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖))
2		fin23lem23 10234	. . 3 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑖 ∈ ω) → ∃!𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖)
3		riotacl 7330	. . 3 ⊢ (∃!𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖 → (℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖) ∈ 𝑆)
4	2, 3	syl 17	. 2 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑖 ∈ ω) → (℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖) ∈ 𝑆)
5		simpll 766	. . . 4 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑎 ∈ 𝑆) → 𝑆 ⊆ ω)
6		simpr 484	. . . 4 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑎 ∈ 𝑆) → 𝑎 ∈ 𝑆)
7	5, 6	sseldd 3932	. . 3 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑎 ∈ 𝑆) → 𝑎 ∈ ω)
8		nnfi 9090	. . 3 ⊢ (𝑎 ∈ ω → 𝑎 ∈ Fin)
9		infi 9168	. . 3 ⊢ (𝑎 ∈ Fin → (𝑎 ∩ 𝑆) ∈ Fin)
10		ficardom 9871	. . 3 ⊢ ((𝑎 ∩ 𝑆) ∈ Fin → (card‘(𝑎 ∩ 𝑆)) ∈ ω)
11	7, 8, 9, 10	4syl 19	. 2 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ 𝑎 ∈ 𝑆) → (card‘(𝑎 ∩ 𝑆)) ∈ ω)
12		cardnn 9873	. . . . . . 7 ⊢ (𝑖 ∈ ω → (card‘𝑖) = 𝑖)
13	12	eqcomd 2740	. . . . . 6 ⊢ (𝑖 ∈ ω → 𝑖 = (card‘𝑖))
14	13	eqeq1d 2736	. . . . 5 ⊢ (𝑖 ∈ ω → (𝑖 = (card‘(𝑎 ∩ 𝑆)) ↔ (card‘𝑖) = (card‘(𝑎 ∩ 𝑆))))
15		eqcom 2741	. . . . 5 ⊢ ((card‘𝑖) = (card‘(𝑎 ∩ 𝑆)) ↔ (card‘(𝑎 ∩ 𝑆)) = (card‘𝑖))
16	14, 15	bitrdi 287	. . . 4 ⊢ (𝑖 ∈ ω → (𝑖 = (card‘(𝑎 ∩ 𝑆)) ↔ (card‘(𝑎 ∩ 𝑆)) = (card‘𝑖)))
17	16	ad2antrl 728	. . 3 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → (𝑖 = (card‘(𝑎 ∩ 𝑆)) ↔ (card‘(𝑎 ∩ 𝑆)) = (card‘𝑖)))
18		simpll 766	. . . . . . 7 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → 𝑆 ⊆ ω)
19		simprr 772	. . . . . . 7 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → 𝑎 ∈ 𝑆)
20	18, 19	sseldd 3932	. . . . . 6 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → 𝑎 ∈ ω)
21		nnon 7812	. . . . . 6 ⊢ (𝑎 ∈ ω → 𝑎 ∈ On)
22		onenon 9859	. . . . . 6 ⊢ (𝑎 ∈ On → 𝑎 ∈ dom card)
23	20, 21, 22	3syl 18	. . . . 5 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → 𝑎 ∈ dom card)
24		inss1 4187	. . . . 5 ⊢ (𝑎 ∩ 𝑆) ⊆ 𝑎
25		ssnum 9947	. . . . 5 ⊢ ((𝑎 ∈ dom card ∧ (𝑎 ∩ 𝑆) ⊆ 𝑎) → (𝑎 ∩ 𝑆) ∈ dom card)
26	23, 24, 25	sylancl 586	. . . 4 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → (𝑎 ∩ 𝑆) ∈ dom card)
27		nnon 7812	. . . . . 6 ⊢ (𝑖 ∈ ω → 𝑖 ∈ On)
28	27	ad2antrl 728	. . . . 5 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → 𝑖 ∈ On)
29		onenon 9859	. . . . 5 ⊢ (𝑖 ∈ On → 𝑖 ∈ dom card)
30	28, 29	syl 17	. . . 4 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → 𝑖 ∈ dom card)
31		carden2 9897	. . . 4 ⊢ (((𝑎 ∩ 𝑆) ∈ dom card ∧ 𝑖 ∈ dom card) → ((card‘(𝑎 ∩ 𝑆)) = (card‘𝑖) ↔ (𝑎 ∩ 𝑆) ≈ 𝑖))
32	26, 30, 31	syl2anc 584	. . 3 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → ((card‘(𝑎 ∩ 𝑆)) = (card‘𝑖) ↔ (𝑎 ∩ 𝑆) ≈ 𝑖))
33	2	adantrr 717	. . . . 5 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → ∃!𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖)
34		ineq1 4163	. . . . . . 7 ⊢ (𝑗 = 𝑎 → (𝑗 ∩ 𝑆) = (𝑎 ∩ 𝑆))
35	34	breq1d 5106	. . . . . 6 ⊢ (𝑗 = 𝑎 → ((𝑗 ∩ 𝑆) ≈ 𝑖 ↔ (𝑎 ∩ 𝑆) ≈ 𝑖))
36	35	riota2 7338	. . . . 5 ⊢ ((𝑎 ∈ 𝑆 ∧ ∃!𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖) → ((𝑎 ∩ 𝑆) ≈ 𝑖 ↔ (℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖) = 𝑎))
37	19, 33, 36	syl2anc 584	. . . 4 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → ((𝑎 ∩ 𝑆) ≈ 𝑖 ↔ (℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖) = 𝑎))
38		eqcom 2741	. . . 4 ⊢ ((℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖) = 𝑎 ↔ 𝑎 = (℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖))
39	37, 38	bitrdi 287	. . 3 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → ((𝑎 ∩ 𝑆) ≈ 𝑖 ↔ 𝑎 = (℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖)))
40	17, 32, 39	3bitrd 305	. 2 ⊢ (((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) ∧ (𝑖 ∈ ω ∧ 𝑎 ∈ 𝑆)) → (𝑖 = (card‘(𝑎 ∩ 𝑆)) ↔ 𝑎 = (℩𝑗 ∈ 𝑆 (𝑗 ∩ 𝑆) ≈ 𝑖)))
41	1, 4, 11, 40	f1o2d 7610	1 ⊢ ((𝑆 ⊆ ω ∧ ¬ 𝑆 ∈ Fin) → 𝐶:ω–1-1-onto→𝑆)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113  ∃!wreu 3346   ∩ cin 3898   ⊆ wss 3899   class class class wbr 5096   ↦ cmpt 5177  dom cdm 5622  Oncon0 6315  –1-1-onto→wf1o 6489  ‘cfv 6490  ℩crio 7312  ωcom 7806   ≈ cen 8878  Fincfn 8881  cardccrd 9845

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7313  df-ov 7359  df-om 7807  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-1o 8395  df-er 8633  df-en 8882  df-dom 8883  df-sdom 8884  df-fin 8885  df-card 9849

This theorem is referenced by:  fin23lem27  10236  fin23lem28  10248  fin23lem30  10250  isf32lem6  10266  isf32lem7  10267  isf32lem8  10268