Theorem omcl 8580

Description: Closure law for ordinal multiplication. Proposition 8.16 of [TakeutiZaring] p. 57. Remark 2.8 of [Schloeder] p. 5. (Contributed by NM, 3-Aug-2004.) (Proof shortened by Andrew Salmon, 22-Oct-2011.)

Assertion

Ref	Expression
omcl	⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 ·o 𝐵) ∈ On)

Proof of Theorem omcl

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

Step	Hyp	Ref	Expression
1		oveq2 7457	. . . 4 ⊢ (𝑥 = ∅ → (𝐴 ·o 𝑥) = (𝐴 ·o ∅))
2	1	eleq1d 2849	. . 3 ⊢ (𝑥 = ∅ → ((𝐴 ·o 𝑥) ∈ On ↔ (𝐴 ·o ∅) ∈ On))
3		oveq2 7457	. . . 4 ⊢ (𝑥 = 𝑦 → (𝐴 ·o 𝑥) = (𝐴 ·o 𝑦))
4	3	eleq1d 2849	. . 3 ⊢ (𝑥 = 𝑦 → ((𝐴 ·o 𝑥) ∈ On ↔ (𝐴 ·o 𝑦) ∈ On))
5		oveq2 7457	. . . 4 ⊢ (𝑥 = suc 𝑦 → (𝐴 ·o 𝑥) = (𝐴 ·o suc 𝑦))
6	5	eleq1d 2849	. . 3 ⊢ (𝑥 = suc 𝑦 → ((𝐴 ·o 𝑥) ∈ On ↔ (𝐴 ·o suc 𝑦) ∈ On))
7		oveq2 7457	. . . 4 ⊢ (𝑥 = 𝐵 → (𝐴 ·o 𝑥) = (𝐴 ·o 𝐵))
8	7	eleq1d 2849	. . 3 ⊢ (𝑥 = 𝐵 → ((𝐴 ·o 𝑥) ∈ On ↔ (𝐴 ·o 𝐵) ∈ On))
9		om0 8561	. . . 4 ⊢ (𝐴 ∈ On → (𝐴 ·o ∅) = ∅)
10		0elon 6442	. . . 4 ⊢ ∅ ∈ On
11	9, 10	eqeltrdi 2872	. . 3 ⊢ (𝐴 ∈ On → (𝐴 ·o ∅) ∈ On)
12		oacl 8579	. . . . . . 7 ⊢ (((𝐴 ·o 𝑦) ∈ On ∧ 𝐴 ∈ On) → ((𝐴 ·o 𝑦) +o 𝐴) ∈ On)
13	12	expcom 419	. . . . . 6 ⊢ (𝐴 ∈ On → ((𝐴 ·o 𝑦) ∈ On → ((𝐴 ·o 𝑦) +o 𝐴) ∈ On))
14	13	adantr 486	. . . . 5 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ·o 𝑦) ∈ On → ((𝐴 ·o 𝑦) +o 𝐴) ∈ On))
15		omsuc 8570	. . . . . 6 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → (𝐴 ·o suc 𝑦) = ((𝐴 ·o 𝑦) +o 𝐴))
16	15	eleq1d 2849	. . . . 5 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ·o suc 𝑦) ∈ On ↔ ((𝐴 ·o 𝑦) +o 𝐴) ∈ On))
17	14, 16	sylibrd 262	. . . 4 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ On) → ((𝐴 ·o 𝑦) ∈ On → (𝐴 ·o suc 𝑦) ∈ On))
18	17	expcom 419	. . 3 ⊢ (𝑦 ∈ On → (𝐴 ∈ On → ((𝐴 ·o 𝑦) ∈ On → (𝐴 ·o suc 𝑦) ∈ On)))
19		vex 3458	. . . . . 6 ⊢ 𝑥 ∈ V
20		iunon 8383	. . . . . 6 ⊢ ((𝑥 ∈ V ∧ ∀𝑦 ∈ 𝑥 (𝐴 ·o 𝑦) ∈ On) → ∪ 𝑦 ∈ 𝑥 (𝐴 ·o 𝑦) ∈ On)
21	19, 20	mpan 703	. . . . 5 ⊢ (∀𝑦 ∈ 𝑥 (𝐴 ·o 𝑦) ∈ On → ∪ 𝑦 ∈ 𝑥 (𝐴 ·o 𝑦) ∈ On)
22		omlim 8577	. . . . . . 7 ⊢ ((𝐴 ∈ On ∧ (𝑥 ∈ V ∧ Lim 𝑥)) → (𝐴 ·o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ·o 𝑦))
23	19, 22	mpanr1 716	. . . . . 6 ⊢ ((𝐴 ∈ On ∧ Lim 𝑥) → (𝐴 ·o 𝑥) = ∪ 𝑦 ∈ 𝑥 (𝐴 ·o 𝑦))
24	23	eleq1d 2849	. . . . 5 ⊢ ((𝐴 ∈ On ∧ Lim 𝑥) → ((𝐴 ·o 𝑥) ∈ On ↔ ∪ 𝑦 ∈ 𝑥 (𝐴 ·o 𝑦) ∈ On))
25	21, 24	imbitrrid 249	. . . 4 ⊢ ((𝐴 ∈ On ∧ Lim 𝑥) → (∀𝑦 ∈ 𝑥 (𝐴 ·o 𝑦) ∈ On → (𝐴 ·o 𝑥) ∈ On))
26	25	expcom 419	. . 3 ⊢ (Lim 𝑥 → (𝐴 ∈ On → (∀𝑦 ∈ 𝑥 (𝐴 ·o 𝑦) ∈ On → (𝐴 ·o 𝑥) ∈ On)))
27	2, 4, 6, 8, 11, 18, 26	tfinds3 7908	. 2 ⊢ (𝐵 ∈ On → (𝐴 ∈ On → (𝐴 ·o 𝐵) ∈ On))
28	27	impcom 413	1 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) → (𝐴 ·o 𝐵) ∈ On)

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∀wral 3080  Vcvv 3454  ∅c0 4281  ∪ ciun 4954  Oncon0 6386  Lim wlim 6387  suc csuc 6388  (class class class)co 7449   +_o coa 8509   ·_o comu 8510

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5236  ax-sep 5253  ax-nul 5264  ax-pr 5396  ax-un 7781

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 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5551  df-eprel 5556  df-po 5564  df-so 5565  df-fr 5609  df-we 5611  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-pred 6328  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6518  df-fun 6566  df-fn 6567  df-f 6568  df-f1 6569  df-fo 6570  df-f1o 6571  df-fv 6572  df-ov 7452  df-oprab 7453  df-mpo 7454  df-om 7910  df-2nd 8034  df-frecs 8335  df-wrecs 8366  df-recs 8415  df-rdg 8454  df-oadd 8516  df-omul 8517

This theorem is used by:  oecl  8581  omordi  8610  omord2  8611  omcan  8613  omword  8614  omwordri  8616  om00  8619  om00el  8620  omlimcl  8622  odi  8623  omass  8624  oneo  8625  omeulem1  8626  omeulem2  8627  omopth2  8628  oeoelem  8643  oeoe  8644  oeeui  8647  oaabs2  8694  omxpenlem  9133  omxpen  9134  cantnfle  9707  cantnflt  9708  cantnflem1d  9724  cantnflem1  9725  cantnflem3  9727  cantnflem4  9728  cnfcomlem  9735  xpnum  10067  infxpenc  10134  dfac12lem2  10260  omeueq  35830  jf1  36044  j0le  36053  k3n0j0lt  36054  jltalephlem  36059  onexomgt  44498  omlimcl2  44499  onexlimgt  44500  onexoegt  44501  oaomoecl  44535  oaabsb  44551  dflim5  44586  omabs2  44589  naddwordnexlem0  44653  naddwordnexlem1  44654  naddwordnexlem3  44656  oawordex3  44657  naddwordnexlem4  44658