Metamath Proof Explorer


Theorem linc1

Description: A vector is a linear combination of a set containing this vector. (Contributed by AV, 18-Apr-2019) (Proof shortened by AV, 28-Jul-2019)

Ref Expression
Hypotheses linc1.b B = Base M
linc1.s S = Scalar M
linc1.0 0 ˙ = 0 S
linc1.1 1 ˙ = 1 S
linc1.f F = x V if x = X 1 ˙ 0 ˙
Assertion linc1 M LMod V 𝒫 B X V F linC M V = X

Proof

Step Hyp Ref Expression
1 linc1.b B = Base M
2 linc1.s S = Scalar M
3 linc1.0 0 ˙ = 0 S
4 linc1.1 1 ˙ = 1 S
5 linc1.f F = x V if x = X 1 ˙ 0 ˙
6 simp1 M LMod V 𝒫 B X V M LMod
7 2 lmodring M LMod S Ring
8 2 eqcomi Scalar M = S
9 8 fveq2i Base Scalar M = Base S
10 9 4 ringidcl S Ring 1 ˙ Base Scalar M
11 9 3 ring0cl S Ring 0 ˙ Base Scalar M
12 10 11 jca S Ring 1 ˙ Base Scalar M 0 ˙ Base Scalar M
13 7 12 syl M LMod 1 ˙ Base Scalar M 0 ˙ Base Scalar M
14 13 3ad2ant1 M LMod V 𝒫 B X V 1 ˙ Base Scalar M 0 ˙ Base Scalar M
15 14 adantr M LMod V 𝒫 B X V x V 1 ˙ Base Scalar M 0 ˙ Base Scalar M
16 ifcl 1 ˙ Base Scalar M 0 ˙ Base Scalar M if x = X 1 ˙ 0 ˙ Base Scalar M
17 15 16 syl M LMod V 𝒫 B X V x V if x = X 1 ˙ 0 ˙ Base Scalar M
18 17 5 fmptd M LMod V 𝒫 B X V F : V Base Scalar M
19 fvex Base Scalar M V
20 simp2 M LMod V 𝒫 B X V V 𝒫 B
21 elmapg Base Scalar M V V 𝒫 B F Base Scalar M V F : V Base Scalar M
22 19 20 21 sylancr M LMod V 𝒫 B X V F Base Scalar M V F : V Base Scalar M
23 18 22 mpbird M LMod V 𝒫 B X V F Base Scalar M V
24 1 pweqi 𝒫 B = 𝒫 Base M
25 24 eleq2i V 𝒫 B V 𝒫 Base M
26 25 biimpi V 𝒫 B V 𝒫 Base M
27 26 3ad2ant2 M LMod V 𝒫 B X V V 𝒫 Base M
28 lincval M LMod F Base Scalar M V V 𝒫 Base M F linC M V = M y V F y M y
29 6 23 27 28 syl3anc M LMod V 𝒫 B X V F linC M V = M y V F y M y
30 eqid 0 M = 0 M
31 lmodgrp M LMod M Grp
32 31 grpmndd M LMod M Mnd
33 32 3ad2ant1 M LMod V 𝒫 B X V M Mnd
34 simp3 M LMod V 𝒫 B X V X V
35 6 adantr M LMod V 𝒫 B X V y V M LMod
36 eqeq1 x = y x = X y = X
37 36 ifbid x = y if x = X 1 ˙ 0 ˙ = if y = X 1 ˙ 0 ˙
38 simpr M LMod V 𝒫 B X V y V y V
39 eqid Base S = Base S
40 2 39 4 lmod1cl M LMod 1 ˙ Base S
41 40 3ad2ant1 M LMod V 𝒫 B X V 1 ˙ Base S
42 41 adantr M LMod V 𝒫 B X V y V 1 ˙ Base S
43 2 39 3 lmod0cl M LMod 0 ˙ Base S
44 43 3ad2ant1 M LMod V 𝒫 B X V 0 ˙ Base S
45 44 adantr M LMod V 𝒫 B X V y V 0 ˙ Base S
46 42 45 ifcld M LMod V 𝒫 B X V y V if y = X 1 ˙ 0 ˙ Base S
47 5 37 38 46 fvmptd3 M LMod V 𝒫 B X V y V F y = if y = X 1 ˙ 0 ˙
48 47 46 eqeltrd M LMod V 𝒫 B X V y V F y Base S
49 elelpwi y V V 𝒫 B y B
50 49 expcom V 𝒫 B y V y B
51 50 3ad2ant2 M LMod V 𝒫 B X V y V y B
52 51 imp M LMod V 𝒫 B X V y V y B
53 eqid M = M
54 1 2 53 39 lmodvscl M LMod F y Base S y B F y M y B
55 35 48 52 54 syl3anc M LMod V 𝒫 B X V y V F y M y B
56 eqid y V F y M y = y V F y M y
57 55 56 fmptd M LMod V 𝒫 B X V y V F y M y : V B
58 fveq2 y = v F y = F v
59 id y = v y = v
60 58 59 oveq12d y = v F y M y = F v M v
61 60 cbvmptv y V F y M y = v V F v M v
62 fvexd M LMod V 𝒫 B X V 0 M V
63 ovexd M LMod V 𝒫 B X V v V F v M v V
64 61 20 62 63 mptsuppd M LMod V 𝒫 B X V y V F y M y supp 0 M = v V | F v M v 0 M
65 2a1 v = X M LMod V 𝒫 B X V v V F v M v 0 M v = X
66 simprr ¬ v = X M LMod V 𝒫 B X V v V v V
67 4 fvexi 1 ˙ V
68 3 fvexi 0 ˙ V
69 67 68 ifex if v = X 1 ˙ 0 ˙ V
70 eqeq1 x = v x = X v = X
71 70 ifbid x = v if x = X 1 ˙ 0 ˙ = if v = X 1 ˙ 0 ˙
72 71 5 fvmptg v V if v = X 1 ˙ 0 ˙ V F v = if v = X 1 ˙ 0 ˙
73 66 69 72 sylancl ¬ v = X M LMod V 𝒫 B X V v V F v = if v = X 1 ˙ 0 ˙
74 iffalse ¬ v = X if v = X 1 ˙ 0 ˙ = 0 ˙
75 74 adantr ¬ v = X M LMod V 𝒫 B X V v V if v = X 1 ˙ 0 ˙ = 0 ˙
76 73 75 eqtrd ¬ v = X M LMod V 𝒫 B X V v V F v = 0 ˙
77 76 oveq1d ¬ v = X M LMod V 𝒫 B X V v V F v M v = 0 ˙ M v
78 6 adantr M LMod V 𝒫 B X V v V M LMod
79 78 adantl ¬ v = X M LMod V 𝒫 B X V v V M LMod
80 elelpwi v V V 𝒫 B v B
81 80 expcom V 𝒫 B v V v B
82 81 3ad2ant2 M LMod V 𝒫 B X V v V v B
83 82 imp M LMod V 𝒫 B X V v V v B
84 83 adantl ¬ v = X M LMod V 𝒫 B X V v V v B
85 1 2 53 3 30 lmod0vs M LMod v B 0 ˙ M v = 0 M
86 79 84 85 syl2anc ¬ v = X M LMod V 𝒫 B X V v V 0 ˙ M v = 0 M
87 77 86 eqtrd ¬ v = X M LMod V 𝒫 B X V v V F v M v = 0 M
88 87 neeq1d ¬ v = X M LMod V 𝒫 B X V v V F v M v 0 M 0 M 0 M
89 eqneqall 0 M = 0 M 0 M 0 M v = X
90 30 89 ax-mp 0 M 0 M v = X
91 88 90 syl6bi ¬ v = X M LMod V 𝒫 B X V v V F v M v 0 M v = X
92 91 ex ¬ v = X M LMod V 𝒫 B X V v V F v M v 0 M v = X
93 65 92 pm2.61i M LMod V 𝒫 B X V v V F v M v 0 M v = X
94 93 ralrimiva M LMod V 𝒫 B X V v V F v M v 0 M v = X
95 rabsssn v V | F v M v 0 M X v V F v M v 0 M v = X
96 94 95 sylibr M LMod V 𝒫 B X V v V | F v M v 0 M X
97 64 96 eqsstrd M LMod V 𝒫 B X V y V F y M y supp 0 M X
98 1 30 33 20 34 57 97 gsumpt M LMod V 𝒫 B X V M y V F y M y = y V F y M y X
99 ovex F X M X V
100 fveq2 y = X F y = F X
101 id y = X y = X
102 100 101 oveq12d y = X F y M y = F X M X
103 102 56 fvmptg X V F X M X V y V F y M y X = F X M X
104 34 99 103 sylancl M LMod V 𝒫 B X V y V F y M y X = F X M X
105 iftrue x = X if x = X 1 ˙ 0 ˙ = 1 ˙
106 105 5 fvmptg X V 1 ˙ V F X = 1 ˙
107 34 67 106 sylancl M LMod V 𝒫 B X V F X = 1 ˙
108 107 oveq1d M LMod V 𝒫 B X V F X M X = 1 ˙ M X
109 elelpwi X V V 𝒫 B X B
110 109 ancoms V 𝒫 B X V X B
111 110 3adant1 M LMod V 𝒫 B X V X B
112 1 2 53 4 lmodvs1 M LMod X B 1 ˙ M X = X
113 6 111 112 syl2anc M LMod V 𝒫 B X V 1 ˙ M X = X
114 104 108 113 3eqtrd M LMod V 𝒫 B X V y V F y M y X = X
115 29 98 114 3eqtrd M LMod V 𝒫 B X V F linC M V = X