Metamath Proof Explorer


Theorem lsmcv

Description: Subspace sum has the covering property (using spans of singletons to represent atoms). Similar to Exercise 5 of Kalmbach p. 153. ( spansncvi analog.) TODO: ugly proof; can it be shortened? (Contributed by NM, 2-Oct-2014)

Ref Expression
Hypotheses lsmcv.v V=BaseW
lsmcv.s S=LSubSpW
lsmcv.n N=LSpanW
lsmcv.p ˙=LSSumW
lsmcv.w φWLVec
lsmcv.t φTS
lsmcv.u φUS
lsmcv.x φXV
Assertion lsmcv φTUUT˙NXU=T˙NX

Proof

Step Hyp Ref Expression
1 lsmcv.v V=BaseW
2 lsmcv.s S=LSubSpW
3 lsmcv.n N=LSpanW
4 lsmcv.p ˙=LSSumW
5 lsmcv.w φWLVec
6 lsmcv.t φTS
7 lsmcv.u φUS
8 lsmcv.x φXV
9 simp3 φTUUT˙NXUT˙NX
10 simp2 φTUUT˙NXTU
11 pssss TUTU
12 10 11 syl φTUUT˙NXTU
13 pssnel TUxxU¬xT
14 10 13 syl φTUUT˙NXxxU¬xT
15 simpl3 φTUUT˙NXxU¬xTUT˙NX
16 simprl φTUUT˙NXxU¬xTxU
17 15 16 sseldd φTUUT˙NXxU¬xTxT˙NX
18 lveclmod WLVecWLMod
19 5 18 syl φWLMod
20 2 lsssssubg WLModSSubGrpW
21 19 20 syl φSSubGrpW
22 21 6 sseldd φTSubGrpW
23 1 2 3 lspsncl WLModXVNXS
24 19 8 23 syl2anc φNXS
25 21 24 sseldd φNXSubGrpW
26 eqid +W=+W
27 26 4 lsmelval TSubGrpWNXSubGrpWxT˙NXyTzNXx=y+Wz
28 22 25 27 syl2anc φxT˙NXyTzNXx=y+Wz
29 28 3ad2ant1 φTUUT˙NXxT˙NXyTzNXx=y+Wz
30 29 adantr φTUUT˙NXxU¬xTxT˙NXyTzNXx=y+Wz
31 17 30 mpbid φTUUT˙NXxU¬xTyTzNXx=y+Wz
32 simp1rr φTUUT˙NXxU¬xTyTzNXx=y+Wz¬xT
33 simp2l φTUUT˙NXxU¬xTyTzNXx=y+WzyT
34 oveq2 z=0Wy+Wz=y+W0W
35 34 eqeq2d z=0Wx=y+Wzx=y+W0W
36 35 biimpac x=y+Wzz=0Wx=y+W0W
37 19 3ad2ant1 φTUUT˙NXWLMod
38 37 ad2antrr φTUUT˙NXxU¬xTyTzNXWLMod
39 6 3ad2ant1 φTUUT˙NXTS
40 39 ad2antrr φTUUT˙NXxU¬xTyTzNXTS
41 simprl φTUUT˙NXxU¬xTyTzNXyT
42 1 2 lssel TSyTyV
43 40 41 42 syl2anc φTUUT˙NXxU¬xTyTzNXyV
44 eqid 0W=0W
45 1 26 44 lmod0vrid WLModyVy+W0W=y
46 38 43 45 syl2anc φTUUT˙NXxU¬xTyTzNXy+W0W=y
47 46 eqeq2d φTUUT˙NXxU¬xTyTzNXx=y+W0Wx=y
48 47 biimpd φTUUT˙NXxU¬xTyTzNXx=y+W0Wx=y
49 48 ex φTUUT˙NXxU¬xTyTzNXx=y+W0Wx=y
50 36 49 syl7 φTUUT˙NXxU¬xTyTzNXx=y+Wzz=0Wx=y
51 50 exp4a φTUUT˙NXxU¬xTyTzNXx=y+Wzz=0Wx=y
52 51 3imp φTUUT˙NXxU¬xTyTzNXx=y+Wzz=0Wx=y
53 eleq1 x=yxTyT
54 53 biimparc yTx=yxT
55 33 52 54 syl6an φTUUT˙NXxU¬xTyTzNXx=y+Wzz=0WxT
56 55 necon3bd φTUUT˙NXxU¬xTyTzNXx=y+Wz¬xTz0W
57 32 56 mpd φTUUT˙NXxU¬xTyTzNXx=y+Wzz0W
58 5 3ad2ant1 φTUUT˙NXWLVec
59 58 adantr φTUUT˙NXxU¬xTWLVec
60 59 3ad2ant1 φTUUT˙NXxU¬xTyTzNXx=y+WzWLVec
61 lmodabl WLModWAbel
62 18 61 syl WLVecWAbel
63 60 62 syl φTUUT˙NXxU¬xTyTzNXx=y+WzWAbel
64 simp1l1 φTUUT˙NXxU¬xTyTzNXx=y+Wzφ
65 64 6 syl φTUUT˙NXxU¬xTyTzNXx=y+WzTS
66 65 33 42 syl2anc φTUUT˙NXxU¬xTyTzNXx=y+WzyV
67 60 18 syl φTUUT˙NXxU¬xTyTzNXx=y+WzWLMod
68 64 8 syl φTUUT˙NXxU¬xTyTzNXx=y+WzXV
69 67 68 23 syl2anc φTUUT˙NXxU¬xTyTzNXx=y+WzNXS
70 simp2r φTUUT˙NXxU¬xTyTzNXx=y+WzzNX
71 1 2 lssel NXSzNXzV
72 69 70 71 syl2anc φTUUT˙NXxU¬xTyTzNXx=y+WzzV
73 eqid -W=-W
74 1 26 73 ablpncan2 WAbelyVzVy+Wz-Wy=z
75 63 66 72 74 syl3anc φTUUT˙NXxU¬xTyTzNXx=y+Wzy+Wz-Wy=z
76 64 7 syl φTUUT˙NXxU¬xTyTzNXx=y+WzUS
77 simp3 φTUUT˙NXxU¬xTyTzNXx=y+Wzx=y+Wz
78 simp1rl φTUUT˙NXxU¬xTyTzNXx=y+WzxU
79 77 78 eqeltrrd φTUUT˙NXxU¬xTyTzNXx=y+Wzy+WzU
80 simp1l2 φTUUT˙NXxU¬xTyTzNXx=y+WzTU
81 11 sselda TUyTyU
82 80 33 81 syl2anc φTUUT˙NXxU¬xTyTzNXx=y+WzyU
83 73 2 lssvsubcl WLModUSy+WzUyUy+Wz-WyU
84 67 76 79 82 83 syl22anc φTUUT˙NXxU¬xTyTzNXx=y+Wzy+Wz-WyU
85 75 84 eqeltrrd φTUUT˙NXxU¬xTyTzNXx=y+WzzU
86 60 3ad2ant1 φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUWLVec
87 64 3ad2ant1 φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUφ
88 87 8 syl φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUXV
89 simp12r φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUzNX
90 simp2 φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUz0W
91 1 44 3 86 88 89 90 lspsneleq φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUNz=NX
92 86 18 syl φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUWLMod
93 87 7 syl φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUUS
94 simp3 φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUzU
95 2 3 92 93 94 lspsnel5a φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUNzU
96 91 95 eqsstrrd φTUUT˙NXxU¬xTyTzNXx=y+Wzz0WzUNXU
97 57 85 96 mpd3an23 φTUUT˙NXxU¬xTyTzNXx=y+WzNXU
98 97 3exp φTUUT˙NXxU¬xTyTzNXx=y+WzNXU
99 98 rexlimdvv φTUUT˙NXxU¬xTyTzNXx=y+WzNXU
100 31 99 mpd φTUUT˙NXxU¬xTNXU
101 14 100 exlimddv φTUUT˙NXNXU
102 21 7 sseldd φUSubGrpW
103 4 lsmlub TSubGrpWNXSubGrpWUSubGrpWTUNXUT˙NXU
104 22 25 102 103 syl3anc φTUNXUT˙NXU
105 104 3ad2ant1 φTUUT˙NXTUNXUT˙NXU
106 12 101 105 mpbi2and φTUUT˙NXT˙NXU
107 9 106 eqssd φTUUT˙NXU=T˙NX