Theorem rankxpsuc 9853

Description: The rank of a Cartesian product when the rank of the union of its arguments is a successor ordinal. Part of Exercise 4 of [Kunen] p. 107. See rankxplim 9850 for the limit ordinal case. (Contributed by NM, 19-Sep-2006.)

Hypotheses

Ref	Expression
rankxplim.1	⊢ 𝐴 ∈ V
rankxplim.2	⊢ 𝐵 ∈ V

Assertion

Ref	Expression
rankxpsuc	⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → (rank‘(𝐴 × 𝐵)) = suc suc (rank‘(𝐴 ∪ 𝐵)))

Proof of Theorem rankxpsuc

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		unixp 6283	. . . . . . . 8 ⊢ ((𝐴 × 𝐵) ≠ ∅ → ∪ ∪ (𝐴 × 𝐵) = (𝐴 ∪ 𝐵))
2	1	fveq2d 6885	. . . . . . 7 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (rank‘∪ ∪ (𝐴 × 𝐵)) = (rank‘(𝐴 ∪ 𝐵)))
3		rankuni 9834	. . . . . . . 8 ⊢ (rank‘∪ ∪ (𝐴 × 𝐵)) = ∪ (rank‘∪ (𝐴 × 𝐵))
4		rankuni 9834	. . . . . . . . 9 ⊢ (rank‘∪ (𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵))
5	4	unieqi 4883	. . . . . . . 8 ⊢ ∪ (rank‘∪ (𝐴 × 𝐵)) = ∪ ∪ (rank‘(𝐴 × 𝐵))
6	3, 5	eqtri 2784	. . . . . . 7 ⊢ (rank‘∪ ∪ (𝐴 × 𝐵)) = ∪ ∪ (rank‘(𝐴 × 𝐵))
7	2, 6	eqtr3di 2811	. . . . . 6 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (rank‘(𝐴 ∪ 𝐵)) = ∪ ∪ (rank‘(𝐴 × 𝐵)))
8		suc11reg 9587	. . . . . 6 ⊢ (suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ ∪ (rank‘(𝐴 × 𝐵)) ↔ (rank‘(𝐴 ∪ 𝐵)) = ∪ ∪ (rank‘(𝐴 × 𝐵)))
9	7, 8	sylibr 237	. . . . 5 ⊢ ((𝐴 × 𝐵) ≠ ∅ → suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ ∪ (rank‘(𝐴 × 𝐵)))
10	9	adantl 486	. . . 4 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ ∪ (rank‘(𝐴 × 𝐵)))
11		fvex 6894	. . . . . . . . . . . . . 14 ⊢ (rank‘(𝐴 ∪ 𝐵)) ∈ V
12		eleq1 2849	. . . . . . . . . . . . . 14 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ((rank‘(𝐴 ∪ 𝐵)) ∈ V ↔ suc 𝐶 ∈ V))
13	11, 12	mpbii 236	. . . . . . . . . . . . 13 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → suc 𝐶 ∈ V)
14		sucexb 7802	. . . . . . . . . . . . 13 ⊢ (𝐶 ∈ V ↔ suc 𝐶 ∈ V)
15	13, 14	sylibr 237	. . . . . . . . . . . 12 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → 𝐶 ∈ V)
16		nlimsucg 7837	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ V → ¬ Lim suc 𝐶)
17	15, 16	syl 18	. . . . . . . . . . 11 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ¬ Lim suc 𝐶)
18		limeq 6372	. . . . . . . . . . 11 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → (Lim (rank‘(𝐴 ∪ 𝐵)) ↔ Lim suc 𝐶))
19	17, 18	mtbird 328	. . . . . . . . . 10 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ¬ Lim (rank‘(𝐴 ∪ 𝐵)))
20		rankxplim.1	. . . . . . . . . . 11 ⊢ 𝐴 ∈ V
21		rankxplim.2	. . . . . . . . . . 11 ⊢ 𝐵 ∈ V
22	20, 21	rankxplim2 9851	. . . . . . . . . 10 ⊢ (Lim (rank‘(𝐴 × 𝐵)) → Lim (rank‘(𝐴 ∪ 𝐵)))
23	19, 22	nsyl 141	. . . . . . . . 9 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ¬ Lim (rank‘(𝐴 × 𝐵)))
24	20, 21	xpex 7751	. . . . . . . . . . . . . 14 ⊢ (𝐴 × 𝐵) ∈ V
25	24	rankeq0 9832	. . . . . . . . . . . . 13 ⊢ ((𝐴 × 𝐵) = ∅ ↔ (rank‘(𝐴 × 𝐵)) = ∅)
26	25	necon3abii 3002	. . . . . . . . . . . 12 ⊢ ((𝐴 × 𝐵) ≠ ∅ ↔ ¬ (rank‘(𝐴 × 𝐵)) = ∅)
27		rankon 9766	. . . . . . . . . . . . . . . 16 ⊢ (rank‘(𝐴 × 𝐵)) ∈ On
28	27	onordi 6474	. . . . . . . . . . . . . . 15 ⊢ Ord (rank‘(𝐴 × 𝐵))
29		ordzsl 7840	. . . . . . . . . . . . . . 15 ⊢ (Ord (rank‘(𝐴 × 𝐵)) ↔ ((rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))))
30	28, 29	mpbi 233	. . . . . . . . . . . . . 14 ⊢ ((rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵)))
31		3orass 1104	. . . . . . . . . . . . . 14 ⊢ (((rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))) ↔ ((rank‘(𝐴 × 𝐵)) = ∅ ∨ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵)))))
32	30, 31	mpbi 233	. . . . . . . . . . . . 13 ⊢ ((rank‘(𝐴 × 𝐵)) = ∅ ∨ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))))
33	32	ori 874	. . . . . . . . . . . 12 ⊢ (¬ (rank‘(𝐴 × 𝐵)) = ∅ → (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))))
34	26, 33	sylbi 220	. . . . . . . . . . 11 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))))
35	34	ord 877	. . . . . . . . . 10 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (¬ ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 → Lim (rank‘(𝐴 × 𝐵))))
36	35	con1d 146	. . . . . . . . 9 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (¬ Lim (rank‘(𝐴 × 𝐵)) → ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥))
37	23, 36	syl5com 32	. . . . . . . 8 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ((𝐴 × 𝐵) ≠ ∅ → ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥))
38		nlimsucg 7837	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ V → ¬ Lim suc 𝑥)
39	38	elv 3458	. . . . . . . . . . 11 ⊢ ¬ Lim suc 𝑥
40		limeq 6372	. . . . . . . . . . 11 ⊢ ((rank‘(𝐴 × 𝐵)) = suc 𝑥 → (Lim (rank‘(𝐴 × 𝐵)) ↔ Lim suc 𝑥))
41	39, 40	mtbiri 330	. . . . . . . . . 10 ⊢ ((rank‘(𝐴 × 𝐵)) = suc 𝑥 → ¬ Lim (rank‘(𝐴 × 𝐵)))
42	41	rexlimivw 3160	. . . . . . . . 9 ⊢ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 → ¬ Lim (rank‘(𝐴 × 𝐵)))
43	20, 21	rankxplim3 9852	. . . . . . . . 9 ⊢ (Lim (rank‘(𝐴 × 𝐵)) ↔ Lim ∪ (rank‘(𝐴 × 𝐵)))
44	42, 43	sylnib 331	. . . . . . . 8 ⊢ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 → ¬ Lim ∪ (rank‘(𝐴 × 𝐵)))
45	37, 44	syl6com 38	. . . . . . 7 ⊢ ((𝐴 × 𝐵) ≠ ∅ → ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ¬ Lim ∪ (rank‘(𝐴 × 𝐵))))
46		unixp0 6284	. . . . . . . . . . . 12 ⊢ ((𝐴 × 𝐵) = ∅ ↔ ∪ (𝐴 × 𝐵) = ∅)
47	24	uniex 7739	. . . . . . . . . . . . 13 ⊢ ∪ (𝐴 × 𝐵) ∈ V
48	47	rankeq0 9832	. . . . . . . . . . . 12 ⊢ (∪ (𝐴 × 𝐵) = ∅ ↔ (rank‘∪ (𝐴 × 𝐵)) = ∅)
49	4	eqeq1i 2766	. . . . . . . . . . . 12 ⊢ ((rank‘∪ (𝐴 × 𝐵)) = ∅ ↔ ∪ (rank‘(𝐴 × 𝐵)) = ∅)
50	46, 48, 49	3bitri 300	. . . . . . . . . . 11 ⊢ ((𝐴 × 𝐵) = ∅ ↔ ∪ (rank‘(𝐴 × 𝐵)) = ∅)
51	50	necon3abii 3002	. . . . . . . . . 10 ⊢ ((𝐴 × 𝐵) ≠ ∅ ↔ ¬ ∪ (rank‘(𝐴 × 𝐵)) = ∅)
52		onuni 7786	. . . . . . . . . . . . . . 15 ⊢ ((rank‘(𝐴 × 𝐵)) ∈ On → ∪ (rank‘(𝐴 × 𝐵)) ∈ On)
53	27, 52	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ ∪ (rank‘(𝐴 × 𝐵)) ∈ On
54	53	onordi 6474	. . . . . . . . . . . . 13 ⊢ Ord ∪ (rank‘(𝐴 × 𝐵))
55		ordzsl 7840	. . . . . . . . . . . . 13 ⊢ (Ord ∪ (rank‘(𝐴 × 𝐵)) ↔ (∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))))
56	54, 55	mpbi 233	. . . . . . . . . . . 12 ⊢ (∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵)))
57		3orass 1104	. . . . . . . . . . . 12 ⊢ ((∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))) ↔ (∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵)))))
58	56, 57	mpbi 233	. . . . . . . . . . 11 ⊢ (∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))))
59	58	ori 874	. . . . . . . . . 10 ⊢ (¬ ∪ (rank‘(𝐴 × 𝐵)) = ∅ → (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))))
60	51, 59	sylbi 220	. . . . . . . . 9 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))))
61	60	ord 877	. . . . . . . 8 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (¬ ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 → Lim ∪ (rank‘(𝐴 × 𝐵))))
62	61	con1d 146	. . . . . . 7 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (¬ Lim ∪ (rank‘(𝐴 × 𝐵)) → ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥))
63	45, 62	syld 48	. . . . . 6 ⊢ ((𝐴 × 𝐵) ≠ ∅ → ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥))
64	63	impcom 412	. . . . 5 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥)
65		onsucuni2 7829	. . . . . . 7 ⊢ ((∪ (rank‘(𝐴 × 𝐵)) ∈ On ∧ ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥) → suc ∪ ∪ (rank‘(𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
66	53, 65	mpan 702	. . . . . 6 ⊢ (∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 → suc ∪ ∪ (rank‘(𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
67	66	rexlimivw 3160	. . . . 5 ⊢ (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 → suc ∪ ∪ (rank‘(𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
68	64, 67	syl 18	. . . 4 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc ∪ ∪ (rank‘(𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
69	10, 68	eqtrd 2796	. . 3 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc (rank‘(𝐴 ∪ 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
70		suc11reg 9587	. . 3 ⊢ (suc suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ (rank‘(𝐴 × 𝐵)) ↔ suc (rank‘(𝐴 ∪ 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
71	69, 70	sylibr 237	. 2 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ (rank‘(𝐴 × 𝐵)))
72	37	imp 411	. . 3 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥)
73		onsucuni2 7829	. . . . 5 ⊢ (((rank‘(𝐴 × 𝐵)) ∈ On ∧ (rank‘(𝐴 × 𝐵)) = suc 𝑥) → suc ∪ (rank‘(𝐴 × 𝐵)) = (rank‘(𝐴 × 𝐵)))
74	27, 73	mpan 702	. . . 4 ⊢ ((rank‘(𝐴 × 𝐵)) = suc 𝑥 → suc ∪ (rank‘(𝐴 × 𝐵)) = (rank‘(𝐴 × 𝐵)))
75	74	rexlimivw 3160	. . 3 ⊢ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 → suc ∪ (rank‘(𝐴 × 𝐵)) = (rank‘(𝐴 × 𝐵)))
76	72, 75	syl 18	. 2 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc ∪ (rank‘(𝐴 × 𝐵)) = (rank‘(𝐴 × 𝐵)))
77	71, 76	eqtr2d 2797	1 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → (rank‘(𝐴 × 𝐵)) = suc suc (rank‘(𝐴 ∪ 𝐵)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   ∨ wo 860   ∨ w3o 1100   = wceq 1568   ∈ wcel 2141   ≠ wne 2956  ∃wrex 3087  Vcvv 3453   ∪ cun 3902  ∅c0 4285  ∪ cuni 4871   × cxp 5659  Ord word 6359  Oncon0 6360  Lim wlim 6361  suc csuc 6362  ‘cfv 6536  rankcrnk 9734

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-reg 9553  ax-inf2 9609

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2095  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-int 4912  df-iun 4957  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7413  df-om 7862  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-r1 9735  df-rank 9736

This theorem is referenced by: (None)