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

Theorem prdsval 13355
Description: Value of the structure product. (Contributed by Stefan O'Rear, 3-Jan-2015.) (Revised by Mario Carneiro, 7-Jan-2017.)
Hypotheses
Ref Expression
prdsval.p  |-  P  =  ( S X_s R )
prdsval.k  |-  K  =  ( Base `  S
)
prdsval.i  |-  ( ph  ->  dom  R  =  I )
prdsval.b  |-  ( ph  ->  B  =  X_ x  e.  I  ( Base `  ( R `  x
) ) )
prdsval.a  |-  ( ph  ->  .+  =  ( f  e.  B ,  g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) )
prdsval.t  |-  ( ph  ->  .X.  =  ( f  e.  B ,  g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) )
prdsval.m  |-  ( ph  ->  .x.  =  ( f  e.  K ,  g  e.  B  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) ) )
prdsval.o  |-  ( ph  ->  O  =  ( Xt_ `  ( TopOpen  o.  R )
) )
prdsval.l  |-  ( ph  -> 
.<_  =  { <. f ,  g >.  |  ( { f ,  g }  C_  B  /\  A. x  e.  I  ( f `  x ) ( le `  ( R `  x )
) ( g `  x ) ) } )
prdsval.d  |-  ( ph  ->  D  =  ( f  e.  B ,  g  e.  B  |->  sup (
( ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) )
prdsval.h  |-  ( ph  ->  H  =  ( f  e.  B ,  g  e.  B  |->  X_ x  e.  I  ( (
f `  x )
(  Hom  `  ( R `
 x ) ) ( g `  x
) ) ) )
prdsval.x  |-  ( ph  -> 
.xb  =  ( a  e.  ( B  X.  B ) ,  c  e.  B  |->  ( d  e.  ( c H ( 2nd `  a
) ) ,  e  e.  ( H `  a )  |->  ( x  e.  I  |->  ( ( d `  x ) ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) ( e `  x ) ) ) ) ) )
prdsval.s  |-  ( ph  ->  S  e.  W )
prdsval.r  |-  ( ph  ->  R  e.  Z )
Assertion
Ref Expression
prdsval  |-  ( ph  ->  P  =  ( ( { <. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) ) )
Distinct variable groups:    a, c,
d, e, f, g, B    x, I    H, a, c, d, e    x, a, ph, c, d, e, f, g    R, a, c, d, e, f, g, x    S, a, c, d, e, f, g, x
Allowed substitution hints:    B( x)    D( x, e, f, g, a, c, d)    P( x, e, f, g, a, c, d)    .+ ( x, e, f, g, a, c, d)    .xb ( x, e, f, g, a, c, d)    .x. ( x, e, f, g, a, c, d)    .X. ( x, e, f, g, a, c, d)    H( x, f, g)    I( e, f, g, a, c, d)    K( x, e, f, g, a, c, d)    .<_ ( x, e, f, g, a, c, d)    O( x, e, f, g, a, c, d)    W( x, e, f, g, a, c, d)    Z( x, e, f, g, a, c, d)

Proof of Theorem prdsval
Dummy variables  h  r  s  v are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prdsval.p . 2  |-  P  =  ( S X_s R )
2 df-prds 13348 . . . 4  |-  X_s  =  (
s  e.  _V , 
r  e.  _V  |->  [_ X_ x  e.  dom  r
( Base `  ( r `  x ) )  / 
v ]_ [_ ( f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) ) )  /  h ]_ (
( { <. ( Base `  ndx ) ,  v >. ,  <. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( +g  `  ( r `
 x ) ) ( g `  x
) ) ) )
>. ,  <. ( .r
`  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  s
>. ,  <. ( .s
`  ndx ) ,  ( f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) ) >. } )  u.  ( { <. (TopSet `  ndx ) ,  (
Xt_ `  ( TopOpen  o.  r
) ) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. (  Hom  `  ndx ) ,  h >. ,  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>. } ) ) )
32a1i 10 . . 3  |-  ( ph  -> 
X_s 
=  ( s  e. 
_V ,  r  e. 
_V  |->  [_ X_ x  e.  dom  r ( Base `  (
r `  x )
)  /  v ]_ [_ ( f  e.  v ,  g  e.  v 
|->  X_ x  e.  dom  r ( ( f `
 x ) (  Hom  `  ( r `  x ) ) ( g `  x ) ) )  /  h ]_ ( ( { <. (
Base `  ndx ) ,  v >. ,  <. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( +g  `  ( r `
 x ) ) ( g `  x
) ) ) )
>. ,  <. ( .r
`  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  s
>. ,  <. ( .s
`  ndx ) ,  ( f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) ) >. } )  u.  ( { <. (TopSet `  ndx ) ,  (
Xt_ `  ( TopOpen  o.  r
) ) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. (  Hom  `  ndx ) ,  h >. ,  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>. } ) ) ) )
4 vex 2791 . . . . . . . . . . . 12  |-  r  e. 
_V
54rnex 4942 . . . . . . . . . . 11  |-  ran  r  e.  _V
65uniex 4516 . . . . . . . . . 10  |-  U. ran  r  e.  _V
76rnex 4942 . . . . . . . . 9  |-  ran  U. ran  r  e.  _V
87uniex 4516 . . . . . . . 8  |-  U. ran  U.
ran  r  e.  _V
9 baseid 13190 . . . . . . . . . . . 12  |-  Base  = Slot  ( Base `  ndx )
109strfvss 13166 . . . . . . . . . . 11  |-  ( Base `  ( r `  x
) )  C_  U. ran  ( r `  x
)
11 fvssunirn 5551 . . . . . . . . . . . 12  |-  ( r `
 x )  C_  U.
ran  r
12 rnss 4907 . . . . . . . . . . . 12  |-  ( ( r `  x ) 
C_  U. ran  r  ->  ran  ( r `  x
)  C_  ran  U. ran  r )
13 uniss 3848 . . . . . . . . . . . 12  |-  ( ran  ( r `  x
)  C_  ran  U. ran  r  ->  U. ran  ( r `
 x )  C_  U.
ran  U. ran  r )
1411, 12, 13mp2b 9 . . . . . . . . . . 11  |-  U. ran  ( r `  x
)  C_  U. ran  U. ran  r
1510, 14sstri 3188 . . . . . . . . . 10  |-  ( Base `  ( r `  x
) )  C_  U. ran  U.
ran  r
1615rgenw 2610 . . . . . . . . 9  |-  A. x  e.  dom  r ( Base `  ( r `  x
) )  C_  U. ran  U.
ran  r
17 iunss 3943 . . . . . . . . 9  |-  ( U_ x  e.  dom  r (
Base `  ( r `  x ) )  C_  U.
ran  U. ran  r  <->  A. x  e.  dom  r ( Base `  ( r `  x
) )  C_  U. ran  U.
ran  r )
1816, 17mpbir 200 . . . . . . . 8  |-  U_ x  e.  dom  r ( Base `  ( r `  x
) )  C_  U. ran  U.
ran  r
198, 18ssexi 4159 . . . . . . 7  |-  U_ x  e.  dom  r ( Base `  ( r `  x
) )  e.  _V
20 ixpssmap2g 6845 . . . . . . 7  |-  ( U_ x  e.  dom  r (
Base `  ( r `  x ) )  e. 
_V  ->  X_ x  e.  dom  r ( Base `  (
r `  x )
)  C_  ( U_ x  e.  dom  r (
Base `  ( r `  x ) )  ^m  dom  r ) )
2119, 20ax-mp 8 . . . . . 6  |-  X_ x  e.  dom  r ( Base `  ( r `  x
) )  C_  ( U_ x  e.  dom  r ( Base `  (
r `  x )
)  ^m  dom  r )
22 ovex 5883 . . . . . . 7  |-  ( U_ x  e.  dom  r (
Base `  ( r `  x ) )  ^m  dom  r )  e.  _V
2322ssex 4158 . . . . . 6  |-  ( X_ x  e.  dom  r (
Base `  ( r `  x ) )  C_  ( U_ x  e.  dom  r ( Base `  (
r `  x )
)  ^m  dom  r )  ->  X_ x  e.  dom  r ( Base `  (
r `  x )
)  e.  _V )
2421, 23mp1i 11 . . . . 5  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  X_ x  e.  dom  r ( Base `  ( r `  x
) )  e.  _V )
25 simpr 447 . . . . . . . . . 10  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  r  =  R )
2625dmeqd 4881 . . . . . . . . 9  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  dom  r  =  dom  R )
27 prdsval.i . . . . . . . . . 10  |-  ( ph  ->  dom  R  =  I )
2827ad2antrr 706 . . . . . . . . 9  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  dom  R  =  I )
2926, 28eqtrd 2315 . . . . . . . 8  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  dom  r  =  I )
3029ixpeq1d 6828 . . . . . . 7  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  X_ x  e.  dom  r ( Base `  ( r `  x
) )  =  X_ x  e.  I  ( Base `  ( r `  x ) ) )
3125fveq1d 5527 . . . . . . . . 9  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
r `  x )  =  ( R `  x ) )
3231fveq2d 5529 . . . . . . . 8  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  ( Base `  ( r `  x ) )  =  ( Base `  ( R `  x )
) )
3332ixpeq2dv 6832 . . . . . . 7  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  X_ x  e.  I  ( Base `  ( r `  x
) )  =  X_ x  e.  I  ( Base `  ( R `  x ) ) )
3430, 33eqtrd 2315 . . . . . 6  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  X_ x  e.  dom  r ( Base `  ( r `  x
) )  =  X_ x  e.  I  ( Base `  ( R `  x ) ) )
35 prdsval.b . . . . . . 7  |-  ( ph  ->  B  =  X_ x  e.  I  ( Base `  ( R `  x
) ) )
3635ad2antrr 706 . . . . . 6  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  B  =  X_ x  e.  I 
( Base `  ( R `  x ) ) )
3734, 36eqtr4d 2318 . . . . 5  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  X_ x  e.  dom  r ( Base `  ( r `  x
) )  =  B )
38 df-ov 5861 . . . . . . . . . . . . . . . 16  |-  ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  =  ( (  Hom  `  (
r `  x )
) `  <. ( f `
 x ) ,  ( g `  x
) >. )
39 fvssunirn 5551 . . . . . . . . . . . . . . . 16  |-  ( (  Hom  `  ( r `  x ) ) `  <. ( f `  x
) ,  ( g `
 x ) >.
)  C_  U. ran  (  Hom  `  ( r `  x ) )
4038, 39eqsstri 3208 . . . . . . . . . . . . . . 15  |-  ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  C_  U.
ran  (  Hom  `  (
r `  x )
)
41 df-hom 13232 . . . . . . . . . . . . . . . . . 18  |-  Hom  = Slot ; 1 4
4241strfvss 13166 . . . . . . . . . . . . . . . . 17  |-  (  Hom  `  ( r `  x
) )  C_  U. ran  ( r `  x
)
4342, 14sstri 3188 . . . . . . . . . . . . . . . 16  |-  (  Hom  `  ( r `  x
) )  C_  U. ran  U.
ran  r
44 rnss 4907 . . . . . . . . . . . . . . . 16  |-  ( (  Hom  `  ( r `  x ) )  C_  U.
ran  U. ran  r  ->  ran  (  Hom  `  (
r `  x )
)  C_  ran  U. ran  U.
ran  r )
45 uniss 3848 . . . . . . . . . . . . . . . 16  |-  ( ran  (  Hom  `  (
r `  x )
)  C_  ran  U. ran  U.
ran  r  ->  U. ran  (  Hom  `  ( r `  x ) )  C_  U.
ran  U. ran  U. ran  r )
4643, 44, 45mp2b 9 . . . . . . . . . . . . . . 15  |-  U. ran  (  Hom  `  ( r `  x ) )  C_  U.
ran  U. ran  U. ran  r
4740, 46sstri 3188 . . . . . . . . . . . . . 14  |-  ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  C_  U.
ran  U. ran  U. ran  r
4847rgenw 2610 . . . . . . . . . . . . 13  |-  A. x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  C_  U.
ran  U. ran  U. ran  r
49 ss2ixp 6829 . . . . . . . . . . . . 13  |-  ( A. x  e.  dom  r ( ( f `  x
) (  Hom  `  (
r `  x )
) ( g `  x ) )  C_  U.
ran  U. ran  U. ran  r  ->  X_ x  e.  dom  r ( ( f `
 x ) (  Hom  `  ( r `  x ) ) ( g `  x ) )  C_  X_ x  e. 
dom  r U. ran  U.
ran  U. ran  r )
5048, 49ax-mp 8 . . . . . . . . . . . 12  |-  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  C_  X_ x  e.  dom  r U. ran  U. ran  U. ran  r
514dmex 4941 . . . . . . . . . . . . 13  |-  dom  r  e.  _V
528rnex 4942 . . . . . . . . . . . . . 14  |-  ran  U. ran  U. ran  r  e. 
_V
5352uniex 4516 . . . . . . . . . . . . 13  |-  U. ran  U.
ran  U. ran  r  e. 
_V
5451, 53ixpconst 6826 . . . . . . . . . . . 12  |-  X_ x  e.  dom  r U. ran  U.
ran  U. ran  r  =  ( U. ran  U. ran  U. ran  r  ^m  dom  r )
5550, 54sseqtri 3210 . . . . . . . . . . 11  |-  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  C_  ( U. ran  U. ran  U.
ran  r  ^m  dom  r )
56 ovex 5883 . . . . . . . . . . . 12  |-  ( U. ran  U. ran  U. ran  r  ^m  dom  r )  e.  _V
5756elpw2 4175 . . . . . . . . . . 11  |-  ( X_ x  e.  dom  r ( ( f `  x
) (  Hom  `  (
r `  x )
) ( g `  x ) )  e. 
~P ( U. ran  U.
ran  U. ran  r  ^m  dom  r )  <->  X_ x  e. 
dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  C_  ( U. ran  U. ran  U.
ran  r  ^m  dom  r ) )
5855, 57mpbir 200 . . . . . . . . . 10  |-  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  e. 
~P ( U. ran  U.
ran  U. ran  r  ^m  dom  r )
5958rgen2w 2611 . . . . . . . . 9  |-  A. f  e.  v  A. g  e.  v  X_ x  e. 
dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  e. 
~P ( U. ran  U.
ran  U. ran  r  ^m  dom  r )
60 eqid 2283 . . . . . . . . . 10  |-  ( f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) ) )  =  ( f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `
 x ) (  Hom  `  ( r `  x ) ) ( g `  x ) ) )
6160fmpt2 6191 . . . . . . . . 9  |-  ( A. f  e.  v  A. g  e.  v  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  e. 
~P ( U. ran  U.
ran  U. ran  r  ^m  dom  r )  <->  ( f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `
 x ) (  Hom  `  ( r `  x ) ) ( g `  x ) ) ) : ( v  X.  v ) --> ~P ( U. ran  U.
ran  U. ran  r  ^m  dom  r ) )
6259, 61mpbi 199 . . . . . . . 8  |-  ( f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) ) ) : ( v  X.  v ) --> ~P ( U. ran  U. ran  U. ran  r  ^m  dom  r
)
63 vex 2791 . . . . . . . . 9  |-  v  e. 
_V
6463, 63xpex 4801 . . . . . . . 8  |-  ( v  X.  v )  e. 
_V
6556pwex 4193 . . . . . . . 8  |-  ~P ( U. ran  U. ran  U. ran  r  ^m  dom  r
)  e.  _V
66 fex2 5401 . . . . . . . 8  |-  ( ( ( f  e.  v ,  g  e.  v 
|->  X_ x  e.  dom  r ( ( f `
 x ) (  Hom  `  ( r `  x ) ) ( g `  x ) ) ) : ( v  X.  v ) --> ~P ( U. ran  U.
ran  U. ran  r  ^m  dom  r )  /\  (
v  X.  v )  e.  _V  /\  ~P ( U. ran  U. ran  U.
ran  r  ^m  dom  r )  e.  _V )  ->  ( f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `
 x ) (  Hom  `  ( r `  x ) ) ( g `  x ) ) )  e.  _V )
6762, 64, 65, 66mp3an 1277 . . . . . . 7  |-  ( f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) ) )  e.  _V
6867a1i 10 . . . . . 6  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `  x
) (  Hom  `  (
r `  x )
) ( g `  x ) ) )  e.  _V )
69 simpr 447 . . . . . . . 8  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  v  =  B )
7029adantr 451 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  dom  r  =  I )
7170ixpeq1d 6828 . . . . . . . . 9  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  = 
X_ x  e.  I 
( ( f `  x ) (  Hom  `  ( r `  x
) ) ( g `
 x ) ) )
7231fveq2d 5529 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (  Hom  `  ( r `  x ) )  =  (  Hom  `  ( R `  x )
) )
7372oveqd 5875 . . . . . . . . . . 11  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
( f `  x
) (  Hom  `  (
r `  x )
) ( g `  x ) )  =  ( ( f `  x ) (  Hom  `  ( R `  x
) ) ( g `
 x ) ) )
7473ixpeq2dv 6832 . . . . . . . . . 10  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  X_ x  e.  I  ( (
f `  x )
(  Hom  `  ( r `
 x ) ) ( g `  x
) )  =  X_ x  e.  I  (
( f `  x
) (  Hom  `  ( R `  x )
) ( g `  x ) ) )
7574adantr 451 . . . . . . . . 9  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  X_ x  e.  I  ( (
f `  x )
(  Hom  `  ( r `
 x ) ) ( g `  x
) )  =  X_ x  e.  I  (
( f `  x
) (  Hom  `  ( R `  x )
) ( g `  x ) ) )
7671, 75eqtrd 2315 . . . . . . . 8  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  X_ x  e.  dom  r ( ( f `  x ) (  Hom  `  (
r `  x )
) ( g `  x ) )  = 
X_ x  e.  I 
( ( f `  x ) (  Hom  `  ( R `  x
) ) ( g `
 x ) ) )
7769, 69, 76mpt2eq123dv 5910 . . . . . . 7  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `  x
) (  Hom  `  (
r `  x )
) ( g `  x ) ) )  =  ( f  e.  B ,  g  e.  B  |->  X_ x  e.  I 
( ( f `  x ) (  Hom  `  ( R `  x
) ) ( g `
 x ) ) ) )
78 prdsval.h . . . . . . . 8  |-  ( ph  ->  H  =  ( f  e.  B ,  g  e.  B  |->  X_ x  e.  I  ( (
f `  x )
(  Hom  `  ( R `
 x ) ) ( g `  x
) ) ) )
7978ad3antrrr 710 . . . . . . 7  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  H  =  ( f  e.  B ,  g  e.  B  |->  X_ x  e.  I 
( ( f `  x ) (  Hom  `  ( R `  x
) ) ( g `
 x ) ) ) )
8077, 79eqtr4d 2318 . . . . . 6  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `  x
) (  Hom  `  (
r `  x )
) ( g `  x ) ) )  =  H )
81 simplr 731 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  v  =  B )
8281opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. ( Base `  ndx ) ,  v >.  =  <. (
Base `  ndx ) ,  B >. )
8331fveq2d 5529 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  ( +g  `  ( r `  x ) )  =  ( +g  `  ( R `  x )
) )
8483oveqd 5875 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
( f `  x
) ( +g  `  (
r `  x )
) ( g `  x ) )  =  ( ( f `  x ) ( +g  `  ( R `  x
) ) ( g `
 x ) ) )
8529, 84mpteq12dv 4098 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
x  e.  dom  r  |->  ( ( f `  x ) ( +g  `  ( r `  x
) ) ( g `
 x ) ) )  =  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) )
8685adantr 451 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
x  e.  dom  r  |->  ( ( f `  x ) ( +g  `  ( r `  x
) ) ( g `
 x ) ) )  =  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) )
8769, 69, 86mpt2eq123dv 5910 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( +g  `  ( r `  x
) ) ( g `
 x ) ) ) )  =  ( f  e.  B , 
g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x
) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) )
8887adantr 451 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( +g  `  ( r `  x
) ) ( g `
 x ) ) ) )  =  ( f  e.  B , 
g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x
) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) )
89 prdsval.a . . . . . . . . . . . 12  |-  ( ph  ->  .+  =  ( f  e.  B ,  g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) )
9089ad4antr 712 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  .+  =  ( f  e.  B ,  g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x
) ) ( g `
 x ) ) ) ) )
9188, 90eqtr4d 2318 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( +g  `  ( r `  x
) ) ( g `
 x ) ) ) )  =  .+  )
9291opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( +g  `  ( r `
 x ) ) ( g `  x
) ) ) )
>.  =  <. ( +g  ` 
ndx ) ,  .+  >.
)
9331fveq2d 5529 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  ( .r `  ( r `  x ) )  =  ( .r `  ( R `  x )
) )
9493oveqd 5875 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
( f `  x
) ( .r `  ( r `  x
) ) ( g `
 x ) )  =  ( ( f `
 x ) ( .r `  ( R `
 x ) ) ( g `  x
) ) )
9529, 94mpteq12dv 4098 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) )  =  ( x  e.  I  |->  ( ( f `  x
) ( .r `  ( R `  x ) ) ( g `  x ) ) ) )
9695adantr 451 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) )  =  ( x  e.  I  |->  ( ( f `  x
) ( .r `  ( R `  x ) ) ( g `  x ) ) ) )
9769, 69, 96mpt2eq123dv 5910 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) )  =  ( f  e.  B ,  g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r
`  ( R `  x ) ) ( g `  x ) ) ) ) )
9897adantr 451 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) )  =  ( f  e.  B ,  g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r
`  ( R `  x ) ) ( g `  x ) ) ) ) )
99 prdsval.t . . . . . . . . . . . 12  |-  ( ph  ->  .X.  =  ( f  e.  B ,  g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) )
10099ad4antr 712 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  .X.  =  ( f  e.  B ,  g  e.  B  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r
`  ( R `  x ) ) ( g `  x ) ) ) ) )
10198, 100eqtr4d 2318 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) )  = 
.X.  )
102101opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. ( .r `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( .r `  ( r `
 x ) ) ( g `  x
) ) ) )
>.  =  <. ( .r
`  ndx ) ,  .X.  >.
)
10382, 92, 102tpeq123d 3721 . . . . . . . 8  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  { <. (
Base `  ndx ) ,  v >. ,  <. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( +g  `  ( r `
 x ) ) ( g `  x
) ) ) )
>. ,  <. ( .r
`  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) ) >. }  =  { <. ( Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. } )
104 simp-4r 743 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  s  =  S )
105104opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. (Scalar ` 
ndx ) ,  s
>.  =  <. (Scalar `  ndx ) ,  S >. )
106 simpllr 735 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  s  =  S )
107106fveq2d 5529 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  ( Base `  s )  =  ( Base `  S
) )
108 prdsval.k . . . . . . . . . . . . . 14  |-  K  =  ( Base `  S
)
109107, 108syl6eqr 2333 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  ( Base `  s )  =  K )
11031fveq2d 5529 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  ( .s `  ( r `  x ) )  =  ( .s `  ( R `  x )
) )
111110oveqd 5875 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
f ( .s `  ( r `  x
) ) ( g `
 x ) )  =  ( f ( .s `  ( R `
 x ) ) ( g `  x
) ) )
11229, 111mpteq12dv 4098 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
x  e.  dom  r  |->  ( f ( .s
`  ( r `  x ) ) ( g `  x ) ) )  =  ( x  e.  I  |->  ( f ( .s `  ( R `  x ) ) ( g `  x ) ) ) )
113112adantr 451 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
x  e.  dom  r  |->  ( f ( .s
`  ( r `  x ) ) ( g `  x ) ) )  =  ( x  e.  I  |->  ( f ( .s `  ( R `  x ) ) ( g `  x ) ) ) )
114109, 69, 113mpt2eq123dv 5910 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) )  =  ( f  e.  K , 
g  e.  B  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x ) ) ( g `  x ) ) ) ) )
115114adantr 451 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) )  =  ( f  e.  K , 
g  e.  B  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x ) ) ( g `  x ) ) ) ) )
116 prdsval.m . . . . . . . . . . . 12  |-  ( ph  ->  .x.  =  ( f  e.  K ,  g  e.  B  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) ) )
117116ad4antr 712 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  .x.  =  ( f  e.  K ,  g  e.  B  |->  ( x  e.  I  |->  ( f ( .s
`  ( R `  x ) ) ( g `  x ) ) ) ) )
118115, 117eqtr4d 2318 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) )  =  .x.  )
119118opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. ( .s `  ndx ) ,  ( f  e.  (
Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `
 x ) ) ( g `  x
) ) ) )
>.  =  <. ( .s
`  ndx ) ,  .x.  >.
)
120105, 119preq12d 3714 . . . . . . . 8  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  { <. (Scalar `  ndx ) ,  s
>. ,  <. ( .s
`  ndx ) ,  ( f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) ) >. }  =  { <. (Scalar `  ndx ) ,  S >. , 
<. ( .s `  ndx ) ,  .x.  >. } )
121103, 120uneq12d 3330 . . . . . . 7  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  ( { <. ( Base `  ndx ) ,  v >. , 
<. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  ( x  e. 
dom  r  |->  ( ( f `  x ) ( +g  `  (
r `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( .r `  ( r `
 x ) ) ( g `  x
) ) ) )
>. }  u.  { <. (Scalar `  ndx ) ,  s
>. ,  <. ( .s
`  ndx ) ,  ( f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) ) >. } )  =  ( { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } ) )
122 simpllr 735 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  r  =  R )
123122coeq2d 4846 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  ( TopOpen  o.  r )  =  ( TopOpen  o.  R )
)
124123fveq2d 5529 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  ( Xt_ `  ( TopOpen  o.  r
) )  =  (
Xt_ `  ( TopOpen  o.  R
) ) )
125 prdsval.o . . . . . . . . . . . 12  |-  ( ph  ->  O  =  ( Xt_ `  ( TopOpen  o.  R )
) )
126125ad4antr 712 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  O  =  ( Xt_ `  ( TopOpen  o.  R ) ) )
127124, 126eqtr4d 2318 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  ( Xt_ `  ( TopOpen  o.  r
) )  =  O )
128127opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. (TopSet ` 
ndx ) ,  (
Xt_ `  ( TopOpen  o.  r
) ) >.  =  <. (TopSet `  ndx ) ,  O >. )
12969sseq2d 3206 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  ( { f ,  g }  C_  v  <->  { f ,  g }  C_  B ) )
13031fveq2d 5529 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  ( le `  ( r `  x ) )  =  ( le `  ( R `  x )
) )
131130breqd 4034 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
( f `  x
) ( le `  ( r `  x
) ) ( g `
 x )  <->  ( f `  x ) ( le
`  ( R `  x ) ) ( g `  x ) ) )
13229, 131raleqbidv 2748 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  ( A. x  e.  dom  r ( f `  x ) ( le
`  ( r `  x ) ) ( g `  x )  <->  A. x  e.  I 
( f `  x
) ( le `  ( R `  x ) ) ( g `  x ) ) )
133132adantr 451 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  ( A. x  e.  dom  r ( f `  x ) ( le
`  ( r `  x ) ) ( g `  x )  <->  A. x  e.  I 
( f `  x
) ( le `  ( R `  x ) ) ( g `  x ) ) )
134129, 133anbi12d 691 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
( { f ,  g }  C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le
`  ( r `  x ) ) ( g `  x ) )  <->  ( { f ,  g }  C_  B  /\  A. x  e.  I  ( f `  x ) ( le
`  ( R `  x ) ) ( g `  x ) ) ) )
135134opabbidv 4082 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  { <. f ,  g >.  |  ( { f ,  g }  C_  v  /\  A. x  e.  dom  r
( f `  x
) ( le `  ( r `  x
) ) ( g `
 x ) ) }  =  { <. f ,  g >.  |  ( { f ,  g }  C_  B  /\  A. x  e.  I  ( f `  x ) ( le `  ( R `  x )
) ( g `  x ) ) } )
136135adantr 451 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  { <. f ,  g >.  |  ( { f ,  g }  C_  v  /\  A. x  e.  dom  r
( f `  x
) ( le `  ( r `  x
) ) ( g `
 x ) ) }  =  { <. f ,  g >.  |  ( { f ,  g }  C_  B  /\  A. x  e.  I  ( f `  x ) ( le `  ( R `  x )
) ( g `  x ) ) } )
137 prdsval.l . . . . . . . . . . . 12  |-  ( ph  -> 
.<_  =  { <. f ,  g >.  |  ( { f ,  g }  C_  B  /\  A. x  e.  I  ( f `  x ) ( le `  ( R `  x )
) ( g `  x ) ) } )
138137ad4antr 712 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  .<_  =  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  B  /\  A. x  e.  I  (
f `  x )
( le `  ( R `  x )
) ( g `  x ) ) } )
139136, 138eqtr4d 2318 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  { <. f ,  g >.  |  ( { f ,  g }  C_  v  /\  A. x  e.  dom  r
( f `  x
) ( le `  ( r `  x
) ) ( g `
 x ) ) }  =  .<_  )
140139opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>.  =  <. ( le
`  ndx ) ,  .<_  >.
)
14131fveq2d 5529 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  ( dist `  ( r `  x ) )  =  ( dist `  ( R `  x )
) )
142141oveqd 5875 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
( f `  x
) ( dist `  (
r `  x )
) ( g `  x ) )  =  ( ( f `  x ) ( dist `  ( R `  x
) ) ( g `
 x ) ) )
14329, 142mpteq12dv 4098 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  =  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x )
) ( g `  x ) ) ) )
144143adantr 451 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  =  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x )
) ( g `  x ) ) ) )
145144rneqd 4906 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  ran  ( x  e.  dom  r  |->  ( ( f `
 x ) (
dist `  ( r `  x ) ) ( g `  x ) ) )  =  ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x
) ) ( g `
 x ) ) ) )
146145uneq1d 3328 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  ( ran  ( x  e.  dom  r  |->  ( ( f `
 x ) (
dist `  ( r `  x ) ) ( g `  x ) ) )  u.  {
0 } )  =  ( ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) )
147146supeq1d 7199 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  )  =  sup ( ( ran  (
x  e.  I  |->  ( ( f `  x
) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) )
14869, 69, 147mpt2eq123dv 5910 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  (
f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) )  =  ( f  e.  B ,  g  e.  B  |->  sup ( ( ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) )
149148adantr 451 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) )  =  ( f  e.  B ,  g  e.  B  |->  sup ( ( ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) )
150 prdsval.d . . . . . . . . . . . 12  |-  ( ph  ->  D  =  ( f  e.  B ,  g  e.  B  |->  sup (
( ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) )
151150ad4antr 712 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  D  =  ( f  e.  B ,  g  e.  B  |->  sup ( ( ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) )
152149, 151eqtr4d 2318 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) )  =  D )
153152opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  sup ( ( ran  ( x  e.  dom  r  |->  ( ( f `
 x ) (
dist `  ( r `  x ) ) ( g `  x ) ) )  u.  {
0 } ) , 
RR* ,  <  ) )
>.  =  <. ( dist `  ndx ) ,  D >. )
154128, 140, 153tpeq123d 3721 . . . . . . . 8  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  { <. (TopSet `  ndx ) ,  (
Xt_ `  ( TopOpen  o.  r
) ) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  =  { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. } )
155 simpr 447 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  h  =  H )
156155opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. (  Hom  `  ndx ) ,  h >.  =  <. (  Hom  `  ndx ) ,  H >. )
15781, 81xpeq12d 4714 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
v  X.  v )  =  ( B  X.  B ) )
158155oveqd 5875 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
c h ( 2nd `  a ) )  =  ( c H ( 2nd `  a ) ) )
159155fveq1d 5527 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
h `  a )  =  ( H `  a ) )
16031fveq2d 5529 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (comp `  ( r `  x
) )  =  (comp `  ( R `  x
) ) )
161160oveqd 5875 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  ( <. ( ( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) )  =  ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) )
162161oveqd 5875 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) )  =  ( ( d `  x ) ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) ( e `  x ) ) )
16329, 162mpteq12dv 4098 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  (
x  e.  dom  r  |->  ( ( d `  x ) ( <.
( ( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) )  =  ( x  e.  I  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  ( R `  x )
) ( c `  x ) ) ( e `  x ) ) ) )
164163ad2antrr 706 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
x  e.  dom  r  |->  ( ( d `  x ) ( <.
( ( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) )  =  ( x  e.  I  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  ( R `  x )
) ( c `  x ) ) ( e `  x ) ) ) )
165158, 159, 164mpt2eq123dv 5910 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) )  =  ( d  e.  ( c H ( 2nd `  a ) ) ,  e  e.  ( H `
 a )  |->  ( x  e.  I  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  ( R `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
166157, 81, 165mpt2eq123dv 5910 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )  =  ( a  e.  ( B  X.  B
) ,  c  e.  B  |->  ( d  e.  ( c H ( 2nd `  a ) ) ,  e  e.  ( H `  a
)  |->  ( x  e.  I  |->  ( ( d `
 x ) (
<. ( ( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  ( R `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) ) )
167 prdsval.x . . . . . . . . . . . 12  |-  ( ph  -> 
.xb  =  ( a  e.  ( B  X.  B ) ,  c  e.  B  |->  ( d  e.  ( c H ( 2nd `  a
) ) ,  e  e.  ( H `  a )  |->  ( x  e.  I  |->  ( ( d `  x ) ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) ( e `  x ) ) ) ) ) )
168167ad4antr 712 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  .xb  =  ( a  e.  ( B  X.  B ) ,  c  e.  B  |->  ( d  e.  ( c H ( 2nd `  a ) ) ,  e  e.  ( H `
 a )  |->  ( x  e.  I  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  ( R `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) ) )
169166, 168eqtr4d 2318 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )  =  .xb  )
170169opeq2d 3803 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>.  =  <. (comp `  ndx ) ,  .xb  >. )
171156, 170preq12d 3714 . . . . . . . 8  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  { <. (  Hom  `  ndx ) ,  h >. ,  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>. }  =  { <. (  Hom  `  ndx ) ,  H >. ,  <. (comp ` 
ndx ) ,  .xb  >. } )
172154, 171uneq12d 3330 . . . . . . 7  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  ( { <. (TopSet `  ndx ) ,  ( Xt_ `  ( TopOpen  o.  r )
) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. (  Hom  `  ndx ) ,  h >. ,  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>. } )  =  ( { <. (TopSet `  ndx ) ,  O >. , 
<. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) )
173121, 172uneq12d 3330 . . . . . 6  |-  ( ( ( ( ( ph  /\  s  =  S )  /\  r  =  R )  /\  v  =  B )  /\  h  =  H )  ->  (
( { <. ( Base `  ndx ) ,  v >. ,  <. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( +g  `  ( r `
 x ) ) ( g `  x
) ) ) )
>. ,  <. ( .r
`  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  s
>. ,  <. ( .s
`  ndx ) ,  ( f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) ) >. } )  u.  ( { <. (TopSet `  ndx ) ,  (
Xt_ `  ( TopOpen  o.  r
) ) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. (  Hom  `  ndx ) ,  h >. ,  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>. } ) )  =  ( ( { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) ) )
17468, 80, 173csbied2 3124 . . . . 5  |-  ( ( ( ( ph  /\  s  =  S )  /\  r  =  R
)  /\  v  =  B )  ->  [_ (
f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `  x
) (  Hom  `  (
r `  x )
) ( g `  x ) ) )  /  h ]_ (
( { <. ( Base `  ndx ) ,  v >. ,  <. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( +g  `  ( r `
 x ) ) ( g `  x
) ) ) )
>. ,  <. ( .r
`  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  s
>. ,  <. ( .s
`  ndx ) ,  ( f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) ) >. } )  u.  ( { <. (TopSet `  ndx ) ,  (
Xt_ `  ( TopOpen  o.  r
) ) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. (  Hom  `  ndx ) ,  h >. ,  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>. } ) )  =  ( ( { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) ) )
17524, 37, 174csbied2 3124 . . . 4  |-  ( ( ( ph  /\  s  =  S )  /\  r  =  R )  ->  [_ X_ x  e.  dom  r ( Base `  ( r `  x
) )  /  v ]_ [_ ( f  e.  v ,  g  e.  v  |->  X_ x  e.  dom  r ( ( f `
 x ) (  Hom  `  ( r `  x ) ) ( g `  x ) ) )  /  h ]_ ( ( { <. (
Base `  ndx ) ,  v >. ,  <. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( +g  `  ( r `
 x ) ) ( g `  x
) ) ) )
>. ,  <. ( .r
`  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  s
>. ,  <. ( .s
`  ndx ) ,  ( f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) ) >. } )  u.  ( { <. (TopSet `  ndx ) ,  (
Xt_ `  ( TopOpen  o.  r
) ) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. (  Hom  `  ndx ) ,  h >. ,  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>. } ) )  =  ( ( { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) ) )
176175anasss 628 . . 3  |-  ( (
ph  /\  ( s  =  S  /\  r  =  R ) )  ->  [_ X_ x  e.  dom  r ( Base `  (
r `  x )
)  /  v ]_ [_ ( f  e.  v ,  g  e.  v 
|->  X_ x  e.  dom  r ( ( f `
 x ) (  Hom  `  ( r `  x ) ) ( g `  x ) ) )  /  h ]_ ( ( { <. (
Base `  ndx ) ,  v >. ,  <. ( +g  `  ndx ) ,  ( f  e.  v ,  g  e.  v 
|->  ( x  e.  dom  r  |->  ( ( f `
 x ) ( +g  `  ( r `
 x ) ) ( g `  x
) ) ) )
>. ,  <. ( .r
`  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( ( f `  x ) ( .r
`  ( r `  x ) ) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar ` 
ndx ) ,  s
>. ,  <. ( .s
`  ndx ) ,  ( f  e.  ( Base `  s ) ,  g  e.  v  |->  ( x  e.  dom  r  |->  ( f ( .s `  ( r `  x
) ) ( g `
 x ) ) ) ) >. } )  u.  ( { <. (TopSet `  ndx ) ,  (
Xt_ `  ( TopOpen  o.  r
) ) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  v  /\  A. x  e.  dom  r ( f `  x ) ( le `  (
r `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  v ,  g  e.  v  |->  sup ( ( ran  (
x  e.  dom  r  |->  ( ( f `  x ) ( dist `  ( r `  x
) ) ( g `
 x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. (  Hom  `  ndx ) ,  h >. ,  <. (comp ` 
ndx ) ,  ( a  e.  ( v  X.  v ) ,  c  e.  v  |->  ( d  e.  ( c h ( 2nd `  a
) ) ,  e  e.  ( h `  a )  |->  ( x  e.  dom  r  |->  ( ( d `  x
) ( <. (
( 1st `  a
) `  x ) ,  ( ( 2nd `  a ) `  x
) >. (comp `  (
r `  x )
) ( c `  x ) ) ( e `  x ) ) ) ) )
>. } ) )  =  ( ( { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) ) )
177 prdsval.s . . . 4  |-  ( ph  ->  S  e.  W )
178 elex 2796 . . . 4  |-  ( S  e.  W  ->  S  e.  _V )
179177, 178syl 15 . . 3  |-  ( ph  ->  S  e.  _V )
180 prdsval.r . . . 4  |-  ( ph  ->  R  e.  Z )
181 elex 2796 . . . 4  |-  ( R  e.  Z  ->  R  e.  _V )
182180, 181syl 15 . . 3  |-  ( ph  ->  R  e.  _V )
183 tpex 4519 . . . . . 6  |-  { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  e.  _V
184 prex 4217 . . . . . 6  |-  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) ,  .x.  >. }  e.  _V
185183, 184unex 4518 . . . . 5  |-  ( {
<. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  e. 
_V
186 tpex 4519 . . . . . 6  |-  { <. (TopSet `  ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  e.  _V
187 prex 4217 . . . . . 6  |-  { <. (  Hom  `  ndx ) ,  H >. ,  <. (comp ` 
ndx ) ,  .xb  >. }  e.  _V
188186, 187unex 4518 . . . . 5  |-  ( {
<. (TopSet `  ndx ) ,  O >. ,  <. ( le `  ndx ) , 
.<_  >. ,  <. ( dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } )  e. 
_V
189185, 188unex 4518 . . . 4  |-  ( ( { <. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) )  e.  _V
190189a1i 10 . . 3  |-  ( ph  ->  ( ( { <. (
Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) )  e.  _V )
1913, 176, 179, 182, 190ovmpt2d 5975 . 2  |-  ( ph  ->  ( S X_s R )  =  ( ( { <. ( Base `  ndx ) ,  B >. ,  <. ( +g  `  ndx ) , 
.+  >. ,  <. ( .r `  ndx ) , 
.X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) ) )
1921, 191syl5eq 2327 1  |-  ( ph  ->  P  =  ( ( { <. ( Base `  ndx ) ,  B >. , 
<. ( +g  `  ndx ) ,  .+  >. ,  <. ( .r `  ndx ) ,  .X.  >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) , 
.x.  >. } )  u.  ( { <. (TopSet ` 
ndx ) ,  O >. ,  <. ( le `  ndx ) ,  .<_  >. ,  <. (
dist `  ndx ) ,  D >. }  u.  { <. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.xb  >. } ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    /\ wa 358    = wceq 1623    e. wcel 1684   A.wral 2543   _Vcvv 2788   [_csb 3081    u. cun 3150    C_ wss 3152   ~Pcpw 3625   {csn 3640   {cpr 3641   {ctp 3642   <.cop 3643   U.cuni 3827   U_ciun 3905   class class class wbr 4023   {copab 4076    e. cmpt 4077    X. cxp 4687   dom cdm 4689   ran crn 4690    o. ccom 4693   -->wf 5251   ` cfv 5255  (class class class)co 5858    e. cmpt2 5860   1stc1st 6120   2ndc2nd 6121    ^m cmap 6772   X_cixp 6817   supcsup 7193   0cc0 8737   1c1 8738   RR*cxr 8866    < clt 8867   4c4 9797  ;cdc 10124   ndxcnx 13145   Basecbs 13148   +g cplusg 13208   .rcmulr 13209  Scalarcsca 13211   .scvsca 13212  TopSetcts 13214   lecple 13215   distcds 13217    Hom chom 13219  compcco 13220   TopOpenctopn 13326   Xt_cpt 13343   X_scprds 13346
This theorem is referenced by:  prdssca  13356  prdsbas  13357  prdsplusg  13358  prdsmulr  13359  prdsvsca  13360  prdsle  13361  prdsds  13363  prdstset  13365  prdshom  13366  prdsco  13367
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1533  ax-5 1544  ax-17 1603  ax-9 1635  ax-8 1643  ax-13 1686  ax-14 1688  ax-6 1703  ax-7 1708  ax-11 1715  ax-12 1866  ax-ext 2264  ax-sep 4141  ax-nul 4149  ax-pow 4188  ax-pr 4214  ax-un 4512  ax-cnex 8793  ax-resscn 8794  ax-1cn 8795  ax-icn 8796  ax-addcl 8797  ax-addrcl 8798  ax-mulcl 8799  ax-mulrcl 8800  ax-i2m1 8805  ax-1ne0 8806  ax-rrecex 8809  ax-cnre 8810
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1310  df-ex 1529  df-nf 1532  df-sb 1630  df-eu 2147  df-mo 2148  df-clab 2270  df-cleq 2276  df-clel 2279  df-nfc 2408  df-ne 2448  df-ral 2548  df-rex 2549  df-reu 2550  df-rab 2552  df-v 2790  df-sbc 2992  df-csb 3082  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-pss 3168  df-nul 3456  df-if 3566  df-pw 3627  df-sn 3646  df-pr 3647  df-tp 3648  df-op 3649  df-uni 3828  df-iun 3907  df-br 4024  df-opab 4078  df-mpt 4079  df-tr 4114  df-eprel 4305  df-id 4309  df-po 4314  df-so 4315  df-fr 4352  df-we 4354  df-ord 4395  df-on 4396  df-lim 4397  df-suc 4398  df-om 4657  df-xp 4695  df-rel 4696  df-cnv 4697  df-co 4698  df-dm 4699  df-rn 4700  df-res 4701  df-ima 4702  df-iota 5219  df-fun 5257  df-fn 5258  df-f 5259  df-f1 5260  df-fo 5261  df-f1o 5262  df-fv 5263  df-ov 5861  df-oprab 5862  df-mpt2 5863  df-1st 6122  df-2nd 6123  df-recs 6388  df-rdg 6423  df-map 6774  df-ixp 6818  df-sup 7194  df-nn 9747  df-ndx 13151  df-slot 13152  df-base 13153  df-hom 13232  df-prds 13348
  Copyright terms: Public domain W3C validator