Theorem rankxpsuc 9951

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 9948 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 6313	. . . . . . . 8 ⊢ ((𝐴 × 𝐵) ≠ ∅ → ∪ ∪ (𝐴 × 𝐵) = (𝐴 ∪ 𝐵))
2	1	fveq2d 6924	. . . . . . 7 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (rank‘∪ ∪ (𝐴 × 𝐵)) = (rank‘(𝐴 ∪ 𝐵)))
3		rankuni 9932	. . . . . . . 8 ⊢ (rank‘∪ ∪ (𝐴 × 𝐵)) = ∪ (rank‘∪ (𝐴 × 𝐵))
4		rankuni 9932	. . . . . . . . 9 ⊢ (rank‘∪ (𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵))
5	4	unieqi 4943	. . . . . . . 8 ⊢ ∪ (rank‘∪ (𝐴 × 𝐵)) = ∪ ∪ (rank‘(𝐴 × 𝐵))
6	3, 5	eqtri 2768	. . . . . . 7 ⊢ (rank‘∪ ∪ (𝐴 × 𝐵)) = ∪ ∪ (rank‘(𝐴 × 𝐵))
7	2, 6	eqtr3di 2795	. . . . . 6 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (rank‘(𝐴 ∪ 𝐵)) = ∪ ∪ (rank‘(𝐴 × 𝐵)))
8		suc11reg 9688	. . . . . 6 ⊢ (suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ ∪ (rank‘(𝐴 × 𝐵)) ↔ (rank‘(𝐴 ∪ 𝐵)) = ∪ ∪ (rank‘(𝐴 × 𝐵)))
9	7, 8	sylibr 234	. . . . 5 ⊢ ((𝐴 × 𝐵) ≠ ∅ → suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ ∪ (rank‘(𝐴 × 𝐵)))
10	9	adantl 481	. . . 4 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ ∪ (rank‘(𝐴 × 𝐵)))
11		fvex 6933	. . . . . . . . . . . . . 14 ⊢ (rank‘(𝐴 ∪ 𝐵)) ∈ V
12		eleq1 2832	. . . . . . . . . . . . . 14 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ((rank‘(𝐴 ∪ 𝐵)) ∈ V ↔ suc 𝐶 ∈ V))
13	11, 12	mpbii 233	. . . . . . . . . . . . 13 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → suc 𝐶 ∈ V)
14		sucexb 7840	. . . . . . . . . . . . 13 ⊢ (𝐶 ∈ V ↔ suc 𝐶 ∈ V)
15	13, 14	sylibr 234	. . . . . . . . . . . 12 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → 𝐶 ∈ V)
16		nlimsucg 7879	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ V → ¬ Lim suc 𝐶)
17	15, 16	syl 17	. . . . . . . . . . 11 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ¬ Lim suc 𝐶)
18		limeq 6407	. . . . . . . . . . 11 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → (Lim (rank‘(𝐴 ∪ 𝐵)) ↔ Lim suc 𝐶))
19	17, 18	mtbird 325	. . . . . . . . . 10 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ¬ Lim (rank‘(𝐴 ∪ 𝐵)))
20		rankxplim.1	. . . . . . . . . . 11 ⊢ 𝐴 ∈ V
21		rankxplim.2	. . . . . . . . . . 11 ⊢ 𝐵 ∈ V
22	20, 21	rankxplim2 9949	. . . . . . . . . 10 ⊢ (Lim (rank‘(𝐴 × 𝐵)) → Lim (rank‘(𝐴 ∪ 𝐵)))
23	19, 22	nsyl 140	. . . . . . . . 9 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ¬ Lim (rank‘(𝐴 × 𝐵)))
24	20, 21	xpex 7788	. . . . . . . . . . . . . 14 ⊢ (𝐴 × 𝐵) ∈ V
25	24	rankeq0 9930	. . . . . . . . . . . . 13 ⊢ ((𝐴 × 𝐵) = ∅ ↔ (rank‘(𝐴 × 𝐵)) = ∅)
26	25	necon3abii 2993	. . . . . . . . . . . 12 ⊢ ((𝐴 × 𝐵) ≠ ∅ ↔ ¬ (rank‘(𝐴 × 𝐵)) = ∅)
27		rankon 9864	. . . . . . . . . . . . . . . 16 ⊢ (rank‘(𝐴 × 𝐵)) ∈ On
28	27	onordi 6506	. . . . . . . . . . . . . . 15 ⊢ Ord (rank‘(𝐴 × 𝐵))
29		ordzsl 7882	. . . . . . . . . . . . . . 15 ⊢ (Ord (rank‘(𝐴 × 𝐵)) ↔ ((rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))))
30	28, 29	mpbi 230	. . . . . . . . . . . . . 14 ⊢ ((rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵)))
31		3orass 1090	. . . . . . . . . . . . . 14 ⊢ (((rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))) ↔ ((rank‘(𝐴 × 𝐵)) = ∅ ∨ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵)))))
32	30, 31	mpbi 230	. . . . . . . . . . . . 13 ⊢ ((rank‘(𝐴 × 𝐵)) = ∅ ∨ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))))
33	32	ori 860	. . . . . . . . . . . 12 ⊢ (¬ (rank‘(𝐴 × 𝐵)) = ∅ → (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))))
34	26, 33	sylbi 217	. . . . . . . . . . 11 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim (rank‘(𝐴 × 𝐵))))
35	34	ord 863	. . . . . . . . . 10 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (¬ ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 → Lim (rank‘(𝐴 × 𝐵))))
36	35	con1d 145	. . . . . . . . 9 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (¬ Lim (rank‘(𝐴 × 𝐵)) → ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥))
37	23, 36	syl5com 31	. . . . . . . 8 ⊢ ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ((𝐴 × 𝐵) ≠ ∅ → ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥))
38		nlimsucg 7879	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ V → ¬ Lim suc 𝑥)
39	38	elv 3493	. . . . . . . . . . 11 ⊢ ¬ Lim suc 𝑥
40		limeq 6407	. . . . . . . . . . 11 ⊢ ((rank‘(𝐴 × 𝐵)) = suc 𝑥 → (Lim (rank‘(𝐴 × 𝐵)) ↔ Lim suc 𝑥))
41	39, 40	mtbiri 327	. . . . . . . . . 10 ⊢ ((rank‘(𝐴 × 𝐵)) = suc 𝑥 → ¬ Lim (rank‘(𝐴 × 𝐵)))
42	41	rexlimivw 3157	. . . . . . . . 9 ⊢ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 → ¬ Lim (rank‘(𝐴 × 𝐵)))
43	20, 21	rankxplim3 9950	. . . . . . . . 9 ⊢ (Lim (rank‘(𝐴 × 𝐵)) ↔ Lim ∪ (rank‘(𝐴 × 𝐵)))
44	42, 43	sylnib 328	. . . . . . . 8 ⊢ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 → ¬ Lim ∪ (rank‘(𝐴 × 𝐵)))
45	37, 44	syl6com 37	. . . . . . 7 ⊢ ((𝐴 × 𝐵) ≠ ∅ → ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ¬ Lim ∪ (rank‘(𝐴 × 𝐵))))
46		unixp0 6314	. . . . . . . . . . . 12 ⊢ ((𝐴 × 𝐵) = ∅ ↔ ∪ (𝐴 × 𝐵) = ∅)
47	24	uniex 7776	. . . . . . . . . . . . 13 ⊢ ∪ (𝐴 × 𝐵) ∈ V
48	47	rankeq0 9930	. . . . . . . . . . . 12 ⊢ (∪ (𝐴 × 𝐵) = ∅ ↔ (rank‘∪ (𝐴 × 𝐵)) = ∅)
49	4	eqeq1i 2745	. . . . . . . . . . . 12 ⊢ ((rank‘∪ (𝐴 × 𝐵)) = ∅ ↔ ∪ (rank‘(𝐴 × 𝐵)) = ∅)
50	46, 48, 49	3bitri 297	. . . . . . . . . . 11 ⊢ ((𝐴 × 𝐵) = ∅ ↔ ∪ (rank‘(𝐴 × 𝐵)) = ∅)
51	50	necon3abii 2993	. . . . . . . . . 10 ⊢ ((𝐴 × 𝐵) ≠ ∅ ↔ ¬ ∪ (rank‘(𝐴 × 𝐵)) = ∅)
52		onuni 7824	. . . . . . . . . . . . . . 15 ⊢ ((rank‘(𝐴 × 𝐵)) ∈ On → ∪ (rank‘(𝐴 × 𝐵)) ∈ On)
53	27, 52	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ ∪ (rank‘(𝐴 × 𝐵)) ∈ On
54	53	onordi 6506	. . . . . . . . . . . . 13 ⊢ Ord ∪ (rank‘(𝐴 × 𝐵))
55		ordzsl 7882	. . . . . . . . . . . . 13 ⊢ (Ord ∪ (rank‘(𝐴 × 𝐵)) ↔ (∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))))
56	54, 55	mpbi 230	. . . . . . . . . . . 12 ⊢ (∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵)))
57		3orass 1090	. . . . . . . . . . . 12 ⊢ ((∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))) ↔ (∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵)))))
58	56, 57	mpbi 230	. . . . . . . . . . 11 ⊢ (∪ (rank‘(𝐴 × 𝐵)) = ∅ ∨ (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))))
59	58	ori 860	. . . . . . . . . 10 ⊢ (¬ ∪ (rank‘(𝐴 × 𝐵)) = ∅ → (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))))
60	51, 59	sylbi 217	. . . . . . . . 9 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 ∨ Lim ∪ (rank‘(𝐴 × 𝐵))))
61	60	ord 863	. . . . . . . 8 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (¬ ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 → Lim ∪ (rank‘(𝐴 × 𝐵))))
62	61	con1d 145	. . . . . . 7 ⊢ ((𝐴 × 𝐵) ≠ ∅ → (¬ Lim ∪ (rank‘(𝐴 × 𝐵)) → ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥))
63	45, 62	syld 47	. . . . . 6 ⊢ ((𝐴 × 𝐵) ≠ ∅ → ((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 → ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥))
64	63	impcom 407	. . . . 5 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → ∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥)
65		onsucuni2 7870	. . . . . . 7 ⊢ ((∪ (rank‘(𝐴 × 𝐵)) ∈ On ∧ ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥) → suc ∪ ∪ (rank‘(𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
66	53, 65	mpan 689	. . . . . 6 ⊢ (∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 → suc ∪ ∪ (rank‘(𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
67	66	rexlimivw 3157	. . . . 5 ⊢ (∃𝑥 ∈ On ∪ (rank‘(𝐴 × 𝐵)) = suc 𝑥 → suc ∪ ∪ (rank‘(𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
68	64, 67	syl 17	. . . 4 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc ∪ ∪ (rank‘(𝐴 × 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
69	10, 68	eqtrd 2780	. . 3 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc (rank‘(𝐴 ∪ 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
70		suc11reg 9688	. . 3 ⊢ (suc suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ (rank‘(𝐴 × 𝐵)) ↔ suc (rank‘(𝐴 ∪ 𝐵)) = ∪ (rank‘(𝐴 × 𝐵)))
71	69, 70	sylibr 234	. 2 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc suc (rank‘(𝐴 ∪ 𝐵)) = suc ∪ (rank‘(𝐴 × 𝐵)))
72	37	imp 406	. . 3 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → ∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥)
73		onsucuni2 7870	. . . . 5 ⊢ (((rank‘(𝐴 × 𝐵)) ∈ On ∧ (rank‘(𝐴 × 𝐵)) = suc 𝑥) → suc ∪ (rank‘(𝐴 × 𝐵)) = (rank‘(𝐴 × 𝐵)))
74	27, 73	mpan 689	. . . 4 ⊢ ((rank‘(𝐴 × 𝐵)) = suc 𝑥 → suc ∪ (rank‘(𝐴 × 𝐵)) = (rank‘(𝐴 × 𝐵)))
75	74	rexlimivw 3157	. . 3 ⊢ (∃𝑥 ∈ On (rank‘(𝐴 × 𝐵)) = suc 𝑥 → suc ∪ (rank‘(𝐴 × 𝐵)) = (rank‘(𝐴 × 𝐵)))
76	72, 75	syl 17	. 2 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → suc ∪ (rank‘(𝐴 × 𝐵)) = (rank‘(𝐴 × 𝐵)))
77	71, 76	eqtr2d 2781	1 ⊢ (((rank‘(𝐴 ∪ 𝐵)) = suc 𝐶 ∧ (𝐴 × 𝐵) ≠ ∅) → (rank‘(𝐴 × 𝐵)) = suc suc (rank‘(𝐴 ∪ 𝐵)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   ∨ wo 846   ∨ w3o 1086   = wceq 1537   ∈ wcel 2108   ≠ wne 2946  ∃wrex 3076  Vcvv 3488   ∪ cun 3974  ∅c0 4352  ∪ cuni 4931   × cxp 5698  Ord word 6394  Oncon0 6395  Lim wlim 6396  suc csuc 6397  ‘cfv 6573  rankcrnk 9832

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-reg 9661  ax-inf2 9710

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-ov 7451  df-om 7904  df-2nd 8031  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-r1 9833  df-rank 9834

This theorem is referenced by: (None)