Metamath Proof Explorer


Theorem psrass1

Description: Associative identity for the ring of power series. (Contributed by Mario Carneiro, 5-Jan-2015)

Ref Expression
Hypotheses psrring.s S = I mPwSer R
psrring.i φ I V
psrring.r φ R Ring
psrass.d D = f 0 I | f -1 Fin
psrass.t × ˙ = S
psrass.b B = Base S
psrass.x φ X B
psrass.y φ Y B
psrass.z φ Z B
Assertion psrass1 φ X × ˙ Y × ˙ Z = X × ˙ Y × ˙ Z

Proof

Step Hyp Ref Expression
1 psrring.s S = I mPwSer R
2 psrring.i φ I V
3 psrring.r φ R Ring
4 psrass.d D = f 0 I | f -1 Fin
5 psrass.t × ˙ = S
6 psrass.b B = Base S
7 psrass.x φ X B
8 psrass.y φ Y B
9 psrass.z φ Z B
10 eqid Base R = Base R
11 1 6 5 3 7 8 psrmulcl φ X × ˙ Y B
12 1 6 5 3 11 9 psrmulcl φ X × ˙ Y × ˙ Z B
13 1 10 4 6 12 psrelbas φ X × ˙ Y × ˙ Z : D Base R
14 13 ffnd φ X × ˙ Y × ˙ Z Fn D
15 1 6 5 3 8 9 psrmulcl φ Y × ˙ Z B
16 1 6 5 3 7 15 psrmulcl φ X × ˙ Y × ˙ Z B
17 1 10 4 6 16 psrelbas φ X × ˙ Y × ˙ Z : D Base R
18 17 ffnd φ X × ˙ Y × ˙ Z Fn D
19 eqid g D | g f x = g D | g f x
20 simpr φ x D x D
21 3 ringcmnd φ R CMnd
22 21 adantr φ x D R CMnd
23 eqid R = R
24 3 ad3antrrr φ x D j g D | g f x n h D | h f x f j R Ring
25 1 10 4 6 7 psrelbas φ X : D Base R
26 25 ad2antrr φ x D j g D | g f x X : D Base R
27 breq1 g = j g f x j f x
28 27 elrab j g D | g f x j D j f x
29 28 bilani φ x D j g D | g f x j D j f x
30 29 simpld φ x D j g D | g f x j D
31 26 30 ffvelcdmd φ x D j g D | g f x X j Base R
32 31 adantr φ x D j g D | g f x n h D | h f x f j X j Base R
33 1 10 4 6 8 psrelbas φ Y : D Base R
34 33 ad3antrrr φ x D j g D | g f x n h D | h f x f j Y : D Base R
35 breq1 h = n h f x f j n f x f j
36 35 elrab n h D | h f x f j n D n f x f j
37 36 bilani φ x D j g D | g f x n h D | h f x f j n D n f x f j
38 37 simpld φ x D j g D | g f x n h D | h f x f j n D
39 34 38 ffvelcdmd φ x D j g D | g f x n h D | h f x f j Y n Base R
40 1 10 4 6 9 psrelbas φ Z : D Base R
41 40 ad3antrrr φ x D j g D | g f x n h D | h f x f j Z : D Base R
42 simplr φ x D j g D | g f x x D
43 4 psrbagf j D j : I 0
44 30 43 syl φ x D j g D | g f x j : I 0
45 29 simprd φ x D j g D | g f x j f x
46 4 psrbagcon x D j : I 0 j f x x f j D x f j f x
47 42 44 45 46 syl3anc φ x D j g D | g f x x f j D x f j f x
48 47 simpld φ x D j g D | g f x x f j D
49 48 adantr φ x D j g D | g f x n h D | h f x f j x f j D
50 4 psrbagf n D n : I 0
51 38 50 syl φ x D j g D | g f x n h D | h f x f j n : I 0
52 37 simprd φ x D j g D | g f x n h D | h f x f j n f x f j
53 4 psrbagcon x f j D n : I 0 n f x f j x f j f n D x f j f n f x f j
54 49 51 52 53 syl3anc φ x D j g D | g f x n h D | h f x f j x f j f n D x f j f n f x f j
55 54 simpld φ x D j g D | g f x n h D | h f x f j x f j f n D
56 41 55 ffvelcdmd φ x D j g D | g f x n h D | h f x f j Z x f j f n Base R
57 10 23 24 39 56 ringcld φ x D j g D | g f x n h D | h f x f j Y n R Z x f j f n Base R
58 10 23 24 32 57 ringcld φ x D j g D | g f x n h D | h f x f j X j R Y n R Z x f j f n Base R
59 58 anasss φ x D j g D | g f x n h D | h f x f j X j R Y n R Z x f j f n Base R
60 fveq2 n = k f j Y n = Y k f j
61 oveq2 n = k f j x f j f n = x f j f k f j
62 61 fveq2d n = k f j Z x f j f n = Z x f j f k f j
63 60 62 oveq12d n = k f j Y n R Z x f j f n = Y k f j R Z x f j f k f j
64 63 oveq2d n = k f j X j R Y n R Z x f j f n = X j R Y k f j R Z x f j f k f j
65 4 19 20 10 22 59 64 psrass1lem φ x D R k g D | g f x R j h D | h f k X j R Y k f j R Z x f j f k f j = R j g D | g f x R n h D | h f x f j X j R Y n R Z x f j f n
66 7 ad2antrr φ x D k g D | g f x X B
67 8 ad2antrr φ x D k g D | g f x Y B
68 breq1 g = k g f x k f x
69 68 elrab k g D | g f x k D k f x
70 69 bilani φ x D k g D | g f x k D k f x
71 70 simpld φ x D k g D | g f x k D
72 1 6 23 5 4 66 67 71 psrmulval φ x D k g D | g f x X × ˙ Y k = R j h D | h f k X j R Y k f j
73 72 oveq1d φ x D k g D | g f x X × ˙ Y k R Z x f k = R j h D | h f k X j R Y k f j R Z x f k
74 eqid 0 R = 0 R
75 3 ad2antrr φ x D k g D | g f x R Ring
76 4 psrbaglefi k D h D | h f k Fin
77 71 76 syl φ x D k g D | g f x h D | h f k Fin
78 40 ad2antrr φ x D k g D | g f x Z : D Base R
79 simplr φ x D k g D | g f x x D
80 4 psrbagf k D k : I 0
81 71 80 syl φ x D k g D | g f x k : I 0
82 70 simprd φ x D k g D | g f x k f x
83 4 psrbagcon x D k : I 0 k f x x f k D x f k f x
84 79 81 82 83 syl3anc φ x D k g D | g f x x f k D x f k f x
85 84 simpld φ x D k g D | g f x x f k D
86 78 85 ffvelcdmd φ x D k g D | g f x Z x f k Base R
87 3 ad3antrrr φ x D k g D | g f x j h D | h f k R Ring
88 25 ad3antrrr φ x D k g D | g f x j h D | h f k X : D Base R
89 breq1 h = j h f k j f k
90 89 elrab j h D | h f k j D j f k
91 90 bilani φ x D k g D | g f x j h D | h f k j D j f k
92 91 simpld φ x D k g D | g f x j h D | h f k j D
93 88 92 ffvelcdmd φ x D k g D | g f x j h D | h f k X j Base R
94 33 ad3antrrr φ x D k g D | g f x j h D | h f k Y : D Base R
95 71 adantr φ x D k g D | g f x j h D | h f k k D
96 92 43 syl φ x D k g D | g f x j h D | h f k j : I 0
97 91 simprd φ x D k g D | g f x j h D | h f k j f k
98 4 psrbagcon k D j : I 0 j f k k f j D k f j f k
99 95 96 97 98 syl3anc φ x D k g D | g f x j h D | h f k k f j D k f j f k
100 99 simpld φ x D k g D | g f x j h D | h f k k f j D
101 94 100 ffvelcdmd φ x D k g D | g f x j h D | h f k Y k f j Base R
102 10 23 87 93 101 ringcld φ x D k g D | g f x j h D | h f k X j R Y k f j Base R
103 eqid j h D | h f k X j R Y k f j = j h D | h f k X j R Y k f j
104 fvex 0 R V
105 104 a1i φ x D k g D | g f x 0 R V
106 103 77 102 105 fsuppmptdm φ x D k g D | g f x finSupp 0 R j h D | h f k X j R Y k f j
107 10 74 23 75 77 86 102 106 gsummulc1 φ x D k g D | g f x R j h D | h f k X j R Y k f j R Z x f k = R j h D | h f k X j R Y k f j R Z x f k
108 86 adantr φ x D k g D | g f x j h D | h f k Z x f k Base R
109 10 23 ringass R Ring X j Base R Y k f j Base R Z x f k Base R X j R Y k f j R Z x f k = X j R Y k f j R Z x f k
110 87 93 101 108 109 syl13anc φ x D k g D | g f x j h D | h f k X j R Y k f j R Z x f k = X j R Y k f j R Z x f k
111 4 psrbagf x D x : I 0
112 111 ad3antlr φ x D k g D | g f x j h D | h f k x : I 0
113 112 ffvelcdmda φ x D k g D | g f x j h D | h f k z I x z 0
114 81 adantr φ x D k g D | g f x j h D | h f k k : I 0
115 114 ffvelcdmda φ x D k g D | g f x j h D | h f k z I k z 0
116 96 ffvelcdmda φ x D k g D | g f x j h D | h f k z I j z 0
117 nn0cn x z 0 x z
118 nn0cn k z 0 k z
119 nn0cn j z 0 j z
120 nnncan2 x z k z j z x z - j z - k z j z = x z k z
121 117 118 119 120 syl3an x z 0 k z 0 j z 0 x z - j z - k z j z = x z k z
122 113 115 116 121 syl3anc φ x D k g D | g f x j h D | h f k z I x z - j z - k z j z = x z k z
123 122 mpteq2dva φ x D k g D | g f x j h D | h f k z I x z - j z - k z j z = z I x z k z
124 2 ad3antrrr φ x D k g D | g f x j h D | h f k I V
125 ovexd φ x D k g D | g f x j h D | h f k z I x z j z V
126 ovexd φ x D k g D | g f x j h D | h f k z I k z j z V
127 112 feqmptd φ x D k g D | g f x j h D | h f k x = z I x z
128 96 feqmptd φ x D k g D | g f x j h D | h f k j = z I j z
129 124 113 116 127 128 offval2 φ x D k g D | g f x j h D | h f k x f j = z I x z j z
130 114 feqmptd φ x D k g D | g f x j h D | h f k k = z I k z
131 124 115 116 130 128 offval2 φ x D k g D | g f x j h D | h f k k f j = z I k z j z
132 124 125 126 129 131 offval2 φ x D k g D | g f x j h D | h f k x f j f k f j = z I x z - j z - k z j z
133 124 113 115 127 130 offval2 φ x D k g D | g f x j h D | h f k x f k = z I x z k z
134 123 132 133 3eqtr4d φ x D k g D | g f x j h D | h f k x f j f k f j = x f k
135 134 fveq2d φ x D k g D | g f x j h D | h f k Z x f j f k f j = Z x f k
136 135 oveq2d φ x D k g D | g f x j h D | h f k Y k f j R Z x f j f k f j = Y k f j R Z x f k
137 136 oveq2d φ x D k g D | g f x j h D | h f k X j R Y k f j R Z x f j f k f j = X j R Y k f j R Z x f k
138 110 137 eqtr4d φ x D k g D | g f x j h D | h f k X j R Y k f j R Z x f k = X j R Y k f j R Z x f j f k f j
139 138 mpteq2dva φ x D k g D | g f x j h D | h f k X j R Y k f j R Z x f k = j h D | h f k X j R Y k f j R Z x f j f k f j
140 139 oveq2d φ x D k g D | g f x R j h D | h f k X j R Y k f j R Z x f k = R j h D | h f k X j R Y k f j R Z x f j f k f j
141 73 107 140 3eqtr2d φ x D k g D | g f x X × ˙ Y k R Z x f k = R j h D | h f k X j R Y k f j R Z x f j f k f j
142 141 mpteq2dva φ x D k g D | g f x X × ˙ Y k R Z x f k = k g D | g f x R j h D | h f k X j R Y k f j R Z x f j f k f j
143 142 oveq2d φ x D R k g D | g f x X × ˙ Y k R Z x f k = R k g D | g f x R j h D | h f k X j R Y k f j R Z x f j f k f j
144 8 ad2antrr φ x D j g D | g f x Y B
145 9 ad2antrr φ x D j g D | g f x Z B
146 1 6 23 5 4 144 145 48 psrmulval φ x D j g D | g f x Y × ˙ Z x f j = R n h D | h f x f j Y n R Z x f j f n
147 146 oveq2d φ x D j g D | g f x X j R Y × ˙ Z x f j = X j R R n h D | h f x f j Y n R Z x f j f n
148 3 ad2antrr φ x D j g D | g f x R Ring
149 4 psrbaglefi x f j D h D | h f x f j Fin
150 48 149 syl φ x D j g D | g f x h D | h f x f j Fin
151 ovex 0 I V
152 4 151 rab2ex h D | h f x f j V
153 152 mptex n h D | h f x f j Y n R Z x f j f n V
154 funmpt Fun n h D | h f x f j Y n R Z x f j f n
155 153 154 104 3pm3.2i n h D | h f x f j Y n R Z x f j f n V Fun n h D | h f x f j Y n R Z x f j f n 0 R V
156 155 a1i φ x D j g D | g f x n h D | h f x f j Y n R Z x f j f n V Fun n h D | h f x f j Y n R Z x f j f n 0 R V
157 suppssdm n h D | h f x f j Y n R Z x f j f n supp 0 R dom n h D | h f x f j Y n R Z x f j f n
158 eqid n h D | h f x f j Y n R Z x f j f n = n h D | h f x f j Y n R Z x f j f n
159 158 dmmptss dom n h D | h f x f j Y n R Z x f j f n h D | h f x f j
160 157 159 sstri n h D | h f x f j Y n R Z x f j f n supp 0 R h D | h f x f j
161 160 a1i φ x D j g D | g f x n h D | h f x f j Y n R Z x f j f n supp 0 R h D | h f x f j
162 suppssfifsupp n h D | h f x f j Y n R Z x f j f n V Fun n h D | h f x f j Y n R Z x f j f n 0 R V h D | h f x f j Fin n h D | h f x f j Y n R Z x f j f n supp 0 R h D | h f x f j finSupp 0 R n h D | h f x f j Y n R Z x f j f n
163 156 150 161 162 syl12anc φ x D j g D | g f x finSupp 0 R n h D | h f x f j Y n R Z x f j f n
164 10 74 23 148 150 31 57 163 gsummulc2 φ x D j g D | g f x R n h D | h f x f j X j R Y n R Z x f j f n = X j R R n h D | h f x f j Y n R Z x f j f n
165 147 164 eqtr4d φ x D j g D | g f x X j R Y × ˙ Z x f j = R n h D | h f x f j X j R Y n R Z x f j f n
166 165 mpteq2dva φ x D j g D | g f x X j R Y × ˙ Z x f j = j g D | g f x R n h D | h f x f j X j R Y n R Z x f j f n
167 166 oveq2d φ x D R j g D | g f x X j R Y × ˙ Z x f j = R j g D | g f x R n h D | h f x f j X j R Y n R Z x f j f n
168 65 143 167 3eqtr4d φ x D R k g D | g f x X × ˙ Y k R Z x f k = R j g D | g f x X j R Y × ˙ Z x f j
169 11 adantr φ x D X × ˙ Y B
170 9 adantr φ x D Z B
171 1 6 23 5 4 169 170 20 psrmulval φ x D X × ˙ Y × ˙ Z x = R k g D | g f x X × ˙ Y k R Z x f k
172 7 adantr φ x D X B
173 15 adantr φ x D Y × ˙ Z B
174 1 6 23 5 4 172 173 20 psrmulval φ x D X × ˙ Y × ˙ Z x = R j g D | g f x X j R Y × ˙ Z x f j
175 168 171 174 3eqtr4d φ x D X × ˙ Y × ˙ Z x = X × ˙ Y × ˙ Z x
176 14 18 175 eqfnfvd φ X × ˙ Y × ˙ Z = X × ˙ Y × ˙ Z