Metamath Proof Explorer


Theorem fldextrspunlsp

Description: Lemma for fldextrspunfld . The subring generated by the union of two field extensions G and H is the vector sub- G space generated by a basis B of H . 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
Assertion fldextrspunlsp φ C = LSpan subringAlg L G 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 10 a1i φ C = N G H
15 14 eleq2d φ x C x N G H
16 eqid Base L = Base L
17 eqid L = L
18 eqid 0 L = 0 L
19 4 fldcrngd φ L CRing
20 sdrgsubrg G SubDRing L G SubRing L
21 7 20 syl φ G SubRing L
22 sdrgsubrg H SubDRing L H SubRing L
23 8 22 syl φ H SubRing L
24 16 17 18 9 19 21 23 elrgspnsubrun φ x N G H p G H finSupp 0 L p x = L f H p f L f
25 16 subrgss G SubRing L G Base L
26 21 25 syl φ G Base L
27 eqid L 𝑠 G = L 𝑠 G
28 27 16 ressbas2 G Base L G = Base L 𝑠 G
29 26 28 syl φ G = Base L 𝑠 G
30 eqidd φ subringAlg L G = subringAlg L G
31 30 26 srasca φ L 𝑠 G = Scalar subringAlg L G
32 31 fveq2d φ Base L 𝑠 G = Base Scalar subringAlg L G
33 29 32 eqtr2d φ Base Scalar subringAlg L G = G
34 33 oveq1d φ Base Scalar subringAlg L G B = G B
35 19 crngringd φ L Ring
36 35 ringcmnd φ L CMnd
37 36 cmnmndd φ L Mnd
38 subrgsubg G SubRing L G SubGrp L
39 21 38 syl φ G SubGrp L
40 18 subg0cl G SubGrp L 0 L G
41 39 40 syl φ 0 L G
42 27 16 18 ress0g L Mnd 0 L G G Base L 0 L = 0 L 𝑠 G
43 37 41 26 42 syl3anc φ 0 L = 0 L 𝑠 G
44 31 fveq2d φ 0 L 𝑠 G = 0 Scalar subringAlg L G
45 43 44 eqtr2d φ 0 Scalar subringAlg L G = 0 L
46 45 breq2d φ finSupp 0 Scalar subringAlg L G a finSupp 0 L a
47 eqid subringAlg L G = subringAlg L G
48 12 mptexd φ v B a v L v V
49 47 sralmod G SubRing L subringAlg L G LMod
50 21 49 syl φ subringAlg L G LMod
51 47 48 4 50 26 gsumsra φ L v B a v L v = subringAlg L G v B a v L v
52 30 26 sravsca φ L = subringAlg L G
53 52 oveqd φ a v L v = a v subringAlg L G v
54 53 mpteq2dv φ v B a v L v = v B a v subringAlg L G v
55 54 oveq2d φ subringAlg L G v B a v L v = subringAlg L G v B a v subringAlg L G v
56 51 55 eqtr2d φ subringAlg L G v B a v subringAlg L G v = L v B a v L v
57 56 eqeq2d φ x = subringAlg L G v B a v subringAlg L G v x = L v B a v L v
58 46 57 anbi12d φ finSupp 0 Scalar subringAlg L G a x = subringAlg L G v B a v subringAlg L G v finSupp 0 L a x = L v B a v L v
59 34 58 rexeqbidv φ a Base Scalar subringAlg L G B finSupp 0 Scalar subringAlg L G a x = subringAlg L G v B a v subringAlg L G v a G B finSupp 0 L a x = L v B a v L v
60 eqid LSpan subringAlg L G = LSpan subringAlg L G
61 eqid Base subringAlg L G = Base subringAlg L G
62 eqid Base Scalar subringAlg L G = Base Scalar subringAlg L G
63 eqid Scalar subringAlg L G = Scalar subringAlg L G
64 eqid 0 Scalar subringAlg L G = 0 Scalar subringAlg L G
65 eqid subringAlg L G = subringAlg L G
66 eqid Base subringAlg J F = Base subringAlg J F
67 eqid LBasis subringAlg J F = LBasis subringAlg J F
68 66 67 lbsss B LBasis subringAlg J F B Base subringAlg J F
69 12 68 syl φ B Base subringAlg J F
70 16 subrgss H SubRing L H Base L
71 23 70 syl φ H Base L
72 3 16 ressbas2 H Base L H = Base J
73 71 72 syl φ H = Base J
74 eqidd φ subringAlg J F = subringAlg J F
75 eqid Base J = Base J
76 75 sdrgss F SubDRing J F Base J
77 6 76 syl φ F Base J
78 74 77 srabase φ Base J = Base subringAlg J F
79 73 78 eqtrd φ H = Base subringAlg J F
80 69 79 sseqtrrd φ B H
81 80 71 sstrd φ B Base L
82 30 26 srabase φ Base L = Base subringAlg L G
83 81 82 sseqtrd φ B Base subringAlg L G
84 60 61 62 63 64 65 50 83 ellspds φ x LSpan subringAlg L G B a Base Scalar subringAlg L G B finSupp 0 Scalar subringAlg L G a x = subringAlg L G v B a v subringAlg L G v
85 4 ad2antrr φ p G H finSupp 0 L p x = L f H p f L f L Field
86 5 ad2antrr φ p G H finSupp 0 L p x = L f H p f L f F SubDRing I
87 6 ad2antrr φ p G H finSupp 0 L p x = L f H p f L f F SubDRing J
88 7 ad2antrr φ p G H finSupp 0 L p x = L f H p f L f G SubDRing L
89 8 ad2antrr φ p G H finSupp 0 L p x = L f H p f L f H SubDRing L
90 12 ad2antrr φ p G H finSupp 0 L p x = L f H p f L f B LBasis subringAlg J F
91 13 ad2antrr φ p G H finSupp 0 L p x = L f H p f L f B Fin
92 simplr φ p G H finSupp 0 L p x = L f H p f L f p G H
93 92 elmaprd φ p G H finSupp 0 L p x = L f H p f L f p : H G
94 simprl φ p G H finSupp 0 L p x = L f H p f L f finSupp 0 L p
95 simprr φ p G H finSupp 0 L p x = L f H p f L f x = L f H p f L f
96 fveq2 f = h p f = p h
97 id f = h f = h
98 96 97 oveq12d f = h p f L f = p h L h
99 98 cbvmptv f H p f L f = h H p h L h
100 99 oveq2i L f H p f L f = L h H p h L h
101 95 100 eqtrdi φ p G H finSupp 0 L p x = L f H p f L f x = L h H p h L h
102 1 2 3 85 86 87 88 89 9 10 11 90 91 93 94 101 fldextrspunlsplem φ p G H finSupp 0 L p x = L f H p f L f a G B finSupp 0 L a x = L v B a v L v
103 102 r19.29an φ p G H finSupp 0 L p x = L f H p f L f a G B finSupp 0 L a x = L v B a v L v
104 breq1 p = g H if g B a g 0 L finSupp 0 L p finSupp 0 L g H if g B a g 0 L
105 fveq1 p = g H if g B a g 0 L p f = g H if g B a g 0 L f
106 105 oveq1d p = g H if g B a g 0 L p f L f = g H if g B a g 0 L f L f
107 106 mpteq2dv p = g H if g B a g 0 L f H p f L f = f H g H if g B a g 0 L f L f
108 107 oveq2d p = g H if g B a g 0 L L f H p f L f = L f H g H if g B a g 0 L f L f
109 108 eqeq2d p = g H if g B a g 0 L x = L f H p f L f x = L f H g H if g B a g 0 L f L f
110 104 109 anbi12d p = g H if g B a g 0 L finSupp 0 L p x = L f H p f L f finSupp 0 L g H if g B a g 0 L x = L f H g H if g B a g 0 L f L f
111 7 ad2antrr φ a G B finSupp 0 L a x = L v B a v L v G SubDRing L
112 8 ad2antrr φ a G B finSupp 0 L a x = L v B a v L v H SubDRing L
113 simpr φ a G B a G B
114 113 elmaprd φ a G B a : B G
115 114 ad2antrr φ a G B finSupp 0 L a x = L v B a v L v g H a : B G
116 115 ffvelcdmda φ a G B finSupp 0 L a x = L v B a v L v g H g B a g G
117 41 ad4antr φ a G B finSupp 0 L a x = L v B a v L v g H ¬ g B 0 L G
118 116 117 ifclda φ a G B finSupp 0 L a x = L v B a v L v g H if g B a g 0 L G
119 118 fmpttd φ a G B finSupp 0 L a x = L v B a v L v g H if g B a g 0 L : H G
120 111 112 119 elmapdd φ a G B finSupp 0 L a x = L v B a v L v g H if g B a g 0 L G H
121 fvexd φ a G B finSupp 0 L a x = L v B a v L v 0 L V
122 119 ffund φ a G B finSupp 0 L a x = L v B a v L v Fun g H if g B a g 0 L
123 simprl φ a G B finSupp 0 L a x = L v B a v L v finSupp 0 L a
124 114 ffnd φ a G B a Fn B
125 124 ad3antrrr φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a g B a Fn B
126 12 ad4antr φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a g B B LBasis subringAlg J F
127 fvexd φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a g B 0 L V
128 simpr φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a g B g B
129 simplr φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a g B g H supp 0 L a
130 129 eldifbd φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a g B ¬ g supp 0 L a
131 128 130 eldifd φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a g B g B supp 0 L a
132 125 126 127 131 fvdifsupp φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a g B a g = 0 L
133 eqidd φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a ¬ g B 0 L = 0 L
134 132 133 ifeqda φ a G B finSupp 0 L a x = L v B a v L v g H supp 0 L a if g B a g 0 L = 0 L
135 134 112 suppss2 φ a G B finSupp 0 L a x = L v B a v L v g H if g B a g 0 L supp 0 L a supp 0 L
136 120 121 122 123 135 fsuppsssuppgd φ a G B finSupp 0 L a x = L v B a v L v finSupp 0 L g H if g B a g 0 L
137 eqid g H if g B a g 0 L = g H if g B a g 0 L
138 simpr φ a G B finSupp 0 L a f supp 0 L a g = f g = f
139 suppssdm a supp 0 L dom a
140 114 fdmd φ a G B dom a = B
141 140 adantr φ a G B finSupp 0 L a dom a = B
142 139 141 sseqtrid φ a G B finSupp 0 L a a supp 0 L B
143 142 sselda φ a G B finSupp 0 L a f supp 0 L a f B
144 143 adantr φ a G B finSupp 0 L a f supp 0 L a g = f f B
145 138 144 eqeltrd φ a G B finSupp 0 L a f supp 0 L a g = f g B
146 145 iftrued φ a G B finSupp 0 L a f supp 0 L a g = f if g B a g 0 L = a g
147 fveq2 g = f a g = a f
148 147 adantl φ a G B finSupp 0 L a f supp 0 L a g = f a g = a f
149 146 148 eqtrd φ a G B finSupp 0 L a f supp 0 L a g = f if g B a g 0 L = a f
150 80 ad2antrr φ a G B finSupp 0 L a B H
151 142 150 sstrd φ a G B finSupp 0 L a a supp 0 L H
152 151 sselda φ a G B finSupp 0 L a f supp 0 L a f H
153 fvexd φ a G B finSupp 0 L a f supp 0 L a a f V
154 137 149 152 153 fvmptd2 φ a G B finSupp 0 L a f supp 0 L a g H if g B a g 0 L f = a f
155 154 oveq1d φ a G B finSupp 0 L a f supp 0 L a g H if g B a g 0 L f L f = a f L f
156 155 mpteq2dva φ a G B finSupp 0 L a f supp 0 L a g H if g B a g 0 L f L f = f supp 0 L a a f L f
157 fveq2 f = v a f = a v
158 id f = v f = v
159 157 158 oveq12d f = v a f L f = a v L v
160 159 cbvmptv f supp 0 L a a f L f = v supp 0 L a a v L v
161 156 160 eqtrdi φ a G B finSupp 0 L a f supp 0 L a g H if g B a g 0 L f L f = v supp 0 L a a v L v
162 161 oveq2d φ a G B finSupp 0 L a L f a supp 0 L g H if g B a g 0 L f L f = L v a supp 0 L a v L v
163 36 ad2antrr φ a G B finSupp 0 L a L CMnd
164 8 ad2antrr φ a G B finSupp 0 L a H SubDRing L
165 eleq1w g = f g B f B
166 165 147 ifbieq1d g = f if g B a g 0 L = if f B a f 0 L
167 simpr φ a G B finSupp 0 L a f H supp 0 L a f H supp 0 L a
168 167 eldifad φ a G B finSupp 0 L a f H supp 0 L a f H
169 fvexd φ a G B finSupp 0 L a f H supp 0 L a a f V
170 fvexd φ a G B finSupp 0 L a f H supp 0 L a 0 L V
171 169 170 ifcld φ a G B finSupp 0 L a f H supp 0 L a if f B a f 0 L V
172 137 166 168 171 fvmptd3 φ a G B finSupp 0 L a f H supp 0 L a g H if g B a g 0 L f = if f B a f 0 L
173 172 oveq1d φ a G B finSupp 0 L a f H supp 0 L a g H if g B a g 0 L f L f = if f B a f 0 L L f
174 124 ad3antrrr φ a G B finSupp 0 L a f H supp 0 L a f B a Fn B
175 12 ad4antr φ a G B finSupp 0 L a f H supp 0 L a f B B LBasis subringAlg J F
176 fvexd φ a G B finSupp 0 L a f H supp 0 L a f B 0 L V
177 simpr φ a G B finSupp 0 L a f H supp 0 L a f B f B
178 simplr φ a G B finSupp 0 L a f H supp 0 L a f B f H supp 0 L a
179 178 eldifbd φ a G B finSupp 0 L a f H supp 0 L a f B ¬ f supp 0 L a
180 177 179 eldifd φ a G B finSupp 0 L a f H supp 0 L a f B f B supp 0 L a
181 174 175 176 180 fvdifsupp φ a G B finSupp 0 L a f H supp 0 L a f B a f = 0 L
182 eqidd φ a G B finSupp 0 L a f H supp 0 L a ¬ f B 0 L = 0 L
183 181 182 ifeqda φ a G B finSupp 0 L a f H supp 0 L a if f B a f 0 L = 0 L
184 183 oveq1d φ a G B finSupp 0 L a f H supp 0 L a if f B a f 0 L L f = 0 L L f
185 35 ad3antrrr φ a G B finSupp 0 L a f H supp 0 L a L Ring
186 164 22 70 3syl φ a G B finSupp 0 L a H Base L
187 186 ssdifssd φ a G B finSupp 0 L a H supp 0 L a Base L
188 187 sselda φ a G B finSupp 0 L a f H supp 0 L a f Base L
189 16 17 18 185 188 ringlzd φ a G B finSupp 0 L a f H supp 0 L a 0 L L f = 0 L
190 173 184 189 3eqtrd φ a G B finSupp 0 L a f H supp 0 L a g H if g B a g 0 L f L f = 0 L
191 simpr φ a G B finSupp 0 L a finSupp 0 L a
192 191 fsuppimpd φ a G B finSupp 0 L a a supp 0 L Fin
193 35 ad3antrrr φ a G B finSupp 0 L a f H L Ring
194 26 ad4antr φ a G B finSupp 0 L a g H g B G Base L
195 114 ad2antrr φ a G B finSupp 0 L a g H a : B G
196 195 ffvelcdmda φ a G B finSupp 0 L a g H g B a g G
197 194 196 sseldd φ a G B finSupp 0 L a g H g B a g Base L
198 26 41 sseldd φ 0 L Base L
199 198 ad4antr φ a G B finSupp 0 L a g H ¬ g B 0 L Base L
200 197 199 ifclda φ a G B finSupp 0 L a g H if g B a g 0 L Base L
201 200 fmpttd φ a G B finSupp 0 L a g H if g B a g 0 L : H Base L
202 201 ffvelcdmda φ a G B finSupp 0 L a f H g H if g B a g 0 L f Base L
203 186 sselda φ a G B finSupp 0 L a f H f Base L
204 16 17 193 202 203 ringcld φ a G B finSupp 0 L a f H g H if g B a g 0 L f L f Base L
205 16 18 163 164 190 192 204 151 gsummptres2 φ a G B finSupp 0 L a L f H g H if g B a g 0 L f L f = L f a supp 0 L g H if g B a g 0 L f L f
206 12 adantr φ a G B B LBasis subringAlg J F
207 206 adantr φ a G B finSupp 0 L a B LBasis subringAlg J F
208 124 ad2antrr φ a G B finSupp 0 L a v B supp 0 L a a Fn B
209 207 adantr φ a G B finSupp 0 L a v B supp 0 L a B LBasis subringAlg J F
210 fvexd φ a G B finSupp 0 L a v B supp 0 L a 0 L V
211 simpr φ a G B finSupp 0 L a v B supp 0 L a v B supp 0 L a
212 208 209 210 211 fvdifsupp φ a G B finSupp 0 L a v B supp 0 L a a v = 0 L
213 212 oveq1d φ a G B finSupp 0 L a v B supp 0 L a a v L v = 0 L L v
214 35 ad3antrrr φ a G B finSupp 0 L a v B supp 0 L a L Ring
215 81 ad2antrr φ a G B finSupp 0 L a B Base L
216 215 ssdifssd φ a G B finSupp 0 L a B supp 0 L a Base L
217 216 sselda φ a G B finSupp 0 L a v B supp 0 L a v Base L
218 16 17 18 214 217 ringlzd φ a G B finSupp 0 L a v B supp 0 L a 0 L L v = 0 L
219 213 218 eqtrd φ a G B finSupp 0 L a v B supp 0 L a a v L v = 0 L
220 35 ad3antrrr φ a G B finSupp 0 L a v B L Ring
221 26 ad3antrrr φ a G B finSupp 0 L a v B G Base L
222 114 adantr φ a G B finSupp 0 L a a : B G
223 222 ffvelcdmda φ a G B finSupp 0 L a v B a v G
224 221 223 sseldd φ a G B finSupp 0 L a v B a v Base L
225 215 sselda φ a G B finSupp 0 L a v B v Base L
226 16 17 220 224 225 ringcld φ a G B finSupp 0 L a v B a v L v Base L
227 16 18 163 207 219 192 226 142 gsummptres2 φ a G B finSupp 0 L a L v B a v L v = L v a supp 0 L a v L v
228 162 205 227 3eqtr4d φ a G B finSupp 0 L a L f H g H if g B a g 0 L f L f = L v B a v L v
229 228 eqeq2d φ a G B finSupp 0 L a x = L f H g H if g B a g 0 L f L f x = L v B a v L v
230 229 biimpar φ a G B finSupp 0 L a x = L v B a v L v x = L f H g H if g B a g 0 L f L f
231 230 anasss φ a G B finSupp 0 L a x = L v B a v L v x = L f H g H if g B a g 0 L f L f
232 136 231 jca φ a G B finSupp 0 L a x = L v B a v L v finSupp 0 L g H if g B a g 0 L x = L f H g H if g B a g 0 L f L f
233 110 120 232 rspcedvdw φ a G B finSupp 0 L a x = L v B a v L v p G H finSupp 0 L p x = L f H p f L f
234 233 r19.29an φ a G B finSupp 0 L a x = L v B a v L v p G H finSupp 0 L p x = L f H p f L f
235 103 234 impbida φ p G H finSupp 0 L p x = L f H p f L f a G B finSupp 0 L a x = L v B a v L v
236 59 84 235 3bitr4rd φ p G H finSupp 0 L p x = L f H p f L f x LSpan subringAlg L G B
237 15 24 236 3bitrd φ x C x LSpan subringAlg L G B
238 237 eqrdv φ C = LSpan subringAlg L G B