Theorem oaordi 8515

Description: Ordering property of ordinal addition. Proposition 8.4 of [TakeutiZaring] p. 58. (Contributed by NM, 5-Dec-2004.)

Assertion

Ref	Expression
oaordi	⊢ ((𝐵 ∈ On ∧ 𝐶 ∈ On) → (𝐴 ∈ 𝐵 → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))

Proof of Theorem oaordi

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

Step	Hyp	Ref	Expression
1		onelon 6371	. . . . 5 ⊢ ((𝐵 ∈ On ∧ 𝐴 ∈ 𝐵) → 𝐴 ∈ On)
2	1	adantll 724	. . . 4 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ 𝐵) → 𝐴 ∈ On)
3		eloni 6356	. . . . . . . . 9 ⊢ (𝐵 ∈ On → Ord 𝐵)
4		ordsucss 7798	. . . . . . . . 9 ⊢ (Ord 𝐵 → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
5	3, 4	syl 17	. . . . . . . 8 ⊢ (𝐵 ∈ On → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
6	5	ad2antlr 737	. . . . . . 7 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
7		onsucb 7797	. . . . . . . . . 10 ⊢ (𝐴 ∈ On ↔ suc 𝐴 ∈ On)
8		oveq2 7404	. . . . . . . . . . . . . 14 ⊢ (𝑥 = suc 𝐴 → (𝐶 +o 𝑥) = (𝐶 +o suc 𝐴))
9	8	sseq2d 3968	. . . . . . . . . . . . 13 ⊢ (𝑥 = suc 𝐴 → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥) ↔ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝐴)))
10	9	imbi2d 342	. . . . . . . . . . . 12 ⊢ (𝑥 = suc 𝐴 → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)) ↔ (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝐴))))
11		oveq2 7404	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑦 → (𝐶 +o 𝑥) = (𝐶 +o 𝑦))
12	11	sseq2d 3968	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥) ↔ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦)))
13	12	imbi2d 342	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)) ↔ (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦))))
14		oveq2 7404	. . . . . . . . . . . . . 14 ⊢ (𝑥 = suc 𝑦 → (𝐶 +o 𝑥) = (𝐶 +o suc 𝑦))
15	14	sseq2d 3968	. . . . . . . . . . . . 13 ⊢ (𝑥 = suc 𝑦 → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥) ↔ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦)))
16	15	imbi2d 342	. . . . . . . . . . . 12 ⊢ (𝑥 = suc 𝑦 → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)) ↔ (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦))))
17		oveq2 7404	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝐵 → (𝐶 +o 𝑥) = (𝐶 +o 𝐵))
18	17	sseq2d 3968	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝐵 → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥) ↔ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))
19	18	imbi2d 342	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐵 → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)) ↔ (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵))))
20		ssid 3958	. . . . . . . . . . . . 13 ⊢ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝐴)
21	20	2a1i 12	. . . . . . . . . . . 12 ⊢ (suc 𝐴 ∈ On → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝐴)))
22		sssucid 6428	. . . . . . . . . . . . . . . . 17 ⊢ (𝐶 +o 𝑦) ⊆ suc (𝐶 +o 𝑦)
23		sstr2 3943	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → ((𝐶 +o 𝑦) ⊆ suc (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ suc (𝐶 +o 𝑦)))
24	22, 23	mpi 20	. . . . . . . . . . . . . . . 16 ⊢ ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ suc (𝐶 +o 𝑦))
25		oasuc 8493	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐶 ∈ On ∧ 𝑦 ∈ On) → (𝐶 +o suc 𝑦) = suc (𝐶 +o 𝑦))
26	25	ancoms 462	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ On ∧ 𝐶 ∈ On) → (𝐶 +o suc 𝑦) = suc (𝐶 +o 𝑦))
27	26	sseq2d 3968	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ On ∧ 𝐶 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦) ↔ (𝐶 +o suc 𝐴) ⊆ suc (𝐶 +o 𝑦)))
28	24, 27	imbitrrid 248	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ On ∧ 𝐶 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦)))
29	28	ex 416	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ On → (𝐶 ∈ On → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦))))
30	29	ad2antrr 736	. . . . . . . . . . . . 13 ⊢ (((𝑦 ∈ On ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑦) → (𝐶 ∈ On → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦))))
31	30	a2d 29	. . . . . . . . . . . 12 ⊢ (((𝑦 ∈ On ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑦) → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦)) → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦))))
32		sucssel 6443	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ On → (suc 𝐴 ⊆ 𝑥 → 𝐴 ∈ 𝑥))
33	7, 32	sylbir 237	. . . . . . . . . . . . . . . . . . 19 ⊢ (suc 𝐴 ∈ On → (suc 𝐴 ⊆ 𝑥 → 𝐴 ∈ 𝑥))
34		limsuc 7829	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Lim 𝑥 → (𝐴 ∈ 𝑥 ↔ suc 𝐴 ∈ 𝑥))
35	34	biimpd 231	. . . . . . . . . . . . . . . . . . 19 ⊢ (Lim 𝑥 → (𝐴 ∈ 𝑥 → suc 𝐴 ∈ 𝑥))
36	33, 35	sylan9r 516	. . . . . . . . . . . . . . . . . 18 ⊢ ((Lim 𝑥 ∧ suc 𝐴 ∈ On) → (suc 𝐴 ⊆ 𝑥 → suc 𝐴 ∈ 𝑥))
37	36	imp 410	. . . . . . . . . . . . . . . . 17 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) → suc 𝐴 ∈ 𝑥)
38		oveq2 7404	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = suc 𝐴 → (𝐶 +o 𝑦) = (𝐶 +o suc 𝐴))
39	38	ssiun2s 5006	. . . . . . . . . . . . . . . . 17 ⊢ (suc 𝐴 ∈ 𝑥 → (𝐶 +o suc 𝐴) ⊆ ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
40	37, 39	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) → (𝐶 +o suc 𝐴) ⊆ ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
41	40	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) ∧ 𝐶 ∈ On) → (𝐶 +o suc 𝐴) ⊆ ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
42		vex 3458	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑥 ∈ V
43		oalim 8501	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐶 ∈ On ∧ (𝑥 ∈ V ∧ Lim 𝑥)) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
44	42, 43	mpanr1 713	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐶 ∈ On ∧ Lim 𝑥) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
45	44	ancoms 462	. . . . . . . . . . . . . . . . 17 ⊢ ((Lim 𝑥 ∧ 𝐶 ∈ On) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
46	45	adantlr 725	. . . . . . . . . . . . . . . 16 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ 𝐶 ∈ On) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
47	46	adantlr 725	. . . . . . . . . . . . . . 15 ⊢ ((((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) ∧ 𝐶 ∈ On) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
48	41, 47	sseqtrrd 3973	. . . . . . . . . . . . . 14 ⊢ ((((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) ∧ 𝐶 ∈ On) → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥))
49	48	ex 416	. . . . . . . . . . . . 13 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)))
50	49	a1d 25	. . . . . . . . . . . 12 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) → (∀𝑦 ∈ 𝑥 (suc 𝐴 ⊆ 𝑦 → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦))) → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥))))
51	10, 13, 16, 19, 21, 31, 50	tfindsg 7841	. . . . . . . . . . 11 ⊢ (((𝐵 ∈ On ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝐵) → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))
52	51	exp31 423	. . . . . . . . . 10 ⊢ (𝐵 ∈ On → (suc 𝐴 ∈ On → (suc 𝐴 ⊆ 𝐵 → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))))
53	7, 52	biimtrid 244	. . . . . . . . 9 ⊢ (𝐵 ∈ On → (𝐴 ∈ On → (suc 𝐴 ⊆ 𝐵 → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))))
54	53	com4r 94	. . . . . . . 8 ⊢ (𝐶 ∈ On → (𝐵 ∈ On → (𝐴 ∈ On → (suc 𝐴 ⊆ 𝐵 → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))))
55	54	imp31 421	. . . . . . 7 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) → (suc 𝐴 ⊆ 𝐵 → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))
56		oasuc 8493	. . . . . . . . . 10 ⊢ ((𝐶 ∈ On ∧ 𝐴 ∈ On) → (𝐶 +o suc 𝐴) = suc (𝐶 +o 𝐴))
57	56	sseq1d 3967	. . . . . . . . 9 ⊢ ((𝐶 ∈ On ∧ 𝐴 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵) ↔ suc (𝐶 +o 𝐴) ⊆ (𝐶 +o 𝐵)))
58		ovex 7429	. . . . . . . . . 10 ⊢ (𝐶 +o 𝐴) ∈ V
59		sucssel 6443	. . . . . . . . . 10 ⊢ ((𝐶 +o 𝐴) ∈ V → (suc (𝐶 +o 𝐴) ⊆ (𝐶 +o 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
60	58, 59	ax-mp 5	. . . . . . . . 9 ⊢ (suc (𝐶 +o 𝐴) ⊆ (𝐶 +o 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵))
61	57, 60	biimtrdi 255	. . . . . . . 8 ⊢ ((𝐶 ∈ On ∧ 𝐴 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
62	61	adantlr 725	. . . . . . 7 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
63	6, 55, 62	3syld 60	. . . . . 6 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) → (𝐴 ∈ 𝐵 → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
64	63	imp 410	. . . . 5 ⊢ ((((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) ∧ 𝐴 ∈ 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵))
65	64	an32s 662	. . . 4 ⊢ ((((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ 𝐵) ∧ 𝐴 ∈ On) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵))
66	2, 65	mpdan 697	. . 3 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵))
67	66	ex 416	. 2 ⊢ ((𝐶 ∈ On ∧ 𝐵 ∈ On) → (𝐴 ∈ 𝐵 → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
68	67	ancoms 462	1 ⊢ ((𝐵 ∈ On ∧ 𝐶 ∈ On) → (𝐴 ∈ 𝐵 → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))

Syntax hints:   → wi 4   ∧ wa 399   = wceq 1560   ∈ wcel 2142  ∀wral 3076  Vcvv 3454   ⊆ wss 3904  ∪ ciun 4949  Ord word 6345  Oncon0 6346  Lim wlim 6347  suc csuc 6348  (class class class)co 7396   +_o coa 8434

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pr 5390  ax-un 7718

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3077  df-rex 3087  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-ov 7399  df-oprab 7400  df-mpo 7401  df-2nd 7971  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-oadd 8441

This theorem is referenced by:  oaord  8516  oaass  8530  odi  8548  onexomgt  43818  onexoegt  43821  oaltublim  43867  oaordi3  43868  oacl2g  43907  tfsconcatfv2  43917  tfsconcatrn  43919  tfsconcatrev  43925  ofoafg  43931  oaun3lem1  43951  oaun3lem2  43952  oadif1  43957  naddwordnexlem0  43973  naddwordnexlem3  43976  naddwordnexlem4  43978  oaltom  43981