Theorem snlindsntor 42054

Description: A singleton is linearly independent iff it does not contain a torsion element. According to Wikipedia ("Torsion (algebra)", 15-Apr-2019, https://en.wikipedia.org/wiki/Torsion_(algebra)): "An element m of a module M over a ring R is called a torsion element of the module if there exists a regular element r of the ring (an element that is neither a left nor a right zero divisor) that annihilates m, i.e., (𝑟 · 𝑚) = 0. In an integral domain (a commutative ring without zero divisors), every nonzero element is regular, so a torsion element of a module over an integral domain is one annihilated by a nonzero element of the integral domain." Analogously, the definition in [Lang] p. 147 states that "An element x of [a module] E [over a ring R] is called a torsion element if there exists 𝑎 ∈ 𝑅, 𝑎 ≠ 0, such that 𝑎 · 𝑥 = 0. This definition includes the zero element of the module. Some authors, however, exclude the zero element from the definition of torsion elements. (Contributed by AV, 14-Apr-2019.) (Revised by AV, 27-Apr-2019.)

Hypotheses

Ref	Expression
snlindsntor.b	⊢ 𝐵 = (Base‘𝑀)
snlindsntor.r	⊢ 𝑅 = (Scalar‘𝑀)
snlindsntor.s	⊢ 𝑆 = (Base‘𝑅)
snlindsntor.0	⊢ 0 = (0g‘𝑅)
snlindsntor.z	⊢ 𝑍 = (0g‘𝑀)
snlindsntor.t	⊢ · = ( ·𝑠 ‘𝑀)

Assertion

Ref	Expression
snlindsntor	⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ {𝑋} linIndS 𝑀))

Distinct variable groups:   𝐵,𝑠   𝑀,𝑠   𝑆,𝑠   𝑋,𝑠   𝑍,𝑠   · ,𝑠   0 ,𝑠

Allowed substitution hint:   𝑅(𝑠)

Proof of Theorem snlindsntor

Dummy variables 𝑓 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-ne 2782	. . . . 5 ⊢ ((𝑠 · 𝑋) ≠ 𝑍 ↔ ¬ (𝑠 · 𝑋) = 𝑍)
2	1	ralbii 2963	. . . 4 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ∀𝑠 ∈ (𝑆 ∖ { 0 }) ¬ (𝑠 · 𝑋) = 𝑍)
3		raldifsni 4265	. . . 4 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 }) ¬ (𝑠 · 𝑋) = 𝑍 ↔ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))
4	2, 3	bitri 263	. . 3 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))
5		simpl 472	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → 𝑀 ∈ LMod)
6	5	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → 𝑀 ∈ LMod)
7	6	adantr 480	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → 𝑀 ∈ LMod)
8		snlindsntor.s	. . . . . . . . . . . . . . . 16 ⊢ 𝑆 = (Base‘𝑅)
9		snlindsntor.r	. . . . . . . . . . . . . . . . 17 ⊢ 𝑅 = (Scalar‘𝑀)
10	9	fveq2i 6106	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑅) = (Base‘(Scalar‘𝑀))
11	8, 10	eqtri 2632	. . . . . . . . . . . . . . 15 ⊢ 𝑆 = (Base‘(Scalar‘𝑀))
12	11	oveq1i 6559	. . . . . . . . . . . . . 14 ⊢ (𝑆 ↑𝑚 {𝑋}) = ((Base‘(Scalar‘𝑀)) ↑𝑚 {𝑋})
13	12	eleq2i 2680	. . . . . . . . . . . . 13 ⊢ (𝑓 ∈ (𝑆 ↑𝑚 {𝑋}) ↔ 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 {𝑋}))
14	13	biimpi 205	. . . . . . . . . . . 12 ⊢ (𝑓 ∈ (𝑆 ↑𝑚 {𝑋}) → 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 {𝑋}))
15	14	adantl 481	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 {𝑋}))
16		snelpwi 4839	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ (Base‘𝑀) → {𝑋} ∈ 𝒫 (Base‘𝑀))
17		snlindsntor.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝑀)
18	16, 17	eleq2s 2706	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ 𝐵 → {𝑋} ∈ 𝒫 (Base‘𝑀))
19	18	ad3antlr 763	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → {𝑋} ∈ 𝒫 (Base‘𝑀))
20		lincval 41992	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ LMod ∧ 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑𝑚 {𝑋}) ∧ {𝑋} ∈ 𝒫 (Base‘𝑀)) → (𝑓( linC ‘𝑀){𝑋}) = (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))))
21	7, 15, 19, 20	syl3anc 1318	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → (𝑓( linC ‘𝑀){𝑋}) = (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))))
22	21	eqeq1d 2612	. . . . . . . . 9 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 ↔ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍))
23	22	anbi2d 736	. . . . . . . 8 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) ↔ (𝑓 finSupp 0 ∧ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍)))
24		lmodgrp 18693	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Grp)
25		grpmnd 17252	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ Grp → 𝑀 ∈ Mnd)
26	24, 25	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Mnd)
27	26	ad3antrrr 762	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → 𝑀 ∈ Mnd)
28		simpllr 795	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → 𝑋 ∈ 𝐵)
29		elmapi 7765	. . . . . . . . . . . . . 14 ⊢ (𝑓 ∈ (𝑆 ↑𝑚 {𝑋}) → 𝑓:{𝑋}⟶𝑆)
30	6	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → 𝑀 ∈ LMod)
31		snidg 4153	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ∈ 𝐵 → 𝑋 ∈ {𝑋})
32	31	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ {𝑋})
33	32	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → 𝑋 ∈ {𝑋})
34		ffvelrn 6265	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ 𝑋 ∈ {𝑋}) → (𝑓‘𝑋) ∈ 𝑆)
35	33, 34	sylan2 490	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → (𝑓‘𝑋) ∈ 𝑆)
36		simprlr 799	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → 𝑋 ∈ 𝐵)
37		eqid 2610	. . . . . . . . . . . . . . . . 17 ⊢ ( ·𝑠 ‘𝑀) = ( ·𝑠 ‘𝑀)
38	17, 9, 37, 8	lmodvscl 18703	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ LMod ∧ (𝑓‘𝑋) ∈ 𝑆 ∧ 𝑋 ∈ 𝐵) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
39	30, 35, 36, 38	syl3anc 1318	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
40	39	expcom 450	. . . . . . . . . . . . . 14 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (𝑓:{𝑋}⟶𝑆 → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵))
41	29, 40	syl5com 31	. . . . . . . . . . . . 13 ⊢ (𝑓 ∈ (𝑆 ↑𝑚 {𝑋}) → (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵))
42	41	impcom 445	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
43		fveq2 6103	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑋 → (𝑓‘𝑥) = (𝑓‘𝑋))
44		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
45	43, 44	oveq12d 6567	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑋 → ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
46	17, 45	gsumsn 18177	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ Mnd ∧ 𝑋 ∈ 𝐵 ∧ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵) → (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
47	27, 28, 42, 46	syl3anc 1318	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
48	47	eqeq1d 2612	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → ((𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍 ↔ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍))
49	31, 34	sylan2 490	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ 𝑋 ∈ 𝐵) → (𝑓‘𝑋) ∈ 𝑆)
50	49	expcom 450	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ 𝐵 → (𝑓:{𝑋}⟶𝑆 → (𝑓‘𝑋) ∈ 𝑆))
51	50	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (𝑓:{𝑋}⟶𝑆 → (𝑓‘𝑋) ∈ 𝑆))
52		snlindsntor.t	. . . . . . . . . . . . . . . . 17 ⊢ · = ( ·𝑠 ‘𝑀)
53	52	oveqi 6562	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓‘𝑋) · 𝑋) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋)
54	53	eqeq1i 2615	. . . . . . . . . . . . . . 15 ⊢ (((𝑓‘𝑋) · 𝑋) = 𝑍 ↔ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍)
55		oveq1 6556	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑠 = (𝑓‘𝑋) → (𝑠 · 𝑋) = ((𝑓‘𝑋) · 𝑋))
56	55	eqeq1d 2612	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = (𝑓‘𝑋) → ((𝑠 · 𝑋) = 𝑍 ↔ ((𝑓‘𝑋) · 𝑋) = 𝑍))
57		eqeq1 2614	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = (𝑓‘𝑋) → (𝑠 = 0 ↔ (𝑓‘𝑋) = 0 ))
58	56, 57	imbi12d 333	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = (𝑓‘𝑋) → (((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ (((𝑓‘𝑋) · 𝑋) = 𝑍 → (𝑓‘𝑋) = 0 )))
59	58	rspcva 3280	. . . . . . . . . . . . . . 15 ⊢ (((𝑓‘𝑋) ∈ 𝑆 ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (((𝑓‘𝑋) · 𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
60	54, 59	syl5bir 232	. . . . . . . . . . . . . 14 ⊢ (((𝑓‘𝑋) ∈ 𝑆 ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
61	60	ex 449	. . . . . . . . . . . . 13 ⊢ ((𝑓‘𝑋) ∈ 𝑆 → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 )))
62	29, 51, 61	syl56 35	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (𝑓 ∈ (𝑆 ↑𝑚 {𝑋}) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))))
63	62	com23 84	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (𝑓 ∈ (𝑆 ↑𝑚 {𝑋}) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))))
64	63	imp31 447	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
65	48, 64	sylbid 229	. . . . . . . . 9 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → ((𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍 → (𝑓‘𝑋) = 0 ))
66	65	adantld 482	. . . . . . . 8 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍) → (𝑓‘𝑋) = 0 ))
67	23, 66	sylbid 229	. . . . . . 7 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ))
68	67	ralrimiva 2949	. . . . . 6 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ))
69	68	ex 449	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 )))
70		impexp 461	. . . . . . . 8 ⊢ (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ (𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
71	29	adantl 481	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → 𝑓:{𝑋}⟶𝑆)
72		snfi 7923	. . . . . . . . . . 11 ⊢ {𝑋} ∈ Fin
73	72	a1i 11	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → {𝑋} ∈ Fin)
74		snlindsntor.0	. . . . . . . . . . . 12 ⊢ 0 = (0g‘𝑅)
75		fvex 6113	. . . . . . . . . . . 12 ⊢ (0g‘𝑅) ∈ V
76	74, 75	eqeltri 2684	. . . . . . . . . . 11 ⊢ 0 ∈ V
77	76	a1i 11	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → 0 ∈ V)
78	71, 73, 77	fdmfifsupp 8168	. . . . . . . . 9 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → 𝑓 finSupp 0 )
79		pm2.27 41	. . . . . . . . 9 ⊢ (𝑓 finSupp 0 → ((𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
80	78, 79	syl 17	. . . . . . . 8 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → ((𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
81	70, 80	syl5bi 231	. . . . . . 7 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑𝑚 {𝑋})) → (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
82	81	ralimdva 2945	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
83		snlindsntor.z	. . . . . . 7 ⊢ 𝑍 = (0g‘𝑀)
84	17, 9, 8, 74, 83, 52	snlindsntorlem 42053	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 ) → ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )))
85	82, 84	syld 46	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )))
86	69, 85	impbid 201	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 )))
87		fveq2 6103	. . . . . . . . . 10 ⊢ (𝑦 = 𝑋 → (𝑓‘𝑦) = (𝑓‘𝑋))
88	87	eqeq1d 2612	. . . . . . . . 9 ⊢ (𝑦 = 𝑋 → ((𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
89	88	ralsng 4165	. . . . . . . 8 ⊢ (𝑋 ∈ 𝐵 → (∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
90	89	adantl 481	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
91	90	bicomd 212	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → ((𝑓‘𝑋) = 0 ↔ ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))
92	91	imbi2d 329	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 )))
93	92	ralbidv 2969	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 )))
94		snelpwi 4839	. . . . . 6 ⊢ (𝑋 ∈ 𝐵 → {𝑋} ∈ 𝒫 𝐵)
95	94	adantl 481	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → {𝑋} ∈ 𝒫 𝐵)
96	95	biantrurd 528	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ) ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
97	86, 93, 96	3bitrd 293	. . 3 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
98	4, 97	syl5bb 271	. 2 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
99		snex 4835	. . 3 ⊢ {𝑋} ∈ V
100	17, 83, 9, 8, 74	islininds 42029	. . 3 ⊢ (({𝑋} ∈ V ∧ 𝑀 ∈ LMod) → ({𝑋} linIndS 𝑀 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
101	99, 5, 100	sylancr 694	. 2 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → ({𝑋} linIndS 𝑀 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑𝑚 {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
102	98, 101	bitr4d 270	1 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ {𝑋} linIndS 𝑀))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 195   ∧ wa 383   = wceq 1475   ∈ wcel 1977   ≠ wne 2780  ∀wral 2896  Vcvv 3173   ∖ cdif 3537  𝒫 cpw 4108  {csn 4125   class class class wbr 4583   ↦ cmpt 4643  ⟶wf 5800  ‘cfv 5804  (class class class)co 6549   ↑_𝑚 cmap 7744  Fincfn 7841   finSupp cfsupp 8158  Basecbs 15695  Scalarcsca 15771   ·_𝑠 cvsca 15772  0_gc0g 15923   Σ_g cgsu 15924  Mndcmnd 17117  Grpcgrp 17245  LModclmod 18686   linC clinc 41987   linIndS clininds 42023

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-se 4998  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-om 6958  df-1st 7059  df-2nd 7060  df-supp 7183  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-oadd 7451  df-er 7629  df-map 7746  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-fsupp 8159  df-oi 8298  df-card 8648  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-nn 10898  df-n0 11170  df-z 11255  df-uz 11564  df-fz 12198  df-fzo 12335  df-seq 12664  df-hash 12980  df-0g 15925  df-gsum 15926  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-grp 17248  df-mulg 17364  df-cntz 17573  df-lmod 18688  df-linc 41989  df-lininds 42025

This theorem is referenced by:  lindssnlvec  42069