Theorem lspsolvlem 20179

Description: Lemma for lspsolv 20180. (Contributed by Mario Carneiro, 25-Jun-2014.)

Hypotheses

Ref	Expression
lspsolv.v	⊢ 𝑉 = (Base‘𝑊)
lspsolv.s	⊢ 𝑆 = (LSubSp‘𝑊)
lspsolv.n	⊢ 𝑁 = (LSpan‘𝑊)
lspsolv.f	⊢ 𝐹 = (Scalar‘𝑊)
lspsolv.b	⊢ 𝐵 = (Base‘𝐹)
lspsolv.p	⊢ + = (+g‘𝑊)
lspsolv.t	⊢ · = ( ·𝑠 ‘𝑊)
lspsolv.q	⊢ 𝑄 = {𝑧 ∈ 𝑉 ∣ ∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)}
lspsolv.w	⊢ (𝜑 → 𝑊 ∈ LMod)
lspsolv.ss	⊢ (𝜑 → 𝐴 ⊆ 𝑉)
lspsolv.y	⊢ (𝜑 → 𝑌 ∈ 𝑉)
lspsolv.x	⊢ (𝜑 → 𝑋 ∈ (𝑁‘(𝐴 ∪ {𝑌})))

Assertion

Ref	Expression
lspsolvlem	⊢ (𝜑 → ∃𝑟 ∈ 𝐵 (𝑋 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))

Distinct variable groups:   𝑧,𝑟,𝐴   𝐵,𝑟,𝑧   𝑁,𝑟,𝑧   𝜑,𝑧   𝐹,𝑟   𝑆,𝑟   𝑉,𝑟,𝑧   𝑊,𝑟,𝑧   + ,𝑟,𝑧   · ,𝑟,𝑧   𝑋,𝑟,𝑧   𝑌,𝑟,𝑧

Allowed substitution hints:   𝜑(𝑟)   𝑄(𝑧,𝑟)   𝑆(𝑧)   𝐹(𝑧)

Proof of Theorem lspsolvlem

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

Step	Hyp	Ref	Expression
1		lspsolv.w	. . . . 5 ⊢ (𝜑 → 𝑊 ∈ LMod)
2		lspsolv.q	. . . . . . 7 ⊢ 𝑄 = {𝑧 ∈ 𝑉 ∣ ∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)}
3	2	ssrab3 3995	. . . . . 6 ⊢ 𝑄 ⊆ 𝑉
4	3	a1i 11	. . . . 5 ⊢ (𝜑 → 𝑄 ⊆ 𝑉)
5		lspsolv.ss	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ⊆ 𝑉)
6	1	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → 𝑊 ∈ LMod)
7		lspsolv.f	. . . . . . . . . . 11 ⊢ 𝐹 = (Scalar‘𝑊)
8		lspsolv.b	. . . . . . . . . . 11 ⊢ 𝐵 = (Base‘𝐹)
9		eqid 2737	. . . . . . . . . . 11 ⊢ (0g‘𝐹) = (0g‘𝐹)
10	7, 8, 9	lmod0cl 19925	. . . . . . . . . 10 ⊢ (𝑊 ∈ LMod → (0g‘𝐹) ∈ 𝐵)
11	6, 10	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (0g‘𝐹) ∈ 𝐵)
12		lspsolv.y	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑌 ∈ 𝑉)
13		lspsolv.v	. . . . . . . . . . . . . . 15 ⊢ 𝑉 = (Base‘𝑊)
14		lspsolv.t	. . . . . . . . . . . . . . 15 ⊢ · = ( ·𝑠 ‘𝑊)
15		eqid 2737	. . . . . . . . . . . . . . 15 ⊢ (0g‘𝑊) = (0g‘𝑊)
16	13, 7, 14, 9, 15	lmod0vs 19932	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ 𝑌 ∈ 𝑉) → ((0g‘𝐹) · 𝑌) = (0g‘𝑊))
17	1, 12, 16	syl2anc 587	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((0g‘𝐹) · 𝑌) = (0g‘𝑊))
18	17	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ((0g‘𝐹) · 𝑌) = (0g‘𝑊))
19	18	oveq2d 7229	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝑧 + ((0g‘𝐹) · 𝑌)) = (𝑧 + (0g‘𝑊)))
20	5	sselda 3901	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → 𝑧 ∈ 𝑉)
21		lspsolv.p	. . . . . . . . . . . . 13 ⊢ + = (+g‘𝑊)
22	13, 21, 15	lmod0vrid 19930	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ LMod ∧ 𝑧 ∈ 𝑉) → (𝑧 + (0g‘𝑊)) = 𝑧)
23	6, 20, 22	syl2anc 587	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝑧 + (0g‘𝑊)) = 𝑧)
24	19, 23	eqtrd 2777	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝑧 + ((0g‘𝐹) · 𝑌)) = 𝑧)
25		lspsolv.n	. . . . . . . . . . . . 13 ⊢ 𝑁 = (LSpan‘𝑊)
26	13, 25	lspssid 20022	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ LMod ∧ 𝐴 ⊆ 𝑉) → 𝐴 ⊆ (𝑁‘𝐴))
27	1, 5, 26	syl2anc 587	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ⊆ (𝑁‘𝐴))
28	27	sselda 3901	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → 𝑧 ∈ (𝑁‘𝐴))
29	24, 28	eqeltrd 2838	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝑧 + ((0g‘𝐹) · 𝑌)) ∈ (𝑁‘𝐴))
30		oveq1 7220	. . . . . . . . . . . 12 ⊢ (𝑟 = (0g‘𝐹) → (𝑟 · 𝑌) = ((0g‘𝐹) · 𝑌))
31	30	oveq2d 7229	. . . . . . . . . . 11 ⊢ (𝑟 = (0g‘𝐹) → (𝑧 + (𝑟 · 𝑌)) = (𝑧 + ((0g‘𝐹) · 𝑌)))
32	31	eleq1d 2822	. . . . . . . . . 10 ⊢ (𝑟 = (0g‘𝐹) → ((𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (𝑧 + ((0g‘𝐹) · 𝑌)) ∈ (𝑁‘𝐴)))
33	32	rspcev 3537	. . . . . . . . 9 ⊢ (((0g‘𝐹) ∈ 𝐵 ∧ (𝑧 + ((0g‘𝐹) · 𝑌)) ∈ (𝑁‘𝐴)) → ∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))
34	11, 29, 33	syl2anc 587	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))
35	5, 34	ssrabdv 3987	. . . . . . 7 ⊢ (𝜑 → 𝐴 ⊆ {𝑧 ∈ 𝑉 ∣ ∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)})
36	35, 2	sseqtrrdi 3952	. . . . . 6 ⊢ (𝜑 → 𝐴 ⊆ 𝑄)
37	7	lmodfgrp 19908	. . . . . . . . . . 11 ⊢ (𝑊 ∈ LMod → 𝐹 ∈ Grp)
38	1, 37	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ Grp)
39		eqid 2737	. . . . . . . . . . . 12 ⊢ (1r‘𝐹) = (1r‘𝐹)
40	7, 8, 39	lmod1cl 19926	. . . . . . . . . . 11 ⊢ (𝑊 ∈ LMod → (1r‘𝐹) ∈ 𝐵)
41	1, 40	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (1r‘𝐹) ∈ 𝐵)
42		eqid 2737	. . . . . . . . . . 11 ⊢ (invg‘𝐹) = (invg‘𝐹)
43	8, 42	grpinvcl 18415	. . . . . . . . . 10 ⊢ ((𝐹 ∈ Grp ∧ (1r‘𝐹) ∈ 𝐵) → ((invg‘𝐹)‘(1r‘𝐹)) ∈ 𝐵)
44	38, 41, 43	syl2anc 587	. . . . . . . . 9 ⊢ (𝜑 → ((invg‘𝐹)‘(1r‘𝐹)) ∈ 𝐵)
45		eqid 2737	. . . . . . . . . . . . . 14 ⊢ (invg‘𝑊) = (invg‘𝑊)
46	13, 45, 7, 14, 39, 42	lmodvneg1 19942	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ LMod ∧ 𝑌 ∈ 𝑉) → (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌) = ((invg‘𝑊)‘𝑌))
47	1, 12, 46	syl2anc 587	. . . . . . . . . . . 12 ⊢ (𝜑 → (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌) = ((invg‘𝑊)‘𝑌))
48	47	oveq2d 7229	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌 + (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌)) = (𝑌 + ((invg‘𝑊)‘𝑌)))
49		lmodgrp 19906	. . . . . . . . . . . . 13 ⊢ (𝑊 ∈ LMod → 𝑊 ∈ Grp)
50	1, 49	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊 ∈ Grp)
51	13, 21, 15, 45	grprinv 18417	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ Grp ∧ 𝑌 ∈ 𝑉) → (𝑌 + ((invg‘𝑊)‘𝑌)) = (0g‘𝑊))
52	50, 12, 51	syl2anc 587	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌 + ((invg‘𝑊)‘𝑌)) = (0g‘𝑊))
53	48, 52	eqtrd 2777	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 + (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌)) = (0g‘𝑊))
54		lspsolv.s	. . . . . . . . . . . . 13 ⊢ 𝑆 = (LSubSp‘𝑊)
55	13, 54, 25	lspcl 20013	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ LMod ∧ 𝐴 ⊆ 𝑉) → (𝑁‘𝐴) ∈ 𝑆)
56	1, 5, 55	syl2anc 587	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁‘𝐴) ∈ 𝑆)
57	15, 54	lss0cl 19983	. . . . . . . . . . 11 ⊢ ((𝑊 ∈ LMod ∧ (𝑁‘𝐴) ∈ 𝑆) → (0g‘𝑊) ∈ (𝑁‘𝐴))
58	1, 56, 57	syl2anc 587	. . . . . . . . . 10 ⊢ (𝜑 → (0g‘𝑊) ∈ (𝑁‘𝐴))
59	53, 58	eqeltrd 2838	. . . . . . . . 9 ⊢ (𝜑 → (𝑌 + (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌)) ∈ (𝑁‘𝐴))
60		oveq1 7220	. . . . . . . . . . . 12 ⊢ (𝑟 = ((invg‘𝐹)‘(1r‘𝐹)) → (𝑟 · 𝑌) = (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌))
61	60	oveq2d 7229	. . . . . . . . . . 11 ⊢ (𝑟 = ((invg‘𝐹)‘(1r‘𝐹)) → (𝑌 + (𝑟 · 𝑌)) = (𝑌 + (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌)))
62	61	eleq1d 2822	. . . . . . . . . 10 ⊢ (𝑟 = ((invg‘𝐹)‘(1r‘𝐹)) → ((𝑌 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (𝑌 + (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌)) ∈ (𝑁‘𝐴)))
63	62	rspcev 3537	. . . . . . . . 9 ⊢ ((((invg‘𝐹)‘(1r‘𝐹)) ∈ 𝐵 ∧ (𝑌 + (((invg‘𝐹)‘(1r‘𝐹)) · 𝑌)) ∈ (𝑁‘𝐴)) → ∃𝑟 ∈ 𝐵 (𝑌 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))
64	44, 59, 63	syl2anc 587	. . . . . . . 8 ⊢ (𝜑 → ∃𝑟 ∈ 𝐵 (𝑌 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))
65		oveq1 7220	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑌 → (𝑧 + (𝑟 · 𝑌)) = (𝑌 + (𝑟 · 𝑌)))
66	65	eleq1d 2822	. . . . . . . . . 10 ⊢ (𝑧 = 𝑌 → ((𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (𝑌 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
67	66	rexbidv 3216	. . . . . . . . 9 ⊢ (𝑧 = 𝑌 → (∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑟 ∈ 𝐵 (𝑌 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
68	67, 2	elrab2 3605	. . . . . . . 8 ⊢ (𝑌 ∈ 𝑄 ↔ (𝑌 ∈ 𝑉 ∧ ∃𝑟 ∈ 𝐵 (𝑌 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
69	12, 64, 68	sylanbrc 586	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ 𝑄)
70	69	snssd 4722	. . . . . 6 ⊢ (𝜑 → {𝑌} ⊆ 𝑄)
71	36, 70	unssd 4100	. . . . 5 ⊢ (𝜑 → (𝐴 ∪ {𝑌}) ⊆ 𝑄)
72	13, 25	lspss 20021	. . . . 5 ⊢ ((𝑊 ∈ LMod ∧ 𝑄 ⊆ 𝑉 ∧ (𝐴 ∪ {𝑌}) ⊆ 𝑄) → (𝑁‘(𝐴 ∪ {𝑌})) ⊆ (𝑁‘𝑄))
73	1, 4, 71, 72	syl3anc 1373	. . . 4 ⊢ (𝜑 → (𝑁‘(𝐴 ∪ {𝑌})) ⊆ (𝑁‘𝑄))
74	7	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐹 = (Scalar‘𝑊))
75	8	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐵 = (Base‘𝐹))
76	13	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝑉 = (Base‘𝑊))
77	21	a1i 11	. . . . . 6 ⊢ (𝜑 → + = (+g‘𝑊))
78	14	a1i 11	. . . . . 6 ⊢ (𝜑 → · = ( ·𝑠 ‘𝑊))
79	54	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝑆 = (LSubSp‘𝑊))
80	69	ne0d 4250	. . . . . 6 ⊢ (𝜑 → 𝑄 ≠ ∅)
81		oveq1 7220	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = 𝑥 → (𝑧 + (𝑟 · 𝑌)) = (𝑥 + (𝑟 · 𝑌)))
82	81	eleq1d 2822	. . . . . . . . . . . . . 14 ⊢ (𝑧 = 𝑥 → ((𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (𝑥 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
83	82	rexbidv 3216	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑥 → (∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑟 ∈ 𝐵 (𝑥 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
84		oveq1 7220	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = 𝑠 → (𝑟 · 𝑌) = (𝑠 · 𝑌))
85	84	oveq2d 7229	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = 𝑠 → (𝑥 + (𝑟 · 𝑌)) = (𝑥 + (𝑠 · 𝑌)))
86	85	eleq1d 2822	. . . . . . . . . . . . . 14 ⊢ (𝑟 = 𝑠 → ((𝑥 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴)))
87	86	cbvrexvw 3359	. . . . . . . . . . . . 13 ⊢ (∃𝑟 ∈ 𝐵 (𝑥 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴))
88	83, 87	bitrdi 290	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑥 → (∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴)))
89	88, 2	elrab2 3605	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝑄 ↔ (𝑥 ∈ 𝑉 ∧ ∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴)))
90		oveq1 7220	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = 𝑦 → (𝑧 + (𝑟 · 𝑌)) = (𝑦 + (𝑟 · 𝑌)))
91	90	eleq1d 2822	. . . . . . . . . . . . . 14 ⊢ (𝑧 = 𝑦 → ((𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (𝑦 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
92	91	rexbidv 3216	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑦 → (∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑟 ∈ 𝐵 (𝑦 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
93		oveq1 7220	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = 𝑡 → (𝑟 · 𝑌) = (𝑡 · 𝑌))
94	93	oveq2d 7229	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = 𝑡 → (𝑦 + (𝑟 · 𝑌)) = (𝑦 + (𝑡 · 𝑌)))
95	94	eleq1d 2822	. . . . . . . . . . . . . 14 ⊢ (𝑟 = 𝑡 → ((𝑦 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴)))
96	95	cbvrexvw 3359	. . . . . . . . . . . . 13 ⊢ (∃𝑟 ∈ 𝐵 (𝑦 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))
97	92, 96	bitrdi 290	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑦 → (∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴)))
98	97, 2	elrab2 3605	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝑄 ↔ (𝑦 ∈ 𝑉 ∧ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴)))
99	89, 98	anbi12i 630	. . . . . . . . . 10 ⊢ ((𝑥 ∈ 𝑄 ∧ 𝑦 ∈ 𝑄) ↔ ((𝑥 ∈ 𝑉 ∧ ∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴)) ∧ (𝑦 ∈ 𝑉 ∧ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))))
100		an4 656	. . . . . . . . . 10 ⊢ (((𝑥 ∈ 𝑉 ∧ ∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴)) ∧ (𝑦 ∈ 𝑉 ∧ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) ↔ ((𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) ∧ (∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))))
101	99, 100	bitri 278	. . . . . . . . 9 ⊢ ((𝑥 ∈ 𝑄 ∧ 𝑦 ∈ 𝑄) ↔ ((𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) ∧ (∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))))
102		reeanv 3279	. . . . . . . . . . 11 ⊢ (∃𝑠 ∈ 𝐵 ∃𝑡 ∈ 𝐵 ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴)) ↔ (∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴)))
103		simp1ll 1238	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → 𝜑)
104	103, 1	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → 𝑊 ∈ LMod)
105		simp1lr 1239	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → 𝑎 ∈ 𝐵)
106		simp1rl 1240	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → 𝑥 ∈ 𝑉)
107	13, 7, 14, 8	lmodvscl 19916	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ LMod ∧ 𝑎 ∈ 𝐵 ∧ 𝑥 ∈ 𝑉) → (𝑎 · 𝑥) ∈ 𝑉)
108	104, 105, 106, 107	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑎 · 𝑥) ∈ 𝑉)
109		simp1rr 1241	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → 𝑦 ∈ 𝑉)
110	13, 21	lmodvacl 19913	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ LMod ∧ (𝑎 · 𝑥) ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑉)
111	104, 108, 109, 110	syl3anc 1373	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑉)
112		simp2l 1201	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → 𝑠 ∈ 𝐵)
113		eqid 2737	. . . . . . . . . . . . . . . . . 18 ⊢ (.r‘𝐹) = (.r‘𝐹)
114	7, 8, 113	lmodmcl 19911	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑊 ∈ LMod ∧ 𝑎 ∈ 𝐵 ∧ 𝑠 ∈ 𝐵) → (𝑎(.r‘𝐹)𝑠) ∈ 𝐵)
115	104, 105, 112, 114	syl3anc 1373	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑎(.r‘𝐹)𝑠) ∈ 𝐵)
116		simp2r 1202	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → 𝑡 ∈ 𝐵)
117		eqid 2737	. . . . . . . . . . . . . . . . 17 ⊢ (+g‘𝐹) = (+g‘𝐹)
118	7, 8, 117	lmodacl 19910	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ LMod ∧ (𝑎(.r‘𝐹)𝑠) ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) → ((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) ∈ 𝐵)
119	104, 115, 116, 118	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) ∈ 𝐵)
120	103, 12	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → 𝑌 ∈ 𝑉)
121	13, 7, 14, 8	lmodvscl 19916	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ LMod ∧ 𝑠 ∈ 𝐵 ∧ 𝑌 ∈ 𝑉) → (𝑠 · 𝑌) ∈ 𝑉)
122	104, 112, 120, 121	syl3anc 1373	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑠 · 𝑌) ∈ 𝑉)
123	13, 7, 14, 8	lmodvscl 19916	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑊 ∈ LMod ∧ 𝑎 ∈ 𝐵 ∧ (𝑠 · 𝑌) ∈ 𝑉) → (𝑎 · (𝑠 · 𝑌)) ∈ 𝑉)
124	104, 105, 122, 123	syl3anc 1373	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑎 · (𝑠 · 𝑌)) ∈ 𝑉)
125	13, 7, 14, 8	lmodvscl 19916	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑊 ∈ LMod ∧ 𝑡 ∈ 𝐵 ∧ 𝑌 ∈ 𝑉) → (𝑡 · 𝑌) ∈ 𝑉)
126	104, 116, 120, 125	syl3anc 1373	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑡 · 𝑌) ∈ 𝑉)
127	13, 21	lmod4 19949	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ LMod ∧ ((𝑎 · 𝑥) ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) ∧ ((𝑎 · (𝑠 · 𝑌)) ∈ 𝑉 ∧ (𝑡 · 𝑌) ∈ 𝑉)) → (((𝑎 · 𝑥) + 𝑦) + ((𝑎 · (𝑠 · 𝑌)) + (𝑡 · 𝑌))) = (((𝑎 · 𝑥) + (𝑎 · (𝑠 · 𝑌))) + (𝑦 + (𝑡 · 𝑌))))
128	104, 108, 109, 124, 126, 127	syl122anc 1381	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (((𝑎 · 𝑥) + 𝑦) + ((𝑎 · (𝑠 · 𝑌)) + (𝑡 · 𝑌))) = (((𝑎 · 𝑥) + (𝑎 · (𝑠 · 𝑌))) + (𝑦 + (𝑡 · 𝑌))))
129	13, 21, 7, 14, 8, 117	lmodvsdir 19923	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ LMod ∧ ((𝑎(.r‘𝐹)𝑠) ∈ 𝐵 ∧ 𝑡 ∈ 𝐵 ∧ 𝑌 ∈ 𝑉)) → (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌) = (((𝑎(.r‘𝐹)𝑠) · 𝑌) + (𝑡 · 𝑌)))
130	104, 115, 116, 120, 129	syl13anc 1374	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌) = (((𝑎(.r‘𝐹)𝑠) · 𝑌) + (𝑡 · 𝑌)))
131	13, 7, 14, 8, 113	lmodvsass 19924	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ LMod ∧ (𝑎 ∈ 𝐵 ∧ 𝑠 ∈ 𝐵 ∧ 𝑌 ∈ 𝑉)) → ((𝑎(.r‘𝐹)𝑠) · 𝑌) = (𝑎 · (𝑠 · 𝑌)))
132	104, 105, 112, 120, 131	syl13anc 1374	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ((𝑎(.r‘𝐹)𝑠) · 𝑌) = (𝑎 · (𝑠 · 𝑌)))
133	132	oveq1d 7228	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (((𝑎(.r‘𝐹)𝑠) · 𝑌) + (𝑡 · 𝑌)) = ((𝑎 · (𝑠 · 𝑌)) + (𝑡 · 𝑌)))
134	130, 133	eqtrd 2777	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌) = ((𝑎 · (𝑠 · 𝑌)) + (𝑡 · 𝑌)))
135	134	oveq2d 7229	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (((𝑎 · 𝑥) + 𝑦) + (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌)) = (((𝑎 · 𝑥) + 𝑦) + ((𝑎 · (𝑠 · 𝑌)) + (𝑡 · 𝑌))))
136	13, 21, 7, 14, 8	lmodvsdi 19922	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑊 ∈ LMod ∧ (𝑎 ∈ 𝐵 ∧ 𝑥 ∈ 𝑉 ∧ (𝑠 · 𝑌) ∈ 𝑉)) → (𝑎 · (𝑥 + (𝑠 · 𝑌))) = ((𝑎 · 𝑥) + (𝑎 · (𝑠 · 𝑌))))
137	104, 105, 106, 122, 136	syl13anc 1374	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑎 · (𝑥 + (𝑠 · 𝑌))) = ((𝑎 · 𝑥) + (𝑎 · (𝑠 · 𝑌))))
138	137	oveq1d 7228	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ((𝑎 · (𝑥 + (𝑠 · 𝑌))) + (𝑦 + (𝑡 · 𝑌))) = (((𝑎 · 𝑥) + (𝑎 · (𝑠 · 𝑌))) + (𝑦 + (𝑡 · 𝑌))))
139	128, 135, 138	3eqtr4d 2787	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (((𝑎 · 𝑥) + 𝑦) + (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌)) = ((𝑎 · (𝑥 + (𝑠 · 𝑌))) + (𝑦 + (𝑡 · 𝑌))))
140	103, 56	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑁‘𝐴) ∈ 𝑆)
141		simp3l 1203	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴))
142		simp3r 1204	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))
143	7, 8, 21, 14, 54	lsscl 19979	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑁‘𝐴) ∈ 𝑆 ∧ (𝑎 ∈ 𝐵 ∧ (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ((𝑎 · (𝑥 + (𝑠 · 𝑌))) + (𝑦 + (𝑡 · 𝑌))) ∈ (𝑁‘𝐴))
144	140, 105, 141, 142, 143	syl13anc 1374	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ((𝑎 · (𝑥 + (𝑠 · 𝑌))) + (𝑦 + (𝑡 · 𝑌))) ∈ (𝑁‘𝐴))
145	139, 144	eqeltrd 2838	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → (((𝑎 · 𝑥) + 𝑦) + (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌)) ∈ (𝑁‘𝐴))
146		oveq1 7220	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = ((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) → (𝑟 · 𝑌) = (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌))
147	146	oveq2d 7229	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = ((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) → (((𝑎 · 𝑥) + 𝑦) + (𝑟 · 𝑌)) = (((𝑎 · 𝑥) + 𝑦) + (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌)))
148	147	eleq1d 2822	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = ((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) → ((((𝑎 · 𝑥) + 𝑦) + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (((𝑎 · 𝑥) + 𝑦) + (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌)) ∈ (𝑁‘𝐴)))
149	148	rspcev 3537	. . . . . . . . . . . . . . 15 ⊢ ((((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) ∈ 𝐵 ∧ (((𝑎 · 𝑥) + 𝑦) + (((𝑎(.r‘𝐹)𝑠)(+g‘𝐹)𝑡) · 𝑌)) ∈ (𝑁‘𝐴)) → ∃𝑟 ∈ 𝐵 (((𝑎 · 𝑥) + 𝑦) + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))
150	119, 145, 149	syl2anc 587	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ∃𝑟 ∈ 𝐵 (((𝑎 · 𝑥) + 𝑦) + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))
151		oveq1 7220	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = ((𝑎 · 𝑥) + 𝑦) → (𝑧 + (𝑟 · 𝑌)) = (((𝑎 · 𝑥) + 𝑦) + (𝑟 · 𝑌)))
152	151	eleq1d 2822	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = ((𝑎 · 𝑥) + 𝑦) → ((𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (((𝑎 · 𝑥) + 𝑦) + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
153	152	rexbidv 3216	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = ((𝑎 · 𝑥) + 𝑦) → (∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑟 ∈ 𝐵 (((𝑎 · 𝑥) + 𝑦) + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
154	153, 2	elrab2 3605	. . . . . . . . . . . . . 14 ⊢ (((𝑎 · 𝑥) + 𝑦) ∈ 𝑄 ↔ (((𝑎 · 𝑥) + 𝑦) ∈ 𝑉 ∧ ∃𝑟 ∈ 𝐵 (((𝑎 · 𝑥) + 𝑦) + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
155	111, 150, 154	sylanbrc 586	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) ∧ (𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) ∧ ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑄)
156	155	3exp 1121	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) → ((𝑠 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) → (((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴)) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑄)))
157	156	rexlimdvv 3212	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) → (∃𝑠 ∈ 𝐵 ∃𝑡 ∈ 𝐵 ((𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴)) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑄))
158	102, 157	syl5bir 246	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐵) ∧ (𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉)) → ((∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴)) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑄))
159	158	expimpd 457	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → (((𝑥 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) ∧ (∃𝑠 ∈ 𝐵 (𝑥 + (𝑠 · 𝑌)) ∈ (𝑁‘𝐴) ∧ ∃𝑡 ∈ 𝐵 (𝑦 + (𝑡 · 𝑌)) ∈ (𝑁‘𝐴))) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑄))
160	101, 159	syl5bi 245	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐵) → ((𝑥 ∈ 𝑄 ∧ 𝑦 ∈ 𝑄) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑄))
161	160	exp4b 434	. . . . . . 7 ⊢ (𝜑 → (𝑎 ∈ 𝐵 → (𝑥 ∈ 𝑄 → (𝑦 ∈ 𝑄 → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑄))))
162	161	3imp2 1351	. . . . . 6 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑥 ∈ 𝑄 ∧ 𝑦 ∈ 𝑄)) → ((𝑎 · 𝑥) + 𝑦) ∈ 𝑄)
163	74, 75, 76, 77, 78, 79, 4, 80, 162	islssd 19972	. . . . 5 ⊢ (𝜑 → 𝑄 ∈ 𝑆)
164	54, 25	lspid 20019	. . . . 5 ⊢ ((𝑊 ∈ LMod ∧ 𝑄 ∈ 𝑆) → (𝑁‘𝑄) = 𝑄)
165	1, 163, 164	syl2anc 587	. . . 4 ⊢ (𝜑 → (𝑁‘𝑄) = 𝑄)
166	73, 165	sseqtrd 3941	. . 3 ⊢ (𝜑 → (𝑁‘(𝐴 ∪ {𝑌})) ⊆ 𝑄)
167		lspsolv.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ (𝑁‘(𝐴 ∪ {𝑌})))
168	166, 167	sseldd 3902	. 2 ⊢ (𝜑 → 𝑋 ∈ 𝑄)
169		oveq1 7220	. . . . . 6 ⊢ (𝑧 = 𝑋 → (𝑧 + (𝑟 · 𝑌)) = (𝑋 + (𝑟 · 𝑌)))
170	169	eleq1d 2822	. . . . 5 ⊢ (𝑧 = 𝑋 → ((𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ (𝑋 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
171	170	rexbidv 3216	. . . 4 ⊢ (𝑧 = 𝑋 → (∃𝑟 ∈ 𝐵 (𝑧 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴) ↔ ∃𝑟 ∈ 𝐵 (𝑋 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
172	171, 2	elrab2 3605	. . 3 ⊢ (𝑋 ∈ 𝑄 ↔ (𝑋 ∈ 𝑉 ∧ ∃𝑟 ∈ 𝐵 (𝑋 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴)))
173	172	simprbi 500	. 2 ⊢ (𝑋 ∈ 𝑄 → ∃𝑟 ∈ 𝐵 (𝑋 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))
174	168, 173	syl 17	1 ⊢ (𝜑 → ∃𝑟 ∈ 𝐵 (𝑋 + (𝑟 · 𝑌)) ∈ (𝑁‘𝐴))

Syntax hints:   → wi 4   ∧ wa 399   ∧ w3a 1089   = wceq 1543   ∈ wcel 2110  ∃wrex 3062  {crab 3065   ∪ cun 3864   ⊆ wss 3866  {csn 4541  ‘cfv 6380  (class class class)co 7213  Basecbs 16760  +_gcplusg 16802  ._rcmulr 16803  Scalarcsca 16805   ·_𝑠 cvsca 16806  0_gc0g 16944  Grpcgrp 18365  inv_gcminusg 18366  1_rcur 19516  LModclmod 19899  LSubSpclss 19968  LSpanclspn 20008

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523  ax-cnex 10785  ax-resscn 10786  ax-1cn 10787  ax-icn 10788  ax-addcl 10789  ax-addrcl 10790  ax-mulcl 10791  ax-mulrcl 10792  ax-mulcom 10793  ax-addass 10794  ax-mulass 10795  ax-distr 10796  ax-i2m1 10797  ax-1ne0 10798  ax-1rid 10799  ax-rnegex 10800  ax-rrecex 10801  ax-cnre 10802  ax-pre-lttri 10803  ax-pre-lttrn 10804  ax-pre-ltadd 10805  ax-pre-mulgt0 10806

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-int 4860  df-iun 4906  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-riota 7170  df-ov 7216  df-oprab 7217  df-mpo 7218  df-om 7645  df-1st 7761  df-2nd 7762  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-er 8391  df-en 8627  df-dom 8628  df-sdom 8629  df-pnf 10869  df-mnf 10870  df-xr 10871  df-ltxr 10872  df-le 10873  df-sub 11064  df-neg 11065  df-nn 11831  df-2 11893  df-sets 16717  df-slot 16735  df-ndx 16745  df-base 16761  df-plusg 16815  df-0g 16946  df-mgm 18114  df-sgrp 18163  df-mnd 18174  df-grp 18368  df-minusg 18369  df-sbg 18370  df-cmn 19172  df-abl 19173  df-mgp 19505  df-ur 19517  df-ring 19564  df-lmod 19901  df-lss 19969  df-lsp 20009

This theorem is referenced by:  lspsolv  20180