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