Metamath Proof Explorer


Theorem mplind

Description: Prove a property of polynomials by "structural" induction, under a simplified model of structure which loses the sum of products structure. The commutativity condition is stronger than strictly needed. (Contributed by Stefan O'Rear, 11-Mar-2015)

Ref Expression
Hypotheses mplind.sk ⊢ K = Base R
mplind.sv ⊢ V = I mVar R
mplind.sy ⊢ Y = I mPoly R
mplind.sp ⊢ + ˙ = + Y
mplind.st ⊢ · ˙ = ⋅ Y
mplind.sc ⊢ C = algSc ⁡ Y
mplind.sb ⊢ B = Base Y
mplind.p ⊢ φ ∧ x ∈ H ∧ y ∈ H → x + ˙ y ∈ H
mplind.t ⊢ φ ∧ x ∈ H ∧ y ∈ H → x · ˙ y ∈ H
mplind.s ⊢ φ ∧ x ∈ K → C ⁡ x ∈ H
mplind.v ⊢ φ ∧ x ∈ I → V ⁡ x ∈ H
mplind.x ⊢ φ → X ∈ B
mplind.i ⊢ φ → I ∈ W
mplind.r ⊢ φ → R ∈ CRing
Assertion mplind ⊢ φ → X ∈ H

Proof

Step Hyp Ref Expression
1 mplind.sk ⊢ K = Base R
2 mplind.sv ⊢ V = I mVar R
3 mplind.sy ⊢ Y = I mPoly R
4 mplind.sp ⊢ + ˙ = + Y
5 mplind.st ⊢ · ˙ = ⋅ Y
6 mplind.sc ⊢ C = algSc ⁡ Y
7 mplind.sb ⊢ B = Base Y
8 mplind.p ⊢ φ ∧ x ∈ H ∧ y ∈ H → x + ˙ y ∈ H
9 mplind.t ⊢ φ ∧ x ∈ H ∧ y ∈ H → x · ˙ y ∈ H
10 mplind.s ⊢ φ ∧ x ∈ K → C ⁡ x ∈ H
11 mplind.v ⊢ φ ∧ x ∈ I → V ⁡ x ∈ H
12 mplind.x ⊢ φ → X ∈ B
13 mplind.i ⊢ φ → I ∈ W
14 mplind.r ⊢ φ → R ∈ CRing
15 eqid ⊢ I mPwSer R = I mPwSer R
16 15 13 14 psrassa ⊢ φ → I mPwSer R ∈ AssAlg
17 inss2 ⊢ H ∩ B ⊆ B
18 crngring ⊢ R ∈ CRing → R ∈ Ring
19 14 18 syl ⊢ φ → R ∈ Ring
20 15 3 7 13 19 mplsubrg ⊢ φ → B ∈ SubRing ⁡ I mPwSer R
21 eqid ⊢ Base I mPwSer R = Base I mPwSer R
22 21 subrgss ⊢ B ∈ SubRing ⁡ I mPwSer R → B ⊆ Base I mPwSer R
23 20 22 syl ⊢ φ → B ⊆ Base I mPwSer R
24 17 23 sstrid ⊢ φ → H ∩ B ⊆ Base I mPwSer R
25 3 2 7 13 19 mvrf2 ⊢ φ → V : I ⟶ B
26 25 ffnd ⊢ φ → V Fn I
27 11 ralrimiva ⊢ φ → ∀ x ∈ I V ⁡ x ∈ H
28 fnfvrnss ⊢ V Fn I ∧ ∀ x ∈ I V ⁡ x ∈ H → ran ⁡ V ⊆ H
29 26 27 28 syl2anc ⊢ φ → ran ⁡ V ⊆ H
30 25 frnd ⊢ φ → ran ⁡ V ⊆ B
31 29 30 ssind ⊢ φ → ran ⁡ V ⊆ H ∩ B
32 eqid ⊢ AlgSpan ⁡ I mPwSer R = AlgSpan ⁡ I mPwSer R
33 32 21 aspss ⊢ I mPwSer R ∈ AssAlg ∧ H ∩ B ⊆ Base I mPwSer R ∧ ran ⁡ V ⊆ H ∩ B → AlgSpan ⁡ I mPwSer R ⁡ ran ⁡ V ⊆ AlgSpan ⁡ I mPwSer R ⁡ H ∩ B
34 16 24 31 33 syl3anc ⊢ φ → AlgSpan ⁡ I mPwSer R ⁡ ran ⁡ V ⊆ AlgSpan ⁡ I mPwSer R ⁡ H ∩ B
35 3 15 2 32 13 14 mplbas2 ⊢ φ → AlgSpan ⁡ I mPwSer R ⁡ ran ⁡ V = Base Y
36 35 7 eqtr4di ⊢ φ → AlgSpan ⁡ I mPwSer R ⁡ ran ⁡ V = B
37 17 a1i ⊢ φ → H ∩ B ⊆ B
38 3 mplassa ⊢ I ∈ W ∧ R ∈ CRing → Y ∈ AssAlg
39 13 14 38 syl2anc ⊢ φ → Y ∈ AssAlg
40 eqid ⊢ Scalar ⁡ Y = Scalar ⁡ Y
41 6 40 asclrhm ⊢ Y ∈ AssAlg → C ∈ Scalar ⁡ Y RingHom Y
42 39 41 syl ⊢ φ → C ∈ Scalar ⁡ Y RingHom Y
43 eqid ⊢ 1 Scalar ⁡ Y = 1 Scalar ⁡ Y
44 eqid ⊢ 1 Y = 1 Y
45 43 44 rhm1 ⊢ C ∈ Scalar ⁡ Y RingHom Y → C ⁡ 1 Scalar ⁡ Y = 1 Y
46 42 45 syl ⊢ φ → C ⁡ 1 Scalar ⁡ Y = 1 Y
47 fveq2 ⊢ x = 1 Scalar ⁡ Y → C ⁡ x = C ⁡ 1 Scalar ⁡ Y
48 47 eleq1d ⊢ x = 1 Scalar ⁡ Y → C ⁡ x ∈ H ↔ C ⁡ 1 Scalar ⁡ Y ∈ H
49 10 ralrimiva ⊢ φ → ∀ x ∈ K C ⁡ x ∈ H
50 3 13 14 mplsca ⊢ φ → R = Scalar ⁡ Y
51 50 19 eqeltrrd ⊢ φ → Scalar ⁡ Y ∈ Ring
52 eqid ⊢ Base Scalar ⁡ Y = Base Scalar ⁡ Y
53 52 43 ringidcl ⊢ Scalar ⁡ Y ∈ Ring → 1 Scalar ⁡ Y ∈ Base Scalar ⁡ Y
54 51 53 syl ⊢ φ → 1 Scalar ⁡ Y ∈ Base Scalar ⁡ Y
55 50 fveq2d ⊢ φ → Base R = Base Scalar ⁡ Y
56 1 55 eqtrid ⊢ φ → K = Base Scalar ⁡ Y
57 54 56 eleqtrrd ⊢ φ → 1 Scalar ⁡ Y ∈ K
58 48 49 57 rspcdva ⊢ φ → C ⁡ 1 Scalar ⁡ Y ∈ H
59 46 58 eqeltrrd ⊢ φ → 1 Y ∈ H
60 assaring ⊢ Y ∈ AssAlg → Y ∈ Ring
61 39 60 syl ⊢ φ → Y ∈ Ring
62 7 44 ringidcl ⊢ Y ∈ Ring → 1 Y ∈ B
63 61 62 syl ⊢ φ → 1 Y ∈ B
64 59 63 elind ⊢ φ → 1 Y ∈ H ∩ B
65 64 ne0d ⊢ φ → H ∩ B ≠ ∅
66 elinel1 ⊢ z ∈ H ∩ B → z ∈ H
67 elinel1 ⊢ w ∈ H ∩ B → w ∈ H
68 66 67 anim12i ⊢ z ∈ H ∩ B ∧ w ∈ H ∩ B → z ∈ H ∧ w ∈ H
69 8 caovclg ⊢ φ ∧ z ∈ H ∧ w ∈ H → z + ˙ w ∈ H
70 68 69 sylan2 ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → z + ˙ w ∈ H
71 assalmod ⊢ Y ∈ AssAlg → Y ∈ LMod
72 39 71 syl ⊢ φ → Y ∈ LMod
73 lmodgrp ⊢ Y ∈ LMod → Y ∈ Grp
74 72 73 syl ⊢ φ → Y ∈ Grp
75 74 adantr ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → Y ∈ Grp
76 simprl ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → z ∈ H ∩ B
77 76 elin2d ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → z ∈ B
78 simprr ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → w ∈ H ∩ B
79 78 elin2d ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → w ∈ B
80 7 4 grpcl ⊢ Y ∈ Grp ∧ z ∈ B ∧ w ∈ B → z + ˙ w ∈ B
81 75 77 79 80 syl3anc ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → z + ˙ w ∈ B
82 70 81 elind ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → z + ˙ w ∈ H ∩ B
83 82 anassrs ⊢ φ ∧ z ∈ H ∩ B ∧ w ∈ H ∩ B → z + ˙ w ∈ H ∩ B
84 83 ralrimiva ⊢ φ ∧ z ∈ H ∩ B → ∀ w ∈ H ∩ B z + ˙ w ∈ H ∩ B
85 eqid ⊢ inv g ⁡ Y = inv g ⁡ Y
86 61 adantr ⊢ φ ∧ z ∈ H ∩ B → Y ∈ Ring
87 simpr ⊢ φ ∧ z ∈ H ∩ B → z ∈ H ∩ B
88 87 elin2d ⊢ φ ∧ z ∈ H ∩ B → z ∈ B
89 7 5 44 85 86 88 ringnegl ⊢ φ ∧ z ∈ H ∩ B → inv g ⁡ Y ⁡ 1 Y · ˙ z = inv g ⁡ Y ⁡ z
90 simpl ⊢ φ ∧ z ∈ H ∩ B → φ
91 rhmghm ⊢ C ∈ Scalar ⁡ Y RingHom Y → C ∈ Scalar ⁡ Y GrpHom Y
92 42 91 syl ⊢ φ → C ∈ Scalar ⁡ Y GrpHom Y
93 eqid ⊢ inv g ⁡ Scalar ⁡ Y = inv g ⁡ Scalar ⁡ Y
94 52 93 85 ghminv ⊢ C ∈ Scalar ⁡ Y GrpHom Y ∧ 1 Scalar ⁡ Y ∈ Base Scalar ⁡ Y → C ⁡ inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y = inv g ⁡ Y ⁡ C ⁡ 1 Scalar ⁡ Y
95 92 54 94 syl2anc ⊢ φ → C ⁡ inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y = inv g ⁡ Y ⁡ C ⁡ 1 Scalar ⁡ Y
96 46 fveq2d ⊢ φ → inv g ⁡ Y ⁡ C ⁡ 1 Scalar ⁡ Y = inv g ⁡ Y ⁡ 1 Y
97 95 96 eqtrd ⊢ φ → C ⁡ inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y = inv g ⁡ Y ⁡ 1 Y
98 fveq2 ⊢ x = inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y → C ⁡ x = C ⁡ inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y
99 98 eleq1d ⊢ x = inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y → C ⁡ x ∈ H ↔ C ⁡ inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y ∈ H
100 ringgrp ⊢ Scalar ⁡ Y ∈ Ring → Scalar ⁡ Y ∈ Grp
101 51 100 syl ⊢ φ → Scalar ⁡ Y ∈ Grp
102 52 93 grpinvcl ⊢ Scalar ⁡ Y ∈ Grp ∧ 1 Scalar ⁡ Y ∈ Base Scalar ⁡ Y → inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y ∈ Base Scalar ⁡ Y
103 101 54 102 syl2anc ⊢ φ → inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y ∈ Base Scalar ⁡ Y
104 103 56 eleqtrrd ⊢ φ → inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y ∈ K
105 99 49 104 rspcdva ⊢ φ → C ⁡ inv g ⁡ Scalar ⁡ Y ⁡ 1 Scalar ⁡ Y ∈ H
106 97 105 eqeltrrd ⊢ φ → inv g ⁡ Y ⁡ 1 Y ∈ H
107 106 adantr ⊢ φ ∧ z ∈ H ∩ B → inv g ⁡ Y ⁡ 1 Y ∈ H
108 87 elin1d ⊢ φ ∧ z ∈ H ∩ B → z ∈ H
109 9 caovclg ⊢ φ ∧ inv g ⁡ Y ⁡ 1 Y ∈ H ∧ z ∈ H → inv g ⁡ Y ⁡ 1 Y · ˙ z ∈ H
110 90 107 108 109 syl12anc ⊢ φ ∧ z ∈ H ∩ B → inv g ⁡ Y ⁡ 1 Y · ˙ z ∈ H
111 89 110 eqeltrrd ⊢ φ ∧ z ∈ H ∩ B → inv g ⁡ Y ⁡ z ∈ H
112 74 adantr ⊢ φ ∧ z ∈ H ∩ B → Y ∈ Grp
113 7 85 grpinvcl ⊢ Y ∈ Grp ∧ z ∈ B → inv g ⁡ Y ⁡ z ∈ B
114 112 88 113 syl2anc ⊢ φ ∧ z ∈ H ∩ B → inv g ⁡ Y ⁡ z ∈ B
115 111 114 elind ⊢ φ ∧ z ∈ H ∩ B → inv g ⁡ Y ⁡ z ∈ H ∩ B
116 84 115 jca ⊢ φ ∧ z ∈ H ∩ B → ∀ w ∈ H ∩ B z + ˙ w ∈ H ∩ B ∧ inv g ⁡ Y ⁡ z ∈ H ∩ B
117 116 ralrimiva ⊢ φ → ∀ z ∈ H ∩ B ∀ w ∈ H ∩ B z + ˙ w ∈ H ∩ B ∧ inv g ⁡ Y ⁡ z ∈ H ∩ B
118 7 4 85 issubg2 ⊢ Y ∈ Grp → H ∩ B ∈ SubGrp ⁡ Y ↔ H ∩ B ⊆ B ∧ H ∩ B ≠ ∅ ∧ ∀ z ∈ H ∩ B ∀ w ∈ H ∩ B z + ˙ w ∈ H ∩ B ∧ inv g ⁡ Y ⁡ z ∈ H ∩ B
119 74 118 syl ⊢ φ → H ∩ B ∈ SubGrp ⁡ Y ↔ H ∩ B ⊆ B ∧ H ∩ B ≠ ∅ ∧ ∀ z ∈ H ∩ B ∀ w ∈ H ∩ B z + ˙ w ∈ H ∩ B ∧ inv g ⁡ Y ⁡ z ∈ H ∩ B
120 37 65 117 119 mpbir3and ⊢ φ → H ∩ B ∈ SubGrp ⁡ Y
121 elinel1 ⊢ x ∈ H ∩ B → x ∈ H
122 elinel1 ⊢ y ∈ H ∩ B → y ∈ H
123 121 122 anim12i ⊢ x ∈ H ∩ B ∧ y ∈ H ∩ B → x ∈ H ∧ y ∈ H
124 123 9 sylan2 ⊢ φ ∧ x ∈ H ∩ B ∧ y ∈ H ∩ B → x · ˙ y ∈ H
125 61 adantr ⊢ φ ∧ x ∈ H ∩ B ∧ y ∈ H ∩ B → Y ∈ Ring
126 simprl ⊢ φ ∧ x ∈ H ∩ B ∧ y ∈ H ∩ B → x ∈ H ∩ B
127 126 elin2d ⊢ φ ∧ x ∈ H ∩ B ∧ y ∈ H ∩ B → x ∈ B
128 simprr ⊢ φ ∧ x ∈ H ∩ B ∧ y ∈ H ∩ B → y ∈ H ∩ B
129 128 elin2d ⊢ φ ∧ x ∈ H ∩ B ∧ y ∈ H ∩ B → y ∈ B
130 7 5 ringcl ⊢ Y ∈ Ring ∧ x ∈ B ∧ y ∈ B → x · ˙ y ∈ B
131 125 127 129 130 syl3anc ⊢ φ ∧ x ∈ H ∩ B ∧ y ∈ H ∩ B → x · ˙ y ∈ B
132 124 131 elind ⊢ φ ∧ x ∈ H ∩ B ∧ y ∈ H ∩ B → x · ˙ y ∈ H ∩ B
133 132 ralrimivva ⊢ φ → ∀ x ∈ H ∩ B ∀ y ∈ H ∩ B x · ˙ y ∈ H ∩ B
134 7 44 5 issubrg2 ⊢ Y ∈ Ring → H ∩ B ∈ SubRing ⁡ Y ↔ H ∩ B ∈ SubGrp ⁡ Y ∧ 1 Y ∈ H ∩ B ∧ ∀ x ∈ H ∩ B ∀ y ∈ H ∩ B x · ˙ y ∈ H ∩ B
135 61 134 syl ⊢ φ → H ∩ B ∈ SubRing ⁡ Y ↔ H ∩ B ∈ SubGrp ⁡ Y ∧ 1 Y ∈ H ∩ B ∧ ∀ x ∈ H ∩ B ∀ y ∈ H ∩ B x · ˙ y ∈ H ∩ B
136 120 64 133 135 mpbir3and ⊢ φ → H ∩ B ∈ SubRing ⁡ Y
137 3 15 7 mplval2 ⊢ Y = I mPwSer R ↾ 𝑠 B
138 137 subsubrg ⊢ B ∈ SubRing ⁡ I mPwSer R → H ∩ B ∈ SubRing ⁡ Y ↔ H ∩ B ∈ SubRing ⁡ I mPwSer R ∧ H ∩ B ⊆ B
139 138 simprbda ⊢ B ∈ SubRing ⁡ I mPwSer R ∧ H ∩ B ∈ SubRing ⁡ Y → H ∩ B ∈ SubRing ⁡ I mPwSer R
140 20 136 139 syl2anc ⊢ φ → H ∩ B ∈ SubRing ⁡ I mPwSer R
141 assalmod ⊢ I mPwSer R ∈ AssAlg → I mPwSer R ∈ LMod
142 16 141 syl ⊢ φ → I mPwSer R ∈ LMod
143 15 3 7 13 19 mpllss ⊢ φ → B ∈ LSubSp ⁡ I mPwSer R
144 39 adantr ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → Y ∈ AssAlg
145 simprl ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → z ∈ Base Scalar ⁡ Y
146 simprr ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → w ∈ H ∩ B
147 146 elin2d ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → w ∈ B
148 eqid ⊢ ⋅ Y = ⋅ Y
149 6 40 52 7 5 148 asclmul1 ⊢ Y ∈ AssAlg ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ B → C ⁡ z · ˙ w = z ⋅ Y w
150 144 145 147 149 syl3anc ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → C ⁡ z · ˙ w = z ⋅ Y w
151 fveq2 ⊢ x = z → C ⁡ x = C ⁡ z
152 151 eleq1d ⊢ x = z → C ⁡ x ∈ H ↔ C ⁡ z ∈ H
153 49 adantr ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → ∀ x ∈ K C ⁡ x ∈ H
154 56 adantr ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → K = Base Scalar ⁡ Y
155 145 154 eleqtrrd ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → z ∈ K
156 152 153 155 rspcdva ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → C ⁡ z ∈ H
157 146 elin1d ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → w ∈ H
158 156 157 jca ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → C ⁡ z ∈ H ∧ w ∈ H
159 9 caovclg ⊢ φ ∧ C ⁡ z ∈ H ∧ w ∈ H → C ⁡ z · ˙ w ∈ H
160 158 159 syldan ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → C ⁡ z · ˙ w ∈ H
161 150 160 eqeltrrd ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → z ⋅ Y w ∈ H
162 72 adantr ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → Y ∈ LMod
163 7 40 148 52 lmodvscl ⊢ Y ∈ LMod ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ B → z ⋅ Y w ∈ B
164 162 145 147 163 syl3anc ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → z ⋅ Y w ∈ B
165 161 164 elind ⊢ φ ∧ z ∈ Base Scalar ⁡ Y ∧ w ∈ H ∩ B → z ⋅ Y w ∈ H ∩ B
166 165 ralrimivva ⊢ φ → ∀ z ∈ Base Scalar ⁡ Y ∀ w ∈ H ∩ B z ⋅ Y w ∈ H ∩ B
167 eqid ⊢ LSubSp ⁡ Y = LSubSp ⁡ Y
168 40 52 7 148 167 islss4 ⊢ Y ∈ LMod → H ∩ B ∈ LSubSp ⁡ Y ↔ H ∩ B ∈ SubGrp ⁡ Y ∧ ∀ z ∈ Base Scalar ⁡ Y ∀ w ∈ H ∩ B z ⋅ Y w ∈ H ∩ B
169 72 168 syl ⊢ φ → H ∩ B ∈ LSubSp ⁡ Y ↔ H ∩ B ∈ SubGrp ⁡ Y ∧ ∀ z ∈ Base Scalar ⁡ Y ∀ w ∈ H ∩ B z ⋅ Y w ∈ H ∩ B
170 120 166 169 mpbir2and ⊢ φ → H ∩ B ∈ LSubSp ⁡ Y
171 eqid ⊢ LSubSp ⁡ I mPwSer R = LSubSp ⁡ I mPwSer R
172 137 171 167 lsslss ⊢ I mPwSer R ∈ LMod ∧ B ∈ LSubSp ⁡ I mPwSer R → H ∩ B ∈ LSubSp ⁡ Y ↔ H ∩ B ∈ LSubSp ⁡ I mPwSer R ∧ H ∩ B ⊆ B
173 172 simprbda ⊢ I mPwSer R ∈ LMod ∧ B ∈ LSubSp ⁡ I mPwSer R ∧ H ∩ B ∈ LSubSp ⁡ Y → H ∩ B ∈ LSubSp ⁡ I mPwSer R
174 142 143 170 173 syl21anc ⊢ φ → H ∩ B ∈ LSubSp ⁡ I mPwSer R
175 32 21 171 aspid ⊢ I mPwSer R ∈ AssAlg ∧ H ∩ B ∈ SubRing ⁡ I mPwSer R ∧ H ∩ B ∈ LSubSp ⁡ I mPwSer R → AlgSpan ⁡ I mPwSer R ⁡ H ∩ B = H ∩ B
176 16 140 174 175 syl3anc ⊢ φ → AlgSpan ⁡ I mPwSer R ⁡ H ∩ B = H ∩ B
177 34 36 176 3sstr3d ⊢ φ → B ⊆ H ∩ B
178 177 12 sseldd ⊢ φ → X ∈ H ∩ B
179 178 elin1d ⊢ φ → X ∈ H