Theorem onmcl 44525

Description: If an ordinal is less than a power of omega, the product with a natural number is also less than that power of omega. (Contributed by RP, 19-Feb-2025.)

Assertion

Ref	Expression
onmcl	⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) → (𝐴 ∈ (ω ↑o 𝐵) → (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵)))

Proof of Theorem onmcl

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

Step	Hyp	Ref	Expression
1		oveq1 7450	. . . . 5 ⊢ (𝐴 = ∅ → (𝐴 ·o 𝑁) = (∅ ·o 𝑁))
2		simp3 1156	. . . . . 6 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) → 𝑁 ∈ ω)
3		nnon 7907	. . . . . 6 ⊢ (𝑁 ∈ ω → 𝑁 ∈ On)
4		om0r 8575	. . . . . 6 ⊢ (𝑁 ∈ On → (∅ ·o 𝑁) = ∅)
5	2, 3, 4	3syl 19	. . . . 5 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) → (∅ ·o 𝑁) = ∅)
6	1, 5	sylan9eqr 2820	. . . 4 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ 𝐴 = ∅) → (𝐴 ·o 𝑁) = ∅)
7		simpl2 1211	. . . . . 6 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ 𝐴 = ∅) → 𝐵 ∈ On)
8		omelon 9674	. . . . . 6 ⊢ ω ∈ On
9	7, 8	jctil 529	. . . . 5 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ 𝐴 = ∅) → (ω ∈ On ∧ 𝐵 ∈ On))
10		peano1 7924	. . . . 5 ⊢ ∅ ∈ ω
11		oen0 8623	. . . . 5 ⊢ (((ω ∈ On ∧ 𝐵 ∈ On) ∧ ∅ ∈ ω) → ∅ ∈ (ω ↑o 𝐵))
12	9, 10, 11	sylancl 598	. . . 4 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ 𝐴 = ∅) → ∅ ∈ (ω ↑o 𝐵))
13	6, 12	eqeltrd 2864	. . 3 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ 𝐴 = ∅) → (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵))
14	13	a1d 26	. 2 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ 𝐴 = ∅) → (𝐴 ∈ (ω ↑o 𝐵) → (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵)))
15	2	adantr 486	. . 3 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ ∅ ∈ 𝐴) → 𝑁 ∈ ω)
16		simp1 1154	. . . . 5 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) → 𝐴 ∈ On)
17	16	anim1i 627	. . . 4 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ ∅ ∈ 𝐴) → (𝐴 ∈ On ∧ ∅ ∈ 𝐴))
18		ondif1 8537	. . . 4 ⊢ (𝐴 ∈ (On ∖ 1o) ↔ (𝐴 ∈ On ∧ ∅ ∈ 𝐴))
19	17, 18	sylibr 237	. . 3 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ ∅ ∈ 𝐴) → 𝐴 ∈ (On ∖ 1o))
20		simpl2 1211	. . 3 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ ∅ ∈ 𝐴) → 𝐵 ∈ On)
21		oveq2 7451	. . . . . . 7 ⊢ (𝑥 = ∅ → (𝐴 ·o 𝑥) = (𝐴 ·o ∅))
22	21	eleq1d 2849	. . . . . 6 ⊢ (𝑥 = ∅ → ((𝐴 ·o 𝑥) ∈ (ω ↑o 𝐵) ↔ (𝐴 ·o ∅) ∈ (ω ↑o 𝐵)))
23	22	imbi2d 343	. . . . 5 ⊢ (𝑥 = ∅ → ((((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑥) ∈ (ω ↑o 𝐵)) ↔ (((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o ∅) ∈ (ω ↑o 𝐵))))
24		oveq2 7451	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝐴 ·o 𝑥) = (𝐴 ·o 𝑦))
25	24	eleq1d 2849	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((𝐴 ·o 𝑥) ∈ (ω ↑o 𝐵) ↔ (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)))
26	25	imbi2d 343	. . . . 5 ⊢ (𝑥 = 𝑦 → ((((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑥) ∈ (ω ↑o 𝐵)) ↔ (((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵))))
27		oveq2 7451	. . . . . . 7 ⊢ (𝑥 = suc 𝑦 → (𝐴 ·o 𝑥) = (𝐴 ·o suc 𝑦))
28	27	eleq1d 2849	. . . . . 6 ⊢ (𝑥 = suc 𝑦 → ((𝐴 ·o 𝑥) ∈ (ω ↑o 𝐵) ↔ (𝐴 ·o suc 𝑦) ∈ (ω ↑o 𝐵)))
29	28	imbi2d 343	. . . . 5 ⊢ (𝑥 = suc 𝑦 → ((((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑥) ∈ (ω ↑o 𝐵)) ↔ (((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o suc 𝑦) ∈ (ω ↑o 𝐵))))
30		oveq2 7451	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (𝐴 ·o 𝑥) = (𝐴 ·o 𝑁))
31	30	eleq1d 2849	. . . . . 6 ⊢ (𝑥 = 𝑁 → ((𝐴 ·o 𝑥) ∈ (ω ↑o 𝐵) ↔ (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵)))
32	31	imbi2d 343	. . . . 5 ⊢ (𝑥 = 𝑁 → ((((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑥) ∈ (ω ↑o 𝐵)) ↔ (((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵))))
33		eldifi 4070	. . . . . . . . 9 ⊢ (𝐴 ∈ (On ∖ 1o) → 𝐴 ∈ On)
34		om0 8553	. . . . . . . . 9 ⊢ (𝐴 ∈ On → (𝐴 ·o ∅) = ∅)
35	33, 34	syl 18	. . . . . . . 8 ⊢ (𝐴 ∈ (On ∖ 1o) → (𝐴 ·o ∅) = ∅)
36	35	adantr 486	. . . . . . 7 ⊢ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) → (𝐴 ·o ∅) = ∅)
37	8	jctl 533	. . . . . . . . 9 ⊢ (𝐵 ∈ On → (ω ∈ On ∧ 𝐵 ∈ On))
38	37, 10, 11	sylancl 598	. . . . . . . 8 ⊢ (𝐵 ∈ On → ∅ ∈ (ω ↑o 𝐵))
39	38	adantl 487	. . . . . . 7 ⊢ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) → ∅ ∈ (ω ↑o 𝐵))
40	36, 39	eqeltrd 2864	. . . . . 6 ⊢ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) → (𝐴 ·o ∅) ∈ (ω ↑o 𝐵))
41	40	adantr 486	. . . . 5 ⊢ (((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o ∅) ∈ (ω ↑o 𝐵))
42	33	adantr 486	. . . . . . . . . 10 ⊢ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) → 𝐴 ∈ On)
43	42	ad2antrl 741	. . . . . . . . 9 ⊢ ((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) → 𝐴 ∈ On)
44		simpll 779	. . . . . . . . 9 ⊢ (((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) ∧ (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)) → 𝑦 ∈ ω)
45		onmsuc 8565	. . . . . . . . 9 ⊢ ((𝐴 ∈ On ∧ 𝑦 ∈ ω) → (𝐴 ·o suc 𝑦) = ((𝐴 ·o 𝑦) +o 𝐴))
46	43, 44, 45	syl2an2r 698	. . . . . . . 8 ⊢ (((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) ∧ (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)) → (𝐴 ·o suc 𝑦) = ((𝐴 ·o 𝑦) +o 𝐴))
47		simpr 490	. . . . . . . . 9 ⊢ (((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) ∧ (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵))
48		simplrr 790	. . . . . . . . 9 ⊢ (((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) ∧ (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)) → 𝐴 ∈ (ω ↑o 𝐵))
49		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (ω ↑o 𝐵) = (ω ↑o 𝐵)
50	49	jctl 533	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ On → ((ω ↑o 𝐵) = (ω ↑o 𝐵) ∧ 𝐵 ∈ On))
51	50	olcd 888	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ On → ((ω ↑o 𝐵) = ∅ ∨ ((ω ↑o 𝐵) = (ω ↑o 𝐵) ∧ 𝐵 ∈ On)))
52	51	adantl 487	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) → ((ω ↑o 𝐵) = ∅ ∨ ((ω ↑o 𝐵) = (ω ↑o 𝐵) ∧ 𝐵 ∈ On)))
53	52	ad2antrl 741	. . . . . . . . . 10 ⊢ ((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) → ((ω ↑o 𝐵) = ∅ ∨ ((ω ↑o 𝐵) = (ω ↑o 𝐵) ∧ 𝐵 ∈ On)))
54	53	adantr 486	. . . . . . . . 9 ⊢ (((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) ∧ (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)) → ((ω ↑o 𝐵) = ∅ ∨ ((ω ↑o 𝐵) = (ω ↑o 𝐵) ∧ 𝐵 ∈ On)))
55		oacl2g 44524	. . . . . . . . 9 ⊢ ((((𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵) ∧ 𝐴 ∈ (ω ↑o 𝐵)) ∧ ((ω ↑o 𝐵) = ∅ ∨ ((ω ↑o 𝐵) = (ω ↑o 𝐵) ∧ 𝐵 ∈ On))) → ((𝐴 ·o 𝑦) +o 𝐴) ∈ (ω ↑o 𝐵))
56	47, 48, 54, 55	syl21anc 851	. . . . . . . 8 ⊢ (((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) ∧ (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)) → ((𝐴 ·o 𝑦) +o 𝐴) ∈ (ω ↑o 𝐵))
57	46, 56	eqeltrd 2864	. . . . . . 7 ⊢ (((𝑦 ∈ ω ∧ ((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵))) ∧ (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)) → (𝐴 ·o suc 𝑦) ∈ (ω ↑o 𝐵))
58	57	exp31 425	. . . . . 6 ⊢ (𝑦 ∈ ω → (((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → ((𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵) → (𝐴 ·o suc 𝑦) ∈ (ω ↑o 𝐵))))
59	58	a2d 30	. . . . 5 ⊢ (𝑦 ∈ ω → ((((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑦) ∈ (ω ↑o 𝐵)) → (((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o suc 𝑦) ∈ (ω ↑o 𝐵))))
60	23, 26, 29, 32, 41, 59	finds 7932	. . . 4 ⊢ (𝑁 ∈ ω → (((𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On) ∧ 𝐴 ∈ (ω ↑o 𝐵)) → (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵)))
61	60	expdimp 458	. . 3 ⊢ ((𝑁 ∈ ω ∧ (𝐴 ∈ (On ∖ 1o) ∧ 𝐵 ∈ On)) → (𝐴 ∈ (ω ↑o 𝐵) → (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵)))
62	15, 19, 20, 61	syl12anc 850	. 2 ⊢ (((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) ∧ ∅ ∈ 𝐴) → (𝐴 ∈ (ω ↑o 𝐵) → (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵)))
63		on0eqel 6506	. . 3 ⊢ (𝐴 ∈ On → (𝐴 = ∅ ∨ ∅ ∈ 𝐴))
64	16, 63	syl 18	. 2 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) → (𝐴 = ∅ ∨ ∅ ∈ 𝐴))
65	14, 62, 64	mpjaodan 973	1 ⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On ∧ 𝑁 ∈ ω) → (𝐴 ∈ (ω ↑o 𝐵) → (𝐴 ·o 𝑁) ∈ (ω ↑o 𝐵)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147   ∖ cdif 4048  ∅c0 4281  Oncon0 6380  suc csuc 6382  (class class class)co 7443  ωcom 7901  1_oc1o 8497   +_o coa 8501   ·_o comu 8502   ↑_o coe 8503

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 5235  ax-sep 5252  ax-nul 5263  ax-pr 5395  ax-un 7775  ax-inf2 9669

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-rmo 3369  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-int 4911  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6322  df-ord 6383  df-on 6384  df-lim 6385  df-suc 6386  df-iota 6512  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-ov 7446  df-oprab 7447  df-mpo 7448  df-om 7902  df-1st 8025  df-2nd 8026  df-frecs 8327  df-wrecs 8358  df-recs 8407  df-rdg 8446  df-1o 8504  df-2o 8505  df-oadd 8508  df-omul 8509  df-oexp 8510

This theorem is used by: (None)