lss1d - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > lss1d		GIF version

Theorem lss1d 14692

Description: One-dimensional subspace (or zero-dimensional if 𝑋 is the zero vector). (Contributed by NM, 14-Jan-2014.) (Proof shortened by Mario Carneiro, 19-Jun-2014.)

**Hypotheses**
Ref	Expression
lss1d.v	⊢ 𝑉 = (Base‘𝑊)
lss1d.f	⊢ 𝐹 = (Scalar‘𝑊)
lss1d.t	⊢ · = ( ·_𝑠 ‘𝑊)
lss1d.k	⊢ 𝐾 = (Base‘𝐹)
lss1d.s	⊢ 𝑆 = (LSubSp‘𝑊)

**Assertion**
Ref	Expression
lss1d	⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∈ 𝑆)

Distinct variable groups: 𝑣,𝑘,𝐾 · ,𝑘,𝑣 𝑘,𝑉,𝑣 𝑘,𝐹 𝑘,𝑊,𝑣 𝑘,𝑋,𝑣 Allowed substitution hints: 𝑆(𝑣,𝑘) 𝐹(𝑣)

Proof of Theorem lss1d Dummy variables 𝑎 𝑏 𝑗 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		lss1d.f	. . 3 ⊢ 𝐹 = (Scalar‘𝑊)
2	1	a1i 9	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → 𝐹 = (Scalar‘𝑊))
3		lss1d.k	. . 3 ⊢ 𝐾 = (Base‘𝐹)
4	3	a1i 9	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → 𝐾 = (Base‘𝐹))
5		lss1d.v	. . 3 ⊢ 𝑉 = (Base‘𝑊)
6	5	a1i 9	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → 𝑉 = (Base‘𝑊))
7		eqidd 2239	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (+_g‘𝑊) = (+_g‘𝑊))
8		lss1d.t	. . 3 ⊢ · = ( ·_𝑠 ‘𝑊)
9	8	a1i 9	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → · = ( ·_𝑠 ‘𝑊))
10		lss1d.s	. . 3 ⊢ 𝑆 = (LSubSp‘𝑊)
11	10	a1i 9	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → 𝑆 = (LSubSp‘𝑊))
12	5, 1, 8, 3	lmodvscl 14614	. . . . . . 7 ⊢ ((𝑊 ∈ LMod ∧ 𝑘 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ 𝑉)
13	12	3expa 1234	. . . . . 6 ⊢ (((𝑊 ∈ LMod ∧ 𝑘 ∈ 𝐾) ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ 𝑉)
14	13	an32s 574	. . . . 5 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ 𝑘 ∈ 𝐾) → (𝑘 · 𝑋) ∈ 𝑉)
15		eleq1a 2310	. . . . 5 ⊢ ((𝑘 · 𝑋) ∈ 𝑉 → (𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
16	14, 15	syl 14	. . . 4 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ 𝑘 ∈ 𝐾) → (𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
17	16	rexlimdva 2668	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
18	17	abssdv 3322	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ⊆ 𝑉)
19		eqid 2238	. . . . . 6 ⊢ (0_g‘𝐹) = (0_g‘𝐹)
20	1, 3, 19	lmod0cl 14623	. . . . 5 ⊢ (𝑊 ∈ LMod → (0_g‘𝐹) ∈ 𝐾)
21		elex2 2838	. . . . 5 ⊢ ((0_g‘𝐹) ∈ 𝐾 → ∃𝑘 𝑘 ∈ 𝐾)
22	20, 21	syl 14	. . . 4 ⊢ (𝑊 ∈ LMod → ∃𝑘 𝑘 ∈ 𝐾)
23	22	adantr 276	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → ∃𝑘 𝑘 ∈ 𝐾)
24		nfv 1581	. . . 4 ⊢ Ⅎ𝑘(𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉)
25		nfre1 2593	. . . . . 6 ⊢ Ⅎ𝑘∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)
26	25	nfsab 2230	. . . . 5 ⊢ Ⅎ𝑘 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}
27	26	nfex 1690	. . . 4 ⊢ Ⅎ𝑘∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}
28		vex 2824	. . . . . . . 8 ⊢ 𝑘 ∈ V
29		vscaslid 13494	. . . . . . . . . . 11 ⊢ ( ·_𝑠 = Slot ( ·_𝑠 ‘ndx) ∧ ( ·_𝑠 ‘ndx) ∈ ℕ)
30	29	slotex 13357	. . . . . . . . . 10 ⊢ (𝑊 ∈ LMod → ( ·_𝑠 ‘𝑊) ∈ V)
31	8, 30	eqeltrid 2325	. . . . . . . . 9 ⊢ (𝑊 ∈ LMod → · ∈ V)
32	31	adantr 276	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → · ∈ V)
33		simpr 110	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → 𝑋 ∈ 𝑉)
34		ovexg 6109	. . . . . . . 8 ⊢ ((𝑘 ∈ V ∧ · ∈ V ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ V)
35	28, 32, 33, 34	mp3an2i 1383	. . . . . . 7 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ V)
36		elabrexg 5954	. . . . . . 7 ⊢ ((𝑘 ∈ 𝐾 ∧ (𝑘 · 𝑋) ∈ V) → (𝑘 · 𝑋) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
37	35, 36	sylan2 286	. . . . . 6 ⊢ ((𝑘 ∈ 𝐾 ∧ (𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉)) → (𝑘 · 𝑋) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
38		elex2 2838	. . . . . 6 ⊢ ((𝑘 · 𝑋) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
39	37, 38	syl 14	. . . . 5 ⊢ ((𝑘 ∈ 𝐾 ∧ (𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉)) → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
40	39	expcom 116	. . . 4 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑘 ∈ 𝐾 → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}))
41	24, 27, 40	exlimd 1650	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (∃𝑘 𝑘 ∈ 𝐾 → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}))
42	23, 41	mpd 13	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
43		vex 2824	. . . . . . . . . . 11 ⊢ 𝑎 ∈ V
44		eqeq1 2245	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑎 → (𝑣 = (𝑘 · 𝑋) ↔ 𝑎 = (𝑘 · 𝑋)))
45	44	rexbidv 2551	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑎 → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋)))
46	43, 45	elab 2970	. . . . . . . . . 10 ⊢ (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋))
47		oveq1 6082	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑦 → (𝑘 · 𝑋) = (𝑦 · 𝑋))
48	47	eqeq2d 2250	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑦 → (𝑎 = (𝑘 · 𝑋) ↔ 𝑎 = (𝑦 · 𝑋)))
49	48	cbvrexvw 2791	. . . . . . . . . 10 ⊢ (∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋) ↔ ∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋))
50	46, 49	bitri 184	. . . . . . . . 9 ⊢ (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋))
51		vex 2824	. . . . . . . . . . 11 ⊢ 𝑏 ∈ V
52		eqeq1 2245	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑏 → (𝑣 = (𝑘 · 𝑋) ↔ 𝑏 = (𝑘 · 𝑋)))
53	52	rexbidv 2551	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑏 → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋)))
54	51, 53	elab 2970	. . . . . . . . . 10 ⊢ (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋))
55		oveq1 6082	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑧 → (𝑘 · 𝑋) = (𝑧 · 𝑋))
56	55	eqeq2d 2250	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑧 → (𝑏 = (𝑘 · 𝑋) ↔ 𝑏 = (𝑧 · 𝑋)))
57	56	cbvrexvw 2791	. . . . . . . . . 10 ⊢ (∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋) ↔ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋))
58	54, 57	bitri 184	. . . . . . . . 9 ⊢ (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋))
59	50, 58	anbi12i 464	. . . . . . . 8 ⊢ ((𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}) ↔ (∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋) ∧ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋)))
60		reeanv 2721	. . . . . . . 8 ⊢ (∃𝑦 ∈ 𝐾 ∃𝑧 ∈ 𝐾 (𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) ↔ (∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋) ∧ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋)))
61	59, 60	bitr4i 187	. . . . . . 7 ⊢ ((𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}) ↔ ∃𝑦 ∈ 𝐾 ∃𝑧 ∈ 𝐾 (𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)))
62		simpll 531	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑊 ∈ LMod)
63		simprr 537	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑥 ∈ 𝐾)
64		simprll 543	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑦 ∈ 𝐾)
65		eqid 2238	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝐹) = (._r‘𝐹)
66	1, 3, 65	lmodmcl 14609	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ 𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → (𝑥(._r‘𝐹)𝑦) ∈ 𝐾)
67	62, 63, 64, 66	syl3anc 1278	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → (𝑥(._r‘𝐹)𝑦) ∈ 𝐾)
68		simprlr 544	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑧 ∈ 𝐾)
69		eqid 2238	. . . . . . . . . . . . . 14 ⊢ (+_g‘𝐹) = (+_g‘𝐹)
70	1, 3, 69	lmodacl 14608	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ LMod ∧ (𝑥(._r‘𝐹)𝑦) ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) → ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾)
71	62, 67, 68, 70	syl3anc 1278	. . . . . . . . . . . 12 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾)
72		simplr 533	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑋 ∈ 𝑉)
73		eqid 2238	. . . . . . . . . . . . . . 15 ⊢ (+_g‘𝑊) = (+_g‘𝑊)
74	5, 73, 1, 8, 3, 69	lmodvsdir 14621	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ ((𝑥(._r‘𝐹)𝑦) ∈ 𝐾 ∧ 𝑧 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉)) → (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋) = (((𝑥(._r‘𝐹)𝑦) · 𝑋)(+_g‘𝑊)(𝑧 · 𝑋)))
75	62, 67, 68, 72, 74	syl13anc 1280	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋) = (((𝑥(._r‘𝐹)𝑦) · 𝑋)(+_g‘𝑊)(𝑧 · 𝑋)))
76	5, 1, 8, 3, 65	lmodvsass 14622	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ LMod ∧ (𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉)) → ((𝑥(._r‘𝐹)𝑦) · 𝑋) = (𝑥 · (𝑦 · 𝑋)))
77	62, 63, 64, 72, 76	syl13anc 1280	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥(._r‘𝐹)𝑦) · 𝑋) = (𝑥 · (𝑦 · 𝑋)))
78	77	oveq1d 6090	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → (((𝑥(._r‘𝐹)𝑦) · 𝑋)(+_g‘𝑊)(𝑧 · 𝑋)) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
79	75, 78	eqtr2d 2272	. . . . . . . . . . . 12 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋))
80		oveq1 6082	. . . . . . . . . . . . 13 ⊢ (𝑘 = ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) → (𝑘 · 𝑋) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋))
81	80	rspceeqv 2948	. . . . . . . . . . . 12 ⊢ ((((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾 ∧ ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋)) → ∃𝑘 ∈ 𝐾 ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋))
82	71, 79, 81	syl2anc 415	. . . . . . . . . . 11 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ∃𝑘 ∈ 𝐾 ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋))
83		oveq2 6083	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑦 · 𝑋) → (𝑥 · 𝑎) = (𝑥 · (𝑦 · 𝑋)))
84		oveq12 6084	. . . . . . . . . . . . . 14 ⊢ (((𝑥 · 𝑎) = (𝑥 · (𝑦 · 𝑋)) ∧ 𝑏 = (𝑧 · 𝑋)) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
85	83, 84	sylan 283	. . . . . . . . . . . . 13 ⊢ ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
86	85	eqeq1d 2247	. . . . . . . . . . . 12 ⊢ ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋) ↔ ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋)))
87	86	rexbidv 2551	. . . . . . . . . . 11 ⊢ ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → (∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋)))
88	82, 87	syl5ibrcom 157	. . . . . . . . . 10 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
89	88	expr 375	. . . . . . . . 9 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ (𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾)) → (𝑥 ∈ 𝐾 → ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋))))
90	89	com23 78	. . . . . . . 8 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ (𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾)) → ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → (𝑥 ∈ 𝐾 → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋))))
91	90	rexlimdvva 2676	. . . . . . 7 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (∃𝑦 ∈ 𝐾 ∃𝑧 ∈ 𝐾 (𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → (𝑥 ∈ 𝐾 → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋))))
92	61, 91	biimtrid 152	. . . . . 6 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → ((𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}) → (𝑥 ∈ 𝐾 → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋))))
93	92	expcomd 1491	. . . . 5 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → (𝑥 ∈ 𝐾 → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))))
94	93	com24 87	. . . 4 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑥 ∈ 𝐾 → (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))))
95	94	3imp2 1253	. . 3 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ (𝑥 ∈ 𝐾 ∧ 𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})) → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋))
96		vex 2824	. . . . . . 7 ⊢ 𝑥 ∈ V
97	43	a1i 9	. . . . . . 7 ⊢ (𝑊 ∈ LMod → 𝑎 ∈ V)
98		ovexg 6109	. . . . . . 7 ⊢ ((𝑥 ∈ V ∧ · ∈ V ∧ 𝑎 ∈ V) → (𝑥 · 𝑎) ∈ V)
99	96, 31, 97, 98	mp3an2i 1383	. . . . . 6 ⊢ (𝑊 ∈ LMod → (𝑥 · 𝑎) ∈ V)
100		plusgslid 13443	. . . . . . 7 ⊢ (+_g = Slot (+_g‘ndx) ∧ (+_g‘ndx) ∈ ℕ)
101	100	slotex 13357	. . . . . 6 ⊢ (𝑊 ∈ LMod → (+_g‘𝑊) ∈ V)
102	51	a1i 9	. . . . . 6 ⊢ (𝑊 ∈ LMod → 𝑏 ∈ V)
103		ovexg 6109	. . . . . 6 ⊢ (((𝑥 · 𝑎) ∈ V ∧ (+_g‘𝑊) ∈ V ∧ 𝑏 ∈ V) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ V)
104	99, 101, 102, 103	syl3anc 1278	. . . . 5 ⊢ (𝑊 ∈ LMod → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ V)
105		eqeq1 2245	. . . . . . 7 ⊢ (𝑣 = ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) → (𝑣 = (𝑘 · 𝑋) ↔ ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
106	105	rexbidv 2551	. . . . . 6 ⊢ (𝑣 = ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
107	106	elabg 2972	. . . . 5 ⊢ (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ V → (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
108	104, 107	syl 14	. . . 4 ⊢ (𝑊 ∈ LMod → (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
109	108	ad2antrr 492	. . 3 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ (𝑥 ∈ 𝐾 ∧ 𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})) → (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
110	95, 109	mpbird 167	. 2 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ (𝑥 ∈ 𝐾 ∧ 𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
111		simpl 109	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → 𝑊 ∈ LMod)
112	2, 4, 6, 7, 9, 11, 18, 42, 110, 111	islssmd 14668	1 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∈ 𝑆)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 1009 = wceq 1402 ∃wex 1545 ∈ wcel 2209 {cab 2224 ∃wrex 2529 Vcvv 2821 ‘cfv 5372 (class class class)co 6075 Basecbs 13330 +_gcplusg 13408 ._rcmulr 13409 Scalarcsca 13411 ·_𝑠 cvsca 13412 0_gc0g 13587 LModclmod 14596 LSubSpclss 14661

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 623 ax-in2 624 ax-io 721 ax-5 1500 ax-7 1501 ax-gen 1502 ax-ie1 1546 ax-ie2 1547 ax-8 1557 ax-10 1558 ax-11 1559 ax-i12 1560 ax-bndl 1562 ax-4 1563 ax-17 1579 ax-i9 1583 ax-ial 1587 ax-i5r 1588 ax-14 2212 ax-ext 2220 ax-sep 4244 ax-pow 4306 ax-pr 4341 ax-un 4573 ax-setind 4679 ax-cnex 8260 ax-resscn 8261 ax-1cn 8262 ax-1re 8263 ax-icn 8264 ax-addcl 8265 ax-addrcl 8266 ax-mulcl 8267 ax-addcom 8269 ax-addass 8271 ax-i2m1 8274 ax-0lt1 8275 ax-0id 8277 ax-rnegex 8278 ax-pre-ltirr 8281 ax-pre-ltadd 8285

This theorem depends on definitions: df-bi 117 df-3an 1011 df-tru 1405 df-fal 1408 df-nf 1514 df-sb 1816 df-eu 2089 df-mo 2090 df-clab 2225 df-cleq 2231 df-clel 2234 df-nfc 2381 df-ne 2421 df-nel 2516 df-ral 2533 df-rex 2534 df-reu 2535 df-rmo 2536 df-rab 2537 df-v 2823 df-sbc 3052 df-csb 3148 df-dif 3222 df-un 3224 df-in 3226 df-ss 3233 df-nul 3521 df-pw 3687 df-sn 3711 df-pr 3712 df-op 3714 df-uni 3931 df-int 3966 df-br 4126 df-opab 4188 df-mpt 4189 df-id 4433 df-xp 4775 df-rel 4776 df-cnv 4777 df-co 4778 df-dm 4779 df-rn 4780 df-res 4781 df-iota 5332 df-fun 5374 df-fn 5375 df-fv 5380 df-riota 6028 df-ov 6078 df-oprab 6079 df-mpo 6080 df-pnf 8352 df-mnf 8353 df-ltxr 8355 df-inn 9284 df-2 9342 df-3 9343 df-4 9344 df-5 9345 df-6 9346 df-ndx 13333 df-slot 13334 df-base 13336 df-sets 13337 df-plusg 13421 df-mulr 13422 df-sca 13424 df-vsca 13425 df-0g 13589 df-mgm 13653 df-sgrp 13694 df-mnd 13707 df-grp 13785 df-mgp 14195 df-ring 14276 df-lmod 14598 df-lssm 14662

This theorem is referenced by: lspsn 14725

W3C validator