Metamath Proof Explorer


Theorem baerlem5alem2

Description: Lemma for baerlem5a . (Contributed by NM, 9-Apr-2015)

Ref Expression
Hypotheses baerlem3.v V=BaseW
baerlem3.m -˙=-W
baerlem3.o 0˙=0W
baerlem3.s ˙=LSSumW
baerlem3.n N=LSpanW
baerlem3.w φWLVec
baerlem3.x φXV
baerlem3.c φ¬XNYZ
baerlem3.d φNYNZ
baerlem3.y φYV0˙
baerlem3.z φZV0˙
baerlem3.p +˙=+W
baerlem3.t ·˙=W
baerlem3.r R=ScalarW
baerlem3.b B=BaseR
baerlem3.a ˙=+R
baerlem3.l L=-R
baerlem3.q Q=0R
baerlem3.i I=invgR
Assertion baerlem5alem2 φNX-˙Y+˙Z=NX-˙Y˙NZNX-˙Z˙NY

Proof

Step Hyp Ref Expression
1 baerlem3.v V=BaseW
2 baerlem3.m -˙=-W
3 baerlem3.o 0˙=0W
4 baerlem3.s ˙=LSSumW
5 baerlem3.n N=LSpanW
6 baerlem3.w φWLVec
7 baerlem3.x φXV
8 baerlem3.c φ¬XNYZ
9 baerlem3.d φNYNZ
10 baerlem3.y φYV0˙
11 baerlem3.z φZV0˙
12 baerlem3.p +˙=+W
13 baerlem3.t ·˙=W
14 baerlem3.r R=ScalarW
15 baerlem3.b B=BaseR
16 baerlem3.a ˙=+R
17 baerlem3.l L=-R
18 baerlem3.q Q=0R
19 baerlem3.i I=invgR
20 lveclmod WLVecWLMod
21 6 20 syl φWLMod
22 lmodabl WLModWAbel
23 21 22 syl φWAbel
24 10 eldifad φYV
25 11 eldifad φZV
26 1 12 2 23 7 24 25 ablsubsub4 φX-˙Y-˙Z=X-˙Y+˙Z
27 26 sneqd φX-˙Y-˙Z=X-˙Y+˙Z
28 27 fveq2d φNX-˙Y-˙Z=NX-˙Y+˙Z
29 1 2 lmodvsubcl WLModXVYVX-˙YV
30 21 7 24 29 syl3anc φX-˙YV
31 1 2 4 5 lspsntrim WLModX-˙YVZVNX-˙Y-˙ZNX-˙Y˙NZ
32 21 30 25 31 syl3anc φNX-˙Y-˙ZNX-˙Y˙NZ
33 28 32 eqsstrrd φNX-˙Y+˙ZNX-˙Y˙NZ
34 1 2 23 7 25 24 ablsub32 φX-˙Z-˙Y=X-˙Y-˙Z
35 34 26 eqtrd φX-˙Z-˙Y=X-˙Y+˙Z
36 35 sneqd φX-˙Z-˙Y=X-˙Y+˙Z
37 36 fveq2d φNX-˙Z-˙Y=NX-˙Y+˙Z
38 1 2 lmodvsubcl WLModXVZVX-˙ZV
39 21 7 25 38 syl3anc φX-˙ZV
40 1 2 4 5 lspsntrim WLModX-˙ZVYVNX-˙Z-˙YNX-˙Z˙NY
41 21 39 24 40 syl3anc φNX-˙Z-˙YNX-˙Z˙NY
42 37 41 eqsstrrd φNX-˙Y+˙ZNX-˙Z˙NY
43 33 42 ssind φNX-˙Y+˙ZNX-˙Y˙NZNX-˙Z˙NY
44 elin jNX-˙Y˙NZNX-˙Z˙NYjNX-˙Y˙NZjNX-˙Z˙NY
45 1 12 14 15 13 4 5 21 30 25 lsmspsn φjNX-˙Y˙NZaBbBj=a·˙X-˙Y+˙b·˙Z
46 1 12 14 15 13 4 5 21 39 24 lsmspsn φjNX-˙Z˙NYdBeBj=d·˙X-˙Z+˙e·˙Y
47 45 46 anbi12d φjNX-˙Y˙NZjNX-˙Z˙NYaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙Y
48 44 47 bitrid φjNX-˙Y˙NZNX-˙Z˙NYaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙Y
49 simp11 φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙Yφ
50 49 6 syl φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YWLVec
51 49 7 syl φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YXV
52 49 8 syl φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙Y¬XNYZ
53 49 9 syl φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YNYNZ
54 49 10 syl φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YYV0˙
55 49 11 syl φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YZV0˙
56 simp12l φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YaB
57 simp12r φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YbB
58 simp2l φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YdB
59 simp2r φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YeB
60 simp13 φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙Yj=a·˙X-˙Y+˙b·˙Z
61 simp3 φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙Yj=d·˙X-˙Z+˙e·˙Y
62 1 2 3 4 5 50 51 52 53 54 55 12 13 14 15 16 17 18 19 56 57 58 59 60 61 baerlem5alem1 φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙Yj=a·˙X-˙Y+˙Z
63 49 21 syl φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YWLMod
64 1 12 lmodvacl WLModYVZVY+˙ZV
65 21 24 25 64 syl3anc φY+˙ZV
66 1 2 lmodvsubcl WLModXVY+˙ZVX-˙Y+˙ZV
67 21 7 65 66 syl3anc φX-˙Y+˙ZV
68 49 67 syl φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YX-˙Y+˙ZV
69 1 13 14 15 5 63 56 68 lspsneli φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙Ya·˙X-˙Y+˙ZNX-˙Y+˙Z
70 62 69 eqeltrd φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YjNX-˙Y+˙Z
71 70 3exp φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YjNX-˙Y+˙Z
72 71 rexlimdvv φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YjNX-˙Y+˙Z
73 72 3exp φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YjNX-˙Y+˙Z
74 73 rexlimdvv φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YjNX-˙Y+˙Z
75 74 impd φaBbBj=a·˙X-˙Y+˙b·˙ZdBeBj=d·˙X-˙Z+˙e·˙YjNX-˙Y+˙Z
76 48 75 sylbid φjNX-˙Y˙NZNX-˙Z˙NYjNX-˙Y+˙Z
77 76 ssrdv φNX-˙Y˙NZNX-˙Z˙NYNX-˙Y+˙Z
78 43 77 eqssd φNX-˙Y+˙Z=NX-˙Y˙NZNX-˙Z˙NY