lss1d - Intuitionistic Logic Explorer

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

Theorem lss1d 14657

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 2235	. 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 14579	. . . . . . 7 ⊢ ((𝑊 ∈ LMod ∧ 𝑘 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ 𝑉)
13	12	3expa 1230	. . . . . 6 ⊢ (((𝑊 ∈ LMod ∧ 𝑘 ∈ 𝐾) ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ 𝑉)
14	13	an32s 570	. . . . 5 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ 𝑘 ∈ 𝐾) → (𝑘 · 𝑋) ∈ 𝑉)
15		eleq1a 2306	. . . . 5 ⊢ ((𝑘 · 𝑋) ∈ 𝑉 → (𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
16	14, 15	syl 14	. . . 4 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ 𝑘 ∈ 𝐾) → (𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
17	16	rexlimdva 2662	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) → 𝑣 ∈ 𝑉))
18	17	abssdv 3316	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ⊆ 𝑉)
19		eqid 2234	. . . . . 6 ⊢ (0_g‘𝐹) = (0_g‘𝐹)
20	1, 3, 19	lmod0cl 14588	. . . . 5 ⊢ (𝑊 ∈ LMod → (0_g‘𝐹) ∈ 𝐾)
21		elex2 2832	. . . . 5 ⊢ ((0_g‘𝐹) ∈ 𝐾 → ∃𝑘 𝑘 ∈ 𝐾)
22	20, 21	syl 14	. . . 4 ⊢ (𝑊 ∈ LMod → ∃𝑘 𝑘 ∈ 𝐾)
23	22	adantr 276	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → ∃𝑘 𝑘 ∈ 𝐾)
24		nfv 1577	. . . 4 ⊢ Ⅎ𝑘(𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉)
25		nfre1 2587	. . . . . 6 ⊢ Ⅎ𝑘∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)
26	25	nfsab 2226	. . . . 5 ⊢ Ⅎ𝑘 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}
27	26	nfex 1686	. . . 4 ⊢ Ⅎ𝑘∃𝑗 𝑗 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}
28		vex 2818	. . . . . . . 8 ⊢ 𝑘 ∈ V
29		vscaslid 13460	. . . . . . . . . . 11 ⊢ ( ·_𝑠 = Slot ( ·_𝑠 ‘ndx) ∧ ( ·_𝑠 ‘ndx) ∈ ℕ)
30	29	slotex 13323	. . . . . . . . . 10 ⊢ (𝑊 ∈ LMod → ( ·_𝑠 ‘𝑊) ∈ V)
31	8, 30	eqeltrid 2321	. . . . . . . . 9 ⊢ (𝑊 ∈ LMod → · ∈ V)
32	31	adantr 276	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → · ∈ V)
33		simpr 110	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → 𝑋 ∈ 𝑉)
34		ovexg 6092	. . . . . . . 8 ⊢ ((𝑘 ∈ V ∧ · ∈ V ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ V)
35	28, 32, 33, 34	mp3an2i 1379	. . . . . . 7 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → (𝑘 · 𝑋) ∈ V)
36		elabrexg 5937	. . . . . . 7 ⊢ ((𝑘 ∈ 𝐾 ∧ (𝑘 · 𝑋) ∈ V) → (𝑘 · 𝑋) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
37	35, 36	sylan2 286	. . . . . 6 ⊢ ((𝑘 ∈ 𝐾 ∧ (𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉)) → (𝑘 · 𝑋) ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)})
38		elex2 2832	. . . . . 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 2818	. . . . . . . . . . 11 ⊢ 𝑎 ∈ V
44		eqeq1 2241	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑎 → (𝑣 = (𝑘 · 𝑋) ↔ 𝑎 = (𝑘 · 𝑋)))
45	44	rexbidv 2545	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑎 → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋)))
46	43, 45	elab 2964	. . . . . . . . . 10 ⊢ (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋))
47		oveq1 6065	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑦 → (𝑘 · 𝑋) = (𝑦 · 𝑋))
48	47	eqeq2d 2246	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑦 → (𝑎 = (𝑘 · 𝑋) ↔ 𝑎 = (𝑦 · 𝑋)))
49	48	cbvrexvw 2785	. . . . . . . . . 10 ⊢ (∃𝑘 ∈ 𝐾 𝑎 = (𝑘 · 𝑋) ↔ ∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋))
50	46, 49	bitri 184	. . . . . . . . 9 ⊢ (𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋))
51		vex 2818	. . . . . . . . . . 11 ⊢ 𝑏 ∈ V
52		eqeq1 2241	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑏 → (𝑣 = (𝑘 · 𝑋) ↔ 𝑏 = (𝑘 · 𝑋)))
53	52	rexbidv 2545	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑏 → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋)))
54	51, 53	elab 2964	. . . . . . . . . 10 ⊢ (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋))
55		oveq1 6065	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑧 → (𝑘 · 𝑋) = (𝑧 · 𝑋))
56	55	eqeq2d 2246	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑧 → (𝑏 = (𝑘 · 𝑋) ↔ 𝑏 = (𝑧 · 𝑋)))
57	56	cbvrexvw 2785	. . . . . . . . . 10 ⊢ (∃𝑘 ∈ 𝐾 𝑏 = (𝑘 · 𝑋) ↔ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋))
58	54, 57	bitri 184	. . . . . . . . 9 ⊢ (𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ↔ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋))
59	50, 58	anbi12i 460	. . . . . . . 8 ⊢ ((𝑎 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∧ 𝑏 ∈ {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)}) ↔ (∃𝑦 ∈ 𝐾 𝑎 = (𝑦 · 𝑋) ∧ ∃𝑧 ∈ 𝐾 𝑏 = (𝑧 · 𝑋)))
60		reeanv 2715	. . . . . . . 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 2234	. . . . . . . . . . . . . . 15 ⊢ (._r‘𝐹) = (._r‘𝐹)
66	1, 3, 65	lmodmcl 14574	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ 𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾) → (𝑥(._r‘𝐹)𝑦) ∈ 𝐾)
67	62, 63, 64, 66	syl3anc 1274	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → (𝑥(._r‘𝐹)𝑦) ∈ 𝐾)
68		simprlr 540	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑧 ∈ 𝐾)
69		eqid 2234	. . . . . . . . . . . . . 14 ⊢ (+_g‘𝐹) = (+_g‘𝐹)
70	1, 3, 69	lmodacl 14573	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ LMod ∧ (𝑥(._r‘𝐹)𝑦) ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) → ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾)
71	62, 67, 68, 70	syl3anc 1274	. . . . . . . . . . . 12 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾)
72		simplr 529	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → 𝑋 ∈ 𝑉)
73		eqid 2234	. . . . . . . . . . . . . . 15 ⊢ (+_g‘𝑊) = (+_g‘𝑊)
74	5, 73, 1, 8, 3, 69	lmodvsdir 14586	. . . . . . . . . . . . . 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 14587	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ LMod ∧ (𝑥 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉)) → ((𝑥(._r‘𝐹)𝑦) · 𝑋) = (𝑥 · (𝑦 · 𝑋)))
77	62, 63, 64, 72, 76	syl13anc 1276	. . . . . . . . . . . . . 14 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥(._r‘𝐹)𝑦) · 𝑋) = (𝑥 · (𝑦 · 𝑋)))
78	77	oveq1d 6073	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → (((𝑥(._r‘𝐹)𝑦) · 𝑋)(+_g‘𝑊)(𝑧 · 𝑋)) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
79	75, 78	eqtr2d 2268	. . . . . . . . . . . 12 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋))
80		oveq1 6065	. . . . . . . . . . . . 13 ⊢ (𝑘 = ((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) → (𝑘 · 𝑋) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋))
81	80	rspceeqv 2942	. . . . . . . . . . . 12 ⊢ ((((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) ∈ 𝐾 ∧ ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (((𝑥(._r‘𝐹)𝑦)(+_g‘𝐹)𝑧) · 𝑋)) → ∃𝑘 ∈ 𝐾 ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋))
82	71, 79, 81	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) ∧ ((𝑦 ∈ 𝐾 ∧ 𝑧 ∈ 𝐾) ∧ 𝑥 ∈ 𝐾)) → ∃𝑘 ∈ 𝐾 ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋))
83		oveq2 6066	. . . . . . . . . . . . . 14 ⊢ (𝑎 = (𝑦 · 𝑋) → (𝑥 · 𝑎) = (𝑥 · (𝑦 · 𝑋)))
84		oveq12 6067	. . . . . . . . . . . . . 14 ⊢ (((𝑥 · 𝑎) = (𝑥 · (𝑦 · 𝑋)) ∧ 𝑏 = (𝑧 · 𝑋)) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
85	83, 84	sylan 283	. . . . . . . . . . . . 13 ⊢ ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)))
86	85	eqeq1d 2243	. . . . . . . . . . . 12 ⊢ ((𝑎 = (𝑦 · 𝑋) ∧ 𝑏 = (𝑧 · 𝑋)) → (((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋) ↔ ((𝑥 · (𝑦 · 𝑋))(+_g‘𝑊)(𝑧 · 𝑋)) = (𝑘 · 𝑋)))
87	86	rexbidv 2545	. . . . . . . . . . 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 2670	. . . . . . 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 2818	. . . . . . 7 ⊢ 𝑥 ∈ V
97	43	a1i 9	. . . . . . 7 ⊢ (𝑊 ∈ LMod → 𝑎 ∈ V)
98		ovexg 6092	. . . . . . 7 ⊢ ((𝑥 ∈ V ∧ · ∈ V ∧ 𝑎 ∈ V) → (𝑥 · 𝑎) ∈ V)
99	96, 31, 97, 98	mp3an2i 1379	. . . . . 6 ⊢ (𝑊 ∈ LMod → (𝑥 · 𝑎) ∈ V)
100		plusgslid 13409	. . . . . . 7 ⊢ (+_g = Slot (+_g‘ndx) ∧ (+_g‘ndx) ∈ ℕ)
101	100	slotex 13323	. . . . . 6 ⊢ (𝑊 ∈ LMod → (+_g‘𝑊) ∈ V)
102	51	a1i 9	. . . . . 6 ⊢ (𝑊 ∈ LMod → 𝑏 ∈ V)
103		ovexg 6092	. . . . . 6 ⊢ (((𝑥 · 𝑎) ∈ V ∧ (+_g‘𝑊) ∈ V ∧ 𝑏 ∈ V) → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ V)
104	99, 101, 102, 103	syl3anc 1274	. . . . 5 ⊢ (𝑊 ∈ LMod → ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) ∈ V)
105		eqeq1 2241	. . . . . . 7 ⊢ (𝑣 = ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) → (𝑣 = (𝑘 · 𝑋) ↔ ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
106	105	rexbidv 2545	. . . . . 6 ⊢ (𝑣 = ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) → (∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋) ↔ ∃𝑘 ∈ 𝐾 ((𝑥 · 𝑎)(+_g‘𝑊)𝑏) = (𝑘 · 𝑋)))
107	106	elabg 2966	. . . . 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 14633	1 ⊢ ((𝑊 ∈ LMod ∧ 𝑋 ∈ 𝑉) → {𝑣 ∣ ∃𝑘 ∈ 𝐾 𝑣 = (𝑘 · 𝑋)} ∈ 𝑆)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 1005 = wceq 1398 ∃wex 1541 ∈ wcel 2205 {cab 2220 ∃wrex 2523 Vcvv 2815 ‘cfv 5357 (class class class)co 6058 Basecbs 13296 +_gcplusg 13374 ._rcmulr 13375 Scalarcsca 13377 ·_𝑠 cvsca 13378 0_gc0g 13553 LModclmod 14561 LSubSpclss 14626

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 2207 ax-14 2208 ax-ext 2216 ax-sep 4233 ax-pow 4292 ax-pr 4327 ax-un 4559 ax-setind 4664 ax-cnex 8234 ax-resscn 8235 ax-1cn 8236 ax-1re 8237 ax-icn 8238 ax-addcl 8239 ax-addrcl 8240 ax-mulcl 8241 ax-addcom 8243 ax-addass 8245 ax-i2m1 8248 ax-0lt1 8249 ax-0id 8251 ax-rnegex 8252 ax-pre-ltirr 8255 ax-pre-ltadd 8259

This theorem depends on definitions: df-bi 117 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1812 df-eu 2085 df-mo 2086 df-clab 2221 df-cleq 2227 df-clel 2230 df-nfc 2375 df-ne 2415 df-nel 2510 df-ral 2527 df-rex 2528 df-reu 2529 df-rmo 2530 df-rab 2531 df-v 2817 df-sbc 3046 df-csb 3142 df-dif 3216 df-un 3218 df-in 3220 df-ss 3227 df-nul 3513 df-pw 3676 df-sn 3700 df-pr 3701 df-op 3703 df-uni 3920 df-int 3955 df-br 4115 df-opab 4177 df-mpt 4178 df-id 4419 df-xp 4760 df-rel 4761 df-cnv 4762 df-co 4763 df-dm 4764 df-rn 4765 df-res 4766 df-iota 5317 df-fun 5359 df-fn 5360 df-fv 5365 df-riota 6011 df-ov 6061 df-oprab 6062 df-mpo 6063 df-pnf 8326 df-mnf 8327 df-ltxr 8329 df-inn 9255 df-2 9313 df-3 9314 df-4 9315 df-5 9316 df-6 9317 df-ndx 13299 df-slot 13300 df-base 13302 df-sets 13303 df-plusg 13387 df-mulr 13388 df-sca 13390 df-vsca 13391 df-0g 13555 df-mgm 13619 df-sgrp 13665 df-mnd 13678 df-grp 13758 df-mgp 14160 df-ring 14241 df-lmod 14563 df-lssm 14627

This theorem is referenced by: lspsn 14690

W3C validator