Theorem oecl 8154

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 7156	. . . . . . . 8 ⊢ (𝐵 = ∅ → (∅ ↑o 𝐵) = (∅ ↑o ∅))
2		oe0m0 8137	. . . . . . . . 9 ⊢ (∅ ↑o ∅) = 1o
3		1on 8101	. . . . . . . . 9 ⊢ 1o ∈ On
4	2, 3	eqeltri 2907	. . . . . . . 8 ⊢ (∅ ↑o ∅) ∈ On
5	1, 4	syl6eqel 2919	. . . . . . 7 ⊢ (𝐵 = ∅ → (∅ ↑o 𝐵) ∈ On)
6	5	adantl 484	. . . . . 6 ⊢ ((𝐵 ∈ On ∧ 𝐵 = ∅) → (∅ ↑o 𝐵) ∈ On)
7		oe0m1 8138	. . . . . . . . 9 ⊢ (𝐵 ∈ On → (∅ ∈ 𝐵 ↔ (∅ ↑o 𝐵) = ∅))
8	7	biimpa 479	. . . . . . . 8 ⊢ ((𝐵 ∈ On ∧ ∅ ∈ 𝐵) → (∅ ↑o 𝐵) = ∅)
9		0elon 6237	. . . . . . . 8 ⊢ ∅ ∈ On
10	8, 9	syl6eqel 2919	. . . . . . 7 ⊢ ((𝐵 ∈ On ∧ ∅ ∈ 𝐵) → (∅ ↑o 𝐵) ∈ On)
11	10	adantll 712	. . . . . 6 ⊢ (((𝐵 ∈ On ∧ 𝐵 ∈ On) ∧ ∅ ∈ 𝐵) → (∅ ↑o 𝐵) ∈ On)
12	6, 11	oe0lem 8130	. . . . 5 ⊢ ((𝐵 ∈ On ∧ 𝐵 ∈ On) → (∅ ↑o 𝐵) ∈ On)
13	12	anidms 569	. . . 4 ⊢ (𝐵 ∈ On → (∅ ↑o 𝐵) ∈ On)
14		oveq1 7155	. . . . 5 ⊢ (𝐴 = ∅ → (𝐴 ↑o 𝐵) = (∅ ↑o 𝐵))
15	14	eleq1d 2895	. . . 4 ⊢ (𝐴 = ∅ → ((𝐴 ↑o 𝐵) ∈ On ↔ (∅ ↑o 𝐵) ∈ On))
16	13, 15	syl5ibr 248	. . 3 ⊢ (𝐴 = ∅ → (𝐵 ∈ On → (𝐴 ↑o 𝐵) ∈ On))
17	16	impcom 410	. 2 ⊢ ((𝐵 ∈ On ∧ 𝐴 = ∅) → (𝐴 ↑o 𝐵) ∈ On)
18		oveq2 7156	. . . . . . 7 ⊢ (𝑥 = ∅ → (𝐴 ↑o 𝑥) = (𝐴 ↑o ∅))
19	18	eleq1d 2895	. . . . . 6 ⊢ (𝑥 = ∅ → ((𝐴 ↑o 𝑥) ∈ On ↔ (𝐴 ↑o ∅) ∈ On))
20		oveq2 7156	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝐴 ↑o 𝑥) = (𝐴 ↑o 𝑦))
21	20	eleq1d 2895	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((𝐴 ↑o 𝑥) ∈ On ↔ (𝐴 ↑o 𝑦) ∈ On))
22		oveq2 7156	. . . . . . 7 ⊢ (𝑥 = suc 𝑦 → (𝐴 ↑o 𝑥) = (𝐴 ↑o suc 𝑦))
23	22	eleq1d 2895	. . . . . 6 ⊢ (𝑥 = suc 𝑦 → ((𝐴 ↑o 𝑥) ∈ On ↔ (𝐴 ↑o suc 𝑦) ∈ On))
24		oveq2 7156	. . . . . . 7 ⊢ (𝑥 = 𝐵 → (𝐴 ↑o 𝑥) = (𝐴 ↑o 𝐵))
25	24	eleq1d 2895	. . . . . 6 ⊢ (𝑥 = 𝐵 → ((𝐴 ↑o 𝑥) ∈ On ↔ (𝐴 ↑o 𝐵) ∈ On))
26		oe0 8139	. . . . . . . 8 ⊢ (𝐴 ∈ On → (𝐴 ↑o ∅) = 1o)
27	26, 3	syl6eqel 2919	. . . . . . 7 ⊢ (𝐴 ∈ On → (𝐴 ↑o ∅) ∈ On)
28	27	adantr 483	. . . . . 6 ⊢ ((𝐴 ∈ On ∧ ∅ ∈ 𝐴) → (𝐴 ↑o ∅) ∈ On)
29		omcl 8153	. . . . . . . . . . 11 ⊢ (((𝐴 ↑o 𝑦) ∈ On ∧ 𝐴 ∈ On) → ((𝐴 ↑o 𝑦) ·o 𝐴) ∈ On)
30	29	expcom 416	. . . . . . . . . 10 ⊢ (𝐴 ∈ On → ((𝐴 ↑o 𝑦) ∈ On → ((𝐴 ↑o 𝑦) ·o 𝐴) ∈ On))
31	30	adantr 483	. . . . . . . . 9 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ↑o 𝑦) ∈ On → ((𝐴 ↑o 𝑦) ·o 𝐴) ∈ On))
32		oesuc 8144	. . . . . . . . . 10 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → (𝐴 ↑o suc 𝑦) = ((𝐴 ↑o 𝑦) ·o 𝐴))
33	32	eleq1d 2895	. . . . . . . . 9 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ↑o suc 𝑦) ∈ On ↔ ((𝐴 ↑o 𝑦) ·o 𝐴) ∈ On))
34	31, 33	sylibrd 261	. . . . . . . 8 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o suc 𝑦) ∈ On))
35	34	expcom 416	. . . . . . 7 ⊢ (𝑦 ∈ On → (𝐴 ∈ On → ((𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o suc 𝑦) ∈ On)))
36	35	adantrd 494	. . . . . 6 ⊢ (𝑦 ∈ On → ((𝐴 ∈ On ∧ ∅ ∈ 𝐴) → ((𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o suc 𝑦) ∈ On)))
37		vex 3496	. . . . . . . . 9 ⊢ 𝑥 ∈ V
38		iunon 7968	. . . . . . . . 9 ⊢ ((𝑥 ∈ V ∧ ∀𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On) → ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On)
39	37, 38	mpan 688	. . . . . . . 8 ⊢ (∀𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On → ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On)
40		oelim 8151	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ On ∧ (𝑥 ∈ V ∧ Lim 𝑥)) ∧ ∅ ∈ 𝐴) → (𝐴 ↑o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦))
41	37, 40	mpanlr1 704	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ On ∧ Lim 𝑥) ∧ ∅ ∈ 𝐴) → (𝐴 ↑o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦))
42	41	anasss 469	. . . . . . . . . 10 ⊢ ((𝐴 ∈ On ∧ (Lim 𝑥 ∧ ∅ ∈ 𝐴)) → (𝐴 ↑o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦))
43	42	an12s 647	. . . . . . . . 9 ⊢ ((Lim 𝑥 ∧ (𝐴 ∈ On ∧ ∅ ∈ 𝐴)) → (𝐴 ↑o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦))
44	43	eleq1d 2895	. . . . . . . 8 ⊢ ((Lim 𝑥 ∧ (𝐴 ∈ On ∧ ∅ ∈ 𝐴)) → ((𝐴 ↑o 𝑥) ∈ On ↔ ∪ 𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On))
45	39, 44	syl5ibr 248	. . . . . . 7 ⊢ ((Lim 𝑥 ∧ (𝐴 ∈ On ∧ ∅ ∈ 𝐴)) → (∀𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o 𝑥) ∈ On))
46	45	ex 415	. . . . . 6 ⊢ (Lim 𝑥 → ((𝐴 ∈ On ∧ ∅ ∈ 𝐴) → (∀𝑦 ∈ 𝑥 (𝐴 ↑o 𝑦) ∈ On → (𝐴 ↑o 𝑥) ∈ On)))
47	19, 21, 23, 25, 28, 36, 46	tfinds3 7571	. . . . 5 ⊢ (𝐵 ∈ On → ((𝐴 ∈ On ∧ ∅ ∈ 𝐴) → (𝐴 ↑o 𝐵) ∈ On))
48	47	expd 418	. . . 4 ⊢ (𝐵 ∈ On → (𝐴 ∈ On → (∅ ∈ 𝐴 → (𝐴 ↑o 𝐵) ∈ On)))
49	48	com12 32	. . 3 ⊢ (𝐴 ∈ On → (𝐵 ∈ On → (∅ ∈ 𝐴 → (𝐴 ↑o 𝐵) ∈ On)))
50	49	imp31 420	. 2 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On) ∧ ∅ ∈ 𝐴) → (𝐴 ↑o 𝐵) ∈ On)
51	17, 50	oe0lem 8130	1 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 ↑o 𝐵) ∈ On)

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1530   ∈ wcel 2107  ∀wral 3136  Vcvv 3493  ∅c0 4289  ∪ ciun 4910  Oncon0 6184  Lim wlim 6185  suc csuc 6186  (class class class)co 7148  1_oc1o 8087   ·_o comu 8092   ↑_o coe 8093

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-ext 2791  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7453

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1082  df-3an 1083  df-tru 1533  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ne 3015  df-ral 3141  df-rex 3142  df-reu 3143  df-rab 3145  df-v 3495  df-sbc 3771  df-csb 3882  df-dif 3937  df-un 3939  df-in 3941  df-ss 3950  df-pss 3952  df-nul 4290  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-uni 4831  df-iun 4912  df-br 5058  df-opab 5120  df-mpt 5138  df-tr 5164  df-id 5453  df-eprel 5458  df-po 5467  df-so 5468  df-fr 5507  df-we 5509  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-pred 6141  df-ord 6187  df-on 6188  df-lim 6189  df-suc 6190  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-ov 7151  df-oprab 7152  df-mpo 7153  df-om 7573  df-wrecs 7939  df-recs 8000  df-rdg 8038  df-1o 8094  df-oadd 8098  df-omul 8099  df-oexp 8100

This theorem is referenced by:  oen0  8204  oeordi  8205  oeord  8206  oecan  8207  oeword  8208  oewordri  8210  oeworde  8211  oeordsuc  8212  oeoalem  8214  oeoa  8215  oeoelem  8216  oeoe  8217  oelimcl  8218  oeeulem  8219  oeeui  8220  oaabs2  8264  omabs  8266  cantnfle  9126  cantnflt  9127  cantnfp1  9136  cantnflem1d  9143  cantnflem1  9144  cantnflem2  9145  cantnflem3  9146  cantnflem4  9147  cantnf  9148  oemapwe  9149  cantnffval2  9150  cnfcomlem  9154  cnfcom  9155  cnfcom3lem  9158  cnfcom3  9159  infxpenc  9436