Theorem oaordi 8537

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 6389	. . . . 5 ⊢ ((𝐵 ∈ On ∧ 𝐴 ∈ 𝐵) → 𝐴 ∈ On)
2	1	adantll 727	. . . 4 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ 𝐵) → 𝐴 ∈ On)
3		eloni 6374	. . . . . . . . 9 ⊢ (𝐵 ∈ On → Ord 𝐵)
4		ordsucss 7820	. . . . . . . . 9 ⊢ (Ord 𝐵 → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
5	3, 4	syl 18	. . . . . . . 8 ⊢ (𝐵 ∈ On → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
6	5	ad2antlr 740	. . . . . . 7 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) → (𝐴 ∈ 𝐵 → suc 𝐴 ⊆ 𝐵))
7		onsucb 7819	. . . . . . . . . 10 ⊢ (𝐴 ∈ On ↔ suc 𝐴 ∈ On)
8		oveq2 7427	. . . . . . . . . . . . . 14 ⊢ (𝑥 = suc 𝐴 → (𝐶 +o 𝑥) = (𝐶 +o suc 𝐴))
9	8	sseq2d 3970	. . . . . . . . . . . . 13 ⊢ (𝑥 = suc 𝐴 → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥) ↔ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝐴)))
10	9	imbi2d 343	. . . . . . . . . . . 12 ⊢ (𝑥 = suc 𝐴 → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)) ↔ (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝐴))))
11		oveq2 7427	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑦 → (𝐶 +o 𝑥) = (𝐶 +o 𝑦))
12	11	sseq2d 3970	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑦 → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥) ↔ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦)))
13	12	imbi2d 343	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)) ↔ (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦))))
14		oveq2 7427	. . . . . . . . . . . . . 14 ⊢ (𝑥 = suc 𝑦 → (𝐶 +o 𝑥) = (𝐶 +o suc 𝑦))
15	14	sseq2d 3970	. . . . . . . . . . . . 13 ⊢ (𝑥 = suc 𝑦 → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥) ↔ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦)))
16	15	imbi2d 343	. . . . . . . . . . . 12 ⊢ (𝑥 = suc 𝑦 → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)) ↔ (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦))))
17		oveq2 7427	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝐵 → (𝐶 +o 𝑥) = (𝐶 +o 𝐵))
18	17	sseq2d 3970	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝐵 → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥) ↔ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))
19	18	imbi2d 343	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐵 → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)) ↔ (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵))))
20		ssid 3960	. . . . . . . . . . . . 13 ⊢ (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝐴)
21	20	2a1i 12	. . . . . . . . . . . 12 ⊢ (suc 𝐴 ∈ On → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝐴)))
22		sssucid 6447	. . . . . . . . . . . . . . . . 17 ⊢ (𝐶 +o 𝑦) ⊆ suc (𝐶 +o 𝑦)
23		sstr2 3945	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → ((𝐶 +o 𝑦) ⊆ suc (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ suc (𝐶 +o 𝑦)))
24	22, 23	mpi 21	. . . . . . . . . . . . . . . 16 ⊢ ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ suc (𝐶 +o 𝑦))
25		oasuc 8515	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐶 ∈ On ∧ 𝑦 ∈ On) → (𝐶 +o suc 𝑦) = suc (𝐶 +o 𝑦))
26	25	ancoms 464	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ On ∧ 𝐶 ∈ On) → (𝐶 +o suc 𝑦) = suc (𝐶 +o 𝑦))
27	26	sseq2d 3970	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ On ∧ 𝐶 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦) ↔ (𝐶 +o suc 𝐴) ⊆ suc (𝐶 +o 𝑦)))
28	24, 27	imbitrrid 249	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ On ∧ 𝐶 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦)))
29	28	ex 418	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ On → (𝐶 ∈ On → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦))))
30	29	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝑦 ∈ On ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑦) → (𝐶 ∈ On → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦) → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦))))
31	30	a2d 30	. . . . . . . . . . . 12 ⊢ (((𝑦 ∈ On ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑦) → ((𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦)) → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o suc 𝑦))))
32		sucssel 6462	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ On → (suc 𝐴 ⊆ 𝑥 → 𝐴 ∈ 𝑥))
33	7, 32	sylbir 238	. . . . . . . . . . . . . . . . . . 19 ⊢ (suc 𝐴 ∈ On → (suc 𝐴 ⊆ 𝑥 → 𝐴 ∈ 𝑥))
34		limsuc 7851	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Lim 𝑥 → (𝐴 ∈ 𝑥 ↔ suc 𝐴 ∈ 𝑥))
35	34	biimpd 232	. . . . . . . . . . . . . . . . . . 19 ⊢ (Lim 𝑥 → (𝐴 ∈ 𝑥 → suc 𝐴 ∈ 𝑥))
36	33, 35	sylan9r 518	. . . . . . . . . . . . . . . . . 18 ⊢ ((Lim 𝑥 ∧ suc 𝐴 ∈ On) → (suc 𝐴 ⊆ 𝑥 → suc 𝐴 ∈ 𝑥))
37	36	imp 412	. . . . . . . . . . . . . . . . 17 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) → suc 𝐴 ∈ 𝑥)
38		oveq2 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = suc 𝐴 → (𝐶 +o 𝑦) = (𝐶 +o suc 𝐴))
39	38	ssiun2s 5015	. . . . . . . . . . . . . . . . 17 ⊢ (suc 𝐴 ∈ 𝑥 → (𝐶 +o suc 𝐴) ⊆ ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
40	37, 39	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) → (𝐶 +o suc 𝐴) ⊆ ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
41	40	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) ∧ 𝐶 ∈ On) → (𝐶 +o suc 𝐴) ⊆ ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
42		vex 3461	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑥 ∈ V
43		oalim 8523	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐶 ∈ On ∧ (𝑥 ∈ V ∧ Lim 𝑥)) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
44	42, 43	mpanr1 716	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐶 ∈ On ∧ Lim 𝑥) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
45	44	ancoms 464	. . . . . . . . . . . . . . . . 17 ⊢ ((Lim 𝑥 ∧ 𝐶 ∈ On) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
46	45	adantlr 728	. . . . . . . . . . . . . . . 16 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ 𝐶 ∈ On) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
47	46	adantlr 728	. . . . . . . . . . . . . . 15 ⊢ ((((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) ∧ 𝐶 ∈ On) → (𝐶 +o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐶 +o 𝑦))
48	41, 47	sseqtrrd 3975	. . . . . . . . . . . . . 14 ⊢ ((((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) ∧ 𝐶 ∈ On) → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥))
49	48	ex 418	. . . . . . . . . . . . 13 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥)))
50	49	a1d 26	. . . . . . . . . . . 12 ⊢ (((Lim 𝑥 ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝑥) → (∀𝑦 ∈ 𝑥 (suc 𝐴 ⊆ 𝑦 → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑦))) → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝑥))))
51	10, 13, 16, 19, 21, 31, 50	tfindsg 7863	. . . . . . . . . . 11 ⊢ (((𝐵 ∈ On ∧ suc 𝐴 ∈ On) ∧ suc 𝐴 ⊆ 𝐵) → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))
52	51	exp31 425	. . . . . . . . . 10 ⊢ (𝐵 ∈ On → (suc 𝐴 ∈ On → (suc 𝐴 ⊆ 𝐵 → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))))
53	7, 52	biimtrid 245	. . . . . . . . 9 ⊢ (𝐵 ∈ On → (𝐴 ∈ On → (suc 𝐴 ⊆ 𝐵 → (𝐶 ∈ On → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))))
54	53	com4r 95	. . . . . . . 8 ⊢ (𝐶 ∈ On → (𝐵 ∈ On → (𝐴 ∈ On → (suc 𝐴 ⊆ 𝐵 → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))))
55	54	imp31 423	. . . . . . 7 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) → (suc 𝐴 ⊆ 𝐵 → (𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵)))
56		oasuc 8515	. . . . . . . . . 10 ⊢ ((𝐶 ∈ On ∧ 𝐴 ∈ On) → (𝐶 +o suc 𝐴) = suc (𝐶 +o 𝐴))
57	56	sseq1d 3969	. . . . . . . . 9 ⊢ ((𝐶 ∈ On ∧ 𝐴 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵) ↔ suc (𝐶 +o 𝐴) ⊆ (𝐶 +o 𝐵)))
58		ovex 7452	. . . . . . . . . 10 ⊢ (𝐶 +o 𝐴) ∈ V
59		sucssel 6462	. . . . . . . . . 10 ⊢ ((𝐶 +o 𝐴) ∈ V → (suc (𝐶 +o 𝐴) ⊆ (𝐶 +o 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
60	58, 59	ax-mp 5	. . . . . . . . 9 ⊢ (suc (𝐶 +o 𝐴) ⊆ (𝐶 +o 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵))
61	57, 60	biimtrdi 256	. . . . . . . 8 ⊢ ((𝐶 ∈ On ∧ 𝐴 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
62	61	adantlr 728	. . . . . . 7 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) → ((𝐶 +o suc 𝐴) ⊆ (𝐶 +o 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
63	6, 55, 62	3syld 61	. . . . . 6 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) → (𝐴 ∈ 𝐵 → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
64	63	imp 412	. . . . 5 ⊢ ((((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ On) ∧ 𝐴 ∈ 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵))
65	64	an32s 665	. . . 4 ⊢ ((((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ 𝐵) ∧ 𝐴 ∈ On) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵))
66	2, 65	mpdan 700	. . 3 ⊢ (((𝐶 ∈ On ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ 𝐵) → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵))
67	66	ex 418	. 2 ⊢ ((𝐶 ∈ On ∧ 𝐵 ∈ On) → (𝐴 ∈ 𝐵 → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))
68	67	ancoms 464	1 ⊢ ((𝐵 ∈ On ∧ 𝐶 ∈ On) → (𝐴 ∈ 𝐵 → (𝐶 +o 𝐴) ∈ (𝐶 +o 𝐵)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3081  Vcvv 3457   ⊆ wss 3906  ∪ ciun 4958  Ord word 6363  Oncon0 6364  Lim wlim 6365  suc csuc 6366  (class class class)co 7419   +_o coa 8456

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pr 5406  ax-un 7742

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3082  df-rex 3092  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-ov 7422  df-oprab 7423  df-mpo 7424  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-oadd 8463

This theorem is used by:  oaord  8538  oaass  8552  odi  8570  onexomgt  44028  onexoegt  44031  oaltublim  44077  oaordi3  44078  oacl2g  44117  tfsconcatfv2  44127  tfsconcatrn  44129  tfsconcatrev  44135  ofoafg  44141  oaun3lem1  44161  oaun3lem2  44162  oadif1  44167  naddwordnexlem0  44183  naddwordnexlem3  44186  naddwordnexlem4  44188  oaltom  44191