Theorem ackbij1lem14 10126

Description: Lemma for ackbij1 10131. (Contributed by Stefan O'Rear, 18-Nov-2014.)

Hypothesis

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

Assertion

Ref	Expression
ackbij1lem14	⊢ (𝐴 ∈ ω → (𝐹‘{𝐴}) = suc (𝐹‘𝐴))

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

Proof of Theorem ackbij1lem14

Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ackbij.f	. . 3 ⊢ 𝐹 = (𝑥 ∈ (𝒫 ω ∩ Fin) ↦ (card‘∪ 𝑦 ∈ 𝑥 ({𝑦} × 𝒫 𝑦)))
2	1	ackbij1lem8 10120	. 2 ⊢ (𝐴 ∈ ω → (𝐹‘{𝐴}) = (card‘𝒫 𝐴))
3		pweq 4565	. . . . 5 ⊢ (𝑎 = ∅ → 𝒫 𝑎 = 𝒫 ∅)
4	3	fveq2d 6826	. . . 4 ⊢ (𝑎 = ∅ → (card‘𝒫 𝑎) = (card‘𝒫 ∅))
5		fveq2 6822	. . . . 5 ⊢ (𝑎 = ∅ → (𝐹‘𝑎) = (𝐹‘∅))
6		suceq 6375	. . . . 5 ⊢ ((𝐹‘𝑎) = (𝐹‘∅) → suc (𝐹‘𝑎) = suc (𝐹‘∅))
7	5, 6	syl 17	. . . 4 ⊢ (𝑎 = ∅ → suc (𝐹‘𝑎) = suc (𝐹‘∅))
8	4, 7	eqeq12d 2745	. . 3 ⊢ (𝑎 = ∅ → ((card‘𝒫 𝑎) = suc (𝐹‘𝑎) ↔ (card‘𝒫 ∅) = suc (𝐹‘∅)))
9		pweq 4565	. . . . 5 ⊢ (𝑎 = 𝑏 → 𝒫 𝑎 = 𝒫 𝑏)
10	9	fveq2d 6826	. . . 4 ⊢ (𝑎 = 𝑏 → (card‘𝒫 𝑎) = (card‘𝒫 𝑏))
11		fveq2 6822	. . . . 5 ⊢ (𝑎 = 𝑏 → (𝐹‘𝑎) = (𝐹‘𝑏))
12		suceq 6375	. . . . 5 ⊢ ((𝐹‘𝑎) = (𝐹‘𝑏) → suc (𝐹‘𝑎) = suc (𝐹‘𝑏))
13	11, 12	syl 17	. . . 4 ⊢ (𝑎 = 𝑏 → suc (𝐹‘𝑎) = suc (𝐹‘𝑏))
14	10, 13	eqeq12d 2745	. . 3 ⊢ (𝑎 = 𝑏 → ((card‘𝒫 𝑎) = suc (𝐹‘𝑎) ↔ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)))
15		pweq 4565	. . . . 5 ⊢ (𝑎 = suc 𝑏 → 𝒫 𝑎 = 𝒫 suc 𝑏)
16	15	fveq2d 6826	. . . 4 ⊢ (𝑎 = suc 𝑏 → (card‘𝒫 𝑎) = (card‘𝒫 suc 𝑏))
17		fveq2 6822	. . . . 5 ⊢ (𝑎 = suc 𝑏 → (𝐹‘𝑎) = (𝐹‘suc 𝑏))
18		suceq 6375	. . . . 5 ⊢ ((𝐹‘𝑎) = (𝐹‘suc 𝑏) → suc (𝐹‘𝑎) = suc (𝐹‘suc 𝑏))
19	17, 18	syl 17	. . . 4 ⊢ (𝑎 = suc 𝑏 → suc (𝐹‘𝑎) = suc (𝐹‘suc 𝑏))
20	16, 19	eqeq12d 2745	. . 3 ⊢ (𝑎 = suc 𝑏 → ((card‘𝒫 𝑎) = suc (𝐹‘𝑎) ↔ (card‘𝒫 suc 𝑏) = suc (𝐹‘suc 𝑏)))
21		pweq 4565	. . . . 5 ⊢ (𝑎 = 𝐴 → 𝒫 𝑎 = 𝒫 𝐴)
22	21	fveq2d 6826	. . . 4 ⊢ (𝑎 = 𝐴 → (card‘𝒫 𝑎) = (card‘𝒫 𝐴))
23		fveq2 6822	. . . . 5 ⊢ (𝑎 = 𝐴 → (𝐹‘𝑎) = (𝐹‘𝐴))
24		suceq 6375	. . . . 5 ⊢ ((𝐹‘𝑎) = (𝐹‘𝐴) → suc (𝐹‘𝑎) = suc (𝐹‘𝐴))
25	23, 24	syl 17	. . . 4 ⊢ (𝑎 = 𝐴 → suc (𝐹‘𝑎) = suc (𝐹‘𝐴))
26	22, 25	eqeq12d 2745	. . 3 ⊢ (𝑎 = 𝐴 → ((card‘𝒫 𝑎) = suc (𝐹‘𝑎) ↔ (card‘𝒫 𝐴) = suc (𝐹‘𝐴)))
27		df-1o 8388	. . . 4 ⊢ 1o = suc ∅
28		pw0 4763	. . . . . 6 ⊢ 𝒫 ∅ = {∅}
29	28	fveq2i 6825	. . . . 5 ⊢ (card‘𝒫 ∅) = (card‘{∅})
30		0ex 5246	. . . . . 6 ⊢ ∅ ∈ V
31		cardsn 9865	. . . . . 6 ⊢ (∅ ∈ V → (card‘{∅}) = 1o)
32	30, 31	ax-mp 5	. . . . 5 ⊢ (card‘{∅}) = 1o
33	29, 32	eqtri 2752	. . . 4 ⊢ (card‘𝒫 ∅) = 1o
34	1	ackbij1lem13 10125	. . . . 5 ⊢ (𝐹‘∅) = ∅
35		suceq 6375	. . . . 5 ⊢ ((𝐹‘∅) = ∅ → suc (𝐹‘∅) = suc ∅)
36	34, 35	ax-mp 5	. . . 4 ⊢ suc (𝐹‘∅) = suc ∅
37	27, 33, 36	3eqtr4i 2762	. . 3 ⊢ (card‘𝒫 ∅) = suc (𝐹‘∅)
38		oveq2 7357	. . . . . 6 ⊢ ((card‘𝒫 𝑏) = suc (𝐹‘𝑏) → ((card‘𝒫 𝑏) +o (card‘𝒫 𝑏)) = ((card‘𝒫 𝑏) +o suc (𝐹‘𝑏)))
39	38	adantl 481	. . . . 5 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → ((card‘𝒫 𝑏) +o (card‘𝒫 𝑏)) = ((card‘𝒫 𝑏) +o suc (𝐹‘𝑏)))
40		ackbij1lem5 10117	. . . . . 6 ⊢ (𝑏 ∈ ω → (card‘𝒫 suc 𝑏) = ((card‘𝒫 𝑏) +o (card‘𝒫 𝑏)))
41	40	adantr 480	. . . . 5 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → (card‘𝒫 suc 𝑏) = ((card‘𝒫 𝑏) +o (card‘𝒫 𝑏)))
42		df-suc 6313	. . . . . . . . . 10 ⊢ suc 𝑏 = (𝑏 ∪ {𝑏})
43	42	equncomi 4111	. . . . . . . . 9 ⊢ suc 𝑏 = ({𝑏} ∪ 𝑏)
44	43	fveq2i 6825	. . . . . . . 8 ⊢ (𝐹‘suc 𝑏) = (𝐹‘({𝑏} ∪ 𝑏))
45		ackbij1lem4 10116	. . . . . . . . . . 11 ⊢ (𝑏 ∈ ω → {𝑏} ∈ (𝒫 ω ∩ Fin))
46	45	adantr 480	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → {𝑏} ∈ (𝒫 ω ∩ Fin))
47		ackbij1lem3 10115	. . . . . . . . . . 11 ⊢ (𝑏 ∈ ω → 𝑏 ∈ (𝒫 ω ∩ Fin))
48	47	adantr 480	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → 𝑏 ∈ (𝒫 ω ∩ Fin))
49		incom 4160	. . . . . . . . . . . 12 ⊢ ({𝑏} ∩ 𝑏) = (𝑏 ∩ {𝑏})
50		nnord 7807	. . . . . . . . . . . . 13 ⊢ (𝑏 ∈ ω → Ord 𝑏)
51		orddisj 6345	. . . . . . . . . . . . 13 ⊢ (Ord 𝑏 → (𝑏 ∩ {𝑏}) = ∅)
52	50, 51	syl 17	. . . . . . . . . . . 12 ⊢ (𝑏 ∈ ω → (𝑏 ∩ {𝑏}) = ∅)
53	49, 52	eqtrid 2776	. . . . . . . . . . 11 ⊢ (𝑏 ∈ ω → ({𝑏} ∩ 𝑏) = ∅)
54	53	adantr 480	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → ({𝑏} ∩ 𝑏) = ∅)
55	1	ackbij1lem9 10121	. . . . . . . . . 10 ⊢ (({𝑏} ∈ (𝒫 ω ∩ Fin) ∧ 𝑏 ∈ (𝒫 ω ∩ Fin) ∧ ({𝑏} ∩ 𝑏) = ∅) → (𝐹‘({𝑏} ∪ 𝑏)) = ((𝐹‘{𝑏}) +o (𝐹‘𝑏)))
56	46, 48, 54, 55	syl3anc 1373	. . . . . . . . 9 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → (𝐹‘({𝑏} ∪ 𝑏)) = ((𝐹‘{𝑏}) +o (𝐹‘𝑏)))
57	1	ackbij1lem8 10120	. . . . . . . . . . 11 ⊢ (𝑏 ∈ ω → (𝐹‘{𝑏}) = (card‘𝒫 𝑏))
58	57	adantr 480	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → (𝐹‘{𝑏}) = (card‘𝒫 𝑏))
59	58	oveq1d 7364	. . . . . . . . 9 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → ((𝐹‘{𝑏}) +o (𝐹‘𝑏)) = ((card‘𝒫 𝑏) +o (𝐹‘𝑏)))
60	56, 59	eqtrd 2764	. . . . . . . 8 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → (𝐹‘({𝑏} ∪ 𝑏)) = ((card‘𝒫 𝑏) +o (𝐹‘𝑏)))
61	44, 60	eqtrid 2776	. . . . . . 7 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → (𝐹‘suc 𝑏) = ((card‘𝒫 𝑏) +o (𝐹‘𝑏)))
62		suceq 6375	. . . . . . 7 ⊢ ((𝐹‘suc 𝑏) = ((card‘𝒫 𝑏) +o (𝐹‘𝑏)) → suc (𝐹‘suc 𝑏) = suc ((card‘𝒫 𝑏) +o (𝐹‘𝑏)))
63	61, 62	syl 17	. . . . . 6 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → suc (𝐹‘suc 𝑏) = suc ((card‘𝒫 𝑏) +o (𝐹‘𝑏)))
64		nnfi 9081	. . . . . . . . . 10 ⊢ (𝑏 ∈ ω → 𝑏 ∈ Fin)
65		pwfi 9208	. . . . . . . . . 10 ⊢ (𝑏 ∈ Fin ↔ 𝒫 𝑏 ∈ Fin)
66	64, 65	sylib 218	. . . . . . . . 9 ⊢ (𝑏 ∈ ω → 𝒫 𝑏 ∈ Fin)
67	66	adantr 480	. . . . . . . 8 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → 𝒫 𝑏 ∈ Fin)
68		ficardom 9857	. . . . . . . 8 ⊢ (𝒫 𝑏 ∈ Fin → (card‘𝒫 𝑏) ∈ ω)
69	67, 68	syl 17	. . . . . . 7 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → (card‘𝒫 𝑏) ∈ ω)
70	1	ackbij1lem10 10122	. . . . . . . . 9 ⊢ 𝐹:(𝒫 ω ∩ Fin)⟶ω
71	70	ffvelcdmi 7017	. . . . . . . 8 ⊢ (𝑏 ∈ (𝒫 ω ∩ Fin) → (𝐹‘𝑏) ∈ ω)
72	48, 71	syl 17	. . . . . . 7 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → (𝐹‘𝑏) ∈ ω)
73		nnasuc 8524	. . . . . . 7 ⊢ (((card‘𝒫 𝑏) ∈ ω ∧ (𝐹‘𝑏) ∈ ω) → ((card‘𝒫 𝑏) +o suc (𝐹‘𝑏)) = suc ((card‘𝒫 𝑏) +o (𝐹‘𝑏)))
74	69, 72, 73	syl2anc 584	. . . . . 6 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → ((card‘𝒫 𝑏) +o suc (𝐹‘𝑏)) = suc ((card‘𝒫 𝑏) +o (𝐹‘𝑏)))
75	63, 74	eqtr4d 2767	. . . . 5 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → suc (𝐹‘suc 𝑏) = ((card‘𝒫 𝑏) +o suc (𝐹‘𝑏)))
76	39, 41, 75	3eqtr4d 2774	. . . 4 ⊢ ((𝑏 ∈ ω ∧ (card‘𝒫 𝑏) = suc (𝐹‘𝑏)) → (card‘𝒫 suc 𝑏) = suc (𝐹‘suc 𝑏))
77	76	ex 412	. . 3 ⊢ (𝑏 ∈ ω → ((card‘𝒫 𝑏) = suc (𝐹‘𝑏) → (card‘𝒫 suc 𝑏) = suc (𝐹‘suc 𝑏)))
78	8, 14, 20, 26, 37, 77	finds 7829	. 2 ⊢ (𝐴 ∈ ω → (card‘𝒫 𝐴) = suc (𝐹‘𝐴))
79	2, 78	eqtrd 2764	1 ⊢ (𝐴 ∈ ω → (𝐹‘{𝐴}) = suc (𝐹‘𝐴))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  Vcvv 3436   ∪ cun 3901   ∩ cin 3902  ∅c0 4284  𝒫 cpw 4551  {csn 4577  ∪ ciun 4941   ↦ cmpt 5173   × cxp 5617  Ord word 6306  suc csuc 6309  ‘cfv 6482  (class class class)co 7349  ωcom 7799  1_oc1o 8381   +_o coa 8385  Fincfn 8872  cardccrd 9831

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-int 4897  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5174  df-tr 5200  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6249  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-ov 7352  df-oprab 7353  df-mpo 7354  df-om 7800  df-1st 7924  df-2nd 7925  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332  df-1o 8388  df-2o 8389  df-oadd 8392  df-er 8625  df-map 8755  df-en 8873  df-dom 8874  df-sdom 8875  df-fin 8876  df-dju 9797  df-card 9835

This theorem is referenced by:  ackbij1lem15  10127  ackbij1lem18  10130  ackbij1b  10132