Theorem rankuni 9138

Description: The rank of a union. Part of Exercise 4 of [Kunen] p. 107. (Contributed by NM, 15-Sep-2006.) (Revised by Mario Carneiro, 17-Nov-2014.)

Assertion

Ref	Expression
rankuni	⊢ (rank‘∪ 𝐴) = ∪ (rank‘𝐴)

Proof of Theorem rankuni

Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		unieq 4753	. . . . 5 ⊢ (𝑥 = 𝐴 → ∪ 𝑥 = ∪ 𝐴)
2	1	fveq2d 6542	. . . 4 ⊢ (𝑥 = 𝐴 → (rank‘∪ 𝑥) = (rank‘∪ 𝐴))
3		fveq2 6538	. . . . 5 ⊢ (𝑥 = 𝐴 → (rank‘𝑥) = (rank‘𝐴))
4	3	unieqd 4755	. . . 4 ⊢ (𝑥 = 𝐴 → ∪ (rank‘𝑥) = ∪ (rank‘𝐴))
5	2, 4	eqeq12d 2810	. . 3 ⊢ (𝑥 = 𝐴 → ((rank‘∪ 𝑥) = ∪ (rank‘𝑥) ↔ (rank‘∪ 𝐴) = ∪ (rank‘𝐴)))
6		vex 3440	. . . . . . 7 ⊢ 𝑥 ∈ V
7	6	rankuni2 9130	. . . . . 6 ⊢ (rank‘∪ 𝑥) = ∪ 𝑧 ∈ 𝑥 (rank‘𝑧)
8		fvex 6551	. . . . . . 7 ⊢ (rank‘𝑧) ∈ V
9	8	dfiun2 4861	. . . . . 6 ⊢ ∪ 𝑧 ∈ 𝑥 (rank‘𝑧) = ∪ {𝑦 ∣ ∃𝑧 ∈ 𝑥 𝑦 = (rank‘𝑧)}
10	7, 9	eqtri 2819	. . . . 5 ⊢ (rank‘∪ 𝑥) = ∪ {𝑦 ∣ ∃𝑧 ∈ 𝑥 𝑦 = (rank‘𝑧)}
11		df-rex 3111	. . . . . . . 8 ⊢ (∃𝑧 ∈ 𝑥 𝑦 = (rank‘𝑧) ↔ ∃𝑧(𝑧 ∈ 𝑥 ∧ 𝑦 = (rank‘𝑧)))
12	6	rankel 9114	. . . . . . . . . . 11 ⊢ (𝑧 ∈ 𝑥 → (rank‘𝑧) ∈ (rank‘𝑥))
13	12	anim1i 614	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝑥 ∧ 𝑦 = (rank‘𝑧)) → ((rank‘𝑧) ∈ (rank‘𝑥) ∧ 𝑦 = (rank‘𝑧)))
14	13	eximi 1816	. . . . . . . . 9 ⊢ (∃𝑧(𝑧 ∈ 𝑥 ∧ 𝑦 = (rank‘𝑧)) → ∃𝑧((rank‘𝑧) ∈ (rank‘𝑥) ∧ 𝑦 = (rank‘𝑧)))
15		19.42v 1931	. . . . . . . . . 10 ⊢ (∃𝑧(𝑦 ∈ (rank‘𝑥) ∧ 𝑦 = (rank‘𝑧)) ↔ (𝑦 ∈ (rank‘𝑥) ∧ ∃𝑧 𝑦 = (rank‘𝑧)))
16		eleq1 2870	. . . . . . . . . . . 12 ⊢ (𝑦 = (rank‘𝑧) → (𝑦 ∈ (rank‘𝑥) ↔ (rank‘𝑧) ∈ (rank‘𝑥)))
17	16	pm5.32ri 576	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ (rank‘𝑥) ∧ 𝑦 = (rank‘𝑧)) ↔ ((rank‘𝑧) ∈ (rank‘𝑥) ∧ 𝑦 = (rank‘𝑧)))
18	17	exbii 1829	. . . . . . . . . 10 ⊢ (∃𝑧(𝑦 ∈ (rank‘𝑥) ∧ 𝑦 = (rank‘𝑧)) ↔ ∃𝑧((rank‘𝑧) ∈ (rank‘𝑥) ∧ 𝑦 = (rank‘𝑧)))
19		simpl 483	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ (rank‘𝑥) ∧ ∃𝑧 𝑦 = (rank‘𝑧)) → 𝑦 ∈ (rank‘𝑥))
20		rankon 9070	. . . . . . . . . . . . . . . . 17 ⊢ (rank‘𝑥) ∈ On
21	20	oneli 6173	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ (rank‘𝑥) → 𝑦 ∈ On)
22		r1fnon 9042	. . . . . . . . . . . . . . . . 17 ⊢ 𝑅1 Fn On
23		fndm 6325	. . . . . . . . . . . . . . . . 17 ⊢ (𝑅1 Fn On → dom 𝑅1 = On)
24	22, 23	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ dom 𝑅1 = On
25	21, 24	syl6eleqr 2894	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ (rank‘𝑥) → 𝑦 ∈ dom 𝑅1)
26		rankr1id 9137	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ dom 𝑅1 ↔ (rank‘(𝑅1‘𝑦)) = 𝑦)
27	25, 26	sylib 219	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ (rank‘𝑥) → (rank‘(𝑅1‘𝑦)) = 𝑦)
28	27	eqcomd 2801	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ (rank‘𝑥) → 𝑦 = (rank‘(𝑅1‘𝑦)))
29		fvex 6551	. . . . . . . . . . . . . 14 ⊢ (𝑅1‘𝑦) ∈ V
30		fveq2 6538	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = (𝑅1‘𝑦) → (rank‘𝑧) = (rank‘(𝑅1‘𝑦)))
31	30	eqeq2d 2805	. . . . . . . . . . . . . 14 ⊢ (𝑧 = (𝑅1‘𝑦) → (𝑦 = (rank‘𝑧) ↔ 𝑦 = (rank‘(𝑅1‘𝑦))))
32	29, 31	spcev 3549	. . . . . . . . . . . . 13 ⊢ (𝑦 = (rank‘(𝑅1‘𝑦)) → ∃𝑧 𝑦 = (rank‘𝑧))
33	28, 32	syl 17	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (rank‘𝑥) → ∃𝑧 𝑦 = (rank‘𝑧))
34	33	ancli 549	. . . . . . . . . . 11 ⊢ (𝑦 ∈ (rank‘𝑥) → (𝑦 ∈ (rank‘𝑥) ∧ ∃𝑧 𝑦 = (rank‘𝑧)))
35	19, 34	impbii 210	. . . . . . . . . 10 ⊢ ((𝑦 ∈ (rank‘𝑥) ∧ ∃𝑧 𝑦 = (rank‘𝑧)) ↔ 𝑦 ∈ (rank‘𝑥))
36	15, 18, 35	3bitr3i 302	. . . . . . . . 9 ⊢ (∃𝑧((rank‘𝑧) ∈ (rank‘𝑥) ∧ 𝑦 = (rank‘𝑧)) ↔ 𝑦 ∈ (rank‘𝑥))
37	14, 36	sylib 219	. . . . . . . 8 ⊢ (∃𝑧(𝑧 ∈ 𝑥 ∧ 𝑦 = (rank‘𝑧)) → 𝑦 ∈ (rank‘𝑥))
38	11, 37	sylbi 218	. . . . . . 7 ⊢ (∃𝑧 ∈ 𝑥 𝑦 = (rank‘𝑧) → 𝑦 ∈ (rank‘𝑥))
39	38	abssi 3967	. . . . . 6 ⊢ {𝑦 ∣ ∃𝑧 ∈ 𝑥 𝑦 = (rank‘𝑧)} ⊆ (rank‘𝑥)
40	39	unissi 4768	. . . . 5 ⊢ ∪ {𝑦 ∣ ∃𝑧 ∈ 𝑥 𝑦 = (rank‘𝑧)} ⊆ ∪ (rank‘𝑥)
41	10, 40	eqsstri 3922	. . . 4 ⊢ (rank‘∪ 𝑥) ⊆ ∪ (rank‘𝑥)
42		pwuni 4781	. . . . . . . 8 ⊢ 𝑥 ⊆ 𝒫 ∪ 𝑥
43		vuniex 7324	. . . . . . . . . 10 ⊢ ∪ 𝑥 ∈ V
44	43	pwex 5172	. . . . . . . . 9 ⊢ 𝒫 ∪ 𝑥 ∈ V
45	44	rankss 9124	. . . . . . . 8 ⊢ (𝑥 ⊆ 𝒫 ∪ 𝑥 → (rank‘𝑥) ⊆ (rank‘𝒫 ∪ 𝑥))
46	42, 45	ax-mp 5	. . . . . . 7 ⊢ (rank‘𝑥) ⊆ (rank‘𝒫 ∪ 𝑥)
47	43	rankpw 9118	. . . . . . 7 ⊢ (rank‘𝒫 ∪ 𝑥) = suc (rank‘∪ 𝑥)
48	46, 47	sseqtri 3924	. . . . . 6 ⊢ (rank‘𝑥) ⊆ suc (rank‘∪ 𝑥)
49	48	unissi 4768	. . . . 5 ⊢ ∪ (rank‘𝑥) ⊆ ∪ suc (rank‘∪ 𝑥)
50		rankon 9070	. . . . . 6 ⊢ (rank‘∪ 𝑥) ∈ On
51	50	onunisuci 6179	. . . . 5 ⊢ ∪ suc (rank‘∪ 𝑥) = (rank‘∪ 𝑥)
52	49, 51	sseqtri 3924	. . . 4 ⊢ ∪ (rank‘𝑥) ⊆ (rank‘∪ 𝑥)
53	41, 52	eqssi 3905	. . 3 ⊢ (rank‘∪ 𝑥) = ∪ (rank‘𝑥)
54	5, 53	vtoclg 3510	. 2 ⊢ (𝐴 ∈ V → (rank‘∪ 𝐴) = ∪ (rank‘𝐴))
55		uniexb 7343	. . . . 5 ⊢ (𝐴 ∈ V ↔ ∪ 𝐴 ∈ V)
56		fvprc 6531	. . . . 5 ⊢ (¬ ∪ 𝐴 ∈ V → (rank‘∪ 𝐴) = ∅)
57	55, 56	sylnbi 331	. . . 4 ⊢ (¬ 𝐴 ∈ V → (rank‘∪ 𝐴) = ∅)
58		uni0 4772	. . . 4 ⊢ ∪ ∅ = ∅
59	57, 58	syl6eqr 2849	. . 3 ⊢ (¬ 𝐴 ∈ V → (rank‘∪ 𝐴) = ∪ ∅)
60		fvprc 6531	. . . 4 ⊢ (¬ 𝐴 ∈ V → (rank‘𝐴) = ∅)
61	60	unieqd 4755	. . 3 ⊢ (¬ 𝐴 ∈ V → ∪ (rank‘𝐴) = ∪ ∅)
62	59, 61	eqtr4d 2834	. 2 ⊢ (¬ 𝐴 ∈ V → (rank‘∪ 𝐴) = ∪ (rank‘𝐴))
63	54, 62	pm2.61i 183	1 ⊢ (rank‘∪ 𝐴) = ∪ (rank‘𝐴)

Syntax hints:  ¬ wn 3   ∧ wa 396   = wceq 1522  ∃wex 1761   ∈ wcel 2081  {cab 2775  ∃wrex 3106  Vcvv 3437   ⊆ wss 3859  ∅c0 4211  𝒫 cpw 4453  ∪ cuni 4745  ∪ ciun 4825  dom cdm 5443  Oncon0 6066  suc csuc 6068   Fn wfn 6220  ‘cfv 6225  𝑅₁cr1 9037  rankcrnk 9038

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319  ax-reg 8902  ax-inf2 8950

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-ral 3110  df-rex 3111  df-reu 3112  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-pss 3876  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-tp 4477  df-op 4479  df-uni 4746  df-int 4783  df-iun 4827  df-br 4963  df-opab 5025  df-mpt 5042  df-tr 5064  df-id 5348  df-eprel 5353  df-po 5362  df-so 5363  df-fr 5402  df-we 5404  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-pred 6023  df-ord 6069  df-on 6070  df-lim 6071  df-suc 6072  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-om 7437  df-wrecs 7798  df-recs 7860  df-rdg 7898  df-r1 9039  df-rank 9040

This theorem is referenced by:  rankuniss  9141  rankbnd2  9144  rankxplim2  9155  rankxplim3  9156  rankxpsuc  9157  r1limwun  10004  hfuni  33255