Theorem oecl 8172

Description: Closure law for ordinal exponentiation. (Contributed by NM, 1-Jan-2005.) (Proof shortened by Andrew Salmon, 22-Oct-2011.)

Assertion

Ref	Expression
oecl	⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 ↑o 𝐵) ∈ On)

Proof of Theorem oecl

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

Step	Hyp	Ref	Expression
1		oveq2 7158	. . . . . . . 8 ⊢ (𝐵 = ∅ → (∅ ↑o 𝐵) = (∅ ↑o ∅))
2		oe0m0 8155	. . . . . . . . 9 ⊢ (∅ ↑o ∅) = 1o
3		1on 8119	. . . . . . . . 9 ⊢ 1o ∈ On
4	2, 3	eqeltri 2848	. . . . . . . 8 ⊢ (∅ ↑o ∅) ∈ On
5	1, 4	eqeltrdi 2860	. . . . . . 7 ⊢ (𝐵 = ∅ → (∅ ↑o 𝐵) ∈ On)
6	5	adantl 485	. . . . . 6 ⊢ ((𝐵 ∈ On ∧ 𝐵 = ∅) → (∅ ↑o 𝐵) ∈ On)
7		oe0m1 8156	. . . . . . . . 9 ⊢ (𝐵 ∈ On → (∅ ∈ 𝐵 ↔ (∅ ↑o 𝐵) = ∅))
8	7	biimpa 480	. . . . . . . 8 ⊢ ((𝐵 ∈ On ∧ ∅ ∈ 𝐵) → (∅ ↑o 𝐵) = ∅)
9		0elon 6222	. . . . . . . 8 ⊢ ∅ ∈ On
10	8, 9	eqeltrdi 2860	. . . . . . 7 ⊢ ((𝐵 ∈ On ∧ ∅ ∈ 𝐵) → (∅ ↑o 𝐵) ∈ On)
11	10	adantll 713	. . . . . 6 ⊢ (((𝐵 ∈ On ∧ 𝐵 ∈ On) ∧ ∅ ∈ 𝐵) → (∅ ↑o 𝐵) ∈ On)
12	6, 11	oe0lem 8148	. . . . 5 ⊢ ((𝐵 ∈ On ∧ 𝐵 ∈ On) → (∅ ↑o 𝐵) ∈ On)
13	12	anidms 570	. . . 4 ⊢ (𝐵 ∈ On → (∅ ↑o 𝐵) ∈ On)
14		oveq1 7157	. . . . 5 ⊢ (𝐴 = ∅ → (𝐴 ↑o 𝐵) = (∅ ↑o 𝐵))
15	14	eleq1d 2836	. . . 4 ⊢ (𝐴 = ∅ → ((𝐴 ↑o 𝐵) ∈ On ↔ (∅ ↑o 𝐵) ∈ On))
16	13, 15	syl5ibr 249	. . 3 ⊢ (𝐴 = ∅ → (𝐵 ∈ On → (𝐴 ↑o 𝐵) ∈ On))
17	16	impcom 411	. 2 ⊢ ((𝐵 ∈ On ∧ 𝐴 = ∅) → (𝐴 ↑o 𝐵) ∈ On)
18		oveq2 7158	. . . . . . 7 ⊢ (𝑥 = ∅ → (𝐴 ↑o 𝑥) = (𝐴 ↑o ∅))
19	18	eleq1d 2836	. . . . . 6 ⊢ (𝑥 = ∅ → ((𝐴 ↑o 𝑥) ∈ On ↔ (𝐴 ↑o ∅) ∈ On))
20		oveq2 7158	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝐴 ↑o 𝑥) = (𝐴 ↑o 𝑦))
21	20	eleq1d 2836	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((𝐴 ↑o 𝑥) ∈ On ↔ (𝐴 ↑o 𝑦) ∈ On))
22		oveq2 7158	. . . . . . 7 ⊢ (𝑥 = suc 𝑦 → (𝐴 ↑o 𝑥) = (𝐴 ↑o suc 𝑦))
23	22	eleq1d 2836	. . . . . 6 ⊢ (𝑥 = suc 𝑦 → ((𝐴 ↑o 𝑥) ∈ On ↔ (𝐴 ↑o suc 𝑦) ∈ On))
24		oveq2 7158	. . . . . . 7 ⊢ (𝑥 = 𝐵 → (𝐴 ↑o 𝑥) = (𝐴 ↑o 𝐵))
25	24	eleq1d 2836	. . . . . 6 ⊢ (𝑥 = 𝐵 → ((𝐴 ↑o 𝑥) ∈ On ↔ (𝐴 ↑o 𝐵) ∈ On))
26		oe0 8157	. . . . . . . 8 ⊢ (𝐴 ∈ On → (𝐴 ↑o ∅) = 1o)
27	26, 3	eqeltrdi 2860	. . . . . . 7 ⊢ (𝐴 ∈ On → (𝐴 ↑o ∅) ∈ On)
28	27	adantr 484	. . . . . 6 ⊢ ((𝐴 ∈ On ∧ ∅ ∈ 𝐴) → (𝐴 ↑o ∅) ∈ On)
29		omcl 8171	. . . . . . . . . . 11 ⊢ (((𝐴 ↑o 𝑦) ∈ On ∧ 𝐴 ∈ On) → ((𝐴 ↑o 𝑦) ·o 𝐴) ∈ On)
30	29	expcom 417	. . . . . . . . . 10 ⊢ (𝐴 ∈ On → ((𝐴 ↑o 𝑦) ∈ On → ((𝐴 ↑o 𝑦) ·o 𝐴) ∈ On))
31	30	adantr 484	. . . . . . . . 9 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ↑o 𝑦) ∈ On → ((𝐴 ↑o 𝑦) ·o 𝐴) ∈ On))
32		oesuc 8162	. . . . . . . . . 10 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → (𝐴 ↑o suc 𝑦) = ((𝐴 ↑o 𝑦) ·o 𝐴))
33	32	eleq1d 2836	. . . . . . . . 9 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ↑o suc 𝑦) ∈ On ↔ ((𝐴 ↑o 𝑦) ·o 𝐴) ∈ On))
34	31, 33	sylibrd 262	. . . . . . . 8 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o suc 𝑦) ∈ On))
35	34	expcom 417	. . . . . . 7 ⊢ (𝑦 ∈ On → (𝐴 ∈ On → ((𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o suc 𝑦) ∈ On)))
36	35	adantrd 495	. . . . . 6 ⊢ (𝑦 ∈ On → ((𝐴 ∈ On ∧ ∅ ∈ 𝐴) → ((𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o suc 𝑦) ∈ On)))
37		vex 3413	. . . . . . . . 9 ⊢ 𝑥 ∈ V
38		iunon 7986	. . . . . . . . 9 ⊢ ((𝑥 ∈ V ∧ ∀𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On) → ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On)
39	37, 38	mpan 689	. . . . . . . 8 ⊢ (∀𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On → ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On)
40		oelim 8169	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ On ∧ (𝑥 ∈ V ∧ Lim 𝑥)) ∧ ∅ ∈ 𝐴) → (𝐴 ↑o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦))
41	37, 40	mpanlr1 705	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ On ∧ Lim 𝑥) ∧ ∅ ∈ 𝐴) → (𝐴 ↑o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦))
42	41	anasss 470	. . . . . . . . . 10 ⊢ ((𝐴 ∈ On ∧ (Lim 𝑥 ∧ ∅ ∈ 𝐴)) → (𝐴 ↑o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦))
43	42	an12s 648	. . . . . . . . 9 ⊢ ((Lim 𝑥 ∧ (𝐴 ∈ On ∧ ∅ ∈ 𝐴)) → (𝐴 ↑o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦))
44	43	eleq1d 2836	. . . . . . . 8 ⊢ ((Lim 𝑥 ∧ (𝐴 ∈ On ∧ ∅ ∈ 𝐴)) → ((𝐴 ↑o 𝑥) ∈ On ↔ ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On))
45	39, 44	syl5ibr 249	. . . . . . 7 ⊢ ((Lim 𝑥 ∧ (𝐴 ∈ On ∧ ∅ ∈ 𝐴)) → (∀𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o 𝑥) ∈ On))
46	45	ex 416	. . . . . 6 ⊢ (Lim 𝑥 → ((𝐴 ∈ On ∧ ∅ ∈ 𝐴) → (∀𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o 𝑥) ∈ On)))
47	19, 21, 23, 25, 28, 36, 46	tfinds3 7578	. . . . 5 ⊢ (𝐵 ∈ On → ((𝐴 ∈ On ∧ ∅ ∈ 𝐴) → (𝐴 ↑o 𝐵) ∈ On))
48	47	expd 419	. . . 4 ⊢ (𝐵 ∈ On → (𝐴 ∈ On → (∅ ∈ 𝐴 → (𝐴 ↑o 𝐵) ∈ On)))
49	48	com12 32	. . 3 ⊢ (𝐴 ∈ On → (𝐵 ∈ On → (∅ ∈ 𝐴 → (𝐴 ↑o 𝐵) ∈ On)))
50	49	imp31 421	. 2 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ ∅ ∈ 𝐴) → (𝐴 ↑o 𝐵) ∈ On)
51	17, 50	oe0lem 8148	1 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 ↑o 𝐵) ∈ On)

Syntax hints:   → wi 4   ∧ wa 399   = wceq 1538   ∈ wcel 2111  ∀wral 3070  Vcvv 3409  ∅c0 4225  ∪ ciun 4883  Oncon0 6169  Lim wlim 6170  suc csuc 6171  (class class class)co 7150  1_oc1o 8105   ·_o comu 8110   ↑_o coe 8111

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-rep 5156  ax-sep 5169  ax-nul 5176  ax-pr 5298  ax-un 7459

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ne 2952  df-ral 3075  df-rex 3076  df-reu 3077  df-rab 3079  df-v 3411  df-sbc 3697  df-csb 3806  df-dif 3861  df-un 3863  df-in 3865  df-ss 3875  df-pss 3877  df-nul 4226  df-if 4421  df-pw 4496  df-sn 4523  df-pr 4525  df-tp 4527  df-op 4529  df-uni 4799  df-iun 4885  df-br 5033  df-opab 5095  df-mpt 5113  df-tr 5139  df-id 5430  df-eprel 5435  df-po 5443  df-so 5444  df-fr 5483  df-we 5485  df-xp 5530  df-rel 5531  df-cnv 5532  df-co 5533  df-dm 5534  df-rn 5535  df-res 5536  df-ima 5537  df-pred 6126  df-ord 6172  df-on 6173  df-lim 6174  df-suc 6175  df-iota 6294  df-fun 6337  df-fn 6338  df-f 6339  df-f1 6340  df-fo 6341  df-f1o 6342  df-fv 6343  df-ov 7153  df-oprab 7154  df-mpo 7155  df-om 7580  df-wrecs 7957  df-recs 8018  df-rdg 8056  df-1o 8112  df-oadd 8116  df-omul 8117  df-oexp 8118

This theorem is referenced by:  oen0  8222  oeordi  8223  oeord  8224  oecan  8225  oeword  8226  oewordri  8228  oeworde  8229  oeordsuc  8230  oeoalem  8232  oeoa  8233  oeoelem  8234  oeoe  8235  oelimcl  8236  oeeulem  8237  oeeui  8238  oaabs2  8282  omabs  8284  cantnfle  9167  cantnflt  9168  cantnfp1  9177  cantnflem1d  9184  cantnflem1  9185  cantnflem2  9186  cantnflem3  9187  cantnflem4  9188  cantnf  9189  oemapwe  9190  cantnffval2  9191  cnfcomlem  9195  cnfcom  9196  cnfcom3lem  9199  cnfcom3  9200  infxpenc  9478