Theorem precsexlem10 28311

Description: Lemma for surreal reciprocal. Show that the union of the left sets is less than the union of the right sets. Note that this is the first theorem in the surreal numbers to require the axiom of infinity. (Contributed by Scott Fenton, 15-Mar-2025.)

Hypotheses

Ref	Expression
precsexlem.1	⊢ 𝐹 = rec((𝑝 ∈ V ↦ ⦋(1st ‘𝑝) / 𝑙⦌⦋(2nd ‘𝑝) / 𝑟⦌⟨(𝑙 ∪ ({𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ 𝑙 𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ∪ {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ 𝑟 𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)})), (𝑟 ∪ ({𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ 𝑙 𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ∪ {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ 𝑟 𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)}))⟩), ⟨{ 0s }, ∅⟩)
precsexlem.2	⊢ 𝐿 = (1st ∘ 𝐹)
precsexlem.3	⊢ 𝑅 = (2nd ∘ 𝐹)
precsexlem.4	⊢ (𝜑 → 𝐴 ∈ No )
precsexlem.5	⊢ (𝜑 → 0s <s 𝐴)
precsexlem.6	⊢ (𝜑 → ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ))

Assertion

Ref	Expression
precsexlem10	⊢ (𝜑 → ∪ (𝐿 “ ω) <<s ∪ (𝑅 “ ω))

Distinct variable groups:   𝐴,𝑎,𝑙,𝑝,𝑟,𝑥,𝑥_𝑂,𝑥_𝐿,𝑥_𝑅,𝑦,𝑦_𝐿,𝑦_𝑅   𝐹,𝑙,𝑝   𝐿,𝑎,𝑙,𝑥_𝐿,𝑥_𝑅,𝑦_𝐿,𝑦_𝑅   𝑅,𝑎,𝑙,𝑟,𝑥_𝐿,𝑥_𝑅,𝑦_𝐿,𝑦_𝑅   𝜑,𝑎,𝑥_𝐿,𝑥_𝑅,𝑦_𝐿,𝑦_𝑅   𝐿,𝑟   𝜑,𝑟

Allowed substitution hints:   𝜑(𝑥,𝑦,𝑝,𝑙,𝑥_𝑂)   𝑅(𝑥,𝑦,𝑝,𝑥_𝑂)   𝐹(𝑥,𝑦,𝑟,𝑎,𝑥_𝑂,𝑥_𝐿,𝑥_𝑅,𝑦_𝐿,𝑦_𝑅)   𝐿(𝑥,𝑦,𝑝,𝑥_𝑂)

Proof of Theorem precsexlem10

Dummy variables 𝑖 𝑗 𝑏 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fo1st 7992	. . . . . . . 8 ⊢ 1st :V–onto→V
2		fofun 6781	. . . . . . . 8 ⊢ (1st :V–onto→V → Fun 1st )
3	1, 2	ax-mp 5	. . . . . . 7 ⊢ Fun 1st
4		rdgfun 8389	. . . . . . . 8 ⊢ Fun rec((𝑝 ∈ V ↦ ⦋(1st ‘𝑝) / 𝑙⦌⦋(2nd ‘𝑝) / 𝑟⦌⟨(𝑙 ∪ ({𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ 𝑙 𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ∪ {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ 𝑟 𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)})), (𝑟 ∪ ({𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ 𝑙 𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ∪ {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ 𝑟 𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)}))⟩), ⟨{ 0s }, ∅⟩)
5		precsexlem.1	. . . . . . . . 9 ⊢ 𝐹 = rec((𝑝 ∈ V ↦ ⦋(1st ‘𝑝) / 𝑙⦌⦋(2nd ‘𝑝) / 𝑟⦌⟨(𝑙 ∪ ({𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ 𝑙 𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ∪ {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ 𝑟 𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)})), (𝑟 ∪ ({𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ 𝑙 𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ∪ {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ 𝑟 𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)}))⟩), ⟨{ 0s }, ∅⟩)
6	5	funeqi 6544	. . . . . . . 8 ⊢ (Fun 𝐹 ↔ Fun rec((𝑝 ∈ V ↦ ⦋(1st ‘𝑝) / 𝑙⦌⦋(2nd ‘𝑝) / 𝑟⦌⟨(𝑙 ∪ ({𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ 𝑙 𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ∪ {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ 𝑟 𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)})), (𝑟 ∪ ({𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ 𝑙 𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ∪ {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ 𝑟 𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)}))⟩), ⟨{ 0s }, ∅⟩))
7	4, 6	mpbir 233	. . . . . . 7 ⊢ Fun 𝐹
8		funco 6563	. . . . . . 7 ⊢ ((Fun 1st ∧ Fun 𝐹) → Fun (1st ∘ 𝐹))
9	3, 7, 8	mp2an 702	. . . . . 6 ⊢ Fun (1st ∘ 𝐹)
10		precsexlem.2	. . . . . . 7 ⊢ 𝐿 = (1st ∘ 𝐹)
11	10	funeqi 6544	. . . . . 6 ⊢ (Fun 𝐿 ↔ Fun (1st ∘ 𝐹))
12	9, 11	mpbir 233	. . . . 5 ⊢ Fun 𝐿
13		dcomex 10406	. . . . . 6 ⊢ ω ∈ V
14	13	funimaex 6611	. . . . 5 ⊢ (Fun 𝐿 → (𝐿 “ ω) ∈ V)
15	12, 14	ax-mp 5	. . . 4 ⊢ (𝐿 “ ω) ∈ V
16	15	uniex 7726	. . 3 ⊢ ∪ (𝐿 “ ω) ∈ V
17	16	a1i 11	. 2 ⊢ (𝜑 → ∪ (𝐿 “ ω) ∈ V)
18		fo2nd 7993	. . . . . . . 8 ⊢ 2nd :V–onto→V
19		fofun 6781	. . . . . . . 8 ⊢ (2nd :V–onto→V → Fun 2nd )
20	18, 19	ax-mp 5	. . . . . . 7 ⊢ Fun 2nd
21		funco 6563	. . . . . . 7 ⊢ ((Fun 2nd ∧ Fun 𝐹) → Fun (2nd ∘ 𝐹))
22	20, 7, 21	mp2an 702	. . . . . 6 ⊢ Fun (2nd ∘ 𝐹)
23		precsexlem.3	. . . . . . 7 ⊢ 𝑅 = (2nd ∘ 𝐹)
24	23	funeqi 6544	. . . . . 6 ⊢ (Fun 𝑅 ↔ Fun (2nd ∘ 𝐹))
25	22, 24	mpbir 233	. . . . 5 ⊢ Fun 𝑅
26	13	funimaex 6611	. . . . 5 ⊢ (Fun 𝑅 → (𝑅 “ ω) ∈ V)
27	25, 26	ax-mp 5	. . . 4 ⊢ (𝑅 “ ω) ∈ V
28	27	uniex 7726	. . 3 ⊢ ∪ (𝑅 “ ω) ∈ V
29	28	a1i 11	. 2 ⊢ (𝜑 → ∪ (𝑅 “ ω) ∈ V)
30		funiunfv 7234	. . . 4 ⊢ (Fun 𝐿 → ∪ 𝑖 ∈ ω (𝐿‘𝑖) = ∪ (𝐿 “ ω))
31	12, 30	ax-mp 5	. . 3 ⊢ ∪ 𝑖 ∈ ω (𝐿‘𝑖) = ∪ (𝐿 “ ω)
32		precsexlem.4	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ No )
33		precsexlem.5	. . . . . 6 ⊢ (𝜑 → 0s <s 𝐴)
34		precsexlem.6	. . . . . 6 ⊢ (𝜑 → ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ))
35	5, 10, 23, 32, 33, 34	precsexlem8 28309	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ ω) → ((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No ))
36	35	simpld 498	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ ω) → (𝐿‘𝑖) ⊆ No )
37	36	iunssd 5010	. . 3 ⊢ (𝜑 → ∪ 𝑖 ∈ ω (𝐿‘𝑖) ⊆ No )
38	31, 37	eqsstrrid 3977	. 2 ⊢ (𝜑 → ∪ (𝐿 “ ω) ⊆ No )
39		funiunfv 7234	. . . 4 ⊢ (Fun 𝑅 → ∪ 𝑖 ∈ ω (𝑅‘𝑖) = ∪ (𝑅 “ ω))
40	25, 39	ax-mp 5	. . 3 ⊢ ∪ 𝑖 ∈ ω (𝑅‘𝑖) = ∪ (𝑅 “ ω)
41	35	simprd 499	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ ω) → (𝑅‘𝑖) ⊆ No )
42	41	iunssd 5010	. . 3 ⊢ (𝜑 → ∪ 𝑖 ∈ ω (𝑅‘𝑖) ⊆ No )
43	40, 42	eqsstrrid 3977	. 2 ⊢ (𝜑 → ∪ (𝑅 “ ω) ⊆ No )
44	31	eleq2i 2856	. . . . . . 7 ⊢ (𝑏 ∈ ∪ 𝑖 ∈ ω (𝐿‘𝑖) ↔ 𝑏 ∈ ∪ (𝐿 “ ω))
45		eliun 4955	. . . . . . 7 ⊢ (𝑏 ∈ ∪ 𝑖 ∈ ω (𝐿‘𝑖) ↔ ∃𝑖 ∈ ω 𝑏 ∈ (𝐿‘𝑖))
46	44, 45	bitr3i 279	. . . . . 6 ⊢ (𝑏 ∈ ∪ (𝐿 “ ω) ↔ ∃𝑖 ∈ ω 𝑏 ∈ (𝐿‘𝑖))
47		funiunfv 7234	. . . . . . . . 9 ⊢ (Fun 𝑅 → ∪ 𝑗 ∈ ω (𝑅‘𝑗) = ∪ (𝑅 “ ω))
48	25, 47	ax-mp 5	. . . . . . . 8 ⊢ ∪ 𝑗 ∈ ω (𝑅‘𝑗) = ∪ (𝑅 “ ω)
49	48	eleq2i 2856	. . . . . . 7 ⊢ (𝑐 ∈ ∪ 𝑗 ∈ ω (𝑅‘𝑗) ↔ 𝑐 ∈ ∪ (𝑅 “ ω))
50		eliun 4955	. . . . . . 7 ⊢ (𝑐 ∈ ∪ 𝑗 ∈ ω (𝑅‘𝑗) ↔ ∃𝑗 ∈ ω 𝑐 ∈ (𝑅‘𝑗))
51	49, 50	bitr3i 279	. . . . . 6 ⊢ (𝑐 ∈ ∪ (𝑅 “ ω) ↔ ∃𝑗 ∈ ω 𝑐 ∈ (𝑅‘𝑗))
52	46, 51	anbi12i 637	. . . . 5 ⊢ ((𝑏 ∈ ∪ (𝐿 “ ω) ∧ 𝑐 ∈ ∪ (𝑅 “ ω)) ↔ (∃𝑖 ∈ ω 𝑏 ∈ (𝐿‘𝑖) ∧ ∃𝑗 ∈ ω 𝑐 ∈ (𝑅‘𝑗)))
53		reeanv 3236	. . . . 5 ⊢ (∃𝑖 ∈ ω ∃𝑗 ∈ ω (𝑏 ∈ (𝐿‘𝑖) ∧ 𝑐 ∈ (𝑅‘𝑗)) ↔ (∃𝑖 ∈ ω 𝑏 ∈ (𝐿‘𝑖) ∧ ∃𝑗 ∈ ω 𝑐 ∈ (𝑅‘𝑗)))
54	52, 53	bitr4i 280	. . . 4 ⊢ ((𝑏 ∈ ∪ (𝐿 “ ω) ∧ 𝑐 ∈ ∪ (𝑅 “ ω)) ↔ ∃𝑖 ∈ ω ∃𝑗 ∈ ω (𝑏 ∈ (𝐿‘𝑖) ∧ 𝑐 ∈ (𝑅‘𝑗)))
55		omun 7870	. . . . . . . . 9 ⊢ ((𝑖 ∈ ω ∧ 𝑗 ∈ ω) → (𝑖 ∪ 𝑗) ∈ ω)
56		ssun1 4132	. . . . . . . . . 10 ⊢ 𝑖 ⊆ (𝑖 ∪ 𝑗)
57	5, 10, 23	precsexlem6 28307	. . . . . . . . . 10 ⊢ ((𝑖 ∈ ω ∧ (𝑖 ∪ 𝑗) ∈ ω ∧ 𝑖 ⊆ (𝑖 ∪ 𝑗)) → (𝐿‘𝑖) ⊆ (𝐿‘(𝑖 ∪ 𝑗)))
58	56, 57	mp3an3 1473	. . . . . . . . 9 ⊢ ((𝑖 ∈ ω ∧ (𝑖 ∪ 𝑗) ∈ ω) → (𝐿‘𝑖) ⊆ (𝐿‘(𝑖 ∪ 𝑗)))
59	55, 58	syldan 600	. . . . . . . 8 ⊢ ((𝑖 ∈ ω ∧ 𝑗 ∈ ω) → (𝐿‘𝑖) ⊆ (𝐿‘(𝑖 ∪ 𝑗)))
60	59	adantl 485	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ ω ∧ 𝑗 ∈ ω)) → (𝐿‘𝑖) ⊆ (𝐿‘(𝑖 ∪ 𝑗)))
61	60	sseld 3937	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ ω ∧ 𝑗 ∈ ω)) → (𝑏 ∈ (𝐿‘𝑖) → 𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗))))
62		simpr 488	. . . . . . . . 9 ⊢ ((𝑖 ∈ ω ∧ 𝑗 ∈ ω) → 𝑗 ∈ ω)
63		ssun2 4133	. . . . . . . . . 10 ⊢ 𝑗 ⊆ (𝑖 ∪ 𝑗)
64	5, 10, 23	precsexlem7 28308	. . . . . . . . . 10 ⊢ ((𝑗 ∈ ω ∧ (𝑖 ∪ 𝑗) ∈ ω ∧ 𝑗 ⊆ (𝑖 ∪ 𝑗)) → (𝑅‘𝑗) ⊆ (𝑅‘(𝑖 ∪ 𝑗)))
65	63, 64	mp3an3 1473	. . . . . . . . 9 ⊢ ((𝑗 ∈ ω ∧ (𝑖 ∪ 𝑗) ∈ ω) → (𝑅‘𝑗) ⊆ (𝑅‘(𝑖 ∪ 𝑗)))
66	62, 55, 65	syl2anc 593	. . . . . . . 8 ⊢ ((𝑖 ∈ ω ∧ 𝑗 ∈ ω) → (𝑅‘𝑗) ⊆ (𝑅‘(𝑖 ∪ 𝑗)))
67	66	sseld 3937	. . . . . . 7 ⊢ ((𝑖 ∈ ω ∧ 𝑗 ∈ ω) → (𝑐 ∈ (𝑅‘𝑗) → 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗))))
68	67	adantl 485	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ ω ∧ 𝑗 ∈ ω)) → (𝑐 ∈ (𝑅‘𝑗) → 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗))))
69	32	ad2antrr 736	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → 𝐴 ∈ No )
70	5, 10, 23, 32, 33, 34	precsexlem8 28309	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → ((𝐿‘(𝑖 ∪ 𝑗)) ⊆ No ∧ (𝑅‘(𝑖 ∪ 𝑗)) ⊆ No ))
71	70	simpld 498	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → (𝐿‘(𝑖 ∪ 𝑗)) ⊆ No )
72	71	sselda 3938	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ 𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗))) → 𝑏 ∈ No )
73	72	adantrr 727	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → 𝑏 ∈ No )
74	69, 73	mulscld 28230	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → (𝐴 ·s 𝑏) ∈ No )
75	70	simprd 499	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → (𝑅‘(𝑖 ∪ 𝑗)) ⊆ No )
76	75	sselda 3938	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗))) → 𝑐 ∈ No )
77	76	adantrl 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → 𝑐 ∈ No )
78	69, 77	mulscld 28230	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → (𝐴 ·s 𝑐) ∈ No )
79	74, 78	jca 519	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → ((𝐴 ·s 𝑏) ∈ No ∧ (𝐴 ·s 𝑐) ∈ No ))
80	5, 10, 23, 32, 33, 34	precsexlem9 28310	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → (∀𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗))(𝐴 ·s 𝑏) <s 1s ∧ ∀𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)) 1s <s (𝐴 ·s 𝑐)))
81	80	simpld 498	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → ∀𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗))(𝐴 ·s 𝑏) <s 1s )
82		rsp 3252	. . . . . . . . . . . . 13 ⊢ (∀𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗))(𝐴 ·s 𝑏) <s 1s → (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) → (𝐴 ·s 𝑏) <s 1s ))
83	81, 82	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) → (𝐴 ·s 𝑏) <s 1s ))
84	80	simprd 499	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → ∀𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)) 1s <s (𝐴 ·s 𝑐))
85		rsp 3252	. . . . . . . . . . . . 13 ⊢ (∀𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)) 1s <s (𝐴 ·s 𝑐) → (𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)) → 1s <s (𝐴 ·s 𝑐)))
86	84, 85	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → (𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)) → 1s <s (𝐴 ·s 𝑐)))
87	83, 86	anim12d 618	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → ((𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗))) → ((𝐴 ·s 𝑏) <s 1s ∧ 1s <s (𝐴 ·s 𝑐))))
88	87	imp 410	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → ((𝐴 ·s 𝑏) <s 1s ∧ 1s <s (𝐴 ·s 𝑐)))
89		1no 27905	. . . . . . . . . . 11 ⊢ 1s ∈ No
90		ltstr 27813	. . . . . . . . . . 11 ⊢ (((𝐴 ·s 𝑏) ∈ No ∧ 1s ∈ No ∧ (𝐴 ·s 𝑐) ∈ No ) → (((𝐴 ·s 𝑏) <s 1s ∧ 1s <s (𝐴 ·s 𝑐)) → (𝐴 ·s 𝑏) <s (𝐴 ·s 𝑐)))
91	89, 90	mp3an2 1472	. . . . . . . . . 10 ⊢ (((𝐴 ·s 𝑏) ∈ No ∧ (𝐴 ·s 𝑐) ∈ No ) → (((𝐴 ·s 𝑏) <s 1s ∧ 1s <s (𝐴 ·s 𝑐)) → (𝐴 ·s 𝑏) <s (𝐴 ·s 𝑐)))
92	79, 88, 91	sylc 65	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → (𝐴 ·s 𝑏) <s (𝐴 ·s 𝑐))
93	33	ad2antrr 736	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → 0s <s 𝐴)
94	73, 77, 69, 93	ltmuls2d 28267	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → (𝑏 <s 𝑐 ↔ (𝐴 ·s 𝑏) <s (𝐴 ·s 𝑐)))
95	92, 94	mpbird 259	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) ∧ (𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗)))) → 𝑏 <s 𝑐)
96	95	ex 416	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∪ 𝑗) ∈ ω) → ((𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗))) → 𝑏 <s 𝑐))
97	55, 96	sylan2 602	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ ω ∧ 𝑗 ∈ ω)) → ((𝑏 ∈ (𝐿‘(𝑖 ∪ 𝑗)) ∧ 𝑐 ∈ (𝑅‘(𝑖 ∪ 𝑗))) → 𝑏 <s 𝑐))
98	61, 68, 97	syl2and 617	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ ω ∧ 𝑗 ∈ ω)) → ((𝑏 ∈ (𝐿‘𝑖) ∧ 𝑐 ∈ (𝑅‘𝑗)) → 𝑏 <s 𝑐))
99	98	rexlimdvva 3221	. . . 4 ⊢ (𝜑 → (∃𝑖 ∈ ω ∃𝑗 ∈ ω (𝑏 ∈ (𝐿‘𝑖) ∧ 𝑐 ∈ (𝑅‘𝑗)) → 𝑏 <s 𝑐))
100	54, 99	biimtrid 244	. . 3 ⊢ (𝜑 → ((𝑏 ∈ ∪ (𝐿 “ ω) ∧ 𝑐 ∈ ∪ (𝑅 “ ω)) → 𝑏 <s 𝑐))
101	100	3impib 1130	. 2 ⊢ ((𝜑 ∧ 𝑏 ∈ ∪ (𝐿 “ ω) ∧ 𝑐 ∈ ∪ (𝑅 “ ω)) → 𝑏 <s 𝑐)
102	17, 29, 38, 43, 101	sltsd 27863	1 ⊢ (𝜑 → ∪ (𝐿 “ ω) <<s ∪ (𝑅 “ ω))

Syntax hints:   → wi 4   ∧ wa 399   = wceq 1562   ∈ wcel 2144  {cab 2742  ∀wral 3078  ∃wrex 3088  {crab 3416  Vcvv 3456  ⦋csb 3854   ∪ cun 3904   ⊆ wss 3906  ∅c0 4287  {csn 4584  ⟨cop 4590  ∪ cuni 4867  ∪ ciun 4951   class class class wbr 5102   ↦ cmpt 5183   “ cima 5652   ∘ ccom 5653  Fun wfun 6517  –onto→wfo 6521  ‘cfv 6523  (class class class)co 7398  ωcom 7848  1^st c1st 7970  2^nd c2nd 7971  reccrdg 8382   No csur 27706   <s clts 27707   <<s cslts 27852   0_s c0s 27900   1_s c1s 27901   L cleft 27920   R cright 27921   +_s cadds 28054   -_s csubs 28115   ·_s cmuls 28201   /_su cdivs 28282

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1817  ax-4 1831  ax-5 1932  ax-6 1989  ax-7 2030  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2214  ax-ext 2736  ax-rep 5229  ax-sep 5248  ax-nul 5258  ax-pow 5324  ax-pr 5392  ax-un 7720  ax-dc 10405

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1565  df-fal 1575  df-ex 1802  df-nf 1806  df-sb 2093  df-mo 2568  df-eu 2598  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3079  df-rex 3089  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3458  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-ot 4593  df-uni 4868  df-int 4908  df-iun 4953  df-br 5103  df-opab 5165  df-mpt 5184  df-tr 5210  df-id 5544  df-eprel 5549  df-po 5557  df-so 5558  df-fr 5602  df-se 5603  df-we 5604  df-xp 5655  df-rel 5656  df-cnv 5657  df-co 5658  df-dm 5659  df-rn 5660  df-res 5661  df-ima 5662  df-pred 6290  df-ord 6351  df-on 6352  df-lim 6353  df-suc 6354  df-iota 6479  df-fun 6525  df-fn 6526  df-f 6527  df-f1 6528  df-fo 6529  df-f1o 6530  df-fv 6531  df-riota 7355  df-ov 7401  df-oprab 7402  df-mpo 7403  df-om 7849  df-1st 7972  df-2nd 7973  df-frecs 8264  df-wrecs 8295  df-recs 8344  df-rdg 8383  df-1o 8439  df-2o 8440  df-oadd 8443  df-nadd 8638  df-no 27709  df-lts 27710  df-bday 27711  df-les 27811  df-slts 27853  df-cuts 27855  df-0s 27902  df-1s 27903  df-made 27922  df-old 27923  df-left 27925  df-right 27926  df-norec 28033  df-norec2 28044  df-adds 28055  df-negs 28116  df-subs 28117  df-muls 28202  df-divs 28283

This theorem is referenced by:  precsexlem11  28312  precsex  28313