Theorem phplem4on 6329

Description: Equinumerosity of successors of an ordinal and a natural number implies equinumerosity of the originals. (Contributed by Jim Kingdon, 5-Sep-2021.)

Assertion

Ref	Expression
phplem4on	⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ ω) → (suc 𝐴 ≈ suc 𝐵 → 𝐴 ≈ 𝐵))

Proof of Theorem phplem4on

Dummy variable 𝑓 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		bren 6228	. . . . 5 ⊢ (suc 𝐴 ≈ suc 𝐵 ↔ ∃𝑓 𝑓:suc 𝐴–1-1-onto→suc 𝐵)
2	1	biimpi 113	. . . 4 ⊢ (suc 𝐴 ≈ suc 𝐵 → ∃𝑓 𝑓:suc 𝐴–1-1-onto→suc 𝐵)
3	2	adantl 262	. . 3 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) → ∃𝑓 𝑓:suc 𝐴–1-1-onto→suc 𝐵)
4		f1of1 5125	. . . . . . . 8 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → 𝑓:suc 𝐴–1-1→suc 𝐵)
5	4	adantl 262	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝑓:suc 𝐴–1-1→suc 𝐵)
6		peano2 4318	. . . . . . . . 9 ⊢ (𝐵 ∈ ω → suc 𝐵 ∈ ω)
7		nnon 4332	. . . . . . . . 9 ⊢ (suc 𝐵 ∈ ω → suc 𝐵 ∈ On)
8	6, 7	syl 14	. . . . . . . 8 ⊢ (𝐵 ∈ ω → suc 𝐵 ∈ On)
9	8	ad3antlr 462	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → suc 𝐵 ∈ On)
10		sssucid 4152	. . . . . . . 8 ⊢ 𝐴 ⊆ suc 𝐴
11	10	a1i 9	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝐴 ⊆ suc 𝐴)
12		simplll 485	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝐴 ∈ On)
13		f1imaen2g 6273	. . . . . . 7 ⊢ (((𝑓:suc 𝐴–1-1→suc 𝐵 ∧ suc 𝐵 ∈ On) ∧ (𝐴 ⊆ suc 𝐴 ∧ 𝐴 ∈ On)) → (𝑓 “ 𝐴) ≈ 𝐴)
14	5, 9, 11, 12, 13	syl22anc 1136	. . . . . 6 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (𝑓 “ 𝐴) ≈ 𝐴)
15	14	ensymd 6263	. . . . 5 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝐴 ≈ (𝑓 “ 𝐴))
16		eloni 4112	. . . . . . . . 9 ⊢ (𝐴 ∈ On → Ord 𝐴)
17		orddif 4271	. . . . . . . . 9 ⊢ (Ord 𝐴 → 𝐴 = (suc 𝐴 ∖ {𝐴}))
18	16, 17	syl 14	. . . . . . . 8 ⊢ (𝐴 ∈ On → 𝐴 = (suc 𝐴 ∖ {𝐴}))
19	18	imaeq2d 4668	. . . . . . 7 ⊢ (𝐴 ∈ On → (𝑓 “ 𝐴) = (𝑓 “ (suc 𝐴 ∖ {𝐴})))
20	19	ad3antrrr 461	. . . . . 6 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (𝑓 “ 𝐴) = (𝑓 “ (suc 𝐴 ∖ {𝐴})))
21		f1ofn 5127	. . . . . . . . . 10 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → 𝑓 Fn suc 𝐴)
22	21	adantl 262	. . . . . . . . 9 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝑓 Fn suc 𝐴)
23		sucidg 4153	. . . . . . . . . 10 ⊢ (𝐴 ∈ On → 𝐴 ∈ suc 𝐴)
24	12, 23	syl 14	. . . . . . . . 9 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝐴 ∈ suc 𝐴)
25		fnsnfv 5232	. . . . . . . . 9 ⊢ ((𝑓 Fn suc 𝐴 ∧ 𝐴 ∈ suc 𝐴) → {(𝑓‘𝐴)} = (𝑓 “ {𝐴}))
26	22, 24, 25	syl2anc 391	. . . . . . . 8 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → {(𝑓‘𝐴)} = (𝑓 “ {𝐴}))
27	26	difeq2d 3062	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → ((𝑓 “ suc 𝐴) ∖ {(𝑓‘𝐴)}) = ((𝑓 “ suc 𝐴) ∖ (𝑓 “ {𝐴})))
28		imadmrn 4678	. . . . . . . . . . 11 ⊢ (𝑓 “ dom 𝑓) = ran 𝑓
29	28	eqcomi 2044	. . . . . . . . . 10 ⊢ ran 𝑓 = (𝑓 “ dom 𝑓)
30		f1ofo 5133	. . . . . . . . . . 11 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → 𝑓:suc 𝐴–onto→suc 𝐵)
31		forn 5109	. . . . . . . . . . 11 ⊢ (𝑓:suc 𝐴–onto→suc 𝐵 → ran 𝑓 = suc 𝐵)
32	30, 31	syl 14	. . . . . . . . . 10 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → ran 𝑓 = suc 𝐵)
33		f1odm 5130	. . . . . . . . . . 11 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → dom 𝑓 = suc 𝐴)
34	33	imaeq2d 4668	. . . . . . . . . 10 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → (𝑓 “ dom 𝑓) = (𝑓 “ suc 𝐴))
35	29, 32, 34	3eqtr3a 2096	. . . . . . . . 9 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → suc 𝐵 = (𝑓 “ suc 𝐴))
36	35	difeq1d 3061	. . . . . . . 8 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → (suc 𝐵 ∖ {(𝑓‘𝐴)}) = ((𝑓 “ suc 𝐴) ∖ {(𝑓‘𝐴)}))
37	36	adantl 262	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (suc 𝐵 ∖ {(𝑓‘𝐴)}) = ((𝑓 “ suc 𝐴) ∖ {(𝑓‘𝐴)}))
38		dff1o3 5132	. . . . . . . . . 10 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 ↔ (𝑓:suc 𝐴–onto→suc 𝐵 ∧ Fun ◡𝑓))
39	38	simprbi 260	. . . . . . . . 9 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → Fun ◡𝑓)
40		imadif 4979	. . . . . . . . 9 ⊢ (Fun ◡𝑓 → (𝑓 “ (suc 𝐴 ∖ {𝐴})) = ((𝑓 “ suc 𝐴) ∖ (𝑓 “ {𝐴})))
41	39, 40	syl 14	. . . . . . . 8 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → (𝑓 “ (suc 𝐴 ∖ {𝐴})) = ((𝑓 “ suc 𝐴) ∖ (𝑓 “ {𝐴})))
42	41	adantl 262	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (𝑓 “ (suc 𝐴 ∖ {𝐴})) = ((𝑓 “ suc 𝐴) ∖ (𝑓 “ {𝐴})))
43	27, 37, 42	3eqtr4rd 2083	. . . . . 6 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (𝑓 “ (suc 𝐴 ∖ {𝐴})) = (suc 𝐵 ∖ {(𝑓‘𝐴)}))
44	20, 43	eqtrd 2072	. . . . 5 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (𝑓 “ 𝐴) = (suc 𝐵 ∖ {(𝑓‘𝐴)}))
45	15, 44	breqtrd 3788	. . . 4 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝐴 ≈ (suc 𝐵 ∖ {(𝑓‘𝐴)}))
46		simpllr 486	. . . . . 6 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝐵 ∈ ω)
47		fnfvelrn 5299	. . . . . . . 8 ⊢ ((𝑓 Fn suc 𝐴 ∧ 𝐴 ∈ suc 𝐴) → (𝑓‘𝐴) ∈ ran 𝑓)
48	22, 24, 47	syl2anc 391	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (𝑓‘𝐴) ∈ ran 𝑓)
49	31	eleq2d 2107	. . . . . . . . 9 ⊢ (𝑓:suc 𝐴–onto→suc 𝐵 → ((𝑓‘𝐴) ∈ ran 𝑓 ↔ (𝑓‘𝐴) ∈ suc 𝐵))
50	30, 49	syl 14	. . . . . . . 8 ⊢ (𝑓:suc 𝐴–1-1-onto→suc 𝐵 → ((𝑓‘𝐴) ∈ ran 𝑓 ↔ (𝑓‘𝐴) ∈ suc 𝐵))
51	50	adantl 262	. . . . . . 7 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → ((𝑓‘𝐴) ∈ ran 𝑓 ↔ (𝑓‘𝐴) ∈ suc 𝐵))
52	48, 51	mpbid 135	. . . . . 6 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (𝑓‘𝐴) ∈ suc 𝐵)
53		phplem3g 6319	. . . . . 6 ⊢ ((𝐵 ∈ ω ∧ (𝑓‘𝐴) ∈ suc 𝐵) → 𝐵 ≈ (suc 𝐵 ∖ {(𝑓‘𝐴)}))
54	46, 52, 53	syl2anc 391	. . . . 5 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝐵 ≈ (suc 𝐵 ∖ {(𝑓‘𝐴)}))
55	54	ensymd 6263	. . . 4 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → (suc 𝐵 ∖ {(𝑓‘𝐴)}) ≈ 𝐵)
56		entr 6264	. . . 4 ⊢ ((𝐴 ≈ (suc 𝐵 ∖ {(𝑓‘𝐴)}) ∧ (suc 𝐵 ∖ {(𝑓‘𝐴)}) ≈ 𝐵) → 𝐴 ≈ 𝐵)
57	45, 55, 56	syl2anc 391	. . 3 ⊢ ((((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) ∧ 𝑓:suc 𝐴–1-1-onto→suc 𝐵) → 𝐴 ≈ 𝐵)
58	3, 57	exlimddv 1778	. 2 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ ω) ∧ suc 𝐴 ≈ suc 𝐵) → 𝐴 ≈ 𝐵)
59	58	ex 108	1 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ ω) → (suc 𝐴 ≈ suc 𝐵 → 𝐴 ≈ 𝐵))

Syntax hints:   → wi 4   ∧ wa 97   ↔ wb 98   = wceq 1243  ∃wex 1381   ∈ wcel 1393   ∖ cdif 2914   ⊆ wss 2917  {csn 3375   class class class wbr 3764  Ord word 4099  Oncon0 4100  suc csuc 4102  ωcom 4313  ^◡ccnv 4344  dom cdm 4345  ran crn 4346   “ cima 4348  Fun wfun 4896   Fn wfn 4897  –1-1→wf1 4899  –onto→wfo 4900  –1-1-onto→wf1o 4901  ‘cfv 4902   ≈ cen 6219

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-13 1404  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-sep 3875  ax-nul 3883  ax-pow 3927  ax-pr 3944  ax-un 4170  ax-setind 4262  ax-iinf 4311

This theorem depends on definitions:  df-bi 110  df-dc 743  df-3or 886  df-3an 887  df-tru 1246  df-fal 1249  df-nf 1350  df-sb 1646  df-eu 1903  df-mo 1904  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ne 2206  df-ral 2311  df-rex 2312  df-rab 2315  df-v 2559  df-sbc 2765  df-dif 2920  df-un 2922  df-in 2924  df-ss 2931  df-nul 3225  df-pw 3361  df-sn 3381  df-pr 3382  df-op 3384  df-uni 3581  df-int 3616  df-br 3765  df-opab 3819  df-tr 3855  df-id 4030  df-iord 4103  df-on 4105  df-suc 4108  df-iom 4314  df-xp 4351  df-rel 4352  df-cnv 4353  df-co 4354  df-dm 4355  df-rn 4356  df-res 4357  df-ima 4358  df-iota 4867  df-fun 4904  df-fn 4905  df-f 4906  df-f1 4907  df-fo 4908  df-f1o 4909  df-fv 4910  df-er 6106  df-en 6222

This theorem is referenced by: (None)