Theorem rankpwi 9719

Description: The rank of a power set. Part of Exercise 30 of [Enderton] p. 207. (Contributed by Mario Carneiro, 3-Jun-2013.)

Assertion

Ref	Expression
rankpwi	⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → (rank‘𝒫 𝐴) = suc (rank‘𝐴))

Proof of Theorem rankpwi

Step	Hyp	Ref	Expression
1		rankidn 9718	. . . 4 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → ¬ 𝐴 ∈ (𝑅1‘(rank‘𝐴)))
2		rankon 9691	. . . . . . 7 ⊢ (rank‘𝐴) ∈ On
3		r1suc 9666	. . . . . . 7 ⊢ ((rank‘𝐴) ∈ On → (𝑅1‘suc (rank‘𝐴)) = 𝒫 (𝑅1‘(rank‘𝐴)))
4	2, 3	ax-mp 5	. . . . . 6 ⊢ (𝑅1‘suc (rank‘𝐴)) = 𝒫 (𝑅1‘(rank‘𝐴))
5	4	eleq2i 2820	. . . . 5 ⊢ (𝒫 𝐴 ∈ (𝑅1‘suc (rank‘𝐴)) ↔ 𝒫 𝐴 ∈ 𝒫 (𝑅1‘(rank‘𝐴)))
6		elpwi 4558	. . . . . 6 ⊢ (𝒫 𝐴 ∈ 𝒫 (𝑅1‘(rank‘𝐴)) → 𝒫 𝐴 ⊆ (𝑅1‘(rank‘𝐴)))
7		pwidg 4571	. . . . . 6 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → 𝐴 ∈ 𝒫 𝐴)
8		ssel 3929	. . . . . 6 ⊢ (𝒫 𝐴 ⊆ (𝑅1‘(rank‘𝐴)) → (𝐴 ∈ 𝒫 𝐴 → 𝐴 ∈ (𝑅1‘(rank‘𝐴))))
9	6, 7, 8	syl2imc 41	. . . . 5 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → (𝒫 𝐴 ∈ 𝒫 (𝑅1‘(rank‘𝐴)) → 𝐴 ∈ (𝑅1‘(rank‘𝐴))))
10	5, 9	biimtrid 242	. . . 4 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → (𝒫 𝐴 ∈ (𝑅1‘suc (rank‘𝐴)) → 𝐴 ∈ (𝑅1‘(rank‘𝐴))))
11	1, 10	mtod 198	. . 3 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → ¬ 𝒫 𝐴 ∈ (𝑅1‘suc (rank‘𝐴)))
12		r1rankidb 9700	. . . . . . 7 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → 𝐴 ⊆ (𝑅1‘(rank‘𝐴)))
13	12	sspwd 4564	. . . . . 6 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → 𝒫 𝐴 ⊆ 𝒫 (𝑅1‘(rank‘𝐴)))
14	13, 4	sseqtrrdi 3977	. . . . 5 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → 𝒫 𝐴 ⊆ (𝑅1‘suc (rank‘𝐴)))
15		fvex 6835	. . . . . 6 ⊢ (𝑅1‘suc (rank‘𝐴)) ∈ V
16	15	elpw2 5273	. . . . 5 ⊢ (𝒫 𝐴 ∈ 𝒫 (𝑅1‘suc (rank‘𝐴)) ↔ 𝒫 𝐴 ⊆ (𝑅1‘suc (rank‘𝐴)))
17	14, 16	sylibr 234	. . . 4 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → 𝒫 𝐴 ∈ 𝒫 (𝑅1‘suc (rank‘𝐴)))
18	2	onsuci 7772	. . . . 5 ⊢ suc (rank‘𝐴) ∈ On
19		r1suc 9666	. . . . 5 ⊢ (suc (rank‘𝐴) ∈ On → (𝑅1‘suc suc (rank‘𝐴)) = 𝒫 (𝑅1‘suc (rank‘𝐴)))
20	18, 19	ax-mp 5	. . . 4 ⊢ (𝑅1‘suc suc (rank‘𝐴)) = 𝒫 (𝑅1‘suc (rank‘𝐴))
21	17, 20	eleqtrrdi 2839	. . 3 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → 𝒫 𝐴 ∈ (𝑅1‘suc suc (rank‘𝐴)))
22		pwwf 9703	. . . 4 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) ↔ 𝒫 𝐴 ∈ ∪ (𝑅1 “ On))
23		rankr1c 9717	. . . 4 ⊢ (𝒫 𝐴 ∈ ∪ (𝑅1 “ On) → (suc (rank‘𝐴) = (rank‘𝒫 𝐴) ↔ (¬ 𝒫 𝐴 ∈ (𝑅1‘suc (rank‘𝐴)) ∧ 𝒫 𝐴 ∈ (𝑅1‘suc suc (rank‘𝐴)))))
24	22, 23	sylbi 217	. . 3 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → (suc (rank‘𝐴) = (rank‘𝒫 𝐴) ↔ (¬ 𝒫 𝐴 ∈ (𝑅1‘suc (rank‘𝐴)) ∧ 𝒫 𝐴 ∈ (𝑅1‘suc suc (rank‘𝐴)))))
25	11, 21, 24	mpbir2and 713	. 2 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → suc (rank‘𝐴) = (rank‘𝒫 𝐴))
26	25	eqcomd 2735	1 ⊢ (𝐴 ∈ ∪ (𝑅1 “ On) → (rank‘𝒫 𝐴) = suc (rank‘𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109   ⊆ wss 3903  𝒫 cpw 4551  ∪ cuni 4858   “ cima 5622  Oncon0 6307  suc csuc 6309  ‘cfv 6482  𝑅₁cr1 9658  rankcrnk 9659

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-rep 5218  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-om 7800  df-2nd 7925  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332  df-r1 9660  df-rank 9661

This theorem is referenced by:  rankpw  9739  r1pw  9741  r1pwcl  9743