Theorem snlindsntor 48962

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 2934	. . . . 5 ⊢ ((𝑠 · 𝑋) ≠ 𝑍 ↔ ¬ (𝑠 · 𝑋) = 𝑍)
2	1	ralbii 3084	. . . 4 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ∀𝑠 ∈ (𝑆 ∖ { 0 }) ¬ (𝑠 · 𝑋) = 𝑍)
3		raldifsni 4739	. . . 4 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 }) ¬ (𝑠 · 𝑋) = 𝑍 ↔ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))
4	2, 3	bitri 275	. . 3 ⊢ (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))
5		simpl 482	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → 𝑀 ∈ LMod)
6	5	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → 𝑀 ∈ LMod)
7	6	adantr 480	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑀 ∈ LMod)
8		snlindsntor.s	. . . . . . . . . . . . . . . 16 ⊢ 𝑆 = (Base‘𝑅)
9		snlindsntor.r	. . . . . . . . . . . . . . . . 17 ⊢ 𝑅 = (Scalar‘𝑀)
10	9	fveq2i 6838	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑅) = (Base‘(Scalar‘𝑀))
11	8, 10	eqtri 2760	. . . . . . . . . . . . . . 15 ⊢ 𝑆 = (Base‘(Scalar‘𝑀))
12	11	oveq1i 7371	. . . . . . . . . . . . . 14 ⊢ (𝑆 ↑m {𝑋}) = ((Base‘(Scalar‘𝑀)) ↑m {𝑋})
13	12	eleq2i 2829	. . . . . . . . . . . . 13 ⊢ (𝑓 ∈ (𝑆 ↑m {𝑋}) ↔ 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑m {𝑋}))
14	13	biimpi 216	. . . . . . . . . . . 12 ⊢ (𝑓 ∈ (𝑆 ↑m {𝑋}) → 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑m {𝑋}))
15	14	adantl 481	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑m {𝑋}))
16		snelpwi 5392	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ (Base‘𝑀) → {𝑋} ∈ 𝒫 (Base‘𝑀))
17		snlindsntor.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝑀)
18	16, 17	eleq2s 2855	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ 𝐵 → {𝑋} ∈ 𝒫 (Base‘𝑀))
19	18	ad3antlr 732	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → {𝑋} ∈ 𝒫 (Base‘𝑀))
20		lincval 48900	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ LMod ∧ 𝑓 ∈ ((Base‘(Scalar‘𝑀)) ↑m {𝑋}) ∧ {𝑋} ∈ 𝒫 (Base‘𝑀)) → (𝑓( linC ‘𝑀){𝑋}) = (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))))
21	7, 15, 19, 20	syl3anc 1374	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → (𝑓( linC ‘𝑀){𝑋}) = (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))))
22	21	eqeq1d 2739	. . . . . . . . 9 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 ↔ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍))
23	22	anbi2d 631	. . . . . . . 8 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) ↔ (𝑓 finSupp 0 ∧ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍)))
24		lmodgrp 20856	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Grp)
25	24	grpmndd 18916	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ LMod → 𝑀 ∈ Mnd)
26	25	ad3antrrr 731	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑀 ∈ Mnd)
27		simpllr 776	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑋 ∈ 𝐵)
28		elmapi 8790	. . . . . . . . . . . . . 14 ⊢ (𝑓 ∈ (𝑆 ↑m {𝑋}) → 𝑓:{𝑋}⟶𝑆)
29	6	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → 𝑀 ∈ LMod)
30		snidg 4605	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ∈ 𝐵 → 𝑋 ∈ {𝑋})
31	30	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ {𝑋})
32	31	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → 𝑋 ∈ {𝑋})
33		ffvelcdm 7028	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ 𝑋 ∈ {𝑋}) → (𝑓‘𝑋) ∈ 𝑆)
34	32, 33	sylan2 594	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → (𝑓‘𝑋) ∈ 𝑆)
35		simprlr 780	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → 𝑋 ∈ 𝐵)
36		eqid 2737	. . . . . . . . . . . . . . . . 17 ⊢ ( ·𝑠 ‘𝑀) = ( ·𝑠 ‘𝑀)
37	17, 9, 36, 8	lmodvscl 20867	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ LMod ∧ (𝑓‘𝑋) ∈ 𝑆 ∧ 𝑋 ∈ 𝐵) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
38	29, 34, 35, 37	syl3anc 1374	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ))) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
39	38	expcom 413	. . . . . . . . . . . . . 14 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (𝑓:{𝑋}⟶𝑆 → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵))
40	28, 39	syl5com 31	. . . . . . . . . . . . 13 ⊢ (𝑓 ∈ (𝑆 ↑m {𝑋}) → (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵))
41	40	impcom 407	. . . . . . . . . . . 12 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵)
42		fveq2 6835	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑋 → (𝑓‘𝑥) = (𝑓‘𝑋))
43		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
44	42, 43	oveq12d 7379	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑋 → ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
45	17, 44	gsumsn 19923	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ Mnd ∧ 𝑋 ∈ 𝐵 ∧ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) ∈ 𝐵) → (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
46	26, 27, 41, 45	syl3anc 1374	. . . . . . . . . . 11 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋))
47	46	eqeq1d 2739	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍 ↔ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍))
48	30, 33	sylan2 594	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:{𝑋}⟶𝑆 ∧ 𝑋 ∈ 𝐵) → (𝑓‘𝑋) ∈ 𝑆)
49	48	expcom 413	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ 𝐵 → (𝑓:{𝑋}⟶𝑆 → (𝑓‘𝑋) ∈ 𝑆))
50	49	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (𝑓:{𝑋}⟶𝑆 → (𝑓‘𝑋) ∈ 𝑆))
51		snlindsntor.t	. . . . . . . . . . . . . . . . 17 ⊢ · = ( ·𝑠 ‘𝑀)
52	51	oveqi 7374	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓‘𝑋) · 𝑋) = ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋)
53	52	eqeq1i 2742	. . . . . . . . . . . . . . 15 ⊢ (((𝑓‘𝑋) · 𝑋) = 𝑍 ↔ ((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍)
54		oveq1 7368	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑠 = (𝑓‘𝑋) → (𝑠 · 𝑋) = ((𝑓‘𝑋) · 𝑋))
55	54	eqeq1d 2739	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = (𝑓‘𝑋) → ((𝑠 · 𝑋) = 𝑍 ↔ ((𝑓‘𝑋) · 𝑋) = 𝑍))
56		eqeq1 2741	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠 = (𝑓‘𝑋) → (𝑠 = 0 ↔ (𝑓‘𝑋) = 0 ))
57	55, 56	imbi12d 344	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = (𝑓‘𝑋) → (((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ (((𝑓‘𝑋) · 𝑋) = 𝑍 → (𝑓‘𝑋) = 0 )))
58	57	rspcva 3563	. . . . . . . . . . . . . . 15 ⊢ (((𝑓‘𝑋) ∈ 𝑆 ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (((𝑓‘𝑋) · 𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
59	53, 58	biimtrrid 243	. . . . . . . . . . . . . 14 ⊢ (((𝑓‘𝑋) ∈ 𝑆 ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
60	59	ex 412	. . . . . . . . . . . . 13 ⊢ ((𝑓‘𝑋) ∈ 𝑆 → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 )))
61	28, 50, 60	syl56 36	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (𝑓 ∈ (𝑆 ↑m {𝑋}) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))))
62	61	com23 86	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → (𝑓 ∈ (𝑆 ↑m {𝑋}) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))))
63	62	imp31 417	. . . . . . . . . 10 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → (((𝑓‘𝑋)( ·𝑠 ‘𝑀)𝑋) = 𝑍 → (𝑓‘𝑋) = 0 ))
64	47, 63	sylbid 240	. . . . . . . . 9 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍 → (𝑓‘𝑋) = 0 ))
65	64	adantld 490	. . . . . . . 8 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑀 Σg (𝑥 ∈ {𝑋} ↦ ((𝑓‘𝑥)( ·𝑠 ‘𝑀)𝑥))) = 𝑍) → (𝑓‘𝑋) = 0 ))
66	23, 65	sylbid 240	. . . . . . 7 ⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ))
67	66	ralrimiva 3130	. . . . . 6 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )) → ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ))
68	67	ex 412	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) → ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 )))
69		impexp 450	. . . . . . . 8 ⊢ (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ (𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
70	28	adantl 481	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑓:{𝑋}⟶𝑆)
71		snfi 8984	. . . . . . . . . . 11 ⊢ {𝑋} ∈ Fin
72	71	a1i 11	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → {𝑋} ∈ Fin)
73		snlindsntor.0	. . . . . . . . . . . 12 ⊢ 0 = (0g‘𝑅)
74	73	fvexi 6849	. . . . . . . . . . 11 ⊢ 0 ∈ V
75	74	a1i 11	. . . . . . . . . 10 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 0 ∈ V)
76	70, 72, 75	fdmfifsupp 9282	. . . . . . . . 9 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → 𝑓 finSupp 0 )
77		pm2.27 42	. . . . . . . . 9 ⊢ (𝑓 finSupp 0 → ((𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
78	76, 77	syl 17	. . . . . . . 8 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → ((𝑓 finSupp 0 → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
79	69, 78	biimtrid 242	. . . . . . 7 ⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) ∧ 𝑓 ∈ (𝑆 ↑m {𝑋})) → (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
80	79	ralimdva 3150	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 )))
81		snlindsntor.z	. . . . . . 7 ⊢ 𝑍 = (0g‘𝑀)
82	17, 9, 8, 73, 81, 51	snlindsntorlem 48961	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓( linC ‘𝑀){𝑋}) = 𝑍 → (𝑓‘𝑋) = 0 ) → ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )))
83	80, 82	syld 47	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) → ∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 )))
84	68, 83	impbid 212	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 )))
85		fveqeq2 6844	. . . . . . . . 9 ⊢ (𝑦 = 𝑋 → ((𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
86	85	ralsng 4620	. . . . . . . 8 ⊢ (𝑋 ∈ 𝐵 → (∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
87	86	adantl 481	. . . . . . 7 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ↔ (𝑓‘𝑋) = 0 ))
88	87	bicomd 223	. . . . . 6 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → ((𝑓‘𝑋) = 0 ↔ ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))
89	88	imbi2d 340	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ ((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 )))
90	89	ralbidv 3161	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → (𝑓‘𝑋) = 0 ) ↔ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 )))
91		snelpwi 5392	. . . . . 6 ⊢ (𝑋 ∈ 𝐵 → {𝑋} ∈ 𝒫 𝐵)
92	91	adantl 481	. . . . 5 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → {𝑋} ∈ 𝒫 𝐵)
93	92	biantrurd 532	. . . 4 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ) ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
94	84, 90, 93	3bitrd 305	. . 3 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ 𝑆 ((𝑠 · 𝑋) = 𝑍 → 𝑠 = 0 ) ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
95	4, 94	bitrid 283	. 2 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
96		snex 5377	. . 3 ⊢ {𝑋} ∈ V
97	17, 81, 9, 8, 73	islininds 48937	. . 3 ⊢ (({𝑋} ∈ V ∧ 𝑀 ∈ LMod) → ({𝑋} linIndS 𝑀 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
98	96, 5, 97	sylancr 588	. 2 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → ({𝑋} linIndS 𝑀 ↔ ({𝑋} ∈ 𝒫 𝐵 ∧ ∀𝑓 ∈ (𝑆 ↑m {𝑋})((𝑓 finSupp 0 ∧ (𝑓( linC ‘𝑀){𝑋}) = 𝑍) → ∀𝑦 ∈ {𝑋} (𝑓‘𝑦) = 0 ))))
99	95, 98	bitr4d 282	1 ⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → (∀𝑠 ∈ (𝑆 ∖ { 0 })(𝑠 · 𝑋) ≠ 𝑍 ↔ {𝑋} linIndS 𝑀))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114   ≠ wne 2933  ∀wral 3052  Vcvv 3430   ∖ cdif 3887  𝒫 cpw 4542  {csn 4568   class class class wbr 5086   ↦ cmpt 5167  ⟶wf 6489  ‘cfv 6493  (class class class)co 7361   ↑_m cmap 8767  Fincfn 8887   finSupp cfsupp 9268  Basecbs 17173  Scalarcsca 17217   ·_𝑠 cvsca 17218  0_gc0g 17396   Σ_g cgsu 17397  Mndcmnd 18696  LModclmod 20849   linC clinc 48895   linIndS clininds 48931

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5303  ax-pr 5371  ax-un 7683  ax-cnex 11088  ax-resscn 11089  ax-1cn 11090  ax-icn 11091  ax-addcl 11092  ax-addrcl 11093  ax-mulcl 11094  ax-mulrcl 11095  ax-mulcom 11096  ax-addass 11097  ax-mulass 11098  ax-distr 11099  ax-i2m1 11100  ax-1ne0 11101  ax-1rid 11102  ax-rnegex 11103  ax-rrecex 11104  ax-cnre 11105  ax-pre-lttri 11106  ax-pre-lttrn 11107  ax-pre-ltadd 11108  ax-pre-mulgt0 11109

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-isom 6502  df-riota 7318  df-ov 7364  df-oprab 7365  df-mpo 7366  df-om 7812  df-1st 7936  df-2nd 7937  df-supp 8105  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-1o 8399  df-er 8637  df-map 8769  df-en 8888  df-dom 8889  df-sdom 8890  df-fin 8891  df-fsupp 9269  df-oi 9419  df-card 9857  df-pnf 11175  df-mnf 11176  df-xr 11177  df-ltxr 11178  df-le 11179  df-sub 11373  df-neg 11374  df-nn 12169  df-n0 12432  df-z 12519  df-uz 12783  df-fz 13456  df-fzo 13603  df-seq 13958  df-hash 14287  df-0g 17398  df-gsum 17399  df-mgm 18602  df-sgrp 18681  df-mnd 18697  df-grp 18906  df-mulg 19038  df-cntz 19286  df-lmod 20851  df-linc 48897  df-lininds 48933

This theorem is referenced by:  lindssnlvec  48977