lss1d - Intuitionistic Logic Explorer

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

Theorem lss1d 14462

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 2232	. 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 14384	. . . . . . 7 ⊢ ((𝑊 ∈ LMod ∧ 𝑘 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ 𝑉)
13	12	3expa 1230	. . . . . 6 ⊢ (((𝑊 ∈ LMod ∧ 𝑘 ∈ 𝐾) ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ 𝑉)
14	13	an32s 570	. . . . 5 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ 𝑘 ∈ 𝐾) → (𝑘 · 𝑋) ∈ 𝑉)
15		eleq1a 2303	. . . . 5 ⊢ ((𝑘 · 𝑋) ∈ 𝑉 → (𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
16	14, 15	syl 14	. . . 4 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ 𝑘 ∈ 𝐾) → (𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
17	16	rexlimdva 2651	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
18	17	abssdv 3302	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ⊆ 𝑉)
19		eqid 2231	. . . . . 6 ⊢ (0_g‘𝐹) = (0_g‘𝐹)
20	1, 3, 19	lmod0cl 14393	. . . . 5 ⊢ (𝑊 ∈ LMod → (0_g‘𝐹) ∈ 𝐾)
21		elex2 2820	. . . . 5 ⊢ ((0_g‘𝐹) ∈ 𝐾 → ∃𝑘 𝑘 ∈ 𝐾)
22	20, 21	syl 14	. . . 4 ⊢ (𝑊 ∈ LMod → ∃𝑘 𝑘 ∈ 𝐾)
23	22	adantr 276	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → ∃𝑘 𝑘 ∈ 𝐾)
24		nfv 1577	. . . 4 ⊢ Ⅎ𝑘(𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉)
25		nfre1 2576	. . . . . 6 ⊢ Ⅎ𝑘∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)
26	25	nfsab 2223	. . . . 5 ⊢ Ⅎ𝑘 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}
27	26	nfex 1686	. . . 4 ⊢ Ⅎ𝑘∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}
28		vex 2806	. . . . . . . 8 ⊢ 𝑘 ∈ V
29		vscaslid 13309	. . . . . . . . . . 11 ⊢ ( ·_𝑠 = Slot ( ·_𝑠 ‘ndx) ∧ ( ·_𝑠 ‘ndx) ∈ ℕ)
30	29	slotex 13172	. . . . . . . . . 10 ⊢ (𝑊 ∈ LMod → ( ·_𝑠 ‘𝑊) ∈ V)
31	8, 30	eqeltrid 2318	. . . . . . . . 9 ⊢ (𝑊 ∈ LMod → · ∈ V)
32	31	adantr 276	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → · ∈ V)
33		simpr 110	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → 𝑋 ∈ 𝑉)
34		ovexg 6062	. . . . . . . 8 ⊢ ((𝑘 ∈ V ∧ · ∈ V ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ V)
35	28, 32, 33, 34	mp3an2i 1379	. . . . . . 7 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ V)
36		elabrexg 5909	. . . . . . 7 ⊢ ((𝑘 ∈ 𝐾 ∧ (𝑘 · 𝑋) ∈ V) → (𝑘 · 𝑋) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
37	35, 36	sylan2 286	. . . . . 6 ⊢ ((𝑘 ∈ 𝐾 ∧ (𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉)) → (𝑘 · 𝑋) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
38		elex2 2820	. . . . . 6 ⊢ ((𝑘 · 𝑋) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
39	37, 38	syl 14	. . . . 5 ⊢ ((𝑘 ∈ 𝐾 ∧ (𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉)) → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
40	39	expcom 116	. . . 4 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑘 ∈ 𝐾 → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}))
41	24, 27, 40	exlimd 1646	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (∃𝑘 𝑘 ∈ 𝐾 → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}))
42	23, 41	mpd 13	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → ∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
43		vex 2806	. . . . . . . . . . 11 ⊢ 𝑎 ∈ V
44		eqeq1 2238	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑎 → (𝑣 = (𝑘 · 𝑋) ↔ 𝑎 = (𝑘 · 𝑋)))
45	44	rexbidv 2534	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑎 → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋)))
46	43, 45	elab 2951	. . . . . . . . . 10 ⊢ (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋))
47		oveq1 6035	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑦 → (𝑘 · 𝑋) = (𝑦 · 𝑋))
48	47	eqeq2d 2243	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑦 → (𝑎 = (𝑘 · 𝑋) ↔ 𝑎 = (𝑦 · 𝑋)))
49	48	cbvrexvw 2773	. . . . . . . . . 10 ⊢ (∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋) ↔ ∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋))
50	46, 49	bitri 184	. . . . . . . . 9 ⊢ (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋))
51		vex 2806	. . . . . . . . . . 11 ⊢ 𝑏 ∈ V
52		eqeq1 2238	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑏 → (𝑣 = (𝑘 · 𝑋) ↔ 𝑏 = (𝑘 · 𝑋)))
53	52	rexbidv 2534	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑏 → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋)))
54	51, 53	elab 2951	. . . . . . . . . 10 ⊢ (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋))
55		oveq1 6035	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑧 → (𝑘 · 𝑋) = (𝑧 · 𝑋))
56	55	eqeq2d 2243	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑧 → (𝑏 = (𝑘 · 𝑋) ↔ 𝑏 = (𝑧 · 𝑋)))
57	56	cbvrexvw 2773	. . . . . . . . . 10 ⊢ (∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋) ↔ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋))
58	54, 57	bitri 184	. . . . . . . . 9 ⊢ (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋))
59	50, 58	anbi12i 460	. . . . . . . 8 ⊢ ((𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}) ↔ (∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋) ∧ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋)))
60		reeanv 2704	. . . . . . . 8 ⊢ (∃𝑦 ∈ 𝐾 ∃𝑧 ∈ 𝐾 (𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) ↔ (∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋) ∧ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋)))
61	59, 60	bitr4i 187	. . . . . . 7 ⊢ ((𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}) ↔ ∃𝑦 ∈ 𝐾 ∃𝑧 ∈ 𝐾 (𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)))
62		simpll 527	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑊 ∈ LMod)
63		simprr 533	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑥 ∈ 𝐾)
64		simprll 539	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑦 ∈ 𝐾)
65		eqid 2231	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝐹) = (._r‘𝐹)
66	1, 3, 65	lmodmcl 14379	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ 𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → (𝑥(._r‘𝐹)𝑦) ∈ 𝐾)
67	62, 63, 64, 66	syl3anc 1274	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → (𝑥(._r‘𝐹)𝑦) ∈ 𝐾)
68		simprlr 540	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑧 ∈ 𝐾)
69		eqid 2231	. . . . . . . . . . . . . 14 ⊢ (+_g‘𝐹) = (+_g‘𝐹)
70	1, 3, 69	lmodacl 14378	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ LMod ∧ (𝑥(._r‘𝐹)𝑦) ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) → ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾)
71	62, 67, 68, 70	syl3anc 1274	. . . . . . . . . . . 12 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾)
72		simplr 529	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑋 ∈ 𝑉)
73		eqid 2231	. . . . . . . . . . . . . . 15 ⊢ (+_g‘𝑊) = (+_g‘𝑊)
74	5, 73, 1, 8, 3, 69	lmodvsdir 14391	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ ((𝑥(._r‘𝐹)𝑦) ∈ 𝐾 ∧ 𝑧 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉)) → (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋) = (((𝑥(._r‘𝐹)𝑦) · 𝑋)(+_g‘𝑊)(𝑧 · 𝑋)))
75	62, 67, 68, 72, 74	syl13anc 1276	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋) = (((𝑥(._r‘𝐹)𝑦) · 𝑋)(+_g‘𝑊)(𝑧 · 𝑋)))
76	5, 1, 8, 3, 65	lmodvsass 14392	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ LMod ∧ (𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉)) → ((𝑥(._r‘𝐹)𝑦) · 𝑋) = (𝑥 · (𝑦 · 𝑋)))
77	62, 63, 64, 72, 76	syl13anc 1276	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥(._r‘𝐹)𝑦) · 𝑋) = (𝑥 · (𝑦 · 𝑋)))
78	77	oveq1d 6043	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → (((𝑥(._r‘𝐹)𝑦) · 𝑋)(+_g‘𝑊)(𝑧 · 𝑋)) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
79	75, 78	eqtr2d 2265	. . . . . . . . . . . 12 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋))
80		oveq1 6035	. . . . . . . . . . . . 13 ⊢ (𝑘 = ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) → (𝑘 · 𝑋) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋))
81	80	rspceeqv 2929	. . . . . . . . . . . 12 ⊢ ((((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾 ∧ ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋)) → ∃𝑘 ∈ 𝐾 ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋))
82	71, 79, 81	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ∃𝑘 ∈ 𝐾 ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋))
83		oveq2 6036	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑦 · 𝑋) → (𝑥 · 𝑎) = (𝑥 · (𝑦 · 𝑋)))
84		oveq12 6037	. . . . . . . . . . . . . 14 ⊢ (((𝑥 · 𝑎) = (𝑥 · (𝑦 · 𝑋)) ∧ 𝑏 = (𝑧 · 𝑋)) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
85	83, 84	sylan 283	. . . . . . . . . . . . 13 ⊢ ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
86	85	eqeq1d 2240	. . . . . . . . . . . 12 ⊢ ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋) ↔ ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋)))
87	86	rexbidv 2534	. . . . . . . . . . 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 2659	. . . . . . 7 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (∃𝑦 ∈ 𝐾 ∃𝑧 ∈ 𝐾 (𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → (𝑥 ∈ 𝐾 → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋))))
92	61, 91	biimtrid 152	. . . . . 6 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → ((𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}) → (𝑥 ∈ 𝐾 → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋))))
93	92	expcomd 1487	. . . . 5 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → (𝑥 ∈ 𝐾 → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))))
94	93	com24 87	. . . 4 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑥 ∈ 𝐾 → (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))))
95	94	3imp2 1249	. . 3 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ (𝑥 ∈ 𝐾 ∧ 𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})) → ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋))
96		vex 2806	. . . . . . 7 ⊢ 𝑥 ∈ V
97	43	a1i 9	. . . . . . 7 ⊢ (𝑊 ∈ LMod → 𝑎 ∈ V)
98		ovexg 6062	. . . . . . 7 ⊢ ((𝑥 ∈ V ∧ · ∈ V ∧ 𝑎 ∈ V) → (𝑥 · 𝑎) ∈ V)
99	96, 31, 97, 98	mp3an2i 1379	. . . . . 6 ⊢ (𝑊 ∈ LMod → (𝑥 · 𝑎) ∈ V)
100		plusgslid 13258	. . . . . . 7 ⊢ (+_g = Slot (+_g‘ndx) ∧ (+_g‘ndx) ∈ ℕ)
101	100	slotex 13172	. . . . . 6 ⊢ (𝑊 ∈ LMod → (+_g‘𝑊) ∈ V)
102	51	a1i 9	. . . . . 6 ⊢ (𝑊 ∈ LMod → 𝑏 ∈ V)
103		ovexg 6062	. . . . . 6 ⊢ (((𝑥 · 𝑎) ∈ V ∧ (+_g‘𝑊) ∈ V ∧ 𝑏 ∈ V) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ V)
104	99, 101, 102, 103	syl3anc 1274	. . . . 5 ⊢ (𝑊 ∈ LMod → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ V)
105		eqeq1 2238	. . . . . . 7 ⊢ (𝑣 = ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) → (𝑣 = (𝑘 · 𝑋) ↔ ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
106	105	rexbidv 2534	. . . . . 6 ⊢ (𝑣 = ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
107	106	elabg 2953	. . . . 5 ⊢ (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ V → (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
108	104, 107	syl 14	. . . 4 ⊢ (𝑊 ∈ LMod → (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
109	108	ad2antrr 488	. . 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 14438	1 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∈ 𝑆)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 1005 = wceq 1398 ∃wex 1541 ∈ wcel 2202 {cab 2217 ∃wrex 2512 Vcvv 2803 ‘cfv 5333 (class class class)co 6028 Basecbs 13145 +_gcplusg 13223 ._rcmulr 13224 Scalarcsca 13226 ·_𝑠 cvsca 13227 0_gc0g 13402 LModclmod 14366 LSubSpclss 14431

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 619 ax-in2 620 ax-io 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2204 ax-14 2205 ax-ext 2213 ax-sep 4212 ax-pow 4270 ax-pr 4305 ax-un 4536 ax-setind 4641 ax-cnex 8166 ax-resscn 8167 ax-1cn 8168 ax-1re 8169 ax-icn 8170 ax-addcl 8171 ax-addrcl 8172 ax-mulcl 8173 ax-addcom 8175 ax-addass 8177 ax-i2m1 8180 ax-0lt1 8181 ax-0id 8183 ax-rnegex 8184 ax-pre-ltirr 8187 ax-pre-ltadd 8191

This theorem depends on definitions: df-bi 117 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1811 df-eu 2082 df-mo 2083 df-clab 2218 df-cleq 2224 df-clel 2227 df-nfc 2364 df-ne 2404 df-nel 2499 df-ral 2516 df-rex 2517 df-reu 2518 df-rmo 2519 df-rab 2520 df-v 2805 df-sbc 3033 df-csb 3129 df-dif 3203 df-un 3205 df-in 3207 df-ss 3214 df-nul 3497 df-pw 3658 df-sn 3679 df-pr 3680 df-op 3682 df-uni 3899 df-int 3934 df-br 4094 df-opab 4156 df-mpt 4157 df-id 4396 df-xp 4737 df-rel 4738 df-cnv 4739 df-co 4740 df-dm 4741 df-rn 4742 df-res 4743 df-iota 5293 df-fun 5335 df-fn 5336 df-fv 5341 df-riota 5981 df-ov 6031 df-oprab 6032 df-mpo 6033 df-pnf 8258 df-mnf 8259 df-ltxr 8261 df-inn 9186 df-2 9244 df-3 9245 df-4 9246 df-5 9247 df-6 9248 df-ndx 13148 df-slot 13149 df-base 13151 df-sets 13152 df-plusg 13236 df-mulr 13237 df-sca 13239 df-vsca 13240 df-0g 13404 df-mgm 13502 df-sgrp 13548 df-mnd 13563 df-grp 13649 df-mgp 13998 df-ring 14075 df-lmod 14368 df-lssm 14432

This theorem is referenced by: lspsn 14495

W3C validator