Metamath Proof Explorer


Theorem fldextrspunlsplem

Description: Lemma for fldextrspunlsp : First direction. Part of the proof of Proposition 5, Chapter 5, of BourbakiAlg2 p. 116. (Contributed by Thierry Arnoux, 13-Oct-2025)

Ref Expression
Hypotheses fldextrspunfld.k K = L 𝑠 F
fldextrspunfld.i I = L 𝑠 G
fldextrspunfld.j J = L 𝑠 H
fldextrspunfld.2 φ L Field
fldextrspunfld.3 φ F SubDRing I
fldextrspunfld.4 φ F SubDRing J
fldextrspunfld.5 φ G SubDRing L
fldextrspunfld.6 φ H SubDRing L
fldextrspunlsp.n N = RingSpan L
fldextrspunlsp.c C = N G H
fldextrspunlsp.e E = L 𝑠 C
fldextrspunlsp.1 φ B LBasis subringAlg J F
fldextrspunlsp.2 φ B Fin
fldextrspunlsplem.2 φ P : H G
fldextrspunlsplem.3 φ finSupp 0 L P
fldextrspunlsplem.4 φ X = L f H P f L f
Assertion fldextrspunlsplem φ a G B finSupp 0 L a X = L b B a b L b

Proof

Step Hyp Ref Expression
1 fldextrspunfld.k K = L 𝑠 F
2 fldextrspunfld.i I = L 𝑠 G
3 fldextrspunfld.j J = L 𝑠 H
4 fldextrspunfld.2 φ L Field
5 fldextrspunfld.3 φ F SubDRing I
6 fldextrspunfld.4 φ F SubDRing J
7 fldextrspunfld.5 φ G SubDRing L
8 fldextrspunfld.6 φ H SubDRing L
9 fldextrspunlsp.n N = RingSpan L
10 fldextrspunlsp.c C = N G H
11 fldextrspunlsp.e E = L 𝑠 C
12 fldextrspunlsp.1 φ B LBasis subringAlg J F
13 fldextrspunlsp.2 φ B Fin
14 fldextrspunlsplem.2 φ P : H G
15 fldextrspunlsplem.3 φ finSupp 0 L P
16 fldextrspunlsplem.4 φ X = L f H P f L f
17 7 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b G SubDRing L
18 12 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b B LBasis subringAlg J F
19 eqid 0 L = 0 L
20 4 flddrngd φ L DivRing
21 20 drngringd φ L Ring
22 21 ringcmnd φ L CMnd
23 22 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B L CMnd
24 8 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B H SubDRing L
25 sdrgsubrg G SubDRing L G SubRing L
26 7 25 syl φ G SubRing L
27 subrgsubg G SubRing L G SubGrp L
28 subgsubm G SubGrp L G SubMnd L
29 26 27 28 3syl φ G SubMnd L
30 29 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B G SubMnd L
31 eqid L = L
32 26 ad3antrrr φ u F B H c B f H G SubRing L
33 14 ad3antrrr φ u F B H c B f H P : H G
34 simpr φ u F B H c B f H f H
35 33 34 ffvelcdmd φ u F B H c B f H P f G
36 eqid Base I = Base I
37 36 sdrgss F SubDRing I F Base I
38 5 37 syl φ F Base I
39 eqid Base L = Base L
40 39 sdrgss G SubDRing L G Base L
41 7 40 syl φ G Base L
42 2 39 ressbas2 G Base L G = Base I
43 41 42 syl φ G = Base I
44 38 43 sseqtrrd φ F G
45 44 ad3antrrr φ u F B H c B f H F G
46 simpllr φ u F B H c B f H u F B H
47 46 elmaprd φ u F B H c B f H u : H F B
48 47 34 ffvelcdmd φ u F B H c B f H u f F B
49 48 elmaprd φ u F B H c B f H u f : B F
50 simplr φ u F B H c B f H c B
51 49 50 ffvelcdmd φ u F B H c B f H u f c F
52 45 51 sseldd φ u F B H c B f H u f c G
53 31 32 35 52 subrgmcld φ u F B H c B f H P f L u f c G
54 53 fmpttd φ u F B H c B f H P f L u f c : H G
55 54 adantlr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B f H P f L u f c : H G
56 fveq2 f = h P f = P h
57 fveq2 f = h u f = u h
58 57 fveq1d f = h u f c = u h c
59 56 58 oveq12d f = h P f L u f c = P h L u h c
60 59 cbvmptv f H P f L u f c = h H P h L u h c
61 fvexd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B 0 L V
62 ssidd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B H H
63 eqid Base J = Base J
64 63 sdrgss F SubDRing J F Base J
65 6 64 syl φ F Base J
66 39 sdrgss H SubDRing L H Base L
67 8 66 syl φ H Base L
68 3 39 ressbas2 H Base L H = Base J
69 67 68 syl φ H = Base J
70 65 69 sseqtrrd φ F H
71 70 67 sstrd φ F Base L
72 71 ad4antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H F Base L
73 simpllr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B u F B H
74 73 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B u : H F B
75 74 ffvelcdmda φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H u h F B
76 75 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H u h : B F
77 simplr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H c B
78 76 77 ffvelcdmd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H u h c F
79 72 78 sseldd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H u h c Base L
80 14 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B P : H G
81 15 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B finSupp 0 L P
82 21 ad4antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B y Base L L Ring
83 simpr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B y Base L y Base L
84 39 31 19 82 83 ringlzd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B y Base L 0 L L y = 0 L
85 61 61 24 62 79 80 81 84 fisuppov1 φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B finSupp 0 L h H P h L u h c
86 60 85 eqbrtrid φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B finSupp 0 L f H P f L u f c
87 19 23 24 30 55 86 gsumsubmcl φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B L f H P f L u f c G
88 87 fmpttd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B L f H P f L u f c : B G
89 17 18 88 elmapdd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B L f H P f L u f c G B
90 breq1 a = c B L f H P f L u f c finSupp 0 L a finSupp 0 L c B L f H P f L u f c
91 90 adantl φ u F B H a = c B L f H P f L u f c finSupp 0 L a finSupp 0 L c B L f H P f L u f c
92 simplr φ u F B H a = c B L f H P f L u f c b B a = c B L f H P f L u f c
93 92 fveq1d φ u F B H a = c B L f H P f L u f c b B a b = c B L f H P f L u f c b
94 eqid c B L f H P f L u f c = c B L f H P f L u f c
95 fveq2 c = b u f c = u f b
96 95 oveq2d c = b P f L u f c = P f L u f b
97 96 mpteq2dv c = b f H P f L u f c = f H P f L u f b
98 97 oveq2d c = b L f H P f L u f c = L f H P f L u f b
99 simpr φ u F B H b B b B
100 ovexd φ u F B H b B L f H P f L u f b V
101 94 98 99 100 fvmptd3 φ u F B H b B c B L f H P f L u f c b = L f H P f L u f b
102 101 adantlr φ u F B H a = c B L f H P f L u f c b B c B L f H P f L u f c b = L f H P f L u f b
103 93 102 eqtrd φ u F B H a = c B L f H P f L u f c b B a b = L f H P f L u f b
104 103 oveq1d φ u F B H a = c B L f H P f L u f c b B a b L b = L f H P f L u f b L b
105 104 mpteq2dva φ u F B H a = c B L f H P f L u f c b B a b L b = b B L f H P f L u f b L b
106 105 oveq2d φ u F B H a = c B L f H P f L u f c L b B a b L b = L b B L f H P f L u f b L b
107 106 eqeq2d φ u F B H a = c B L f H P f L u f c X = L b B a b L b X = L b B L f H P f L u f b L b
108 91 107 anbi12d φ u F B H a = c B L f H P f L u f c finSupp 0 L a X = L b B a b L b finSupp 0 L c B L f H P f L u f c X = L b B L f H P f L u f b L b
109 108 adantlr φ u F B H f H finSupp 0 L u f f = L b B u f b L b a = c B L f H P f L u f c finSupp 0 L a X = L b B a b L b finSupp 0 L c B L f H P f L u f c X = L b B L f H P f L u f b L b
110 13 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b B Fin
111 ovexd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B L f H P f L u f c V
112 fvexd φ u F B H f H finSupp 0 L u f f = L b B u f b L b 0 L V
113 94 110 111 112 fsuppmptdm φ u F B H f H finSupp 0 L u f f = L b B u f b L b finSupp 0 L c B L f H P f L u f c
114 16 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b X = L f H P f L f
115 21 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b L Ring
116 115 adantr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H L Ring
117 12 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H B LBasis subringAlg J F
118 41 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H G Base L
119 14 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b P : H G
120 119 ffvelcdmda φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H P h G
121 118 120 sseldd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H P h Base L
122 116 adantr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B L Ring
123 71 ad4antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B F Base L
124 simp-4r φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B u F B H
125 124 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B u : H F B
126 simplr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B h H
127 125 126 ffvelcdmd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B u h F B
128 127 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B u h : B F
129 simpr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B c B
130 128 129 ffvelcdmd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B u h c F
131 123 130 sseldd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B u h c Base L
132 eqid Base subringAlg J F = Base subringAlg J F
133 eqid LBasis subringAlg J F = LBasis subringAlg J F
134 132 133 lbsss B LBasis subringAlg J F B Base subringAlg J F
135 12 134 syl φ B Base subringAlg J F
136 eqidd φ subringAlg J F = subringAlg J F
137 136 65 srabase φ Base J = Base subringAlg J F
138 69 137 eqtr2d φ Base subringAlg J F = H
139 135 138 sseqtrd φ B H
140 139 67 sstrd φ B Base L
141 140 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H B Base L
142 141 sselda φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B c Base L
143 39 31 122 131 142 ringcld φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B u h c L c Base L
144 fvexd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H 0 L V
145 ssidd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H B B
146 simplr φ u F B H f H finSupp 0 L u f f = L b B u f b L b u F B H
147 146 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b u : H F B
148 147 ffvelcdmda φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H u h F B
149 148 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H u h : B F
150 57 breq1d f = h finSupp 0 L u f finSupp 0 L u h
151 id f = h f = h
152 57 fveq1d f = h u f b = u h b
153 152 oveq1d f = h u f b L b = u h b L b
154 153 mpteq2dv f = h b B u f b L b = b B u h b L b
155 154 oveq2d f = h L b B u f b L b = L b B u h b L b
156 151 155 eqeq12d f = h f = L b B u f b L b h = L b B u h b L b
157 150 156 anbi12d f = h finSupp 0 L u f f = L b B u f b L b finSupp 0 L u h h = L b B u h b L b
158 simplr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H f H finSupp 0 L u f f = L b B u f b L b
159 simpr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H h H
160 157 158 159 rspcdva φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H finSupp 0 L u h h = L b B u h b L b
161 160 simpld φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H finSupp 0 L u h
162 116 adantr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H y Base L L Ring
163 simpr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H y Base L y Base L
164 39 31 19 162 163 ringlzd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H y Base L 0 L L y = 0 L
165 144 144 117 145 142 149 161 164 fisuppov1 φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H finSupp 0 L c B u h c L c
166 39 19 31 116 117 121 143 165 gsummulc2 φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H L c B P h L u h c L c = P h L L c B u h c L c
167 121 adantr φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B P h Base L
168 39 31 122 167 131 142 ringassd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B P h L u h c L c = P h L u h c L c
169 168 mpteq2dva φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H c B P h L u h c L c = c B P h L u h c L c
170 169 oveq2d φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H L c B P h L u h c L c = L c B P h L u h c L c
171 160 simprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H h = L b B u h b L b
172 fveq2 b = c u h b = u h c
173 id b = c b = c
174 172 173 oveq12d b = c u h b L b = u h c L c
175 174 cbvmptv b B u h b L b = c B u h c L c
176 175 oveq2i L b B u h b L b = L c B u h c L c
177 171 176 eqtrdi φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H h = L c B u h c L c
178 177 oveq2d φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H P h L h = P h L L c B u h c L c
179 166 170 178 3eqtr4rd φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H P h L h = L c B P h L u h c L c
180 179 mpteq2dva φ u F B H f H finSupp 0 L u f f = L b B u f b L b h H P h L h = h H L c B P h L u h c L c
181 180 oveq2d φ u F B H f H finSupp 0 L u f f = L b B u f b L b L h H P h L h = L h H L c B P h L u h c L c
182 56 151 oveq12d f = h P f L f = P h L h
183 182 cbvmptv f H P f L f = h H P h L h
184 183 oveq2i L f H P f L f = L h H P h L h
185 184 a1i φ u F B H f H finSupp 0 L u f f = L b B u f b L b L f H P f L f = L h H P h L h
186 22 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b L CMnd
187 8 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b H SubDRing L
188 21 ad4antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H L Ring
189 41 ad4antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H G Base L
190 80 ffvelcdmda φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H P h G
191 189 190 sseldd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H P h Base L
192 39 31 188 191 79 ringcld φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H P h L u h c Base L
193 140 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b B Base L
194 193 sselda φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B c Base L
195 194 adantr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H c Base L
196 39 31 188 192 195 ringcld φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H P h L u h c L c Base L
197 196 anasss φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H P h L u h c L c Base L
198 15 fsuppimpd φ P supp 0 L Fin
199 198 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b P supp 0 L Fin
200 suppssdm P supp 0 L dom P
201 200 14 fssdm φ P supp 0 L H
202 201 sseld φ f supp 0 L P f H
203 202 adantr φ u F B H f supp 0 L P f H
204 simpr φ u F B H finSupp 0 L u f finSupp 0 L u f
205 204 fsuppimpd φ u F B H finSupp 0 L u f u f supp 0 L Fin
206 205 ex φ u F B H finSupp 0 L u f u f supp 0 L Fin
207 206 adantrd φ u F B H finSupp 0 L u f f = L b B u f b L b u f supp 0 L Fin
208 203 207 imim12d φ u F B H f H finSupp 0 L u f f = L b B u f b L b f supp 0 L P u f supp 0 L Fin
209 208 ralimdv2 φ u F B H f H finSupp 0 L u f f = L b B u f b L b f supp 0 L P u f supp 0 L Fin
210 209 imp φ u F B H f H finSupp 0 L u f f = L b B u f b L b f supp 0 L P u f supp 0 L Fin
211 fveq2 f = i u f = u i
212 211 oveq1d f = i u f supp 0 L = u i supp 0 L
213 212 eleq1d f = i u f supp 0 L Fin u i supp 0 L Fin
214 213 cbvralvw f supp 0 L P u f supp 0 L Fin i supp 0 L P u i supp 0 L Fin
215 210 214 sylib φ u F B H f H finSupp 0 L u f f = L b B u f b L b i supp 0 L P u i supp 0 L Fin
216 iunfi P supp 0 L Fin i supp 0 L P u i supp 0 L Fin i P supp 0 L supp 0 L u i Fin
217 199 215 216 syl2anc φ u F B H f H finSupp 0 L u f f = L b B u f b L b i P supp 0 L supp 0 L u i Fin
218 xpfi i P supp 0 L supp 0 L u i Fin P supp 0 L Fin i P supp 0 L supp 0 L u i × supp 0 L P Fin
219 217 199 218 syl2anc φ u F B H f H finSupp 0 L u f f = L b B u f b L b i P supp 0 L supp 0 L u i × supp 0 L P Fin
220 snssi i supp 0 L P i P supp 0 L
221 220 adantl φ i supp 0 L P i P supp 0 L
222 221 iunxpssiun1 φ i P supp 0 L supp 0 L u i × i i P supp 0 L supp 0 L u i × supp 0 L P
223 222 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b i P supp 0 L supp 0 L u i × i i P supp 0 L supp 0 L u i × supp 0 L P
224 219 223 ssfid φ u F B H f H finSupp 0 L u f f = L b B u f b L b i P supp 0 L supp 0 L u i × i Fin
225 14 ffnd φ P Fn H
226 225 ad6antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P P Fn H
227 8 ad6antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P H SubDRing L
228 fvexd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P 0 L V
229 simpllr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P h H
230 simpr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P ¬ h supp 0 L P
231 229 230 eldifd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P h H supp 0 L P
232 226 227 228 231 fvdifsupp φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P P h = 0 L
233 232 oveq1d φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P P h L u h c = 0 L L u h c
234 21 ad6antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P L Ring
235 71 ad6antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P F Base L
236 simp-6r φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P u F B H
237 236 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P u : H F B
238 237 229 ffvelcdmd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P u h F B
239 238 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P u h : B F
240 simp-4r φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P c B
241 239 240 ffvelcdmd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P u h c F
242 235 241 sseldd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P u h c Base L
243 39 31 19 234 242 ringlzd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P 0 L L u h c = 0 L
244 233 243 eqtrd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P P h L u h c = 0 L
245 simp-6r φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h u F B H
246 245 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h u : H F B
247 simpllr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h h H
248 246 247 ffvelcdmd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h u h F B
249 248 elmaprd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h u h : B F
250 249 ffnd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h u h Fn B
251 12 ad6antr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h B LBasis subringAlg J F
252 fvexd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h 0 L V
253 simp-4r φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h c B
254 simpr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h ¬ c supp 0 L u h
255 253 254 eldifd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h c B supp 0 L u h
256 250 251 252 255 fvdifsupp φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h u h c = 0 L
257 256 oveq2d φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h P h L u h c = P h L 0 L
258 188 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h L Ring
259 191 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h P h Base L
260 39 31 19 258 259 ringrzd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h P h L 0 L = 0 L
261 257 260 eqtrd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ c supp 0 L u h P h L u h c = 0 L
262 df-br c i P supp 0 L supp 0 L u i × i h c h i P supp 0 L supp 0 L u i × i
263 fveq2 h = i u h = u i
264 263 oveq1d h = i u h supp 0 L = u i supp 0 L
265 sneq h = i h = i
266 264 265 xpeq12d h = i supp 0 L u h × h = supp 0 L u i × i
267 266 cbviunv h P supp 0 L supp 0 L u h × h = i P supp 0 L supp 0 L u i × i
268 267 eleq2i c h h P supp 0 L supp 0 L u h × h c h i P supp 0 L supp 0 L u i × i
269 opeliun2xp c h h P supp 0 L supp 0 L u h × h h supp 0 L P c supp 0 L u h
270 262 268 269 3bitr2i c i P supp 0 L supp 0 L u i × i h h supp 0 L P c supp 0 L u h
271 270 notbii ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P c supp 0 L u h
272 ianor ¬ h supp 0 L P c supp 0 L u h ¬ h supp 0 L P ¬ c supp 0 L u h
273 271 272 sylbb ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P ¬ c supp 0 L u h
274 273 adantl φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h ¬ h supp 0 L P ¬ c supp 0 L u h
275 244 261 274 mpjaodan φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h P h L u h c = 0 L
276 275 oveq1d φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h P h L u h c L c = 0 L L c
277 115 ad3antrrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h L Ring
278 194 ad2antrr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h c Base L
279 39 31 19 277 278 ringlzd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h 0 L L c = 0 L
280 276 279 eqtrd φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h P h L u h c L c = 0 L
281 280 an42ds φ u F B H f H finSupp 0 L u f f = L b B u f b L b ¬ c i P supp 0 L supp 0 L u i × i h h H c B P h L u h c L c = 0 L
282 281 an32s φ u F B H f H finSupp 0 L u f f = L b B u f b L b ¬ c i P supp 0 L supp 0 L u i × i h c B h H P h L u h c L c = 0 L
283 282 anasss φ u F B H f H finSupp 0 L u f f = L b B u f b L b ¬ c i P supp 0 L supp 0 L u i × i h c B h H P h L u h c L c = 0 L
284 283 an32s φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h P h L u h c L c = 0 L
285 284 anasss φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B h H ¬ c i P supp 0 L supp 0 L u i × i h P h L u h c L c = 0 L
286 39 19 186 18 187 197 224 285 gsumcom3 φ u F B H f H finSupp 0 L u f f = L b B u f b L b L c B L h H P h L u h c L c = L h H L c B P h L u h c L c
287 181 185 286 3eqtr4d φ u F B H f H finSupp 0 L u f f = L b B u f b L b L f H P f L f = L c B L h H P h L u h c L c
288 115 adantr φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B L Ring
289 39 19 31 288 24 194 192 85 gsummulc1 φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B L h H P h L u h c L c = L h H P h L u h c L c
290 289 mpteq2dva φ u F B H f H finSupp 0 L u f f = L b B u f b L b c B L h H P h L u h c L c = c B L h H P h L u h c L c
291 290 oveq2d φ u F B H f H finSupp 0 L u f f = L b B u f b L b L c B L h H P h L u h c L c = L c B L h H P h L u h c L c
292 114 287 291 3eqtrd φ u F B H f H finSupp 0 L u f f = L b B u f b L b X = L c B L h H P h L u h c L c
293 56 152 oveq12d f = h P f L u f b = P h L u h b
294 293 cbvmptv f H P f L u f b = h H P h L u h b
295 172 oveq2d b = c P h L u h b = P h L u h c
296 295 mpteq2dv b = c h H P h L u h b = h H P h L u h c
297 294 296 eqtrid b = c f H P f L u f b = h H P h L u h c
298 297 oveq2d b = c L f H P f L u f b = L h H P h L u h c
299 298 173 oveq12d b = c L f H P f L u f b L b = L h H P h L u h c L c
300 299 cbvmptv b B L f H P f L u f b L b = c B L h H P h L u h c L c
301 300 oveq2i L b B L f H P f L u f b L b = L c B L h H P h L u h c L c
302 292 301 eqtr4di φ u F B H f H finSupp 0 L u f f = L b B u f b L b X = L b B L f H P f L u f b L b
303 113 302 jca φ u F B H f H finSupp 0 L u f f = L b B u f b L b finSupp 0 L c B L f H P f L u f c X = L b B L f H P f L u f b L b
304 89 109 303 rspcedvd φ u F B H f H finSupp 0 L u f f = L b B u f b L b a G B finSupp 0 L a X = L b B a b L b
305 breq1 e = u f finSupp 0 L e finSupp 0 L u f
306 fveq1 e = u f e b = u f b
307 306 oveq1d e = u f e b L b = u f b L b
308 307 mpteq2dv e = u f b B e b L b = b B u f b L b
309 308 oveq2d e = u f L b B e b L b = L b B u f b L b
310 309 eqeq2d e = u f f = L b B e b L b f = L b B u f b L b
311 305 310 anbi12d e = u f finSupp 0 L e f = L b B e b L b finSupp 0 L u f f = L b B u f b L b
312 ovexd φ F B V
313 eqid LSpan subringAlg J F = LSpan subringAlg J F
314 132 133 313 lbssp B LBasis subringAlg J F LSpan subringAlg J F B = Base subringAlg J F
315 12 314 syl φ LSpan subringAlg J F B = Base subringAlg J F
316 137 69 315 3eqtr4rd φ LSpan subringAlg J F B = H
317 316 eleq2d φ f LSpan subringAlg J F B f H
318 eqid Base Scalar subringAlg J F = Base Scalar subringAlg J F
319 eqid Scalar subringAlg J F = Scalar subringAlg J F
320 eqid 0 Scalar subringAlg J F = 0 Scalar subringAlg J F
321 eqid subringAlg J F = subringAlg J F
322 sdrgsubrg F SubDRing J F SubRing J
323 6 322 syl φ F SubRing J
324 eqid subringAlg J F = subringAlg J F
325 324 sralmod F SubRing J subringAlg J F LMod
326 323 325 syl φ subringAlg J F LMod
327 313 132 318 319 320 321 326 135 ellspds φ f LSpan subringAlg J F B e Base Scalar subringAlg J F B finSupp 0 Scalar subringAlg J F e f = subringAlg J F b B e b subringAlg J F b
328 317 327 bitr3d φ f H e Base Scalar subringAlg J F B finSupp 0 Scalar subringAlg J F e f = subringAlg J F b B e b subringAlg J F b
329 328 biimpa φ f H e Base Scalar subringAlg J F B finSupp 0 Scalar subringAlg J F e f = subringAlg J F b B e b subringAlg J F b
330 eqid J 𝑠 F = J 𝑠 F
331 330 63 ressbas2 F Base J F = Base J 𝑠 F
332 65 331 syl φ F = Base J 𝑠 F
333 136 65 srasca φ J 𝑠 F = Scalar subringAlg J F
334 333 fveq2d φ Base J 𝑠 F = Base Scalar subringAlg J F
335 332 334 eqtr2d φ Base Scalar subringAlg J F = F
336 335 oveq1d φ Base Scalar subringAlg J F B = F B
337 sdrgsubrg H SubDRing L H SubRing L
338 8 337 syl φ H SubRing L
339 subrgsubg H SubRing L H SubGrp L
340 3 19 subg0 H SubGrp L 0 L = 0 J
341 338 339 340 3syl φ 0 L = 0 J
342 3 sdrgdrng H SubDRing L J DivRing
343 8 342 syl φ J DivRing
344 343 drngringd φ J Ring
345 344 ringcmnd φ J CMnd
346 345 cmnmndd φ J Mnd
347 subrgsubg F SubRing J F SubGrp J
348 eqid 0 J = 0 J
349 348 subg0cl F SubGrp J 0 J F
350 323 347 349 3syl φ 0 J F
351 330 63 348 ress0g J Mnd 0 J F F Base J 0 J = 0 J 𝑠 F
352 346 350 65 351 syl3anc φ 0 J = 0 J 𝑠 F
353 333 fveq2d φ 0 J 𝑠 F = 0 Scalar subringAlg J F
354 341 352 353 3eqtrrd φ 0 Scalar subringAlg J F = 0 L
355 354 breq2d φ finSupp 0 Scalar subringAlg J F e finSupp 0 L e
356 355 adantr φ e Base Scalar subringAlg J F B finSupp 0 Scalar subringAlg J F e finSupp 0 L e
357 12 adantr φ e Base Scalar subringAlg J F B B LBasis subringAlg J F
358 subgsubm H SubGrp L H SubMnd L
359 338 339 358 3syl φ H SubMnd L
360 359 adantr φ e Base Scalar subringAlg J F B H SubMnd L
361 3 31 ressmulr H SubDRing L L = J
362 8 361 syl φ L = J
363 136 65 sravsca φ J = subringAlg J F
364 362 363 eqtrd φ L = subringAlg J F
365 364 ad2antrr φ e Base Scalar subringAlg J F B b B L = subringAlg J F
366 365 oveqd φ e Base Scalar subringAlg J F B b B e b L b = e b subringAlg J F b
367 338 ad2antrr φ e Base Scalar subringAlg J F B b B H SubRing L
368 70 ad2antrr φ e Base Scalar subringAlg J F B b B F H
369 336 eleq2d φ e Base Scalar subringAlg J F B e F B
370 369 biimpa φ e Base Scalar subringAlg J F B e F B
371 370 elmaprd φ e Base Scalar subringAlg J F B e : B F
372 371 ffvelcdmda φ e Base Scalar subringAlg J F B b B e b F
373 368 372 sseldd φ e Base Scalar subringAlg J F B b B e b H
374 139 adantr φ e Base Scalar subringAlg J F B B H
375 374 sselda φ e Base Scalar subringAlg J F B b B b H
376 31 367 373 375 subrgmcld φ e Base Scalar subringAlg J F B b B e b L b H
377 366 376 eqeltrrd φ e Base Scalar subringAlg J F B b B e b subringAlg J F b H
378 377 fmpttd φ e Base Scalar subringAlg J F B b B e b subringAlg J F b : B H
379 357 360 378 3 gsumsubm φ e Base Scalar subringAlg J F B L b B e b subringAlg J F b = J b B e b subringAlg J F b
380 362 363 eqtr2d φ subringAlg J F = L
381 380 adantr φ e Base Scalar subringAlg J F B subringAlg J F = L
382 381 oveqd φ e Base Scalar subringAlg J F B e b subringAlg J F b = e b L b
383 382 mpteq2dv φ e Base Scalar subringAlg J F B b B e b subringAlg J F b = b B e b L b
384 383 oveq2d φ e Base Scalar subringAlg J F B L b B e b subringAlg J F b = L b B e b L b
385 12 mptexd φ b B e b subringAlg J F b V
386 fvexd φ subringAlg J F V
387 324 385 343 386 65 gsumsra φ J b B e b subringAlg J F b = subringAlg J F b B e b subringAlg J F b
388 387 adantr φ e Base Scalar subringAlg J F B J b B e b subringAlg J F b = subringAlg J F b B e b subringAlg J F b
389 379 384 388 3eqtr3rd φ e Base Scalar subringAlg J F B subringAlg J F b B e b subringAlg J F b = L b B e b L b
390 389 eqeq2d φ e Base Scalar subringAlg J F B f = subringAlg J F b B e b subringAlg J F b f = L b B e b L b
391 356 390 anbi12d φ e Base Scalar subringAlg J F B finSupp 0 Scalar subringAlg J F e f = subringAlg J F b B e b subringAlg J F b finSupp 0 L e f = L b B e b L b
392 336 391 rexeqbidva φ e Base Scalar subringAlg J F B finSupp 0 Scalar subringAlg J F e f = subringAlg J F b B e b subringAlg J F b e F B finSupp 0 L e f = L b B e b L b
393 392 adantr φ f H e Base Scalar subringAlg J F B finSupp 0 Scalar subringAlg J F e f = subringAlg J F b B e b subringAlg J F b e F B finSupp 0 L e f = L b B e b L b
394 329 393 mpbid φ f H e F B finSupp 0 L e f = L b B e b L b
395 311 8 312 394 ac6mapd φ u F B H f H finSupp 0 L u f f = L b B u f b L b
396 304 395 r19.29a φ a G B finSupp 0 L a X = L b B a b L b