Theorem precsexlem8 28193

Description: Lemma for surreal reciprocal. Show that the left and right functions give sets of surreals. (Contributed by Scott Fenton, 13-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
precsexlem8	⊢ ((𝜑 ∧ 𝐼 ∈ ω) → ((𝐿‘𝐼) ⊆ No ∧ (𝑅‘𝐼) ⊆ No ))

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

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

Proof of Theorem precsexlem8

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

Step	Hyp	Ref	Expression
1		fveq2 6833	. . . . . 6 ⊢ (𝑖 = ∅ → (𝐿‘𝑖) = (𝐿‘∅))
2	1	sseq1d 3964	. . . . 5 ⊢ (𝑖 = ∅ → ((𝐿‘𝑖) ⊆ No ↔ (𝐿‘∅) ⊆ No ))
3		fveq2 6833	. . . . . 6 ⊢ (𝑖 = ∅ → (𝑅‘𝑖) = (𝑅‘∅))
4	3	sseq1d 3964	. . . . 5 ⊢ (𝑖 = ∅ → ((𝑅‘𝑖) ⊆ No ↔ (𝑅‘∅) ⊆ No ))
5	2, 4	anbi12d 633	. . . 4 ⊢ (𝑖 = ∅ → (((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No ) ↔ ((𝐿‘∅) ⊆ No ∧ (𝑅‘∅) ⊆ No )))
6	5	imbi2d 340	. . 3 ⊢ (𝑖 = ∅ → ((𝜑 → ((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No )) ↔ (𝜑 → ((𝐿‘∅) ⊆ No ∧ (𝑅‘∅) ⊆ No ))))
7		fveq2 6833	. . . . . 6 ⊢ (𝑖 = 𝑗 → (𝐿‘𝑖) = (𝐿‘𝑗))
8	7	sseq1d 3964	. . . . 5 ⊢ (𝑖 = 𝑗 → ((𝐿‘𝑖) ⊆ No ↔ (𝐿‘𝑗) ⊆ No ))
9		fveq2 6833	. . . . . 6 ⊢ (𝑖 = 𝑗 → (𝑅‘𝑖) = (𝑅‘𝑗))
10	9	sseq1d 3964	. . . . 5 ⊢ (𝑖 = 𝑗 → ((𝑅‘𝑖) ⊆ No ↔ (𝑅‘𝑗) ⊆ No ))
11	8, 10	anbi12d 633	. . . 4 ⊢ (𝑖 = 𝑗 → (((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No ) ↔ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )))
12	11	imbi2d 340	. . 3 ⊢ (𝑖 = 𝑗 → ((𝜑 → ((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No )) ↔ (𝜑 → ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No ))))
13		fveq2 6833	. . . . . 6 ⊢ (𝑖 = suc 𝑗 → (𝐿‘𝑖) = (𝐿‘suc 𝑗))
14	13	sseq1d 3964	. . . . 5 ⊢ (𝑖 = suc 𝑗 → ((𝐿‘𝑖) ⊆ No ↔ (𝐿‘suc 𝑗) ⊆ No ))
15		fveq2 6833	. . . . . 6 ⊢ (𝑖 = suc 𝑗 → (𝑅‘𝑖) = (𝑅‘suc 𝑗))
16	15	sseq1d 3964	. . . . 5 ⊢ (𝑖 = suc 𝑗 → ((𝑅‘𝑖) ⊆ No ↔ (𝑅‘suc 𝑗) ⊆ No ))
17	14, 16	anbi12d 633	. . . 4 ⊢ (𝑖 = suc 𝑗 → (((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No ) ↔ ((𝐿‘suc 𝑗) ⊆ No ∧ (𝑅‘suc 𝑗) ⊆ No )))
18	17	imbi2d 340	. . 3 ⊢ (𝑖 = suc 𝑗 → ((𝜑 → ((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No )) ↔ (𝜑 → ((𝐿‘suc 𝑗) ⊆ No ∧ (𝑅‘suc 𝑗) ⊆ No ))))
19		fveq2 6833	. . . . . 6 ⊢ (𝑖 = 𝐼 → (𝐿‘𝑖) = (𝐿‘𝐼))
20	19	sseq1d 3964	. . . . 5 ⊢ (𝑖 = 𝐼 → ((𝐿‘𝑖) ⊆ No ↔ (𝐿‘𝐼) ⊆ No ))
21		fveq2 6833	. . . . . 6 ⊢ (𝑖 = 𝐼 → (𝑅‘𝑖) = (𝑅‘𝐼))
22	21	sseq1d 3964	. . . . 5 ⊢ (𝑖 = 𝐼 → ((𝑅‘𝑖) ⊆ No ↔ (𝑅‘𝐼) ⊆ No ))
23	20, 22	anbi12d 633	. . . 4 ⊢ (𝑖 = 𝐼 → (((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No ) ↔ ((𝐿‘𝐼) ⊆ No ∧ (𝑅‘𝐼) ⊆ No )))
24	23	imbi2d 340	. . 3 ⊢ (𝑖 = 𝐼 → ((𝜑 → ((𝐿‘𝑖) ⊆ No ∧ (𝑅‘𝑖) ⊆ No )) ↔ (𝜑 → ((𝐿‘𝐼) ⊆ No ∧ (𝑅‘𝐼) ⊆ No ))))
25		precsexlem.1	. . . . . . 7 ⊢ 𝐹 = 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 }, ∅⟩)
26		precsexlem.2	. . . . . . 7 ⊢ 𝐿 = (1st ∘ 𝐹)
27		precsexlem.3	. . . . . . 7 ⊢ 𝑅 = (2nd ∘ 𝐹)
28	25, 26, 27	precsexlem1 28186	. . . . . 6 ⊢ (𝐿‘∅) = { 0s }
29		0sno 27805	. . . . . . 7 ⊢ 0s ∈ No
30		snssi 4763	. . . . . . 7 ⊢ ( 0s ∈ No → { 0s } ⊆ No )
31	29, 30	ax-mp 5	. . . . . 6 ⊢ { 0s } ⊆ No
32	28, 31	eqsstri 3979	. . . . 5 ⊢ (𝐿‘∅) ⊆ No
33	25, 26, 27	precsexlem2 28187	. . . . . 6 ⊢ (𝑅‘∅) = ∅
34		0ss 4351	. . . . . 6 ⊢ ∅ ⊆ No
35	33, 34	eqsstri 3979	. . . . 5 ⊢ (𝑅‘∅) ⊆ No
36	32, 35	pm3.2i 470	. . . 4 ⊢ ((𝐿‘∅) ⊆ No ∧ (𝑅‘∅) ⊆ No )
37	36	a1i 11	. . 3 ⊢ (𝜑 → ((𝐿‘∅) ⊆ No ∧ (𝑅‘∅) ⊆ No ))
38	25, 26, 27	precsexlem4 28189	. . . . . . . . 9 ⊢ (𝑗 ∈ ω → (𝐿‘suc 𝑗) = ((𝐿‘𝑗) ∪ ({𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ∪ {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)})))
39	38	3ad2ant2 1135	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (𝐿‘suc 𝑗) = ((𝐿‘𝑗) ∪ ({𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ∪ {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)})))
40		simp3l 1203	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (𝐿‘𝑗) ⊆ No )
41		1sno 27806	. . . . . . . . . . . . . . . 16 ⊢ 1s ∈ No
42	41	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 1s ∈ No )
43		rightssno 27862	. . . . . . . . . . . . . . . . . 18 ⊢ ( R ‘𝐴) ⊆ No
44		simprl 771	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝑅 ∈ ( R ‘𝐴))
45	43, 44	sselid 3930	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝑅 ∈ No )
46		precsexlem.4	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐴 ∈ No )
47	46	3ad2ant1 1134	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → 𝐴 ∈ No )
48	47	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝐴 ∈ No )
49	45, 48	subscld 28043	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → (𝑥𝑅 -s 𝐴) ∈ No )
50		simpl3l 1230	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → (𝐿‘𝑗) ⊆ No )
51		simprr 773	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑦𝐿 ∈ (𝐿‘𝑗))
52	50, 51	sseldd 3933	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑦𝐿 ∈ No )
53	49, 52	mulscld 28115	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿) ∈ No )
54	42, 53	addscld 27960	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) ∈ No )
55	29	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 0s ∈ No )
56		precsexlem.5	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 0s <s 𝐴)
57	56	3ad2ant1 1134	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → 0s <s 𝐴)
58	57	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 0s <s 𝐴)
59		rightgt 27844	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥𝑅 ∈ ( R ‘𝐴) → 𝐴 <s 𝑥𝑅)
60	44, 59	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝐴 <s 𝑥𝑅)
61	55, 48, 45, 58, 60	slttrd 27733	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 0s <s 𝑥𝑅)
62	61	sgt0ne0d 27815	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝑅 ≠ 0s )
63		breq2 5101	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥𝑂 = 𝑥𝑅 → ( 0s <s 𝑥𝑂 ↔ 0s <s 𝑥𝑅))
64		oveq1 7365	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥𝑂 = 𝑥𝑅 → (𝑥𝑂 ·s 𝑦) = (𝑥𝑅 ·s 𝑦))
65	64	eqeq1d 2737	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥𝑂 = 𝑥𝑅 → ((𝑥𝑂 ·s 𝑦) = 1s ↔ (𝑥𝑅 ·s 𝑦) = 1s ))
66	65	rexbidv 3159	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥𝑂 = 𝑥𝑅 → (∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ↔ ∃𝑦 ∈ No (𝑥𝑅 ·s 𝑦) = 1s ))
67	63, 66	imbi12d 344	. . . . . . . . . . . . . . . 16 ⊢ (𝑥𝑂 = 𝑥𝑅 → (( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ) ↔ ( 0s <s 𝑥𝑅 → ∃𝑦 ∈ No (𝑥𝑅 ·s 𝑦) = 1s )))
68		precsexlem.6	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ))
69	68	3ad2ant1 1134	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ))
70	69	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ))
71		elun2 4134	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥𝑅 ∈ ( R ‘𝐴) → 𝑥𝑅 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴)))
72	44, 71	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝑅 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴)))
73	67, 70, 72	rspcdva 3576	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ( 0s <s 𝑥𝑅 → ∃𝑦 ∈ No (𝑥𝑅 ·s 𝑦) = 1s ))
74	61, 73	mpd 15	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ∃𝑦 ∈ No (𝑥𝑅 ·s 𝑦) = 1s )
75	54, 45, 62, 74	divsclwd 28176	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅) ∈ No )
76		eleq1 2823	. . . . . . . . . . . . 13 ⊢ (𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅) → (𝑎 ∈ No ↔ (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅) ∈ No ))
77	75, 76	syl5ibrcom 247	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → (𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅) → 𝑎 ∈ No ))
78	77	rexlimdvva 3192	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅) → 𝑎 ∈ No ))
79	78	abssdv 4018	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ⊆ No )
80	41	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 1s ∈ No )
81		leftssno 27861	. . . . . . . . . . . . . . . . . 18 ⊢ ( L ‘𝐴) ⊆ No
82		ssrab2 4031	. . . . . . . . . . . . . . . . . . 19 ⊢ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ⊆ ( L ‘𝐴)
83		simprl 771	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥})
84	82, 83	sselid 3930	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝐿 ∈ ( L ‘𝐴))
85	81, 84	sselid 3930	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝐿 ∈ No )
86	47	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝐴 ∈ No )
87	85, 86	subscld 28043	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → (𝑥𝐿 -s 𝐴) ∈ No )
88		simpl3r 1231	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → (𝑅‘𝑗) ⊆ No )
89		simprr 773	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑦𝑅 ∈ (𝑅‘𝑗))
90	88, 89	sseldd 3933	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑦𝑅 ∈ No )
91	87, 90	mulscld 28115	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅) ∈ No )
92	80, 91	addscld 27960	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) ∈ No )
93		breq2 5101	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑥𝐿 → ( 0s <s 𝑥 ↔ 0s <s 𝑥𝐿))
94	93	elrab 3645	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ↔ (𝑥𝐿 ∈ ( L ‘𝐴) ∧ 0s <s 𝑥𝐿))
95	94	simprbi 496	. . . . . . . . . . . . . . . 16 ⊢ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} → 0s <s 𝑥𝐿)
96	83, 95	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 0s <s 𝑥𝐿)
97	96	sgt0ne0d 27815	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝐿 ≠ 0s )
98		breq2 5101	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥𝑂 = 𝑥𝐿 → ( 0s <s 𝑥𝑂 ↔ 0s <s 𝑥𝐿))
99		oveq1 7365	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥𝑂 = 𝑥𝐿 → (𝑥𝑂 ·s 𝑦) = (𝑥𝐿 ·s 𝑦))
100	99	eqeq1d 2737	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥𝑂 = 𝑥𝐿 → ((𝑥𝑂 ·s 𝑦) = 1s ↔ (𝑥𝐿 ·s 𝑦) = 1s ))
101	100	rexbidv 3159	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥𝑂 = 𝑥𝐿 → (∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ↔ ∃𝑦 ∈ No (𝑥𝐿 ·s 𝑦) = 1s ))
102	98, 101	imbi12d 344	. . . . . . . . . . . . . . . 16 ⊢ (𝑥𝑂 = 𝑥𝐿 → (( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ) ↔ ( 0s <s 𝑥𝐿 → ∃𝑦 ∈ No (𝑥𝐿 ·s 𝑦) = 1s )))
103	69	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ))
104		elun1 4133	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥𝐿 ∈ ( L ‘𝐴) → 𝑥𝐿 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴)))
105	84, 104	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝐿 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴)))
106	102, 103, 105	rspcdva 3576	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ( 0s <s 𝑥𝐿 → ∃𝑦 ∈ No (𝑥𝐿 ·s 𝑦) = 1s ))
107	96, 106	mpd 15	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ∃𝑦 ∈ No (𝑥𝐿 ·s 𝑦) = 1s )
108	92, 85, 97, 107	divsclwd 28176	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿) ∈ No )
109		eleq1 2823	. . . . . . . . . . . . 13 ⊢ (𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿) → (𝑎 ∈ No ↔ (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿) ∈ No ))
110	108, 109	syl5ibrcom 247	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → (𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿) → 𝑎 ∈ No ))
111	110	rexlimdvva 3192	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿) → 𝑎 ∈ No ))
112	111	abssdv 4018	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)} ⊆ No )
113	79, 112	unssd 4143	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → ({𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ∪ {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)}) ⊆ No )
114	40, 113	unssd 4143	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → ((𝐿‘𝑗) ∪ ({𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝑅)} ∪ {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝐿)})) ⊆ No )
115	39, 114	eqsstrd 3967	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (𝐿‘suc 𝑗) ⊆ No )
116	25, 26, 27	precsexlem5 28190	. . . . . . . . 9 ⊢ (𝑗 ∈ ω → (𝑅‘suc 𝑗) = ((𝑅‘𝑗) ∪ ({𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ∪ {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)})))
117	116	3ad2ant2 1135	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (𝑅‘suc 𝑗) = ((𝑅‘𝑗) ∪ ({𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ∪ {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)})))
118		simp3r 1204	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (𝑅‘𝑗) ⊆ No )
119	41	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 1s ∈ No )
120		simprl 771	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥})
121	82, 120	sselid 3930	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝐿 ∈ ( L ‘𝐴))
122	81, 121	sselid 3930	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝐿 ∈ No )
123	47	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝐴 ∈ No )
124	122, 123	subscld 28043	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → (𝑥𝐿 -s 𝐴) ∈ No )
125		simpl3l 1230	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → (𝐿‘𝑗) ⊆ No )
126		simprr 773	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑦𝐿 ∈ (𝐿‘𝑗))
127	125, 126	sseldd 3933	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑦𝐿 ∈ No )
128	124, 127	mulscld 28115	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿) ∈ No )
129	119, 128	addscld 27960	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) ∈ No )
130	120, 95	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 0s <s 𝑥𝐿)
131	130	sgt0ne0d 27815	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝐿 ≠ 0s )
132	69	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ))
133	121, 104	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → 𝑥𝐿 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴)))
134	102, 132, 133	rspcdva 3576	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ( 0s <s 𝑥𝐿 → ∃𝑦 ∈ No (𝑥𝐿 ·s 𝑦) = 1s ))
135	130, 134	mpd 15	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → ∃𝑦 ∈ No (𝑥𝐿 ·s 𝑦) = 1s )
136	129, 122, 131, 135	divsclwd 28176	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿) ∈ No )
137		eleq1 2823	. . . . . . . . . . . . 13 ⊢ (𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿) → (𝑎 ∈ No ↔ (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿) ∈ No ))
138	136, 137	syl5ibrcom 247	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥} ∧ 𝑦𝐿 ∈ (𝐿‘𝑗))) → (𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿) → 𝑎 ∈ No ))
139	138	rexlimdvva 3192	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿) → 𝑎 ∈ No ))
140	139	abssdv 4018	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → {𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ⊆ No )
141	41	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 1s ∈ No )
142		simprl 771	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝑅 ∈ ( R ‘𝐴))
143	43, 142	sselid 3930	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝑅 ∈ No )
144	47	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝐴 ∈ No )
145	143, 144	subscld 28043	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → (𝑥𝑅 -s 𝐴) ∈ No )
146		simpl3r 1231	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → (𝑅‘𝑗) ⊆ No )
147		simprr 773	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑦𝑅 ∈ (𝑅‘𝑗))
148	146, 147	sseldd 3933	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑦𝑅 ∈ No )
149	145, 148	mulscld 28115	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅) ∈ No )
150	141, 149	addscld 27960	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) ∈ No )
151	29	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 0s ∈ No )
152	57	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 0s <s 𝐴)
153	142, 59	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝐴 <s 𝑥𝑅)
154	151, 144, 143, 152, 153	slttrd 27733	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 0s <s 𝑥𝑅)
155	154	sgt0ne0d 27815	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝑅 ≠ 0s )
156	69	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ∀𝑥𝑂 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴))( 0s <s 𝑥𝑂 → ∃𝑦 ∈ No (𝑥𝑂 ·s 𝑦) = 1s ))
157	142, 71	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → 𝑥𝑅 ∈ (( L ‘𝐴) ∪ ( R ‘𝐴)))
158	67, 156, 157	rspcdva 3576	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ( 0s <s 𝑥𝑅 → ∃𝑦 ∈ No (𝑥𝑅 ·s 𝑦) = 1s ))
159	154, 158	mpd 15	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → ∃𝑦 ∈ No (𝑥𝑅 ·s 𝑦) = 1s )
160	150, 143, 155, 159	divsclwd 28176	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅) ∈ No )
161		eleq1 2823	. . . . . . . . . . . . 13 ⊢ (𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅) → (𝑎 ∈ No ↔ (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅) ∈ No ))
162	160, 161	syl5ibrcom 247	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) ∧ (𝑥𝑅 ∈ ( R ‘𝐴) ∧ 𝑦𝑅 ∈ (𝑅‘𝑗))) → (𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅) → 𝑎 ∈ No ))
163	162	rexlimdvva 3192	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅) → 𝑎 ∈ No ))
164	163	abssdv 4018	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)} ⊆ No )
165	140, 164	unssd 4143	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → ({𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ∪ {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)}) ⊆ No )
166	118, 165	unssd 4143	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → ((𝑅‘𝑗) ∪ ({𝑎 ∣ ∃𝑥𝐿 ∈ {𝑥 ∈ ( L ‘𝐴) ∣ 0s <s 𝑥}∃𝑦𝐿 ∈ (𝐿‘𝑗)𝑎 = (( 1s +s ((𝑥𝐿 -s 𝐴) ·s 𝑦𝐿)) /su 𝑥𝐿)} ∪ {𝑎 ∣ ∃𝑥𝑅 ∈ ( R ‘𝐴)∃𝑦𝑅 ∈ (𝑅‘𝑗)𝑎 = (( 1s +s ((𝑥𝑅 -s 𝐴) ·s 𝑦𝑅)) /su 𝑥𝑅)})) ⊆ No )
167	117, 166	eqsstrd 3967	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (𝑅‘suc 𝑗) ⊆ No )
168	115, 167	jca 511	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ω ∧ ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → ((𝐿‘suc 𝑗) ⊆ No ∧ (𝑅‘suc 𝑗) ⊆ No ))
169	168	3exp 1120	. . . . 5 ⊢ (𝜑 → (𝑗 ∈ ω → (((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No ) → ((𝐿‘suc 𝑗) ⊆ No ∧ (𝑅‘suc 𝑗) ⊆ No ))))
170	169	com12 32	. . . 4 ⊢ (𝑗 ∈ ω → (𝜑 → (((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No ) → ((𝐿‘suc 𝑗) ⊆ No ∧ (𝑅‘suc 𝑗) ⊆ No ))))
171	170	a2d 29	. . 3 ⊢ (𝑗 ∈ ω → ((𝜑 → ((𝐿‘𝑗) ⊆ No ∧ (𝑅‘𝑗) ⊆ No )) → (𝜑 → ((𝐿‘suc 𝑗) ⊆ No ∧ (𝑅‘suc 𝑗) ⊆ No ))))
172	6, 12, 18, 24, 37, 171	finds 7838	. 2 ⊢ (𝐼 ∈ ω → (𝜑 → ((𝐿‘𝐼) ⊆ No ∧ (𝑅‘𝐼) ⊆ No )))
173	172	impcom 407	1 ⊢ ((𝜑 ∧ 𝐼 ∈ ω) → ((𝐿‘𝐼) ⊆ No ∧ (𝑅‘𝐼) ⊆ No ))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  {cab 2713  ∀wral 3050  ∃wrex 3059  {crab 3398  Vcvv 3439  ⦋csb 3848   ∪ cun 3898   ⊆ wss 3900  ∅c0 4284  {csn 4579  ⟨cop 4585   class class class wbr 5097   ↦ cmpt 5178   ∘ ccom 5627  suc csuc 6318  ‘cfv 6491  (class class class)co 7358  ωcom 7808  1^st c1st 7931  2^nd c2nd 7932  reccrdg 8340   No csur 27609   <s cslt 27610   0_s c0s 27801   1_s c1s 27802   L cleft 27821   R cright 27822   +_s cadds 27939   -_s csubs 28000   ·_s cmuls 28086   /_su cdivs 28167

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2183  ax-ext 2707  ax-rep 5223  ax-sep 5240  ax-nul 5250  ax-pow 5309  ax-pr 5376  ax-un 7680

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2538  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2810  df-nfc 2884  df-ne 2932  df-ral 3051  df-rex 3060  df-rmo 3349  df-reu 3350  df-rab 3399  df-v 3441  df-sbc 3740  df-csb 3849  df-dif 3903  df-un 3905  df-in 3907  df-ss 3917  df-pss 3920  df-nul 4285  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-ot 4588  df-uni 4863  df-int 4902  df-iun 4947  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-se 5577  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6258  df-ord 6319  df-on 6320  df-lim 6321  df-suc 6322  df-iota 6447  df-fun 6493  df-fn 6494  df-f 6495  df-f1 6496  df-fo 6497  df-f1o 6498  df-fv 6499  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-om 7809  df-1st 7933  df-2nd 7934  df-frecs 8223  df-wrecs 8254  df-recs 8303  df-rdg 8341  df-1o 8397  df-2o 8398  df-nadd 8594  df-no 27612  df-slt 27613  df-bday 27614  df-sle 27715  df-sslt 27756  df-scut 27758  df-0s 27803  df-1s 27804  df-made 27823  df-old 27824  df-left 27826  df-right 27827  df-norec 27918  df-norec2 27929  df-adds 27940  df-negs 28001  df-subs 28002  df-muls 28087  df-divs 28168

This theorem is referenced by:  precsexlem9  28194  precsexlem10  28195