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

Theorem prdsbas 15342
Description: Base set of a structure product. (Contributed by Stefan O'Rear, 3-Jan-2015.) (Revised by Mario Carneiro, 15-Aug-2015.) (Revised by Thierry Arnoux, 16-Jun-2019.)
Hypotheses
Ref Expression
prdsbas.p  |-  P  =  ( S X_s R )
prdsbas.s  |-  ( ph  ->  S  e.  V )
prdsbas.r  |-  ( ph  ->  R  e.  W )
prdsbas.b  |-  B  =  ( Base `  P
)
prdsbas.i  |-  ( ph  ->  dom  R  =  I )
Assertion
Ref Expression
prdsbas  |-  ( ph  ->  B  =  X_ x  e.  I  ( Base `  ( R `  x
) ) )
Distinct variable groups:    x, B    ph, x    x, I    x, P    x, R    x, S
Allowed substitution hints:    V( x)    W( x)

Proof of Theorem prdsbas
Dummy variables  a 
c  d  e  f  g are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prdsbas.p . . 3  |-  P  =  ( S X_s R )
2 eqid 2422 . . 3  |-  ( Base `  S )  =  (
Base `  S )
3 prdsbas.i . . 3  |-  ( ph  ->  dom  R  =  I )
4 eqidd 2423 . . 3  |-  ( ph  -> 
X_ x  e.  I 
( Base `  ( R `  x ) )  = 
X_ x  e.  I 
( Base `  ( R `  x ) ) )
5 eqidd 2423 . . 3  |-  ( ph  ->  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) )  =  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) )
6 eqidd 2423 . . 3  |-  ( ph  ->  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) )  =  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) )
7 eqidd 2423 . . 3  |-  ( ph  ->  ( f  e.  (
Base `  S ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) )  =  ( f  e.  ( Base `  S
) ,  g  e.  X_ x  e.  I 
( Base `  ( R `  x ) )  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x ) ) ( g `  x ) ) ) ) )
8 eqidd 2423 . . 3  |-  ( ph  ->  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( S 
gsumg  ( x  e.  I  |->  ( ( f `  x ) ( .i
`  ( R `  x ) ) ( g `  x ) ) ) ) )  =  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( S 
gsumg  ( x  e.  I  |->  ( ( f `  x ) ( .i
`  ( R `  x ) ) ( g `  x ) ) ) ) ) )
9 eqidd 2423 . . 3  |-  ( ph  ->  ( Xt_ `  ( TopOpen  o.  R ) )  =  ( Xt_ `  ( TopOpen  o.  R ) ) )
10 eqidd 2423 . . 3  |-  ( ph  ->  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  X_ x  e.  I 
( Base `  ( R `  x ) )  /\  A. x  e.  I  ( f `  x ) ( le `  ( R `  x )
) ( g `  x ) ) }  =  { <. f ,  g >.  |  ( { f ,  g }  C_  X_ x  e.  I  ( Base `  ( R `  x )
)  /\  A. x  e.  I  ( f `  x ) ( le
`  ( R `  x ) ) ( g `  x ) ) } )
11 eqidd 2423 . . 3  |-  ( ph  ->  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  sup (
( ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) )  =  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  sup (
( ran  ( x  e.  I  |->  ( ( f `  x ) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) )
12 eqidd 2423 . . 3  |-  ( ph  ->  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) )  =  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) )
13 eqidd 2423 . . 3  |-  ( ph  ->  ( a  e.  (
X_ x  e.  I 
( Base `  ( R `  x ) )  X.  X_ x  e.  I 
( Base `  ( R `  x ) ) ) ,  c  e.  X_ x  e.  I  ( Base `  ( R `  x ) )  |->  ( d  e.  ( c ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) ( 2nd `  a ) ) ,  e  e.  ( ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) `  a )  |->  ( x  e.  I  |->  ( ( d `  x ) ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) ( e `  x ) ) ) ) )  =  ( a  e.  ( X_ x  e.  I  ( Base `  ( R `  x ) )  X.  X_ x  e.  I 
( Base `  ( R `  x ) ) ) ,  c  e.  X_ x  e.  I  ( Base `  ( R `  x ) )  |->  ( d  e.  ( c ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) ( 2nd `  a ) ) ,  e  e.  ( ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) `  a )  |->  ( x  e.  I  |->  ( ( d `  x ) ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) ( e `  x ) ) ) ) ) )
14 prdsbas.s . . 3  |-  ( ph  ->  S  e.  V )
15 prdsbas.r . . 3  |-  ( ph  ->  R  e.  W )
161, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15prdsval 15340 . 2  |-  ( ph  ->  P  =  ( ( { <. ( Base `  ndx ) ,  X_ x  e.  I  ( Base `  ( R `  x )
) >. ,  <. ( +g  `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) ,  ( f  e.  (
Base `  S ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .i `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( S 
gsumg  ( x  e.  I  |->  ( ( f `  x ) ( .i
`  ( R `  x ) ) ( g `  x ) ) ) ) )
>. } )  u.  ( { <. (TopSet `  ndx ) ,  ( Xt_ `  ( TopOpen  o.  R )
) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  X_ x  e.  I 
( Base `  ( R `  x ) )  /\  A. x  e.  I  ( f `  x ) ( le `  ( R `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x
) ) ,  g  e.  X_ x  e.  I 
( Base `  ( R `  x ) )  |->  sup ( ( ran  (
x  e.  I  |->  ( ( f `  x
) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. ( Hom  `  ndx ) ,  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) >. ,  <. (comp `  ndx ) ,  ( a  e.  ( X_ x  e.  I  ( Base `  ( R `  x )
)  X.  X_ x  e.  I  ( Base `  ( R `  x
) ) ) ,  c  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( d  e.  ( c ( f  e.  X_ x  e.  I  ( Base `  ( R `  x
) ) ,  g  e.  X_ x  e.  I 
( Base `  ( R `  x ) )  |->  X_ x  e.  I  (
( f `  x
) ( Hom  `  ( R `  x )
) ( g `  x ) ) ) ( 2nd `  a
) ) ,  e  e.  ( ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) `  a )  |->  ( x  e.  I  |->  ( ( d `  x ) ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) ( e `  x ) ) ) ) ) >. } ) ) )
17 prdsbas.b . 2  |-  B  =  ( Base `  P
)
18 baseid 15156 . 2  |-  Base  = Slot  ( Base `  ndx )
1918strfvss 15126 . . . . . . 7  |-  ( Base `  ( R `  x
) )  C_  U. ran  ( R `  x )
20 fvssunirn 5900 . . . . . . . 8  |-  ( R `
 x )  C_  U.
ran  R
21 rnss 5078 . . . . . . . 8  |-  ( ( R `  x ) 
C_  U. ran  R  ->  ran  ( R `  x
)  C_  ran  U. ran  R )
22 uniss 4237 . . . . . . . 8  |-  ( ran  ( R `  x
)  C_  ran  U. ran  R  ->  U. ran  ( R `
 x )  C_  U.
ran  U. ran  R )
2320, 21, 22mp2b 10 . . . . . . 7  |-  U. ran  ( R `  x ) 
C_  U. ran  U. ran  R
2419, 23sstri 3473 . . . . . 6  |-  ( Base `  ( R `  x
) )  C_  U. ran  U.
ran  R
2524rgenw 2786 . . . . 5  |-  A. x  e.  I  ( Base `  ( R `  x
) )  C_  U. ran  U.
ran  R
26 iunss 4337 . . . . 5  |-  ( U_ x  e.  I  ( Base `  ( R `  x ) )  C_  U.
ran  U. ran  R  <->  A. x  e.  I  ( Base `  ( R `  x
) )  C_  U. ran  U.
ran  R )
2725, 26mpbir 212 . . . 4  |-  U_ x  e.  I  ( Base `  ( R `  x
) )  C_  U. ran  U.
ran  R
28 rnexg 6735 . . . . . 6  |-  ( R  e.  W  ->  ran  R  e.  _V )
29 uniexg 6598 . . . . . 6  |-  ( ran 
R  e.  _V  ->  U.
ran  R  e.  _V )
3015, 28, 293syl 18 . . . . 5  |-  ( ph  ->  U. ran  R  e. 
_V )
31 rnexg 6735 . . . . 5  |-  ( U. ran  R  e.  _V  ->  ran  U. ran  R  e.  _V )
32 uniexg 6598 . . . . 5  |-  ( ran  U. ran  R  e.  _V  ->  U. ran  U. ran  R  e.  _V )
3330, 31, 323syl 18 . . . 4  |-  ( ph  ->  U. ran  U. ran  R  e.  _V )
34 ssexg 4566 . . . 4  |-  ( (
U_ x  e.  I 
( Base `  ( R `  x ) )  C_  U.
ran  U. ran  R  /\  U.
ran  U. ran  R  e. 
_V )  ->  U_ x  e.  I  ( Base `  ( R `  x
) )  e.  _V )
3527, 33, 34sylancr 667 . . 3  |-  ( ph  ->  U_ x  e.  I 
( Base `  ( R `  x ) )  e. 
_V )
36 ixpssmap2g 7555 . . 3  |-  ( U_ x  e.  I  ( Base `  ( R `  x ) )  e. 
_V  ->  X_ x  e.  I 
( Base `  ( R `  x ) )  C_  ( U_ x  e.  I 
( Base `  ( R `  x ) )  ^m  I ) )
37 ovex 6329 . . . 4  |-  ( U_ x  e.  I  ( Base `  ( R `  x ) )  ^m  I )  e.  _V
3837ssex 4564 . . 3  |-  ( X_ x  e.  I  ( Base `  ( R `  x ) )  C_  ( U_ x  e.  I 
( Base `  ( R `  x ) )  ^m  I )  ->  X_ x  e.  I  ( Base `  ( R `  x
) )  e.  _V )
3935, 36, 383syl 18 . 2  |-  ( ph  -> 
X_ x  e.  I 
( Base `  ( R `  x ) )  e. 
_V )
40 snsstp1 4148 . . . 4  |-  { <. (
Base `  ndx ) , 
X_ x  e.  I 
( Base `  ( R `  x ) ) >. }  C_  { <. ( Base `  ndx ) , 
X_ x  e.  I 
( Base `  ( R `  x ) ) >. ,  <. ( +g  `  ndx ) ,  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) >. }
41 ssun1 3629 . . . 4  |-  { <. (
Base `  ndx ) , 
X_ x  e.  I 
( Base `  ( R `  x ) ) >. ,  <. ( +g  `  ndx ) ,  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) >. }  C_  ( { <. ( Base `  ndx ) ,  X_ x  e.  I  ( Base `  ( R `  x )
) >. ,  <. ( +g  `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) ,  ( f  e.  (
Base `  S ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .i `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( S 
gsumg  ( x  e.  I  |->  ( ( f `  x ) ( .i
`  ( R `  x ) ) ( g `  x ) ) ) ) )
>. } )
4240, 41sstri 3473 . . 3  |-  { <. (
Base `  ndx ) , 
X_ x  e.  I 
( Base `  ( R `  x ) ) >. }  C_  ( { <. (
Base `  ndx ) , 
X_ x  e.  I 
( Base `  ( R `  x ) ) >. ,  <. ( +g  `  ndx ) ,  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) ,  ( f  e.  (
Base `  S ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .i `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( S 
gsumg  ( x  e.  I  |->  ( ( f `  x ) ( .i
`  ( R `  x ) ) ( g `  x ) ) ) ) )
>. } )
43 ssun1 3629 . . 3  |-  ( {
<. ( Base `  ndx ) ,  X_ x  e.  I  ( Base `  ( R `  x )
) >. ,  <. ( +g  `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) ,  ( f  e.  (
Base `  S ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .i `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( S 
gsumg  ( x  e.  I  |->  ( ( f `  x ) ( .i
`  ( R `  x ) ) ( g `  x ) ) ) ) )
>. } )  C_  (
( { <. ( Base `  ndx ) , 
X_ x  e.  I 
( Base `  ( R `  x ) ) >. ,  <. ( +g  `  ndx ) ,  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) ,  ( f  e.  (
Base `  S ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .i `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( S 
gsumg  ( x  e.  I  |->  ( ( f `  x ) ( .i
`  ( R `  x ) ) ( g `  x ) ) ) ) )
>. } )  u.  ( { <. (TopSet `  ndx ) ,  ( Xt_ `  ( TopOpen  o.  R )
) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  X_ x  e.  I 
( Base `  ( R `  x ) )  /\  A. x  e.  I  ( f `  x ) ( le `  ( R `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x
) ) ,  g  e.  X_ x  e.  I 
( Base `  ( R `  x ) )  |->  sup ( ( ran  (
x  e.  I  |->  ( ( f `  x
) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. ( Hom  `  ndx ) ,  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) >. ,  <. (comp `  ndx ) ,  ( a  e.  ( X_ x  e.  I  ( Base `  ( R `  x )
)  X.  X_ x  e.  I  ( Base `  ( R `  x
) ) ) ,  c  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( d  e.  ( c ( f  e.  X_ x  e.  I  ( Base `  ( R `  x
) ) ,  g  e.  X_ x  e.  I 
( Base `  ( R `  x ) )  |->  X_ x  e.  I  (
( f `  x
) ( Hom  `  ( R `  x )
) ( g `  x ) ) ) ( 2nd `  a
) ) ,  e  e.  ( ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) `  a )  |->  ( x  e.  I  |->  ( ( d `  x ) ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) ( e `  x ) ) ) ) ) >. } ) )
4442, 43sstri 3473 . 2  |-  { <. (
Base `  ndx ) , 
X_ x  e.  I 
( Base `  ( R `  x ) ) >. }  C_  ( ( {
<. ( Base `  ndx ) ,  X_ x  e.  I  ( Base `  ( R `  x )
) >. ,  <. ( +g  `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( +g  `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .r `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( ( f `  x ) ( .r `  ( R `  x )
) ( g `  x ) ) ) ) >. }  u.  { <. (Scalar `  ndx ) ,  S >. ,  <. ( .s `  ndx ) ,  ( f  e.  (
Base `  S ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( x  e.  I  |->  ( f ( .s `  ( R `  x )
) ( g `  x ) ) ) ) >. ,  <. ( .i `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( S 
gsumg  ( x  e.  I  |->  ( ( f `  x ) ( .i
`  ( R `  x ) ) ( g `  x ) ) ) ) )
>. } )  u.  ( { <. (TopSet `  ndx ) ,  ( Xt_ `  ( TopOpen  o.  R )
) >. ,  <. ( le `  ndx ) ,  { <. f ,  g
>.  |  ( {
f ,  g } 
C_  X_ x  e.  I 
( Base `  ( R `  x ) )  /\  A. x  e.  I  ( f `  x ) ( le `  ( R `  x )
) ( g `  x ) ) }
>. ,  <. ( dist `  ndx ) ,  ( f  e.  X_ x  e.  I  ( Base `  ( R `  x
) ) ,  g  e.  X_ x  e.  I 
( Base `  ( R `  x ) )  |->  sup ( ( ran  (
x  e.  I  |->  ( ( f `  x
) ( dist `  ( R `  x )
) ( g `  x ) ) )  u.  { 0 } ) ,  RR* ,  <  ) ) >. }  u.  { <. ( Hom  `  ndx ) ,  ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) >. ,  <. (comp `  ndx ) ,  ( a  e.  ( X_ x  e.  I  ( Base `  ( R `  x )
)  X.  X_ x  e.  I  ( Base `  ( R `  x
) ) ) ,  c  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  ( d  e.  ( c ( f  e.  X_ x  e.  I  ( Base `  ( R `  x
) ) ,  g  e.  X_ x  e.  I 
( Base `  ( R `  x ) )  |->  X_ x  e.  I  (
( f `  x
) ( Hom  `  ( R `  x )
) ( g `  x ) ) ) ( 2nd `  a
) ) ,  e  e.  ( ( f  e.  X_ x  e.  I 
( Base `  ( R `  x ) ) ,  g  e.  X_ x  e.  I  ( Base `  ( R `  x
) )  |->  X_ x  e.  I  ( (
f `  x )
( Hom  `  ( R `
 x ) ) ( g `  x
) ) ) `  a )  |->  ( x  e.  I  |->  ( ( d `  x ) ( <. ( ( 1st `  a ) `  x
) ,  ( ( 2nd `  a ) `
 x ) >.
(comp `  ( R `  x ) ) ( c `  x ) ) ( e `  x ) ) ) ) ) >. } ) )
4516, 17, 18, 39, 44prdsvallem 15339 1  |-  ( ph  ->  B  =  X_ x  e.  I  ( Base `  ( R `  x
) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 370    = wceq 1437    e. wcel 1868   A.wral 2775   _Vcvv 3081    u. cun 3434    C_ wss 3436   {csn 3996   {cpr 3998   {ctp 4000   <.cop 4002   U.cuni 4216   U_ciun 4296   class class class wbr 4420   {copab 4478    |-> cmpt 4479    X. cxp 4847   dom cdm 4849   ran crn 4850    o. ccom 4853   ` cfv 5597  (class class class)co 6301    |-> cmpt2 6303   1stc1st 6801   2ndc2nd 6802    ^m cmap 7476   X_cixp 7526   supcsup 7956   0cc0 9539   RR*cxr 9674    < clt 9675   ndxcnx 15105   Basecbs 15108   +g cplusg 15177   .rcmulr 15178  Scalarcsca 15180   .scvsca 15181   .icip 15182  TopSetcts 15183   lecple 15184   distcds 15186   Hom chom 15188  compcco 15189   TopOpenctopn 15307   Xt_cpt 15324    gsumg cgsu 15326   X_scprds 15331
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1665  ax-4 1678  ax-5 1748  ax-6 1794  ax-7 1839  ax-8 1870  ax-9 1872  ax-10 1887  ax-11 1892  ax-12 1905  ax-13 2053  ax-ext 2400  ax-sep 4543  ax-nul 4551  ax-pow 4598  ax-pr 4656  ax-un 6593  ax-cnex 9595  ax-resscn 9596  ax-1cn 9597  ax-icn 9598  ax-addcl 9599  ax-addrcl 9600  ax-mulcl 9601  ax-mulrcl 9602  ax-mulcom 9603  ax-addass 9604  ax-mulass 9605  ax-distr 9606  ax-i2m1 9607  ax-1ne0 9608  ax-1rid 9609  ax-rnegex 9610  ax-rrecex 9611  ax-cnre 9612  ax-pre-lttri 9613  ax-pre-lttrn 9614  ax-pre-ltadd 9615  ax-pre-mulgt0 9616
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1660  df-nf 1664  df-sb 1787  df-eu 2269  df-mo 2270  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2572  df-ne 2620  df-nel 2621  df-ral 2780  df-rex 2781  df-reu 2782  df-rab 2784  df-v 3083  df-sbc 3300  df-csb 3396  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-pss 3452  df-nul 3762  df-if 3910  df-pw 3981  df-sn 3997  df-pr 3999  df-tp 4001  df-op 4003  df-uni 4217  df-int 4253  df-iun 4298  df-br 4421  df-opab 4480  df-mpt 4481  df-tr 4516  df-eprel 4760  df-id 4764  df-po 4770  df-so 4771  df-fr 4808  df-we 4810  df-xp 4855  df-rel 4856  df-cnv 4857  df-co 4858  df-dm 4859  df-rn 4860  df-res 4861  df-ima 4862  df-pred 5395  df-ord 5441  df-on 5442  df-lim 5443  df-suc 5444  df-iota 5561  df-fun 5599  df-fn 5600  df-f 5601  df-f1 5602  df-fo 5603  df-f1o 5604  df-fv 5605  df-riota 6263  df-ov 6304  df-oprab 6305  df-mpt2 6306  df-om 6703  df-1st 6803  df-2nd 6804  df-wrecs 7032  df-recs 7094  df-rdg 7132  df-1o 7186  df-oadd 7190  df-er 7367  df-map 7478  df-ixp 7527  df-en 7574  df-dom 7575  df-sdom 7576  df-fin 7577  df-sup 7958  df-pnf 9677  df-mnf 9678  df-xr 9679  df-ltxr 9680  df-le 9681  df-sub 9862  df-neg 9863  df-nn 10610  df-2 10668  df-3 10669  df-4 10670  df-5 10671  df-6 10672  df-7 10673  df-8 10674  df-9 10675  df-10 10676  df-n0 10870  df-z 10938  df-dec 11052  df-uz 11160  df-fz 11785  df-struct 15110  df-ndx 15111  df-slot 15112  df-base 15113  df-plusg 15190  df-mulr 15191  df-sca 15193  df-vsca 15194  df-ip 15195  df-tset 15196  df-ple 15197  df-ds 15199  df-hom 15201  df-cco 15202  df-prds 15333
This theorem is referenced by:  prdsplusg  15343  prdsmulr  15344  prdsvsca  15345  prdsip  15346  prdsle  15347  prdsds  15349  prdstset  15351  prdshom  15352  prdsco  15353  prdsbas2  15354  pwsbas  15372  dsmmval  19283  frlmip  19322  prdstps  20630  rrxip  22335  prdstotbnd  32039
  Copyright terms: Public domain W3C validator