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

Theorem tmdgsum 21041
Description: In a topological monoid, the group sum operation is a continuous function from the function space to the base topology. This theorem is not true when  A is infinite, because in this case for any basic open set of the domain one of the factors will be the whole space, so by varying the value of the functions to sum at this index, one can achieve any desired sum. (Contributed by Mario Carneiro, 19-Sep-2015.) (Proof shortened by AV, 24-Jul-2019.)
Hypotheses
Ref Expression
tmdgsum.j  |-  J  =  ( TopOpen `  G )
tmdgsum.b  |-  B  =  ( Base `  G
)
Assertion
Ref Expression
tmdgsum  |-  ( ( G  e. CMnd  /\  G  e. TopMnd  /\  A  e.  Fin )  ->  ( x  e.  ( B  ^m  A
)  |->  ( G  gsumg  x ) )  e.  ( ( J  ^ko  ~P A )  Cn  J ) )
Distinct variable groups:    x, A    x, J    x, B    x, G

Proof of Theorem tmdgsum
Dummy variables  k  w  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oveq2 6313 . . . . . . . 8  |-  ( w  =  (/)  ->  ( B  ^m  w )  =  ( B  ^m  (/) ) )
21mpteq1d 4507 . . . . . . 7  |-  ( w  =  (/)  ->  ( x  e.  ( B  ^m  w )  |->  ( G 
gsumg  x ) )  =  ( x  e.  ( B  ^m  (/) )  |->  ( G  gsumg  x ) ) )
3 xpeq1 4868 . . . . . . . . . 10  |-  ( w  =  (/)  ->  ( w  X.  { J }
)  =  ( (/)  X. 
{ J } ) )
4 0xp 4935 . . . . . . . . . 10  |-  ( (/)  X. 
{ J } )  =  (/)
53, 4syl6eq 2486 . . . . . . . . 9  |-  ( w  =  (/)  ->  ( w  X.  { J }
)  =  (/) )
65fveq2d 5885 . . . . . . . 8  |-  ( w  =  (/)  ->  ( Xt_ `  ( w  X.  { J } ) )  =  ( Xt_ `  (/) ) )
76oveq1d 6320 . . . . . . 7  |-  ( w  =  (/)  ->  ( (
Xt_ `  ( w  X.  { J } ) )  Cn  J )  =  ( ( Xt_ `  (/) )  Cn  J
) )
82, 7eleq12d 2511 . . . . . 6  |-  ( w  =  (/)  ->  ( ( x  e.  ( B  ^m  w )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
w  X.  { J } ) )  Cn  J )  <->  ( x  e.  ( B  ^m  (/) )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (/) )  Cn  J ) ) )
98imbi2d 317 . . . . 5  |-  ( w  =  (/)  ->  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  ( x  e.  ( B  ^m  w )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
w  X.  { J } ) )  Cn  J ) )  <->  ( ( G  e. CMnd  /\  G  e. TopMnd
)  ->  ( x  e.  ( B  ^m  (/) )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (/) )  Cn  J ) ) ) )
10 oveq2 6313 . . . . . . . 8  |-  ( w  =  y  ->  ( B  ^m  w )  =  ( B  ^m  y
) )
1110mpteq1d 4507 . . . . . . 7  |-  ( w  =  y  ->  (
x  e.  ( B  ^m  w )  |->  ( G  gsumg  x ) )  =  ( x  e.  ( B  ^m  y ) 
|->  ( G  gsumg  x ) ) )
12 xpeq1 4868 . . . . . . . . 9  |-  ( w  =  y  ->  (
w  X.  { J } )  =  ( y  X.  { J } ) )
1312fveq2d 5885 . . . . . . . 8  |-  ( w  =  y  ->  ( Xt_ `  ( w  X.  { J } ) )  =  ( Xt_ `  (
y  X.  { J } ) ) )
1413oveq1d 6320 . . . . . . 7  |-  ( w  =  y  ->  (
( Xt_ `  ( w  X.  { J }
) )  Cn  J
)  =  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )
1511, 14eleq12d 2511 . . . . . 6  |-  ( w  =  y  ->  (
( x  e.  ( B  ^m  w ) 
|->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
w  X.  { J } ) )  Cn  J )  <->  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) ) )
1615imbi2d 317 . . . . 5  |-  ( w  =  y  ->  (
( ( G  e. CMnd  /\  G  e. TopMnd )  -> 
( x  e.  ( B  ^m  w ) 
|->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
w  X.  { J } ) )  Cn  J ) )  <->  ( ( G  e. CMnd  /\  G  e. TopMnd
)  ->  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) ) ) )
17 oveq2 6313 . . . . . . . 8  |-  ( w  =  ( y  u. 
{ z } )  ->  ( B  ^m  w )  =  ( B  ^m  ( y  u.  { z } ) ) )
1817mpteq1d 4507 . . . . . . 7  |-  ( w  =  ( y  u. 
{ z } )  ->  ( x  e.  ( B  ^m  w
)  |->  ( G  gsumg  x ) )  =  ( x  e.  ( B  ^m  ( y  u.  {
z } ) ) 
|->  ( G  gsumg  x ) ) )
19 xpeq1 4868 . . . . . . . . 9  |-  ( w  =  ( y  u. 
{ z } )  ->  ( w  X.  { J } )  =  ( ( y  u. 
{ z } )  X.  { J }
) )
2019fveq2d 5885 . . . . . . . 8  |-  ( w  =  ( y  u. 
{ z } )  ->  ( Xt_ `  (
w  X.  { J } ) )  =  ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) ) )
2120oveq1d 6320 . . . . . . 7  |-  ( w  =  ( y  u. 
{ z } )  ->  ( ( Xt_ `  ( w  X.  { J } ) )  Cn  J )  =  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  J ) )
2218, 21eleq12d 2511 . . . . . 6  |-  ( w  =  ( y  u. 
{ z } )  ->  ( ( x  e.  ( B  ^m  w )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
w  X.  { J } ) )  Cn  J )  <->  ( x  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  J ) ) )
2322imbi2d 317 . . . . 5  |-  ( w  =  ( y  u. 
{ z } )  ->  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  ( x  e.  ( B  ^m  w
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( w  X.  { J } ) )  Cn  J ) )  <->  ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  ( x  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  J ) ) ) )
24 oveq2 6313 . . . . . . . 8  |-  ( w  =  A  ->  ( B  ^m  w )  =  ( B  ^m  A
) )
2524mpteq1d 4507 . . . . . . 7  |-  ( w  =  A  ->  (
x  e.  ( B  ^m  w )  |->  ( G  gsumg  x ) )  =  ( x  e.  ( B  ^m  A ) 
|->  ( G  gsumg  x ) ) )
26 xpeq1 4868 . . . . . . . . 9  |-  ( w  =  A  ->  (
w  X.  { J } )  =  ( A  X.  { J } ) )
2726fveq2d 5885 . . . . . . . 8  |-  ( w  =  A  ->  ( Xt_ `  ( w  X.  { J } ) )  =  ( Xt_ `  ( A  X.  { J }
) ) )
2827oveq1d 6320 . . . . . . 7  |-  ( w  =  A  ->  (
( Xt_ `  ( w  X.  { J }
) )  Cn  J
)  =  ( (
Xt_ `  ( A  X.  { J } ) )  Cn  J ) )
2925, 28eleq12d 2511 . . . . . 6  |-  ( w  =  A  ->  (
( x  e.  ( B  ^m  w ) 
|->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
w  X.  { J } ) )  Cn  J )  <->  ( x  e.  ( B  ^m  A
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( A  X.  { J } ) )  Cn  J ) ) )
3029imbi2d 317 . . . . 5  |-  ( w  =  A  ->  (
( ( G  e. CMnd  /\  G  e. TopMnd )  -> 
( x  e.  ( B  ^m  w ) 
|->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
w  X.  { J } ) )  Cn  J ) )  <->  ( ( G  e. CMnd  /\  G  e. TopMnd
)  ->  ( x  e.  ( B  ^m  A
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( A  X.  { J } ) )  Cn  J ) ) ) )
31 elmapfn 7502 . . . . . . . . . 10  |-  ( x  e.  ( B  ^m  (/) )  ->  x  Fn  (/) )
32 fn0 5713 . . . . . . . . . 10  |-  ( x  Fn  (/)  <->  x  =  (/) )
3331, 32sylib 199 . . . . . . . . 9  |-  ( x  e.  ( B  ^m  (/) )  ->  x  =  (/) )
3433oveq2d 6321 . . . . . . . 8  |-  ( x  e.  ( B  ^m  (/) )  ->  ( G  gsumg  x )  =  ( G 
gsumg  (/) ) )
35 eqid 2429 . . . . . . . . 9  |-  ( 0g
`  G )  =  ( 0g `  G
)
3635gsum0 16472 . . . . . . . 8  |-  ( G 
gsumg  (/) )  =  ( 0g
`  G )
3734, 36syl6eq 2486 . . . . . . 7  |-  ( x  e.  ( B  ^m  (/) )  ->  ( G  gsumg  x )  =  ( 0g
`  G ) )
3837mpteq2ia 4508 . . . . . 6  |-  ( x  e.  ( B  ^m  (/) )  |->  ( G  gsumg  x ) )  =  ( x  e.  ( B  ^m  (/) )  |->  ( 0g `  G ) )
39 0ex 4557 . . . . . . . 8  |-  (/)  e.  _V
40 tmdgsum.j . . . . . . . . . 10  |-  J  =  ( TopOpen `  G )
41 tmdgsum.b . . . . . . . . . 10  |-  B  =  ( Base `  G
)
4240, 41tmdtopon 21027 . . . . . . . . 9  |-  ( G  e. TopMnd  ->  J  e.  (TopOn `  B ) )
4342adantl 467 . . . . . . . 8  |-  ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  J  e.  (TopOn `  B ) )
444fveq2i 5884 . . . . . . . . . 10  |-  ( Xt_ `  ( (/)  X.  { J } ) )  =  ( Xt_ `  (/) )
4544eqcomi 2442 . . . . . . . . 9  |-  ( Xt_ `  (/) )  =  ( Xt_ `  ( (/)  X.  { J } ) )
4645pttoponconst 20543 . . . . . . . 8  |-  ( (
(/)  e.  _V  /\  J  e.  (TopOn `  B )
)  ->  ( Xt_ `  (/) )  e.  (TopOn `  ( B  ^m  (/) ) ) )
4739, 43, 46sylancr 667 . . . . . . 7  |-  ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  ( Xt_ `  (/) )  e.  (TopOn `  ( B  ^m  (/) ) ) )
48 tmdmnd 21021 . . . . . . . . 9  |-  ( G  e. TopMnd  ->  G  e.  Mnd )
4948adantl 467 . . . . . . . 8  |-  ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  G  e.  Mnd )
5041, 35mndidcl 16505 . . . . . . . 8  |-  ( G  e.  Mnd  ->  ( 0g `  G )  e.  B )
5149, 50syl 17 . . . . . . 7  |-  ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  ( 0g `  G )  e.  B
)
5247, 43, 51cnmptc 20608 . . . . . 6  |-  ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  ( x  e.  ( B  ^m  (/) )  |->  ( 0g `  G ) )  e.  ( (
Xt_ `  (/) )  Cn  J ) )
5338, 52syl5eqel 2521 . . . . 5  |-  ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  ( x  e.  ( B  ^m  (/) )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (/) )  Cn  J ) )
54 oveq2 6313 . . . . . . . . . . 11  |-  ( x  =  w  ->  ( G  gsumg  x )  =  ( G  gsumg  w ) )
5554cbvmptv 4518 . . . . . . . . . 10  |-  ( x  e.  ( B  ^m  ( y  u.  {
z } ) ) 
|->  ( G  gsumg  x ) )  =  ( w  e.  ( B  ^m  ( y  u.  { z } ) )  |->  ( G 
gsumg  w ) )
56 eqid 2429 . . . . . . . . . . . 12  |-  ( +g  `  G )  =  ( +g  `  G )
57 simpl1l 1056 . . . . . . . . . . . 12  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  G  e. CMnd )
58 simp2l 1031 . . . . . . . . . . . . . 14  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  y  e.  Fin )
59 snfi 7657 . . . . . . . . . . . . . 14  |-  { z }  e.  Fin
60 unfi 7844 . . . . . . . . . . . . . 14  |-  ( ( y  e.  Fin  /\  { z }  e.  Fin )  ->  ( y  u. 
{ z } )  e.  Fin )
6158, 59, 60sylancl 666 . . . . . . . . . . . . 13  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( y  u.  { z } )  e.  Fin )
6261adantr 466 . . . . . . . . . . . 12  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( y  u.  { z } )  e.  Fin )
63 elmapi 7501 . . . . . . . . . . . . 13  |-  ( w  e.  ( B  ^m  ( y  u.  {
z } ) )  ->  w : ( y  u.  { z } ) --> B )
6463adantl 467 . . . . . . . . . . . 12  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  w :
( y  u.  {
z } ) --> B )
65 fvex 5891 . . . . . . . . . . . . . 14  |-  ( 0g
`  G )  e. 
_V
6665a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( 0g `  G )  e.  _V )
6764, 62, 66fdmfifsupp 7899 . . . . . . . . . . . 12  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  w finSupp  ( 0g
`  G ) )
68 simpl2r 1059 . . . . . . . . . . . . 13  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  -.  z  e.  y )
69 disjsn 4063 . . . . . . . . . . . . 13  |-  ( ( y  i^i  { z } )  =  (/)  <->  -.  z  e.  y )
7068, 69sylibr 215 . . . . . . . . . . . 12  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( y  i^i  { z } )  =  (/) )
71 eqidd 2430 . . . . . . . . . . . 12  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( y  u.  { z } )  =  ( y  u. 
{ z } ) )
7241, 35, 56, 57, 62, 64, 67, 70, 71gsumsplit 17496 . . . . . . . . . . 11  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( G  gsumg  w )  =  ( ( G  gsumg  ( w  |`  y
) ) ( +g  `  G ) ( G 
gsumg  ( w  |`  { z } ) ) ) )
7372mpteq2dva 4512 . . . . . . . . . 10  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( G  gsumg  w ) )  =  ( w  e.  ( B  ^m  ( y  u.  { z } ) )  |->  ( ( G  gsumg  ( w  |`  y
) ) ( +g  `  G ) ( G 
gsumg  ( w  |`  { z } ) ) ) ) )
7455, 73syl5eq 2482 . . . . . . . . 9  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( x  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( G  gsumg  x ) )  =  ( w  e.  ( B  ^m  ( y  u.  { z } ) )  |->  ( ( G  gsumg  ( w  |`  y
) ) ( +g  `  G ) ( G 
gsumg  ( w  |`  { z } ) ) ) ) )
75 simp1r 1030 . . . . . . . . . 10  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  G  e. TopMnd )
7675, 42syl 17 . . . . . . . . . . 11  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  J  e.  (TopOn `  B ) )
77 eqid 2429 . . . . . . . . . . . 12  |-  ( Xt_ `  ( ( y  u. 
{ z } )  X.  { J }
) )  =  (
Xt_ `  ( (
y  u.  { z } )  X.  { J } ) )
7877pttoponconst 20543 . . . . . . . . . . 11  |-  ( ( ( y  u.  {
z } )  e. 
Fin  /\  J  e.  (TopOn `  B ) )  ->  ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  e.  (TopOn `  ( B  ^m  (
y  u.  { z } ) ) ) )
7961, 76, 78syl2anc 665 . . . . . . . . . 10  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( Xt_ `  ( ( y  u. 
{ z } )  X.  { J }
) )  e.  (TopOn `  ( B  ^m  (
y  u.  { z } ) ) ) )
80 toponuni 19873 . . . . . . . . . . . . . 14  |-  ( (
Xt_ `  ( (
y  u.  { z } )  X.  { J } ) )  e.  (TopOn `  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( B  ^m  ( y  u.  {
z } ) )  =  U. ( Xt_ `  ( ( y  u. 
{ z } )  X.  { J }
) ) )
8179, 80syl 17 . . . . . . . . . . . . 13  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( B  ^m  ( y  u.  {
z } ) )  =  U. ( Xt_ `  ( ( y  u. 
{ z } )  X.  { J }
) ) )
8281mpteq1d 4507 . . . . . . . . . . . 12  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( w  |`  y )
)  =  ( w  e.  U. ( Xt_ `  ( ( y  u. 
{ z } )  X.  { J }
) )  |->  ( w  |`  y ) ) )
83 topontop 19872 . . . . . . . . . . . . . . 15  |-  ( J  e.  (TopOn `  B
)  ->  J  e.  Top )
8475, 42, 833syl 18 . . . . . . . . . . . . . 14  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  J  e.  Top )
85 fconst6g 5789 . . . . . . . . . . . . . 14  |-  ( J  e.  Top  ->  (
( y  u.  {
z } )  X. 
{ J } ) : ( y  u. 
{ z } ) --> Top )
8684, 85syl 17 . . . . . . . . . . . . 13  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( (
y  u.  { z } )  X.  { J } ) : ( y  u.  { z } ) --> Top )
87 ssun1 3635 . . . . . . . . . . . . . 14  |-  y  C_  ( y  u.  {
z } )
8887a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  y  C_  ( y  u.  {
z } ) )
89 eqid 2429 . . . . . . . . . . . . . 14  |-  U. ( Xt_ `  ( ( y  u.  { z } )  X.  { J } ) )  = 
U. ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )
90 xpssres 5159 . . . . . . . . . . . . . . . . 17  |-  ( y 
C_  ( y  u. 
{ z } )  ->  ( ( ( y  u.  { z } )  X.  { J } )  |`  y
)  =  ( y  X.  { J }
) )
9187, 90ax-mp 5 . . . . . . . . . . . . . . . 16  |-  ( ( ( y  u.  {
z } )  X. 
{ J } )  |`  y )  =  ( y  X.  { J } )
9291eqcomi 2442 . . . . . . . . . . . . . . 15  |-  ( y  X.  { J }
)  =  ( ( ( y  u.  {
z } )  X. 
{ J } )  |`  y )
9392fveq2i 5884 . . . . . . . . . . . . . 14  |-  ( Xt_ `  ( y  X.  { J } ) )  =  ( Xt_ `  (
( ( y  u. 
{ z } )  X.  { J }
)  |`  y ) )
9489, 77, 93ptrescn 20585 . . . . . . . . . . . . 13  |-  ( ( ( y  u.  {
z } )  e. 
Fin  /\  ( (
y  u.  { z } )  X.  { J } ) : ( y  u.  { z } ) --> Top  /\  y  C_  ( y  u. 
{ z } ) )  ->  ( w  e.  U. ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  |->  ( w  |`  y ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  ( Xt_ `  ( y  X.  { J } ) ) ) )
9561, 86, 88, 94syl3anc 1264 . . . . . . . . . . . 12  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  U. ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  |->  ( w  |`  y ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  ( Xt_ `  ( y  X.  { J } ) ) ) )
9682, 95eqeltrd 2517 . . . . . . . . . . 11  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( w  |`  y )
)  e.  ( (
Xt_ `  ( (
y  u.  { z } )  X.  { J } ) )  Cn  ( Xt_ `  (
y  X.  { J } ) ) ) )
97 eqid 2429 . . . . . . . . . . . . 13  |-  ( Xt_ `  ( y  X.  { J } ) )  =  ( Xt_ `  (
y  X.  { J } ) )
9897pttoponconst 20543 . . . . . . . . . . . 12  |-  ( ( y  e.  Fin  /\  J  e.  (TopOn `  B
) )  ->  ( Xt_ `  ( y  X. 
{ J } ) )  e.  (TopOn `  ( B  ^m  y
) ) )
9958, 76, 98syl2anc 665 . . . . . . . . . . 11  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( Xt_ `  ( y  X.  { J } ) )  e.  (TopOn `  ( B  ^m  y ) ) )
100 simp3 1007 . . . . . . . . . . 11  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )
101 oveq2 6313 . . . . . . . . . . 11  |-  ( x  =  ( w  |`  y )  ->  ( G  gsumg  x )  =  ( G  gsumg  ( w  |`  y
) ) )
10279, 96, 99, 100, 101cnmpt11 20609 . . . . . . . . . 10  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( G  gsumg  ( w  |`  y
) ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  J ) )
10364feqmptd 5934 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  w  =  ( k  e.  ( y  u.  { z } )  |->  ( w `
 k ) ) )
104103reseq1d 5124 . . . . . . . . . . . . . . 15  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( w  |` 
{ z } )  =  ( ( k  e.  ( y  u. 
{ z } ) 
|->  ( w `  k
) )  |`  { z } ) )
105 ssun2 3636 . . . . . . . . . . . . . . . 16  |-  { z }  C_  ( y  u.  { z } )
106 resmpt 5174 . . . . . . . . . . . . . . . 16  |-  ( { z }  C_  (
y  u.  { z } )  ->  (
( k  e.  ( y  u.  { z } )  |->  ( w `
 k ) )  |`  { z } )  =  ( k  e. 
{ z }  |->  ( w `  k ) ) )
107105, 106ax-mp 5 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  ( y  u.  { z } )  |->  ( w `  k ) )  |`  { z } )  =  ( k  e. 
{ z }  |->  ( w `  k ) )
108104, 107syl6eq 2486 . . . . . . . . . . . . . 14  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( w  |` 
{ z } )  =  ( k  e. 
{ z }  |->  ( w `  k ) ) )
109108oveq2d 6321 . . . . . . . . . . . . 13  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( G  gsumg  ( w  |`  { z } ) )  =  ( G  gsumg  ( k  e.  {
z }  |->  ( w `
 k ) ) ) )
110 cmnmnd 17380 . . . . . . . . . . . . . . 15  |-  ( G  e. CMnd  ->  G  e.  Mnd )
11157, 110syl 17 . . . . . . . . . . . . . 14  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  G  e.  Mnd )
112 vex 3090 . . . . . . . . . . . . . . 15  |-  z  e. 
_V
113112a1i 11 . . . . . . . . . . . . . 14  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  z  e.  _V )
114 ssnid 4031 . . . . . . . . . . . . . . . 16  |-  z  e. 
{ z }
115 elun2 3640 . . . . . . . . . . . . . . . 16  |-  ( z  e.  { z }  ->  z  e.  ( y  u.  { z } ) )
116114, 115mp1i 13 . . . . . . . . . . . . . . 15  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  z  e.  ( y  u.  {
z } ) )
11764, 116ffvelrnd 6038 . . . . . . . . . . . . . 14  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( w `  z )  e.  B
)
118 fveq2 5881 . . . . . . . . . . . . . . 15  |-  ( k  =  z  ->  (
w `  k )  =  ( w `  z ) )
11941, 118gsumsn 17522 . . . . . . . . . . . . . 14  |-  ( ( G  e.  Mnd  /\  z  e.  _V  /\  (
w `  z )  e.  B )  ->  ( G  gsumg  ( k  e.  {
z }  |->  ( w `
 k ) ) )  =  ( w `
 z ) )
120111, 113, 117, 119syl3anc 1264 . . . . . . . . . . . . 13  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( G  gsumg  ( k  e.  { z }  |->  ( w `  k ) ) )  =  ( w `  z ) )
121109, 120eqtrd 2470 . . . . . . . . . . . 12  |-  ( ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  ( y  e.  Fin  /\ 
-.  z  e.  y )  /\  ( x  e.  ( B  ^m  y )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  /\  w  e.  ( B  ^m  ( y  u.  {
z } ) ) )  ->  ( G  gsumg  ( w  |`  { z } ) )  =  ( w `  z
) )
122121mpteq2dva 4512 . . . . . . . . . . 11  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( G  gsumg  ( w  |`  { z } ) ) )  =  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( w `  z ) ) )
12381mpteq1d 4507 . . . . . . . . . . . . 13  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( w `  z ) )  =  ( w  e.  U. ( Xt_ `  ( ( y  u. 
{ z } )  X.  { J }
) )  |->  ( w `
 z ) ) )
124114, 115mp1i 13 . . . . . . . . . . . . . 14  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  z  e.  ( y  u.  {
z } ) )
12589, 77ptpjcn 20557 . . . . . . . . . . . . . 14  |-  ( ( ( y  u.  {
z } )  e. 
Fin  /\  ( (
y  u.  { z } )  X.  { J } ) : ( y  u.  { z } ) --> Top  /\  z  e.  ( y  u.  { z } ) )  ->  ( w  e.  U. ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  |->  ( w `  z ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  ( ( ( y  u.  {
z } )  X. 
{ J } ) `
 z ) ) )
12661, 86, 124, 125syl3anc 1264 . . . . . . . . . . . . 13  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  U. ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  |->  ( w `  z ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  ( ( ( y  u.  {
z } )  X. 
{ J } ) `
 z ) ) )
127123, 126eqeltrd 2517 . . . . . . . . . . . 12  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( w `  z ) )  e.  ( (
Xt_ `  ( (
y  u.  { z } )  X.  { J } ) )  Cn  ( ( ( y  u.  { z } )  X.  { J } ) `  z
) ) )
128 fvconst2g 6133 . . . . . . . . . . . . . 14  |-  ( ( J  e.  Top  /\  z  e.  ( y  u.  { z } ) )  ->  ( (
( y  u.  {
z } )  X. 
{ J } ) `
 z )  =  J )
12984, 124, 128syl2anc 665 . . . . . . . . . . . . 13  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( (
( y  u.  {
z } )  X. 
{ J } ) `
 z )  =  J )
130129oveq2d 6321 . . . . . . . . . . . 12  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( ( Xt_ `  ( ( y  u.  { z } )  X.  { J } ) )  Cn  ( ( ( y  u.  { z } )  X.  { J } ) `  z
) )  =  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  J ) )
131127, 130eleqtrd 2519 . . . . . . . . . . 11  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( w `  z ) )  e.  ( (
Xt_ `  ( (
y  u.  { z } )  X.  { J } ) )  Cn  J ) )
132122, 131eqeltrd 2517 . . . . . . . . . 10  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( G  gsumg  ( w  |`  { z } ) ) )  e.  ( ( Xt_ `  ( ( y  u. 
{ z } )  X.  { J }
) )  Cn  J
) )
13340, 56, 75, 79, 102, 132cnmpt1plusg 21033 . . . . . . . . 9  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( w  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( ( G  gsumg  ( w  |`  y
) ) ( +g  `  G ) ( G 
gsumg  ( w  |`  { z } ) ) ) )  e.  ( (
Xt_ `  ( (
y  u.  { z } )  X.  { J } ) )  Cn  J ) )
13474, 133eqeltrd 2517 . . . . . . . 8  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
)  /\  ( x  e.  ( B  ^m  y
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( y  X.  { J } ) )  Cn  J ) )  ->  ( x  e.  ( B  ^m  (
y  u.  { z } ) )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  J ) )
1351343expia 1207 . . . . . . 7  |-  ( ( ( G  e. CMnd  /\  G  e. TopMnd )  /\  (
y  e.  Fin  /\  -.  z  e.  y
) )  ->  (
( x  e.  ( B  ^m  y ) 
|->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J )  ->  (
x  e.  ( B  ^m  ( y  u. 
{ z } ) )  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( (
y  u.  { z } )  X.  { J } ) )  Cn  J ) ) )
136135expcom 436 . . . . . 6  |-  ( ( y  e.  Fin  /\  -.  z  e.  y
)  ->  ( ( G  e. CMnd  /\  G  e. TopMnd
)  ->  ( (
x  e.  ( B  ^m  y )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J )  ->  (
x  e.  ( B  ^m  ( y  u. 
{ z } ) )  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( (
y  u.  { z } )  X.  { J } ) )  Cn  J ) ) ) )
137136a2d 29 . . . . 5  |-  ( ( y  e.  Fin  /\  -.  z  e.  y
)  ->  ( (
( G  e. CMnd  /\  G  e. TopMnd )  ->  ( x  e.  ( B  ^m  y )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  (
y  X.  { J } ) )  Cn  J ) )  -> 
( ( G  e. CMnd  /\  G  e. TopMnd )  -> 
( x  e.  ( B  ^m  ( y  u.  { z } ) )  |->  ( G 
gsumg  x ) )  e.  ( ( Xt_ `  (
( y  u.  {
z } )  X. 
{ J } ) )  Cn  J ) ) ) )
1389, 16, 23, 30, 53, 137findcard2s 7818 . . . 4  |-  ( A  e.  Fin  ->  (
( G  e. CMnd  /\  G  e. TopMnd )  ->  ( x  e.  ( B  ^m  A )  |->  ( G  gsumg  x ) )  e.  ( ( Xt_ `  ( A  X.  { J }
) )  Cn  J
) ) )
139138com12 32 . . 3  |-  ( ( G  e. CMnd  /\  G  e. TopMnd )  ->  ( A  e.  Fin  ->  ( x  e.  ( B  ^m  A
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( A  X.  { J } ) )  Cn  J ) ) )
1401393impia 1202 . 2  |-  ( ( G  e. CMnd  /\  G  e. TopMnd  /\  A  e.  Fin )  ->  ( x  e.  ( B  ^m  A
)  |->  ( G  gsumg  x ) )  e.  ( (
Xt_ `  ( A  X.  { J } ) )  Cn  J ) )
14142, 83syl 17 . . . . 5  |-  ( G  e. TopMnd  ->  J  e.  Top )
142 xkopt 20601 . . . . 5  |-  ( ( J  e.  Top  /\  A  e.  Fin )  ->  ( J  ^ko  ~P A )  =  ( Xt_ `  ( A  X.  { J }
) ) )
143141, 142sylan 473 . . . 4  |-  ( ( G  e. TopMnd  /\  A  e. 
Fin )  ->  ( J  ^ko  ~P A )  =  (
Xt_ `  ( A  X.  { J } ) ) )
1441433adant1 1023 . . 3  |-  ( ( G  e. CMnd  /\  G  e. TopMnd  /\  A  e.  Fin )  ->  ( J  ^ko  ~P A
)  =  ( Xt_ `  ( A  X.  { J } ) ) )
145144oveq1d 6320 . 2  |-  ( ( G  e. CMnd  /\  G  e. TopMnd  /\  A  e.  Fin )  ->  ( ( J  ^ko  ~P A )  Cn  J
)  =  ( (
Xt_ `  ( A  X.  { J } ) )  Cn  J ) )
146140, 145eleqtrrd 2520 1  |-  ( ( G  e. CMnd  /\  G  e. TopMnd  /\  A  e.  Fin )  ->  ( x  e.  ( B  ^m  A
)  |->  ( G  gsumg  x ) )  e.  ( ( J  ^ko  ~P A )  Cn  J ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 370    /\ w3a 982    = wceq 1437    e. wcel 1870   _Vcvv 3087    u. cun 3440    i^i cin 3441    C_ wss 3442   (/)c0 3767   ~Pcpw 3985   {csn 4002   U.cuni 4222    |-> cmpt 4484    X. cxp 4852    |` cres 4856    Fn wfn 5596   -->wf 5597   ` cfv 5601  (class class class)co 6305    ^m cmap 7480   Fincfn 7577   Basecbs 15084   +g cplusg 15152   TopOpenctopn 15279   Xt_cpt 15296   0gc0g 15297    gsumg cgsu 15298   Mndcmnd 16486  CMndccmn 17365   Topctop 19848  TopOnctopon 19849    Cn ccn 20171    ^ko cxko 20507  TopMndctmd 21016
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 1751  ax-6 1797  ax-7 1841  ax-8 1872  ax-9 1874  ax-10 1889  ax-11 1894  ax-12 1907  ax-13 2055  ax-ext 2407  ax-rep 4538  ax-sep 4548  ax-nul 4556  ax-pow 4603  ax-pr 4661  ax-un 6597  ax-inf2 8146  ax-cnex 9594  ax-resscn 9595  ax-1cn 9596  ax-icn 9597  ax-addcl 9598  ax-addrcl 9599  ax-mulcl 9600  ax-mulrcl 9601  ax-mulcom 9602  ax-addass 9603  ax-mulass 9604  ax-distr 9605  ax-i2m1 9606  ax-1ne0 9607  ax-1rid 9608  ax-rnegex 9609  ax-rrecex 9610  ax-cnre 9611  ax-pre-lttri 9612  ax-pre-lttrn 9613  ax-pre-ltadd 9614  ax-pre-mulgt0 9615
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 1790  df-eu 2270  df-mo 2271  df-clab 2415  df-cleq 2421  df-clel 2424  df-nfc 2579  df-ne 2627  df-nel 2628  df-ral 2787  df-rex 2788  df-reu 2789  df-rmo 2790  df-rab 2791  df-v 3089  df-sbc 3306  df-csb 3402  df-dif 3445  df-un 3447  df-in 3449  df-ss 3456  df-pss 3458  df-nul 3768  df-if 3916  df-pw 3987  df-sn 4003  df-pr 4005  df-tp 4007  df-op 4009  df-uni 4223  df-int 4259  df-iun 4304  df-iin 4305  df-br 4427  df-opab 4485  df-mpt 4486  df-tr 4521  df-eprel 4765  df-id 4769  df-po 4775  df-so 4776  df-fr 4813  df-se 4814  df-we 4815  df-xp 4860  df-rel 4861  df-cnv 4862  df-co 4863  df-dm 4864  df-rn 4865  df-res 4866  df-ima 4867  df-pred 5399  df-ord 5445  df-on 5446  df-lim 5447  df-suc 5448  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-isom 5610  df-riota 6267  df-ov 6308  df-oprab 6309  df-mpt2 6310  df-of 6545  df-om 6707  df-1st 6807  df-2nd 6808  df-supp 6926  df-wrecs 7036  df-recs 7098  df-rdg 7136  df-1o 7190  df-2o 7191  df-oadd 7194  df-er 7371  df-map 7482  df-ixp 7531  df-en 7578  df-dom 7579  df-sdom 7580  df-fin 7581  df-fsupp 7890  df-fi 7931  df-oi 8025  df-card 8372  df-pnf 9676  df-mnf 9677  df-xr 9678  df-ltxr 9679  df-le 9680  df-sub 9861  df-neg 9862  df-nn 10610  df-2 10668  df-n0 10870  df-z 10938  df-uz 11160  df-fz 11783  df-fzo 11914  df-seq 12211  df-hash 12513  df-ndx 15087  df-slot 15088  df-base 15089  df-sets 15090  df-ress 15091  df-plusg 15165  df-rest 15280  df-0g 15299  df-gsum 15300  df-topgen 15301  df-pt 15302  df-mre 15443  df-mrc 15444  df-acs 15446  df-plusf 16438  df-mgm 16439  df-sgrp 16478  df-mnd 16488  df-submnd 16534  df-mulg 16627  df-cntz 16922  df-cmn 17367  df-top 19852  df-bases 19853  df-topon 19854  df-topsp 19855  df-cn 20174  df-cnp 20175  df-cmp 20333  df-tx 20508  df-xko 20509  df-tmd 21018
This theorem is referenced by:  tmdgsum2  21042
  Copyright terms: Public domain W3C validator