Theorem snlindsntor 49722

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 2959	. . . . 5 ⊢ ((𝑠 · 𝑋) ≠ 𝑍 ↔ ¬ (𝑠 · 𝑋) = 𝑍)
2	1	ralbii 3111	. . . 4 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ∀𝑠 ∈ (𝑆 ∖ { 0 }) ¬ (𝑠 · 𝑋) = 𝑍)
3		raldifsni 4757	. . . 4 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 }) ¬ (𝑠 · 𝑋) = 𝑍 ↔ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))
4	2, 3	bitri 278	. . 3 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))
5		simpl 488	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → 𝑀 ∈ LMod)
6	5	adantr 486	. . . . . . . . . . . 12 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → 𝑀 ∈ LMod)
7	6	adantr 486	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑀 ∈ LMod)
8		snlindsntor.s	. . . . . . . . . . . . . . 15 ⊢ 𝑆 = (Base‘𝑅)
9		snlindsntor.r	. . . . . . . . . . . . . . . 16 ⊢ 𝑅 = (Scalar‘𝑀)
10	9	fveq2i 6896	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑅) = (Base‘(Scalar‘𝑀))
11	8, 10	eqtri 2786	. . . . . . . . . . . . . 14 ⊢ 𝑆 = (Base‘(Scalar‘𝑀))
12	11	oveq1i 7437	. . . . . . . . . . . . 13 ⊢ (𝑆 ↑m {𝑋}) = ((Base‘(Scalar‘𝑀)) ↑m {𝑋})
13	12	eleq2i 2855	. . . . . . . . . . . 12 ⊢ (𝑓 ∈ (𝑆 ↑m {𝑋}) ↔ 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑m {𝑋}))
14	13	bilani 510	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑m {𝑋}))
15		snelpwi 5415	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ (Base‘𝑀) → {𝑋} ∈ 𝒫 (Base‘𝑀))
16		snlindsntor.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝑀)
17	15, 16	eleq2s 2881	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ 𝐵 → {𝑋} ∈ 𝒫 (Base‘𝑀))
18	17	ad3antlr 744	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → {𝑋} ∈ 𝒫 (Base‘𝑀))
19		lincval 49660	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ LMod ∧ 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑m {𝑋}) ∧ {𝑋} ∈ 𝒫 (Base‘𝑀)) → (𝑓( linC ‘𝑀){𝑋}) = (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))))
20	7, 14, 18, 19	syl3anc 1398	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → (𝑓( linC ‘𝑀){𝑋}) = (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))))
21	20	eqeq1d 2765	. . . . . . . . 9 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 ↔ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍))
22	21	anbi2d 642	. . . . . . . 8 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) ↔ (𝑓 finSupp 0 ∧ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍)))
23		lmodgrp 21154	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Grp)
24	23	grpmndd 19169	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Mnd)
25	24	ad3antrrr 743	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑀 ∈ Mnd)
26		simpllr 788	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑋 ∈ 𝐵)
27		elmapi 8880	. . . . . . . . . . . . . 14 ⊢ (𝑓 ∈ (𝑆 ↑m {𝑋}) → 𝑓:{𝑋}⟶𝑆)
28	6	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → 𝑀 ∈ LMod)
29		snidg 4620	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ∈ 𝐵 → 𝑋 ∈ {𝑋})
30	29	adantl 487	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ {𝑋})
31	30	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → 𝑋 ∈ {𝑋})
32		ffvelcdm 7089	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ 𝑋 ∈ {𝑋}) → (𝑓‘𝑋) ∈ 𝑆)
33	31, 32	sylan2 605	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → (𝑓‘𝑋) ∈ 𝑆)
34		simprlr 792	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → 𝑋 ∈ 𝐵)
35		eqid 2763	. . . . . . . . . . . . . . . . 17 ⊢ ( ·𝑠 ‘𝑀) = ( ·𝑠 ‘𝑀)
36	16, 9, 35, 8	lmodvscl 21165	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ LMod ∧ (𝑓‘𝑋) ∈ 𝑆 ∧ 𝑋 ∈ 𝐵) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
37	28, 33, 34, 36	syl3anc 1398	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
38	37	expcom 419	. . . . . . . . . . . . . 14 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (𝑓:{𝑋}⟶𝑆 → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵))
39	27, 38	syl5com 32	. . . . . . . . . . . . 13 ⊢ (𝑓 ∈ (𝑆 ↑m {𝑋}) → (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵))
40	39	impcom 413	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
41		fveq2 6893	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑋 → (𝑓‘𝑥) = (𝑓‘𝑋))
42		id 23	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
43	41, 42	oveq12d 7445	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑋 → ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
44	16, 43	gsumsn 20180	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ Mnd ∧ 𝑋 ∈ 𝐵 ∧ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵) → (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
45	25, 26, 40, 44	syl3anc 1398	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
46	45	eqeq1d 2765	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍 ↔ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍))
47	29, 32	sylan2 605	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ 𝑋 ∈ 𝐵) → (𝑓‘𝑋) ∈ 𝑆)
48	47	expcom 419	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ 𝐵 → (𝑓:{𝑋}⟶𝑆 → (𝑓‘𝑋) ∈ 𝑆))
49	48	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (𝑓:{𝑋}⟶𝑆 → (𝑓‘𝑋) ∈ 𝑆))
50		snlindsntor.t	. . . . . . . . . . . . . . . . 17 ⊢ · = ( ·𝑠 ‘𝑀)
51	50	oveqi 7440	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓‘𝑋) · 𝑋) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋)
52	51	eqeq1i 2768	. . . . . . . . . . . . . . 15 ⊢ (((𝑓‘𝑋) · 𝑋) = 𝑍 ↔ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍)
53		oveq1 7434	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑠 = (𝑓‘𝑋) → (𝑠 · 𝑋) = ((𝑓‘𝑋) · 𝑋))
54	53	eqeq1d 2765	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = (𝑓‘𝑋) → ((𝑠 · 𝑋) = 𝑍 ↔ ((𝑓‘𝑋) · 𝑋) = 𝑍))
55		eqeq1 2767	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = (𝑓‘𝑋) → (𝑠 = 0 ↔ (𝑓‘𝑋) = 0 ))
56	54, 55	imbi12d 347	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = (𝑓‘𝑋) → (((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ (((𝑓‘𝑋) · 𝑋) = 𝑍 → (𝑓‘𝑋) = 0 )))
57	56	rspcva 3577	. . . . . . . . . . . . . . 15 ⊢ (((𝑓‘𝑋) ∈ 𝑆 ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (((𝑓‘𝑋) · 𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
58	52, 57	biimtrrid 246	. . . . . . . . . . . . . 14 ⊢ (((𝑓‘𝑋) ∈ 𝑆 ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
59	58	ex 418	. . . . . . . . . . . . 13 ⊢ ((𝑓‘𝑋) ∈ 𝑆 → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 )))
60	27, 49, 59	syl56 37	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (𝑓 ∈ (𝑆 ↑m {𝑋}) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))))
61	60	com23 87	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (𝑓 ∈ (𝑆 ↑m {𝑋}) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))))
62	61	imp31 423	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
63	46, 62	sylbid 243	. . . . . . . . 9 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍 → (𝑓‘𝑋) = 0 ))
64	63	adantld 496	. . . . . . . 8 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍) → (𝑓‘𝑋) = 0 ))
65	22, 64	sylbid 243	. . . . . . 7 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ))
66	65	ralrimiva 3157	. . . . . 6 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ))
67	66	ex 418	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 )))
68		impexp 456	. . . . . . . 8 ⊢ (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ (𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
69	27	adantl 487	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑓:{𝑋}⟶𝑆)
70		snfi 9082	. . . . . . . . . . 11 ⊢ {𝑋} ∈ Fin
71	70	a1i 11	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → {𝑋} ∈ Fin)
72		snlindsntor.0	. . . . . . . . . . . 12 ⊢ 0 = (0g‘𝑅)
73	72	fvexi 6907	. . . . . . . . . . 11 ⊢ 0 ∈ V
74	73	a1i 11	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 0 ∈ V)
75	69, 71, 74	fdmfifsupp 9377	. . . . . . . . 9 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑓 finSupp 0 )
76		pm2.27 43	. . . . . . . . 9 ⊢ (𝑓 finSupp 0 → ((𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
77	75, 76	syl 18	. . . . . . . 8 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
78	68, 77	biimtrid 245	. . . . . . 7 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
79	78	ralimdva 3177	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
80		snlindsntor.z	. . . . . . 7 ⊢ 𝑍 = (0g‘𝑀)
81	16, 9, 8, 72, 80, 50	snlindsntorlem 49721	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 ) → ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )))
82	79, 81	syld 48	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )))
83	67, 82	impbid 215	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 )))
84		fveqeq2 6902	. . . . . . . . 9 ⊢ (𝑦 = 𝑋 → ((𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
85	84	ralsng 4635	. . . . . . . 8 ⊢ (𝑋 ∈ 𝐵 → (∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
86	85	adantl 487	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
87	86	bicomd 226	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → ((𝑓‘𝑋) = 0 ↔ ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))
88	87	imbi2d 343	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 )))
89	88	ralbidv 3188	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 )))
90		snelpwi 5415	. . . . . 6 ⊢ (𝑋 ∈ 𝐵 → {𝑋} ∈ 𝒫 𝐵)
91	90	adantl 487	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → {𝑋} ∈ 𝒫 𝐵)
92	91	biantrurd 542	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ) ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
93	83, 89, 92	3bitrd 308	. . 3 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
94	4, 93	bitrid 286	. 2 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
95		snex 5400	. . 3 ⊢ {𝑋} ∈ V
96	16, 80, 9, 8, 72	islininds 49697	. . 3 ⊢ (({𝑋} ∈ V ∧ 𝑀 ∈ LMod) → ({𝑋} linIndS 𝑀 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
97	95, 5, 96	sylancr 599	. 2 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → ({𝑋} linIndS 𝑀 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
98	94, 97	bitr4d 285	1 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ {𝑋} linIndS 𝑀))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1569   ∈ wcel 2146   ≠ wne 2958  ∀wral 3079  Vcvv 3453   ∖ cdif 4047  𝒫 cpw 4559  {csn 4587   class class class wbr 5105   ↦ cmpt 5188  ⟶wf 6542  ‘cfv 6546  (class class class)co 7427   ↑_m cmap 8858  Fincfn 8984   finSupp cfsupp 9364  Basecbs 17399  Scalarcsca 17443   ·_𝑠 cvsca 17444  0_gc0g 17622   Σ_g cgsu 17623  Mndcmnd 18935  LModclmod 21147   linC clinc 49655   linIndS clininds 49691

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-rep 5234  ax-sep 5251  ax-nul 5262  ax-pow 5330  ax-pr 5394  ax-un 7758  ax-cnex 11266  ax-resscn 11267  ax-1cn 11268  ax-icn 11269  ax-addcl 11270  ax-addrcl 11271  ax-mulcl 11272  ax-mulrcl 11273  ax-mulcom 11274  ax-addass 11275  ax-mulass 11276  ax-distr 11277  ax-i2m1 11278  ax-1ne0 11279  ax-1rid 11280  ax-rnegex 11281  ax-rrecex 11282  ax-cnre 11283  ax-pre-lttri 11284  ax-pre-lttrn 11285  ax-pre-ltadd 11286  ax-pre-mulgt0 11287

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3455  df-sbc 3742  df-csb 3851  df-ss 3900  df-pss 4016  df-dif 4049  df-in 4093  df-un 4153  df-nul 4281  df-if 4485  df-pw 4561  df-sn 4588  df-pr 4590  df-op 4838  df-uni 4870  df-int 4910  df-iun 4955  df-br 5106  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5549  df-eprel 5554  df-po 5562  df-so 5563  df-fr 5607  df-se 5608  df-we 5609  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6310  df-ord 6371  df-on 6372  df-lim 6373  df-suc 6374  df-iota 6500  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554  df-isom 6555  df-riota 7384  df-ov 7430  df-oprab 7431  df-mpo 7432  df-om 7885  df-1st 8008  df-2nd 8009  df-supp 8188  df-frecs 8310  df-wrecs 8341  df-recs 8390  df-rdg 8429  df-1o 8487  df-er 8728  df-map 8860  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-fsupp 9365  df-oi 9514  df-card 10030  df-pnf 11355  df-mnf 11356  df-xr 11357  df-ltxr 11358  df-le 11359  df-sub 11553  df-neg 11554  df-nn 12346  df-n0 12617  df-z 12704  df-uz 12976  df-fz 13650  df-fzo 13799  df-seq 14155  df-hash 14485  df-0g 17624  df-gsum 17625  df-mgm 18828  df-sgrp 18920  df-mnd 18936  df-grp 19159  df-mulg 19290  df-cntz 19543  df-lmod 21149  df-linc 49657  df-lininds 49693

This theorem is used by:  lindssnlvec  49737