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 = Base W
lsmcv.s S = LSubSp W
lsmcv.n N = LSpan W
lsmcv.p ˙ = LSSum W
lsmcv.w φ W LVec
lsmcv.t φ T S
lsmcv.u φ U S
lsmcv.x φ X V
Assertion lsmcv φ T U U T ˙ N X U = T ˙ N X

Proof

Step Hyp Ref Expression
1 lsmcv.v V = Base W
2 lsmcv.s S = LSubSp W
3 lsmcv.n N = LSpan W
4 lsmcv.p ˙ = LSSum W
5 lsmcv.w φ W LVec
6 lsmcv.t φ T S
7 lsmcv.u φ U S
8 lsmcv.x φ X V
9 simp3 φ T U U T ˙ N X U T ˙ N X
10 simp2 φ T U U T ˙ N X T U
11 pssss T U T U
12 10 11 syl φ T U U T ˙ N X T U
13 pssnel T U x x U ¬ x T
14 10 13 syl φ T U U T ˙ N X x x U ¬ x T
15 simpl3 φ T U U T ˙ N X x U ¬ x T U T ˙ N X
16 simprl φ T U U T ˙ N X x U ¬ x T x U
17 15 16 sseldd φ T U U T ˙ N X x U ¬ x T x T ˙ N X
18 lveclmod W LVec W LMod
19 5 18 syl φ W LMod
20 2 lsssssubg W LMod S SubGrp W
21 19 20 syl φ S SubGrp W
22 21 6 sseldd φ T SubGrp W
23 1 2 3 lspsncl W LMod X V N X S
24 19 8 23 syl2anc φ N X S
25 21 24 sseldd φ N X SubGrp W
26 eqid + W = + W
27 26 4 lsmelval T SubGrp W N X SubGrp W x T ˙ N X y T z N X x = y + W z
28 22 25 27 syl2anc φ x T ˙ N X y T z N X x = y + W z
29 28 3ad2ant1 φ T U U T ˙ N X x T ˙ N X y T z N X x = y + W z
30 29 adantr φ T U U T ˙ N X x U ¬ x T x T ˙ N X y T z N X x = y + W z
31 17 30 mpbid φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z
32 simp1rr φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z ¬ x T
33 simp2l φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z y T
34 oveq2 z = 0 W y + W z = y + W 0 W
35 34 eqeq2d z = 0 W x = y + W z x = y + W 0 W
36 35 biimpac x = y + W z z = 0 W x = y + W 0 W
37 19 3ad2ant1 φ T U U T ˙ N X W LMod
38 37 ad2antrr φ T U U T ˙ N X x U ¬ x T y T z N X W LMod
39 6 3ad2ant1 φ T U U T ˙ N X T S
40 39 ad2antrr φ T U U T ˙ N X x U ¬ x T y T z N X T S
41 simprl φ T U U T ˙ N X x U ¬ x T y T z N X y T
42 1 2 lssel T S y T y V
43 40 41 42 syl2anc φ T U U T ˙ N X x U ¬ x T y T z N X y V
44 eqid 0 W = 0 W
45 1 26 44 lmod0vrid W LMod y V y + W 0 W = y
46 38 43 45 syl2anc φ T U U T ˙ N X x U ¬ x T y T z N X y + W 0 W = y
47 46 eqeq2d φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W 0 W x = y
48 47 biimpd φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W 0 W x = y
49 48 ex φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W 0 W x = y
50 36 49 syl7 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z = 0 W x = y
51 50 exp4a φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z = 0 W x = y
52 51 3imp φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z = 0 W x = y
53 eleq1 x = y x T y T
54 53 biimparc y T x = y x T
55 33 52 54 syl6an φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z = 0 W x T
56 55 necon3bd φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z ¬ x T z 0 W
57 32 56 mpd φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W
58 5 3ad2ant1 φ T U U T ˙ N X W LVec
59 58 adantr φ T U U T ˙ N X x U ¬ x T W LVec
60 59 3ad2ant1 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z W LVec
61 lmodabl W LMod W Abel
62 18 61 syl W LVec W Abel
63 60 62 syl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z W Abel
64 simp1l1 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z φ
65 64 6 syl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z T S
66 65 33 42 syl2anc φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z y V
67 60 18 syl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z W LMod
68 64 8 syl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z X V
69 67 68 23 syl2anc φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z N X S
70 simp2r φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z N X
71 1 2 lssel N X S z N X z V
72 69 70 71 syl2anc φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z V
73 eqid - W = - W
74 1 26 73 ablpncan2 W Abel y V z V y + W z - W y = z
75 63 66 72 74 syl3anc φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z y + W z - W y = z
76 64 7 syl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z U S
77 simp3 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z x = y + W z
78 simp1rl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z x U
79 77 78 eqeltrrd φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z y + W z U
80 simp1l2 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z T U
81 11 sselda T U y T y U
82 80 33 81 syl2anc φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z y U
83 73 2 lssvsubcl W LMod U S y + W z U y U y + W z - W y U
84 67 76 79 82 83 syl22anc φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z y + W z - W y U
85 75 84 eqeltrrd φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z U
86 60 3ad2ant1 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U W LVec
87 64 3ad2ant1 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U φ
88 87 8 syl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U X V
89 simp12r φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U z N X
90 simp2 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U z 0 W
91 1 44 3 86 88 89 90 lspsneleq φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U N z = N X
92 86 18 syl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U W LMod
93 87 7 syl φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U U S
94 simp3 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U z U
95 2 3 92 93 94 lspsnel5a φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U N z U
96 91 95 eqsstrrd φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z z 0 W z U N X U
97 57 85 96 mpd3an23 φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z N X U
98 97 3exp φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z N X U
99 98 rexlimdvv φ T U U T ˙ N X x U ¬ x T y T z N X x = y + W z N X U
100 31 99 mpd φ T U U T ˙ N X x U ¬ x T N X U
101 14 100 exlimddv φ T U U T ˙ N X N X U
102 21 7 sseldd φ U SubGrp W
103 4 lsmlub T SubGrp W N X SubGrp W U SubGrp W T U N X U T ˙ N X U
104 22 25 102 103 syl3anc φ T U N X U T ˙ N X U
105 104 3ad2ant1 φ T U U T ˙ N X T U N X U T ˙ N X U
106 12 101 105 mpbi2and φ T U U T ˙ N X T ˙ N X U
107 9 106 eqssd φ T U U T ˙ N X U = T ˙ N X