MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  psrval Structured version   Unicode version

Theorem psrval 17406
Description: Value of the multivariate power series structure. (Contributed by Mario Carneiro, 29-Dec-2014.)
Hypotheses
Ref Expression
psrval.s  |-  S  =  ( I mPwSer  R )
psrval.k  |-  K  =  ( Base `  R
)
psrval.a  |-  .+  =  ( +g  `  R )
psrval.m  |-  .x.  =  ( .r `  R )
psrval.o  |-  O  =  ( TopOpen `  R )
psrval.d  |-  D  =  { h  e.  ( NN0  ^m  I )  |  ( `' h " NN )  e.  Fin }
psrval.b  |-  ( ph  ->  B  =  ( K  ^m  D ) )
psrval.p  |-  .+b  =  (  oF  .+  |`  ( B  X.  B ) )
psrval.t  |-  .X.  =  ( f  e.  B ,  g  e.  B  |->  ( k  e.  D  |->  ( R  gsumg  ( x  e.  {
y  e.  D  | 
y  oR  <_ 
k }  |->  ( ( f `  x ) 
.x.  ( g `  ( k  oF  -  x ) ) ) ) ) ) )
psrval.v  |-  .xb  =  ( x  e.  K ,  f  e.  B  |->  ( ( D  X.  { x } )  oF  .x.  f
) )
psrval.j  |-  ( ph  ->  J  =  ( Xt_ `  ( D  X.  { O } ) ) )
psrval.i  |-  ( ph  ->  I  e.  W )
psrval.r  |-  ( ph  ->  R  e.  X )
Assertion
Ref Expression
psrval  |-  ( ph  ->  S  =  ( {
<. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } ) )
Distinct variable groups:    y, h    f, g, k, x, ph    B, f, g, k, x   
f, h, I, g, k, x    R, f, g, k, x    y,
f, D, g, k, x
Allowed substitution hints:    ph( y, h)    B( y, h)    D( h)    .+ ( x, y, f, g, h, k)    .+b ( x, y, f, g, h, k)    R( y, h)    S( x, y, f, g, h, k)    .xb (
x, y, f, g, h, k)    .x. ( x, y, f, g, h, k)    .X. ( x, y, f, g, h, k)    I( y)    J( x, y, f, g, h, k)    K( x, y, f, g, h, k)    O( x, y, f, g, h, k)    W( x, y, f, g, h, k)    X( x, y, f, g, h, k)

Proof of Theorem psrval
Dummy variables  i 
r  b  d are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 psrval.s . 2  |-  S  =  ( I mPwSer  R )
2 df-psr 17400 . . . 4  |- mPwSer  =  ( i  e.  _V , 
r  e.  _V  |->  [_ { h  e.  ( NN0  ^m  i )  |  ( `' h " NN )  e.  Fin }  /  d ]_ [_ (
( Base `  r )  ^m  d )  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. ,  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `  x ) ( .r
`  r ) ( g `  ( k  oF  -  x
) ) ) ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } ) )
32a1i 11 . . 3  |-  ( ph  -> mPwSer 
=  ( i  e. 
_V ,  r  e. 
_V  |->  [_ { h  e.  ( NN0  ^m  i
)  |  ( `' h " NN )  e.  Fin }  / 
d ]_ [_ ( (
Base `  r )  ^m  d )  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. ,  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `  x ) ( .r
`  r ) ( g `  ( k  oF  -  x
) ) ) ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } ) ) )
4 simprl 755 . . . . . . . 8  |-  ( (
ph  /\  ( i  =  I  /\  r  =  R ) )  -> 
i  =  I )
54oveq2d 6102 . . . . . . 7  |-  ( (
ph  /\  ( i  =  I  /\  r  =  R ) )  -> 
( NN0  ^m  i
)  =  ( NN0 
^m  I ) )
6 rabeq 2961 . . . . . . 7  |-  ( ( NN0  ^m  i )  =  ( NN0  ^m  I )  ->  { h  e.  ( NN0  ^m  i
)  |  ( `' h " NN )  e.  Fin }  =  { h  e.  ( NN0  ^m  I )  |  ( `' h " NN )  e.  Fin } )
75, 6syl 16 . . . . . 6  |-  ( (
ph  /\  ( i  =  I  /\  r  =  R ) )  ->  { h  e.  ( NN0  ^m  i )  |  ( `' h " NN )  e.  Fin }  =  { h  e.  ( NN0  ^m  I
)  |  ( `' h " NN )  e.  Fin } )
8 psrval.d . . . . . 6  |-  D  =  { h  e.  ( NN0  ^m  I )  |  ( `' h " NN )  e.  Fin }
97, 8syl6eqr 2488 . . . . 5  |-  ( (
ph  /\  ( i  =  I  /\  r  =  R ) )  ->  { h  e.  ( NN0  ^m  i )  |  ( `' h " NN )  e.  Fin }  =  D )
109csbeq1d 3290 . . . 4  |-  ( (
ph  /\  ( i  =  I  /\  r  =  R ) )  ->  [_ { h  e.  ( NN0  ^m  i )  |  ( `' h " NN )  e.  Fin }  /  d ]_ [_ (
( Base `  r )  ^m  d )  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. ,  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `  x ) ( .r
`  r ) ( g `  ( k  oF  -  x
) ) ) ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } )  =  [_ D  /  d ]_ [_ (
( Base `  r )  ^m  d )  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. ,  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `  x ) ( .r
`  r ) ( g `  ( k  oF  -  x
) ) ) ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } ) )
11 ovex 6111 . . . . . . 7  |-  ( NN0 
^m  i )  e. 
_V
1211rabex 4438 . . . . . 6  |-  { h  e.  ( NN0  ^m  i
)  |  ( `' h " NN )  e.  Fin }  e.  _V
139, 12syl6eqelr 2527 . . . . 5  |-  ( (
ph  /\  ( i  =  I  /\  r  =  R ) )  ->  D  e.  _V )
14 simplrr 760 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  r  =  R )
1514fveq2d 5690 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  ( Base `  r )  =  ( Base `  R
) )
16 psrval.k . . . . . . . . . 10  |-  K  =  ( Base `  R
)
1715, 16syl6eqr 2488 . . . . . . . . 9  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  ( Base `  r )  =  K )
18 simpr 461 . . . . . . . . 9  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  d  =  D )
1917, 18oveq12d 6104 . . . . . . . 8  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  (
( Base `  r )  ^m  d )  =  ( K  ^m  D ) )
20 psrval.b . . . . . . . . 9  |-  ( ph  ->  B  =  ( K  ^m  D ) )
2120ad2antrr 725 . . . . . . . 8  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  B  =  ( K  ^m  D ) )
2219, 21eqtr4d 2473 . . . . . . 7  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  (
( Base `  r )  ^m  d )  =  B )
2322csbeq1d 3290 . . . . . 6  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  [_ (
( Base `  r )  ^m  d )  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. ,  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `  x ) ( .r
`  r ) ( g `  ( k  oF  -  x
) ) ) ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } )  =  [_ B  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. , 
<. ( +g  `  ndx ) ,  (  oF ( +g  `  r
)  |`  ( b  X.  b ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r 
gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `
 x ) ( .r `  r ) ( g `  (
k  oF  -  x ) ) ) ) ) ) )
>. }  u.  { <. (Scalar `  ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } ) )
24 ovex 6111 . . . . . . . 8  |-  ( (
Base `  r )  ^m  d )  e.  _V
2522, 24syl6eqelr 2527 . . . . . . 7  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  B  e.  _V )
26 simpr 461 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  b  =  B )
2726opeq2d 4061 . . . . . . . . 9  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  <. ( Base `  ndx ) ,  b >.  =  <. (
Base `  ndx ) ,  B >. )
2814adantr 465 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  r  =  R )
2928fveq2d 5690 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( +g  `  r )  =  ( +g  `  R
) )
30 psrval.a . . . . . . . . . . . . . 14  |-  .+  =  ( +g  `  R )
3129, 30syl6eqr 2488 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( +g  `  r )  = 
.+  )
32 ofeq 6317 . . . . . . . . . . . . 13  |-  ( ( +g  `  r )  =  .+  ->  oF ( +g  `  r
)  =  oF  .+  )
3331, 32syl 16 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  oF ( +g  `  r
)  =  oF  .+  )
3426, 26xpeq12d 4860 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
b  X.  b )  =  ( B  X.  B ) )
3533, 34reseq12d 5106 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (  oF ( +g  `  r )  |`  (
b  X.  b ) )  =  (  oF  .+  |`  ( B  X.  B ) ) )
36 psrval.p . . . . . . . . . . 11  |-  .+b  =  (  oF  .+  |`  ( B  X.  B ) )
3735, 36syl6eqr 2488 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (  oF ( +g  `  r )  |`  (
b  X.  b ) )  =  .+b  )
3837opeq2d 4061 . . . . . . . . 9  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >.  =  <. ( +g  `  ndx ) ,  .+b  >. )
3918adantr 465 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  d  =  D )
40 rabeq 2961 . . . . . . . . . . . . . . . 16  |-  ( d  =  D  ->  { y  e.  d  |  y  oR  <_  k }  =  { y  e.  D  |  y  oR  <_  k } )
4139, 40syl 16 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  { y  e.  d  |  y  oR  <_  k }  =  { y  e.  D  |  y  oR  <_  k } )
4228fveq2d 5690 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( .r `  r )  =  ( .r `  R
) )
43 psrval.m . . . . . . . . . . . . . . . . 17  |-  .x.  =  ( .r `  R )
4442, 43syl6eqr 2488 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( .r `  r )  = 
.x.  )
4544oveqd 6103 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
( f `  x
) ( .r `  r ) ( g `
 ( k  oF  -  x ) ) )  =  ( ( f `  x
)  .x.  ( g `  ( k  oF  -  x ) ) ) )
4641, 45mpteq12dv 4365 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `
 x ) ( .r `  r ) ( g `  (
k  oF  -  x ) ) ) )  =  ( x  e.  { y  e.  D  |  y  oR  <_  k }  |->  ( ( f `  x )  .x.  (
g `  ( k  oF  -  x
) ) ) ) )
4728, 46oveq12d 6104 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
r  gsumg  ( x  e.  {
y  e.  d  |  y  oR  <_ 
k }  |->  ( ( f `  x ) ( .r `  r
) ( g `  ( k  oF  -  x ) ) ) ) )  =  ( R  gsumg  ( x  e.  {
y  e.  D  | 
y  oR  <_ 
k }  |->  ( ( f `  x ) 
.x.  ( g `  ( k  oF  -  x ) ) ) ) ) )
4839, 47mpteq12dv 4365 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
k  e.  d  |->  ( r  gsumg  ( x  e.  {
y  e.  d  |  y  oR  <_ 
k }  |->  ( ( f `  x ) ( .r `  r
) ( g `  ( k  oF  -  x ) ) ) ) ) )  =  ( k  e.  D  |->  ( R  gsumg  ( x  e.  { y  e.  D  |  y  oR  <_  k }  |->  ( ( f `  x )  .x.  (
g `  ( k  oF  -  x
) ) ) ) ) ) )
4926, 26, 48mpt2eq123dv 6143 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  {
y  e.  d  |  y  oR  <_ 
k }  |->  ( ( f `  x ) ( .r `  r
) ( g `  ( k  oF  -  x ) ) ) ) ) ) )  =  ( f  e.  B ,  g  e.  B  |->  ( k  e.  D  |->  ( R 
gsumg  ( x  e.  { y  e.  D  |  y  oR  <_  k }  |->  ( ( f `
 x )  .x.  ( g `  (
k  oF  -  x ) ) ) ) ) ) ) )
50 psrval.t . . . . . . . . . . 11  |-  .X.  =  ( f  e.  B ,  g  e.  B  |->  ( k  e.  D  |->  ( R  gsumg  ( x  e.  {
y  e.  D  | 
y  oR  <_ 
k }  |->  ( ( f `  x ) 
.x.  ( g `  ( k  oF  -  x ) ) ) ) ) ) )
5149, 50syl6eqr 2488 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  {
y  e.  d  |  y  oR  <_ 
k }  |->  ( ( f `  x ) ( .r `  r
) ( g `  ( k  oF  -  x ) ) ) ) ) ) )  =  .X.  )
5251opeq2d 4061 . . . . . . . . 9  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b 
|->  ( k  e.  d 
|->  ( r  gsumg  ( x  e.  {
y  e.  d  |  y  oR  <_ 
k }  |->  ( ( f `  x ) ( .r `  r
) ( g `  ( k  oF  -  x ) ) ) ) ) ) ) >.  =  <. ( .r `  ndx ) ,  .X.  >. )
5327, 38, 52tpeq123d 3964 . . . . . . . 8  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  { <. (
Base `  ndx ) ,  b >. ,  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `  x ) ( .r
`  r ) ( g `  ( k  oF  -  x
) ) ) ) ) ) ) >. }  =  { <. ( Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. ( .r `  ndx ) , 
.X.  >. } )
5428opeq2d 4061 . . . . . . . . 9  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  <. (Scalar ` 
ndx ) ,  r
>.  =  <. (Scalar `  ndx ) ,  R >. )
5517adantr 465 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( Base `  r )  =  K )
56 ofeq 6317 . . . . . . . . . . . . . 14  |-  ( ( .r `  r )  =  .x.  ->  oF ( .r `  r )  =  oF  .x.  )
5744, 56syl 16 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  oF ( .r `  r )  =  oF  .x.  )
5839xpeq1d 4858 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
d  X.  { x } )  =  ( D  X.  { x } ) )
59 eqidd 2439 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  f  =  f )
6057, 58, 59oveq123d 6107 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
( d  X.  {
x } )  oF ( .r `  r ) f )  =  ( ( D  X.  { x }
)  oF  .x.  f ) )
6155, 26, 60mpt2eq123dv 6143 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )  =  ( x  e.  K ,  f  e.  B  |->  ( ( D  X.  { x }
)  oF  .x.  f ) ) )
62 psrval.v . . . . . . . . . . 11  |-  .xb  =  ( x  e.  K ,  f  e.  B  |->  ( ( D  X.  { x } )  oF  .x.  f
) )
6361, 62syl6eqr 2488 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )  =  .xb  )
6463opeq2d 4061 . . . . . . . . 9  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  <. ( .s `  ndx ) ,  ( x  e.  (
Base `  r ) ,  f  e.  b  |->  ( ( d  X. 
{ x } )  oF ( .r
`  r ) f ) ) >.  =  <. ( .s `  ndx ) ,  .xb  >. )
6528fveq2d 5690 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( TopOpen
`  r )  =  ( TopOpen `  R )
)
66 psrval.o . . . . . . . . . . . . . . 15  |-  O  =  ( TopOpen `  R )
6765, 66syl6eqr 2488 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( TopOpen
`  r )  =  O )
6867sneqd 3884 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  { (
TopOpen `  r ) }  =  { O }
)
6939, 68xpeq12d 4860 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  (
d  X.  { (
TopOpen `  r ) } )  =  ( D  X.  { O }
) )
7069fveq2d 5690 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( Xt_ `  ( d  X. 
{ ( TopOpen `  r
) } ) )  =  ( Xt_ `  ( D  X.  { O }
) ) )
71 psrval.j . . . . . . . . . . . 12  |-  ( ph  ->  J  =  ( Xt_ `  ( D  X.  { O } ) ) )
7271ad3antrrr 729 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  J  =  ( Xt_ `  ( D  X.  { O }
) ) )
7370, 72eqtr4d 2473 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( Xt_ `  ( d  X. 
{ ( TopOpen `  r
) } ) )  =  J )
7473opeq2d 4061 . . . . . . . . 9  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  <. (TopSet ` 
ndx ) ,  (
Xt_ `  ( d  X.  { ( TopOpen `  r
) } ) )
>.  =  <. (TopSet `  ndx ) ,  J >. )
7554, 64, 74tpeq123d 3964 . . . . . . . 8  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  { <. (Scalar `  ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. }  =  { <. (Scalar ` 
ndx ) ,  R >. ,  <. ( .s `  ndx ) ,  .xb  >. ,  <. (TopSet `  ndx ) ,  J >. } )
7653, 75uneq12d 3506 . . . . . . 7  |-  ( ( ( ( ph  /\  ( i  =  I  /\  r  =  R ) )  /\  d  =  D )  /\  b  =  B )  ->  ( { <. ( Base `  ndx ) ,  b >. , 
<. ( +g  `  ndx ) ,  (  oF ( +g  `  r
)  |`  ( b  X.  b ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r 
gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `
 x ) ( .r `  r ) ( g `  (
k  oF  -  x ) ) ) ) ) ) )
>. }  u.  { <. (Scalar `  ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } )  =  ( { <. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } ) )
7725, 76csbied 3309 . . . . . 6  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  [_ B  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. , 
<. ( +g  `  ndx ) ,  (  oF ( +g  `  r
)  |`  ( b  X.  b ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r 
gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `
 x ) ( .r `  r ) ( g `  (
k  oF  -  x ) ) ) ) ) ) )
>. }  u.  { <. (Scalar `  ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } )  =  ( { <. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } ) )
7823, 77eqtrd 2470 . . . . 5  |-  ( ( ( ph  /\  (
i  =  I  /\  r  =  R )
)  /\  d  =  D )  ->  [_ (
( Base `  r )  ^m  d )  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. ,  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `  x ) ( .r
`  r ) ( g `  ( k  oF  -  x
) ) ) ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } )  =  ( { <. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } ) )
7913, 78csbied 3309 . . . 4  |-  ( (
ph  /\  ( i  =  I  /\  r  =  R ) )  ->  [_ D  /  d ]_ [_ ( ( Base `  r )  ^m  d
)  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. , 
<. ( +g  `  ndx ) ,  (  oF ( +g  `  r
)  |`  ( b  X.  b ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r 
gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `
 x ) ( .r `  r ) ( g `  (
k  oF  -  x ) ) ) ) ) ) )
>. }  u.  { <. (Scalar `  ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } )  =  ( { <. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } ) )
8010, 79eqtrd 2470 . . 3  |-  ( (
ph  /\  ( i  =  I  /\  r  =  R ) )  ->  [_ { h  e.  ( NN0  ^m  i )  |  ( `' h " NN )  e.  Fin }  /  d ]_ [_ (
( Base `  r )  ^m  d )  /  b ]_ ( { <. ( Base `  ndx ) ,  b >. ,  <. ( +g  `  ndx ) ,  (  oF ( +g  `  r )  |`  ( b  X.  b
) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  b ,  g  e.  b  |->  ( k  e.  d  |->  ( r  gsumg  ( x  e.  { y  e.  d  |  y  oR  <_  k }  |->  ( ( f `  x ) ( .r
`  r ) ( g `  ( k  oF  -  x
) ) ) ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  r
>. ,  <. ( .s
`  ndx ) ,  ( x  e.  ( Base `  r ) ,  f  e.  b  |->  ( ( d  X.  { x } )  oF ( .r `  r
) f ) )
>. ,  <. (TopSet `  ndx ) ,  ( Xt_ `  ( d  X.  {
( TopOpen `  r ) } ) ) >. } )  =  ( { <. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } ) )
81 psrval.i . . . 4  |-  ( ph  ->  I  e.  W )
82 elex 2976 . . . 4  |-  ( I  e.  W  ->  I  e.  _V )
8381, 82syl 16 . . 3  |-  ( ph  ->  I  e.  _V )
84 psrval.r . . . 4  |-  ( ph  ->  R  e.  X )
85 elex 2976 . . . 4  |-  ( R  e.  X  ->  R  e.  _V )
8684, 85syl 16 . . 3  |-  ( ph  ->  R  e.  _V )
87 tpex 6374 . . . . 5  |-  { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  e.  _V
88 tpex 6374 . . . . 5  |-  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) ,  .xb  >. ,  <. (TopSet `  ndx ) ,  J >. }  e.  _V
8987, 88unex 6373 . . . 4  |-  ( {
<. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } )  e.  _V
9089a1i 11 . . 3  |-  ( ph  ->  ( { <. ( Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } )  e.  _V )
913, 80, 83, 86, 90ovmpt2d 6213 . 2  |-  ( ph  ->  ( I mPwSer  R )  =  ( { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } ) )
921, 91syl5eq 2482 1  |-  ( ph  ->  S  =  ( {
<. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  R >. ,  <. ( .s `  ndx ) , 
.xb  >. ,  <. (TopSet ` 
ndx ) ,  J >. } ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 369    = wceq 1369    e. wcel 1756   {crab 2714   _Vcvv 2967   [_csb 3283    u. cun 3321   {csn 3872   {ctp 3876   <.cop 3878   class class class wbr 4287    e. cmpt 4345    X. cxp 4833   `'ccnv 4834    |` cres 4837   "cima 4838   ` cfv 5413  (class class class)co 6086    e. cmpt2 6088    oFcof 6313    oRcofr 6314    ^m cmap 7206   Fincfn 7302    <_ cle 9411    - cmin 9587   NNcn 10314   NN0cn0 10571   ndxcnx 14163   Basecbs 14166   +g cplusg 14230   .rcmulr 14231  Scalarcsca 14233   .scvsca 14234  TopSetcts 14236   TopOpenctopn 14352   Xt_cpt 14369    gsumg cgsu 14371   mPwSer cmps 17395
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2419  ax-sep 4408  ax-nul 4416  ax-pr 4526  ax-un 6367
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2256  df-mo 2257  df-clab 2425  df-cleq 2431  df-clel 2434  df-nfc 2563  df-ne 2603  df-ral 2715  df-rex 2716  df-rab 2719  df-v 2969  df-sbc 3182  df-csb 3284  df-dif 3326  df-un 3328  df-in 3330  df-ss 3337  df-nul 3633  df-if 3787  df-sn 3873  df-pr 3875  df-tp 3877  df-op 3879  df-uni 4087  df-br 4288  df-opab 4346  df-mpt 4347  df-id 4631  df-xp 4841  df-rel 4842  df-cnv 4843  df-co 4844  df-dm 4845  df-res 4847  df-iota 5376  df-fun 5415  df-fv 5421  df-ov 6089  df-oprab 6090  df-mpt2 6091  df-of 6315  df-psr 17400
This theorem is referenced by:  psrbas  17425  psrbasOLD  17426  psrplusg  17429  psrmulr  17432  psrsca  17437  psrvscafval  17438
  Copyright terms: Public domain W3C validator