Theorem ackbij1b 8944

Description: The Ackermann bijection, part 1b: the bijection from ackbij1 8943 restricts naturally to the powers of particular naturals. (Contributed by Stefan O'Rear, 18-Nov-2014.)

Hypothesis

Ref	Expression
ackbij.f	⊢ 𝐹 = (𝑥 ∈ (𝒫 ω ∩ Fin) ↦ (card‘∪ 𝑦 ∈ 𝑥 ({𝑦} × 𝒫 𝑦)))

Assertion

Ref	Expression
ackbij1b	⊢ (𝐴 ∈ ω → (𝐹 “ 𝒫 𝐴) = (card‘𝒫 𝐴))

Distinct variable groups:   𝑥,𝐹,𝑦   𝑥,𝐴,𝑦

Proof of Theorem ackbij1b

Dummy variable 𝑎 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		ackbij2lem1 8924	. . . . 5 ⊢ (𝐴 ∈ ω → 𝒫 𝐴 ⊆ (𝒫 ω ∩ Fin))
2		pwexg 4776	. . . . 5 ⊢ (𝐴 ∈ ω → 𝒫 𝐴 ∈ V)
3		ackbij.f	. . . . . . 7 ⊢ 𝐹 = (𝑥 ∈ (𝒫 ω ∩ Fin) ↦ (card‘∪ 𝑦 ∈ 𝑥 ({𝑦} × 𝒫 𝑦)))
4	3	ackbij1lem17 8941	. . . . . 6 ⊢ 𝐹:(𝒫 ω ∩ Fin)–1-1→ω
5		f1imaeng 7902	. . . . . 6 ⊢ ((𝐹:(𝒫 ω ∩ Fin)–1-1→ω ∧ 𝒫 𝐴 ⊆ (𝒫 ω ∩ Fin) ∧ 𝒫 𝐴 ∈ V) → (𝐹 “ 𝒫 𝐴) ≈ 𝒫 𝐴)
6	4, 5	mp3an1 1403	. . . . 5 ⊢ ((𝒫 𝐴 ⊆ (𝒫 ω ∩ Fin) ∧ 𝒫 𝐴 ∈ V) → (𝐹 “ 𝒫 𝐴) ≈ 𝒫 𝐴)
7	1, 2, 6	syl2anc 691	. . . 4 ⊢ (𝐴 ∈ ω → (𝐹 “ 𝒫 𝐴) ≈ 𝒫 𝐴)
8		nnfi 8038	. . . . . 6 ⊢ (𝐴 ∈ ω → 𝐴 ∈ Fin)
9		pwfi 8144	. . . . . 6 ⊢ (𝐴 ∈ Fin ↔ 𝒫 𝐴 ∈ Fin)
10	8, 9	sylib 207	. . . . 5 ⊢ (𝐴 ∈ ω → 𝒫 𝐴 ∈ Fin)
11		ficardid 8671	. . . . 5 ⊢ (𝒫 𝐴 ∈ Fin → (card‘𝒫 𝐴) ≈ 𝒫 𝐴)
12		ensym 7891	. . . . 5 ⊢ ((card‘𝒫 𝐴) ≈ 𝒫 𝐴 → 𝒫 𝐴 ≈ (card‘𝒫 𝐴))
13	10, 11, 12	3syl 18	. . . 4 ⊢ (𝐴 ∈ ω → 𝒫 𝐴 ≈ (card‘𝒫 𝐴))
14		entr 7894	. . . 4 ⊢ (((𝐹 “ 𝒫 𝐴) ≈ 𝒫 𝐴 ∧ 𝒫 𝐴 ≈ (card‘𝒫 𝐴)) → (𝐹 “ 𝒫 𝐴) ≈ (card‘𝒫 𝐴))
15	7, 13, 14	syl2anc 691	. . 3 ⊢ (𝐴 ∈ ω → (𝐹 “ 𝒫 𝐴) ≈ (card‘𝒫 𝐴))
16		onfin2 8037	. . . . . . 7 ⊢ ω = (On ∩ Fin)
17		inss2 3796	. . . . . . 7 ⊢ (On ∩ Fin) ⊆ Fin
18	16, 17	eqsstri 3598	. . . . . 6 ⊢ ω ⊆ Fin
19		ficardom 8670	. . . . . . 7 ⊢ (𝒫 𝐴 ∈ Fin → (card‘𝒫 𝐴) ∈ ω)
20	10, 19	syl 17	. . . . . 6 ⊢ (𝐴 ∈ ω → (card‘𝒫 𝐴) ∈ ω)
21	18, 20	sseldi 3566	. . . . 5 ⊢ (𝐴 ∈ ω → (card‘𝒫 𝐴) ∈ Fin)
22		php3 8031	. . . . . 6 ⊢ (((card‘𝒫 𝐴) ∈ Fin ∧ (𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴)) → (𝐹 “ 𝒫 𝐴) ≺ (card‘𝒫 𝐴))
23	22	ex 449	. . . . 5 ⊢ ((card‘𝒫 𝐴) ∈ Fin → ((𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴) → (𝐹 “ 𝒫 𝐴) ≺ (card‘𝒫 𝐴)))
24	21, 23	syl 17	. . . 4 ⊢ (𝐴 ∈ ω → ((𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴) → (𝐹 “ 𝒫 𝐴) ≺ (card‘𝒫 𝐴)))
25		sdomnen 7870	. . . 4 ⊢ ((𝐹 “ 𝒫 𝐴) ≺ (card‘𝒫 𝐴) → ¬ (𝐹 “ 𝒫 𝐴) ≈ (card‘𝒫 𝐴))
26	24, 25	syl6 34	. . 3 ⊢ (𝐴 ∈ ω → ((𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴) → ¬ (𝐹 “ 𝒫 𝐴) ≈ (card‘𝒫 𝐴)))
27	15, 26	mt2d 130	. 2 ⊢ (𝐴 ∈ ω → ¬ (𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴))
28		fvex 6113	. . . . . 6 ⊢ (𝐹‘𝑎) ∈ V
29		ackbij1lem3 8927	. . . . . . . . 9 ⊢ (𝐴 ∈ ω → 𝐴 ∈ (𝒫 ω ∩ Fin))
30		elpwi 4117	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝒫 𝐴 → 𝑎 ⊆ 𝐴)
31	3	ackbij1lem12 8936	. . . . . . . . 9 ⊢ ((𝐴 ∈ (𝒫 ω ∩ Fin) ∧ 𝑎 ⊆ 𝐴) → (𝐹‘𝑎) ⊆ (𝐹‘𝐴))
32	29, 30, 31	syl2an 493	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑎 ∈ 𝒫 𝐴) → (𝐹‘𝑎) ⊆ (𝐹‘𝐴))
33	3	ackbij1lem10 8934	. . . . . . . . . . 11 ⊢ 𝐹:(𝒫 ω ∩ Fin)⟶ω
34		peano1 6977	. . . . . . . . . . 11 ⊢ ∅ ∈ ω
35	33, 34	f0cli 6278	. . . . . . . . . 10 ⊢ (𝐹‘𝑎) ∈ ω
36		nnord 6965	. . . . . . . . . 10 ⊢ ((𝐹‘𝑎) ∈ ω → Ord (𝐹‘𝑎))
37	35, 36	ax-mp 5	. . . . . . . . 9 ⊢ Ord (𝐹‘𝑎)
38	33, 34	f0cli 6278	. . . . . . . . . 10 ⊢ (𝐹‘𝐴) ∈ ω
39		nnord 6965	. . . . . . . . . 10 ⊢ ((𝐹‘𝐴) ∈ ω → Ord (𝐹‘𝐴))
40	38, 39	ax-mp 5	. . . . . . . . 9 ⊢ Ord (𝐹‘𝐴)
41		ordsucsssuc 6915	. . . . . . . . 9 ⊢ ((Ord (𝐹‘𝑎) ∧ Ord (𝐹‘𝐴)) → ((𝐹‘𝑎) ⊆ (𝐹‘𝐴) ↔ suc (𝐹‘𝑎) ⊆ suc (𝐹‘𝐴)))
42	37, 40, 41	mp2an 704	. . . . . . . 8 ⊢ ((𝐹‘𝑎) ⊆ (𝐹‘𝐴) ↔ suc (𝐹‘𝑎) ⊆ suc (𝐹‘𝐴))
43	32, 42	sylib 207	. . . . . . 7 ⊢ ((𝐴 ∈ ω ∧ 𝑎 ∈ 𝒫 𝐴) → suc (𝐹‘𝑎) ⊆ suc (𝐹‘𝐴))
44	3	ackbij1lem14 8938	. . . . . . . . 9 ⊢ (𝐴 ∈ ω → (𝐹‘{𝐴}) = suc (𝐹‘𝐴))
45	3	ackbij1lem8 8932	. . . . . . . . 9 ⊢ (𝐴 ∈ ω → (𝐹‘{𝐴}) = (card‘𝒫 𝐴))
46	44, 45	eqtr3d 2646	. . . . . . . 8 ⊢ (𝐴 ∈ ω → suc (𝐹‘𝐴) = (card‘𝒫 𝐴))
47	46	adantr 480	. . . . . . 7 ⊢ ((𝐴 ∈ ω ∧ 𝑎 ∈ 𝒫 𝐴) → suc (𝐹‘𝐴) = (card‘𝒫 𝐴))
48	43, 47	sseqtrd 3604	. . . . . 6 ⊢ ((𝐴 ∈ ω ∧ 𝑎 ∈ 𝒫 𝐴) → suc (𝐹‘𝑎) ⊆ (card‘𝒫 𝐴))
49		sucssel 5736	. . . . . 6 ⊢ ((𝐹‘𝑎) ∈ V → (suc (𝐹‘𝑎) ⊆ (card‘𝒫 𝐴) → (𝐹‘𝑎) ∈ (card‘𝒫 𝐴)))
50	28, 48, 49	mpsyl 66	. . . . 5 ⊢ ((𝐴 ∈ ω ∧ 𝑎 ∈ 𝒫 𝐴) → (𝐹‘𝑎) ∈ (card‘𝒫 𝐴))
51	50	ralrimiva 2949	. . . 4 ⊢ (𝐴 ∈ ω → ∀𝑎 ∈ 𝒫 𝐴(𝐹‘𝑎) ∈ (card‘𝒫 𝐴))
52		f1fun 6016	. . . . . 6 ⊢ (𝐹:(𝒫 ω ∩ Fin)–1-1→ω → Fun 𝐹)
53	4, 52	ax-mp 5	. . . . 5 ⊢ Fun 𝐹
54		f1dm 6018	. . . . . . 7 ⊢ (𝐹:(𝒫 ω ∩ Fin)–1-1→ω → dom 𝐹 = (𝒫 ω ∩ Fin))
55	4, 54	ax-mp 5	. . . . . 6 ⊢ dom 𝐹 = (𝒫 ω ∩ Fin)
56	1, 55	syl6sseqr 3615	. . . . 5 ⊢ (𝐴 ∈ ω → 𝒫 𝐴 ⊆ dom 𝐹)
57		funimass4 6157	. . . . 5 ⊢ ((Fun 𝐹 ∧ 𝒫 𝐴 ⊆ dom 𝐹) → ((𝐹 “ 𝒫 𝐴) ⊆ (card‘𝒫 𝐴) ↔ ∀𝑎 ∈ 𝒫 𝐴(𝐹‘𝑎) ∈ (card‘𝒫 𝐴)))
58	53, 56, 57	sylancr 694	. . . 4 ⊢ (𝐴 ∈ ω → ((𝐹 “ 𝒫 𝐴) ⊆ (card‘𝒫 𝐴) ↔ ∀𝑎 ∈ 𝒫 𝐴(𝐹‘𝑎) ∈ (card‘𝒫 𝐴)))
59	51, 58	mpbird 246	. . 3 ⊢ (𝐴 ∈ ω → (𝐹 “ 𝒫 𝐴) ⊆ (card‘𝒫 𝐴))
60		sspss 3668	. . 3 ⊢ ((𝐹 “ 𝒫 𝐴) ⊆ (card‘𝒫 𝐴) ↔ ((𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴) ∨ (𝐹 “ 𝒫 𝐴) = (card‘𝒫 𝐴)))
61	59, 60	sylib 207	. 2 ⊢ (𝐴 ∈ ω → ((𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴) ∨ (𝐹 “ 𝒫 𝐴) = (card‘𝒫 𝐴)))
62		orel1 396	. 2 ⊢ (¬ (𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴) → (((𝐹 “ 𝒫 𝐴) ⊊ (card‘𝒫 𝐴) ∨ (𝐹 “ 𝒫 𝐴) = (card‘𝒫 𝐴)) → (𝐹 “ 𝒫 𝐴) = (card‘𝒫 𝐴)))
63	27, 61, 62	sylc 63	1 ⊢ (𝐴 ∈ ω → (𝐹 “ 𝒫 𝐴) = (card‘𝒫 𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 195   ∨ wo 382   ∧ wa 383   = wceq 1475   ∈ wcel 1977  ∀wral 2896  Vcvv 3173   ∩ cin 3539   ⊆ wss 3540   ⊊ wpss 3541  𝒫 cpw 4108  {csn 4125  ∪ ciun 4455   class class class wbr 4583   ↦ cmpt 4643   × cxp 5036  dom cdm 5038   “ cima 5041  Ord word 5639  Oncon0 5640  suc csuc 5642  Fun wfun 5798  –1-1→wf1 5801  ‘cfv 5804  ωcom 6957   ≈ cen 7838   ≺ csdm 7840  Fincfn 7841  cardccrd 8644

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-2o 7448  df-oadd 7451  df-er 7629  df-map 7746  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-card 8648  df-cda 8873

This theorem is referenced by:  ackbij2lem2  8945