Metamath Proof Explorer


Theorem rmodislmodOLD

Description: Obsolete version of rmodislmod as of 18-Oct-2024. The right module R induces a left module L by replacing the scalar multiplication with a reversed multiplication if the scalar ring is commutative. The hypothesis "rmodislmod.r" is a definition of a right module analogous to Definition df-lmod of a left module, see also islmod . (Contributed by AV, 3-Dec-2021) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Hypotheses rmodislmod.v V = Base R
rmodislmod.a + ˙ = + R
rmodislmod.s · ˙ = R
rmodislmod.f F = Scalar R
rmodislmod.k K = Base F
rmodislmod.p ˙ = + F
rmodislmod.t × ˙ = F
rmodislmod.u 1 ˙ = 1 F
rmodislmod.r R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w
rmodislmod.m ˙ = s K , v V v · ˙ s
rmodislmod.l L = R sSet ndx ˙
Assertion rmodislmodOLD F CRing L LMod

Proof

Step Hyp Ref Expression
1 rmodislmod.v V = Base R
2 rmodislmod.a + ˙ = + R
3 rmodislmod.s · ˙ = R
4 rmodislmod.f F = Scalar R
5 rmodislmod.k K = Base F
6 rmodislmod.p ˙ = + F
7 rmodislmod.t × ˙ = F
8 rmodislmod.u 1 ˙ = 1 F
9 rmodislmod.r R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w
10 rmodislmod.m ˙ = s K , v V v · ˙ s
11 rmodislmod.l L = R sSet ndx ˙
12 baseid Base = Slot Base ndx
13 df-base Base = Slot 1
14 1nn 1
15 13 14 ndxarg Base ndx = 1
16 1re 1
17 1lt6 1 < 6
18 16 17 ltneii 1 6
19 vscandx ndx = 6
20 18 19 neeqtrri 1 ndx
21 15 20 eqnetri Base ndx ndx
22 12 21 setsnid Base R = Base R sSet ndx ˙
23 1 22 eqtri V = Base R sSet ndx ˙
24 11 eqcomi R sSet ndx ˙ = L
25 24 fveq2i Base R sSet ndx ˙ = Base L
26 23 25 eqtri V = Base L
27 26 a1i F CRing V = Base L
28 plusgid + 𝑔 = Slot + ndx
29 plusgndx + ndx = 2
30 2re 2
31 2lt6 2 < 6
32 30 31 ltneii 2 6
33 32 19 neeqtrri 2 ndx
34 29 33 eqnetri + ndx ndx
35 28 34 setsnid + R = + R sSet ndx ˙
36 11 fveq2i + L = + R sSet ndx ˙
37 35 2 36 3eqtr4i + ˙ = + L
38 37 a1i F CRing + ˙ = + L
39 scaid Scalar = Slot Scalar ndx
40 scandx Scalar ndx = 5
41 5re 5
42 5lt6 5 < 6
43 41 42 ltneii 5 6
44 43 19 neeqtrri 5 ndx
45 40 44 eqnetri Scalar ndx ndx
46 39 45 setsnid Scalar R = Scalar R sSet ndx ˙
47 11 fveq2i Scalar L = Scalar R sSet ndx ˙
48 46 4 47 3eqtr4i F = Scalar L
49 48 a1i F CRing F = Scalar L
50 9 simp1i R Grp
51 5 fvexi K V
52 1 fvexi V V
53 10 mpoexg K V V V ˙ V
54 51 52 53 mp2an ˙ V
55 vscaid 𝑠 = Slot ndx
56 55 setsid R Grp ˙ V ˙ = R sSet ndx ˙
57 50 54 56 mp2an ˙ = R sSet ndx ˙
58 24 fveq2i R sSet ndx ˙ = L
59 57 58 eqtri ˙ = L
60 59 a1i F CRing ˙ = L
61 5 a1i F CRing K = Base F
62 6 a1i F CRing ˙ = + F
63 7 a1i F CRing × ˙ = F
64 8 a1i F CRing 1 ˙ = 1 F
65 crngring F CRing F Ring
66 1 eqcomi Base R = V
67 66 26 eqtri Base R = Base L
68 35 36 eqtr4i + R = + L
69 67 68 grpprop R Grp L Grp
70 50 69 mpbi L Grp
71 70 a1i F CRing L Grp
72 10 a1i F CRing a K b V ˙ = s K , v V v · ˙ s
73 oveq12 v = b s = a v · ˙ s = b · ˙ a
74 73 ancoms s = a v = b v · ˙ s = b · ˙ a
75 74 adantl F CRing a K b V s = a v = b v · ˙ s = b · ˙ a
76 simp2 F CRing a K b V a K
77 simp3 F CRing a K b V b V
78 ovexd F CRing a K b V b · ˙ a V
79 72 75 76 77 78 ovmpod F CRing a K b V a ˙ b = b · ˙ a
80 simpl1 w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w w · ˙ r V
81 80 2ralimi x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w x V w V w · ˙ r V
82 81 2ralimi q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w q K r K x V w V w · ˙ r V
83 ringgrp F Ring F Grp
84 5 grpbn0 F Grp K
85 83 84 syl F Ring K
86 85 3ad2ant2 R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w K
87 9 86 ax-mp K
88 rspn0 K q K r K x V w V w · ˙ r V r K x V w V w · ˙ r V
89 87 88 ax-mp q K r K x V w V w · ˙ r V r K x V w V w · ˙ r V
90 ralcom r K x V w V w · ˙ r V x V r K w V w · ˙ r V
91 1 grpbn0 R Grp V
92 91 3ad2ant1 R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w V
93 9 92 ax-mp V
94 rspn0 V x V r K w V w · ˙ r V r K w V w · ˙ r V
95 93 94 ax-mp x V r K w V w · ˙ r V r K w V w · ˙ r V
96 oveq2 r = a w · ˙ r = w · ˙ a
97 96 eleq1d r = a w · ˙ r V w · ˙ a V
98 oveq1 w = b w · ˙ a = b · ˙ a
99 98 eleq1d w = b w · ˙ a V b · ˙ a V
100 97 99 rspc2v a K b V r K w V w · ˙ r V b · ˙ a V
101 100 3adant1 F CRing a K b V r K w V w · ˙ r V b · ˙ a V
102 95 101 syl5com x V r K w V w · ˙ r V F CRing a K b V b · ˙ a V
103 90 102 sylbi r K x V w V w · ˙ r V F CRing a K b V b · ˙ a V
104 82 89 103 3syl q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w F CRing a K b V b · ˙ a V
105 104 3ad2ant3 R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w F CRing a K b V b · ˙ a V
106 9 105 ax-mp F CRing a K b V b · ˙ a V
107 79 106 eqeltrd F CRing a K b V a ˙ b V
108 10 a1i a K b V c V ˙ = s K , v V v · ˙ s
109 oveq12 v = b + ˙ c s = a v · ˙ s = b + ˙ c · ˙ a
110 109 ancoms s = a v = b + ˙ c v · ˙ s = b + ˙ c · ˙ a
111 110 adantl a K b V c V s = a v = b + ˙ c v · ˙ s = b + ˙ c · ˙ a
112 simp1 a K b V c V a K
113 1 2 grpcl R Grp b V c V b + ˙ c V
114 50 113 mp3an1 b V c V b + ˙ c V
115 114 3adant1 a K b V c V b + ˙ c V
116 ovexd a K b V c V b + ˙ c · ˙ a V
117 108 111 112 115 116 ovmpod a K b V c V a ˙ b + ˙ c = b + ˙ c · ˙ a
118 simpl2 w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r
119 118 2ralimi x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r
120 119 2ralimi q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w q K r K x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r
121 rspn0 K q K r K x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r r K x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r
122 87 121 ax-mp q K r K x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r r K x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r
123 oveq2 r = a w + ˙ x · ˙ r = w + ˙ x · ˙ a
124 oveq2 r = a x · ˙ r = x · ˙ a
125 96 124 oveq12d r = a w · ˙ r + ˙ x · ˙ r = w · ˙ a + ˙ x · ˙ a
126 123 125 eqeq12d r = a w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w + ˙ x · ˙ a = w · ˙ a + ˙ x · ˙ a
127 oveq2 x = c w + ˙ x = w + ˙ c
128 127 oveq1d x = c w + ˙ x · ˙ a = w + ˙ c · ˙ a
129 oveq1 x = c x · ˙ a = c · ˙ a
130 129 oveq2d x = c w · ˙ a + ˙ x · ˙ a = w · ˙ a + ˙ c · ˙ a
131 128 130 eqeq12d x = c w + ˙ x · ˙ a = w · ˙ a + ˙ x · ˙ a w + ˙ c · ˙ a = w · ˙ a + ˙ c · ˙ a
132 oveq1 w = b w + ˙ c = b + ˙ c
133 132 oveq1d w = b w + ˙ c · ˙ a = b + ˙ c · ˙ a
134 98 oveq1d w = b w · ˙ a + ˙ c · ˙ a = b · ˙ a + ˙ c · ˙ a
135 133 134 eqeq12d w = b w + ˙ c · ˙ a = w · ˙ a + ˙ c · ˙ a b + ˙ c · ˙ a = b · ˙ a + ˙ c · ˙ a
136 126 131 135 rspc3v a K c V b V r K x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r b + ˙ c · ˙ a = b · ˙ a + ˙ c · ˙ a
137 136 3com23 a K b V c V r K x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r b + ˙ c · ˙ a = b · ˙ a + ˙ c · ˙ a
138 122 137 syl5com q K r K x V w V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r a K b V c V b + ˙ c · ˙ a = b · ˙ a + ˙ c · ˙ a
139 120 138 syl q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w a K b V c V b + ˙ c · ˙ a = b · ˙ a + ˙ c · ˙ a
140 139 3ad2ant3 R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w a K b V c V b + ˙ c · ˙ a = b · ˙ a + ˙ c · ˙ a
141 9 140 ax-mp a K b V c V b + ˙ c · ˙ a = b · ˙ a + ˙ c · ˙ a
142 117 141 eqtrd a K b V c V a ˙ b + ˙ c = b · ˙ a + ˙ c · ˙ a
143 142 adantl F CRing a K b V c V a ˙ b + ˙ c = b · ˙ a + ˙ c · ˙ a
144 74 adantl a K b V c V s = a v = b v · ˙ s = b · ˙ a
145 simp2 a K b V c V b V
146 ovexd a K b V c V b · ˙ a V
147 108 144 112 145 146 ovmpod a K b V c V a ˙ b = b · ˙ a
148 oveq12 v = c s = a v · ˙ s = c · ˙ a
149 148 ancoms s = a v = c v · ˙ s = c · ˙ a
150 149 adantl a K b V c V s = a v = c v · ˙ s = c · ˙ a
151 simp3 a K b V c V c V
152 ovexd a K b V c V c · ˙ a V
153 108 150 112 151 152 ovmpod a K b V c V a ˙ c = c · ˙ a
154 147 153 oveq12d a K b V c V a ˙ b + ˙ a ˙ c = b · ˙ a + ˙ c · ˙ a
155 154 adantl F CRing a K b V c V a ˙ b + ˙ a ˙ c = b · ˙ a + ˙ c · ˙ a
156 143 155 eqtr4d F CRing a K b V c V a ˙ b + ˙ c = a ˙ b + ˙ a ˙ c
157 simpl3 w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r
158 157 2ralimi x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w x V w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r
159 158 2ralimi q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w q K r K x V w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r
160 ralrot3 q K r K x V w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r x V q K r K w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r
161 rspn0 V x V q K r K w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r q K r K w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r
162 93 161 ax-mp x V q K r K w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r q K r K w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r
163 oveq1 q = a q ˙ r = a ˙ r
164 163 oveq2d q = a w · ˙ q ˙ r = w · ˙ a ˙ r
165 oveq2 q = a w · ˙ q = w · ˙ a
166 165 oveq1d q = a w · ˙ q + ˙ w · ˙ r = w · ˙ a + ˙ w · ˙ r
167 164 166 eqeq12d q = a w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ a ˙ r = w · ˙ a + ˙ w · ˙ r
168 oveq2 r = b a ˙ r = a ˙ b
169 168 oveq2d r = b w · ˙ a ˙ r = w · ˙ a ˙ b
170 oveq2 r = b w · ˙ r = w · ˙ b
171 170 oveq2d r = b w · ˙ a + ˙ w · ˙ r = w · ˙ a + ˙ w · ˙ b
172 169 171 eqeq12d r = b w · ˙ a ˙ r = w · ˙ a + ˙ w · ˙ r w · ˙ a ˙ b = w · ˙ a + ˙ w · ˙ b
173 oveq1 w = c w · ˙ a ˙ b = c · ˙ a ˙ b
174 oveq1 w = c w · ˙ a = c · ˙ a
175 oveq1 w = c w · ˙ b = c · ˙ b
176 174 175 oveq12d w = c w · ˙ a + ˙ w · ˙ b = c · ˙ a + ˙ c · ˙ b
177 173 176 eqeq12d w = c w · ˙ a ˙ b = w · ˙ a + ˙ w · ˙ b c · ˙ a ˙ b = c · ˙ a + ˙ c · ˙ b
178 167 172 177 rspc3v a K b K c V q K r K w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r c · ˙ a ˙ b = c · ˙ a + ˙ c · ˙ b
179 162 178 syl5com x V q K r K w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r a K b K c V c · ˙ a ˙ b = c · ˙ a + ˙ c · ˙ b
180 160 179 sylbi q K r K x V w V w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r a K b K c V c · ˙ a ˙ b = c · ˙ a + ˙ c · ˙ b
181 159 180 syl q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w a K b K c V c · ˙ a ˙ b = c · ˙ a + ˙ c · ˙ b
182 181 3ad2ant3 R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w a K b K c V c · ˙ a ˙ b = c · ˙ a + ˙ c · ˙ b
183 9 182 ax-mp a K b K c V c · ˙ a ˙ b = c · ˙ a + ˙ c · ˙ b
184 10 a1i a K b K c V ˙ = s K , v V v · ˙ s
185 oveq12 v = c s = a ˙ b v · ˙ s = c · ˙ a ˙ b
186 185 ancoms s = a ˙ b v = c v · ˙ s = c · ˙ a ˙ b
187 186 adantl a K b K c V s = a ˙ b v = c v · ˙ s = c · ˙ a ˙ b
188 5 6 grpcl F Grp a K b K a ˙ b K
189 188 3expib F Grp a K b K a ˙ b K
190 83 189 syl F Ring a K b K a ˙ b K
191 190 3ad2ant2 R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w a K b K a ˙ b K
192 9 191 ax-mp a K b K a ˙ b K
193 192 3adant3 a K b K c V a ˙ b K
194 simp3 a K b K c V c V
195 ovexd a K b K c V c · ˙ a ˙ b V
196 184 187 193 194 195 ovmpod a K b K c V a ˙ b ˙ c = c · ˙ a ˙ b
197 149 adantl a K b K c V s = a v = c v · ˙ s = c · ˙ a
198 simp1 a K b K c V a K
199 ovexd a K b K c V c · ˙ a V
200 184 197 198 194 199 ovmpod a K b K c V a ˙ c = c · ˙ a
201 oveq12 v = c s = b v · ˙ s = c · ˙ b
202 201 ancoms s = b v = c v · ˙ s = c · ˙ b
203 202 adantl a K b K c V s = b v = c v · ˙ s = c · ˙ b
204 simp2 a K b K c V b K
205 ovexd a K b K c V c · ˙ b V
206 184 203 204 194 205 ovmpod a K b K c V b ˙ c = c · ˙ b
207 200 206 oveq12d a K b K c V a ˙ c + ˙ b ˙ c = c · ˙ a + ˙ c · ˙ b
208 183 196 207 3eqtr4d a K b K c V a ˙ b ˙ c = a ˙ c + ˙ b ˙ c
209 208 adantl F CRing a K b K c V a ˙ b ˙ c = a ˙ c + ˙ b ˙ c
210 1 2 3 4 5 6 7 8 9 10 11 rmodislmodlem F CRing a K b K c V a × ˙ b ˙ c = a ˙ b ˙ c
211 10 a1i F CRing a V ˙ = s K , v V v · ˙ s
212 oveq12 v = a s = 1 ˙ v · ˙ s = a · ˙ 1 ˙
213 212 ancoms s = 1 ˙ v = a v · ˙ s = a · ˙ 1 ˙
214 213 adantl F CRing a V s = 1 ˙ v = a v · ˙ s = a · ˙ 1 ˙
215 5 8 ringidcl F Ring 1 ˙ K
216 65 215 syl F CRing 1 ˙ K
217 216 adantr F CRing a V 1 ˙ K
218 simpr F CRing a V a V
219 ovexd F CRing a V a · ˙ 1 ˙ V
220 211 214 217 218 219 ovmpod F CRing a V 1 ˙ ˙ a = a · ˙ 1 ˙
221 simprr w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w w · ˙ 1 ˙ = w
222 221 2ralimi x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w x V w V w · ˙ 1 ˙ = w
223 222 2ralimi q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w q K r K x V w V w · ˙ 1 ˙ = w
224 rspn0 K q K r K x V w V w · ˙ 1 ˙ = w r K x V w V w · ˙ 1 ˙ = w
225 87 224 ax-mp q K r K x V w V w · ˙ 1 ˙ = w r K x V w V w · ˙ 1 ˙ = w
226 rspn0 K r K x V w V w · ˙ 1 ˙ = w x V w V w · ˙ 1 ˙ = w
227 87 226 ax-mp r K x V w V w · ˙ 1 ˙ = w x V w V w · ˙ 1 ˙ = w
228 rspn0 V x V w V w · ˙ 1 ˙ = w w V w · ˙ 1 ˙ = w
229 93 228 ax-mp x V w V w · ˙ 1 ˙ = w w V w · ˙ 1 ˙ = w
230 oveq1 w = a w · ˙ 1 ˙ = a · ˙ 1 ˙
231 id w = a w = a
232 230 231 eqeq12d w = a w · ˙ 1 ˙ = w a · ˙ 1 ˙ = a
233 232 rspcv a V w V w · ˙ 1 ˙ = w a · ˙ 1 ˙ = a
234 233 adantl F CRing a V w V w · ˙ 1 ˙ = w a · ˙ 1 ˙ = a
235 229 234 syl5com x V w V w · ˙ 1 ˙ = w F CRing a V a · ˙ 1 ˙ = a
236 227 235 syl r K x V w V w · ˙ 1 ˙ = w F CRing a V a · ˙ 1 ˙ = a
237 223 225 236 3syl q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w F CRing a V a · ˙ 1 ˙ = a
238 237 3ad2ant3 R Grp F Ring q K r K x V w V w · ˙ r V w + ˙ x · ˙ r = w · ˙ r + ˙ x · ˙ r w · ˙ q ˙ r = w · ˙ q + ˙ w · ˙ r w · ˙ q × ˙ r = w · ˙ q · ˙ r w · ˙ 1 ˙ = w F CRing a V a · ˙ 1 ˙ = a
239 9 238 ax-mp F CRing a V a · ˙ 1 ˙ = a
240 220 239 eqtrd F CRing a V 1 ˙ ˙ a = a
241 27 38 49 60 61 62 63 64 65 71 107 156 209 210 240 islmodd F CRing L LMod