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

Theorem tsmsxplem1 20824
Description: Lemma for tsmsxp 20826. (Contributed by Mario Carneiro, 21-Sep-2015.)
Hypotheses
Ref Expression
tsmsxp.b  |-  B  =  ( Base `  G
)
tsmsxp.g  |-  ( ph  ->  G  e. CMnd )
tsmsxp.2  |-  ( ph  ->  G  e.  TopGrp )
tsmsxp.a  |-  ( ph  ->  A  e.  V )
tsmsxp.c  |-  ( ph  ->  C  e.  W )
tsmsxp.f  |-  ( ph  ->  F : ( A  X.  C ) --> B )
tsmsxp.h  |-  ( ph  ->  H : A --> B )
tsmsxp.1  |-  ( (
ph  /\  j  e.  A )  ->  ( H `  j )  e.  ( G tsums  ( k  e.  C  |->  ( j F k ) ) ) )
tsmsxp.j  |-  J  =  ( TopOpen `  G )
tsmsxp.z  |-  .0.  =  ( 0g `  G )
tsmsxp.p  |-  .+  =  ( +g  `  G )
tsmsxp.m  |-  .-  =  ( -g `  G )
tsmsxp.l  |-  ( ph  ->  L  e.  J )
tsmsxp.3  |-  ( ph  ->  .0.  e.  L )
tsmsxp.k  |-  ( ph  ->  K  e.  ( ~P A  i^i  Fin )
)
tsmsxp.ks  |-  ( ph  ->  dom  D  C_  K
)
tsmsxp.d  |-  ( ph  ->  D  e.  ( ~P ( A  X.  C
)  i^i  Fin )
)
Assertion
Ref Expression
tsmsxplem1  |-  ( ph  ->  E. n  e.  ( ~P C  i^i  Fin ) ( ran  D  C_  n  /\  A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  n ) ) ) )  e.  L ) )
Distinct variable groups:    .0. , k    j, k, n, x, G    B, k    D, j, k, n, x    j, L, n, x    A, j, k, n    j, K, k, n, x    j, H, k, n, x    .- , j, n, x    C, j, k, n    j, F, k, n, x    ph, j,
k, n
Allowed substitution hints:    ph( x)    A( x)    B( x, j, n)    C( x)    .+ ( x, j, k, n)    J( x, j, k, n)    L( k)    .- ( k)    V( x, j, k, n)    W( x, j, k, n)    .0. ( x, j, n)

Proof of Theorem tsmsxplem1
Dummy variables  g 
y  z  f are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 tsmsxp.k . . . 4  |-  ( ph  ->  K  e.  ( ~P A  i^i  Fin )
)
2 elfpw 7814 . . . . 5  |-  ( K  e.  ( ~P A  i^i  Fin )  <->  ( K  C_  A  /\  K  e. 
Fin ) )
32simprbi 462 . . . 4  |-  ( K  e.  ( ~P A  i^i  Fin )  ->  K  e.  Fin )
41, 3syl 16 . . 3  |-  ( ph  ->  K  e.  Fin )
52simplbi 458 . . . . . . 7  |-  ( K  e.  ( ~P A  i^i  Fin )  ->  K  C_  A )
61, 5syl 16 . . . . . 6  |-  ( ph  ->  K  C_  A )
76sselda 3489 . . . . 5  |-  ( (
ph  /\  j  e.  K )  ->  j  e.  A )
8 tsmsxp.b . . . . . 6  |-  B  =  ( Base `  G
)
9 tsmsxp.j . . . . . 6  |-  J  =  ( TopOpen `  G )
10 eqid 2454 . . . . . 6  |-  ( ~P C  i^i  Fin )  =  ( ~P C  i^i  Fin )
11 tsmsxp.g . . . . . . 7  |-  ( ph  ->  G  e. CMnd )
1211adantr 463 . . . . . 6  |-  ( (
ph  /\  j  e.  A )  ->  G  e. CMnd )
13 tsmsxp.2 . . . . . . . 8  |-  ( ph  ->  G  e.  TopGrp )
14 tgptps 20748 . . . . . . . 8  |-  ( G  e.  TopGrp  ->  G  e.  TopSp )
1513, 14syl 16 . . . . . . 7  |-  ( ph  ->  G  e.  TopSp )
1615adantr 463 . . . . . 6  |-  ( (
ph  /\  j  e.  A )  ->  G  e.  TopSp )
17 tsmsxp.c . . . . . . 7  |-  ( ph  ->  C  e.  W )
1817adantr 463 . . . . . 6  |-  ( (
ph  /\  j  e.  A )  ->  C  e.  W )
19 tsmsxp.f . . . . . . . . 9  |-  ( ph  ->  F : ( A  X.  C ) --> B )
20 fovrn 6418 . . . . . . . . 9  |-  ( ( F : ( A  X.  C ) --> B  /\  j  e.  A  /\  k  e.  C
)  ->  ( j F k )  e.  B )
2119, 20syl3an1 1259 . . . . . . . 8  |-  ( (
ph  /\  j  e.  A  /\  k  e.  C
)  ->  ( j F k )  e.  B )
22213expa 1194 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  A )  /\  k  e.  C )  ->  (
j F k )  e.  B )
23 eqid 2454 . . . . . . 7  |-  ( k  e.  C  |->  ( j F k ) )  =  ( k  e.  C  |->  ( j F k ) )
2422, 23fmptd 6031 . . . . . 6  |-  ( (
ph  /\  j  e.  A )  ->  (
k  e.  C  |->  ( j F k ) ) : C --> B )
25 tsmsxp.1 . . . . . 6  |-  ( (
ph  /\  j  e.  A )  ->  ( H `  j )  e.  ( G tsums  ( k  e.  C  |->  ( j F k ) ) ) )
26 df-ima 5001 . . . . . . . 8  |-  ( ( g  e.  B  |->  ( ( H `  j
)  .-  g )
) " L )  =  ran  ( ( g  e.  B  |->  ( ( H `  j
)  .-  g )
)  |`  L )
279, 8tgptopon 20750 . . . . . . . . . . . . 13  |-  ( G  e.  TopGrp  ->  J  e.  (TopOn `  B ) )
2813, 27syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  J  e.  (TopOn `  B ) )
29 tsmsxp.l . . . . . . . . . . . 12  |-  ( ph  ->  L  e.  J )
30 toponss 19600 . . . . . . . . . . . 12  |-  ( ( J  e.  (TopOn `  B )  /\  L  e.  J )  ->  L  C_  B )
3128, 29, 30syl2anc 659 . . . . . . . . . . 11  |-  ( ph  ->  L  C_  B )
3231adantr 463 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  A )  ->  L  C_  B )
3332resmptd 5313 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  A )  ->  (
( g  e.  B  |->  ( ( H `  j )  .-  g
) )  |`  L )  =  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )
3433rneqd 5219 . . . . . . . 8  |-  ( (
ph  /\  j  e.  A )  ->  ran  ( ( g  e.  B  |->  ( ( H `
 j )  .-  g ) )  |`  L )  =  ran  ( g  e.  L  |->  ( ( H `  j )  .-  g
) ) )
3526, 34syl5eq 2507 . . . . . . 7  |-  ( (
ph  /\  j  e.  A )  ->  (
( g  e.  B  |->  ( ( H `  j )  .-  g
) ) " L
)  =  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) )
36 tsmsxp.h . . . . . . . . . . . . 13  |-  ( ph  ->  H : A --> B )
3736ffvelrnda 6007 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  A )  ->  ( H `  j )  e.  B )
38 tsmsxp.p . . . . . . . . . . . . 13  |-  .+  =  ( +g  `  G )
39 eqid 2454 . . . . . . . . . . . . 13  |-  ( invg `  G )  =  ( invg `  G )
40 tsmsxp.m . . . . . . . . . . . . 13  |-  .-  =  ( -g `  G )
418, 38, 39, 40grpsubval 16295 . . . . . . . . . . . 12  |-  ( ( ( H `  j
)  e.  B  /\  g  e.  B )  ->  ( ( H `  j )  .-  g
)  =  ( ( H `  j ) 
.+  ( ( invg `  G ) `
 g ) ) )
4237, 41sylan 469 . . . . . . . . . . 11  |-  ( ( ( ph  /\  j  e.  A )  /\  g  e.  B )  ->  (
( H `  j
)  .-  g )  =  ( ( H `
 j )  .+  ( ( invg `  G ) `  g
) ) )
4342mpteq2dva 4525 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  A )  ->  (
g  e.  B  |->  ( ( H `  j
)  .-  g )
)  =  ( g  e.  B  |->  ( ( H `  j ) 
.+  ( ( invg `  G ) `
 g ) ) ) )
44 tgpgrp 20746 . . . . . . . . . . . . . 14  |-  ( G  e.  TopGrp  ->  G  e.  Grp )
4513, 44syl 16 . . . . . . . . . . . . 13  |-  ( ph  ->  G  e.  Grp )
4645adantr 463 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  A )  ->  G  e.  Grp )
478, 39grpinvcl 16297 . . . . . . . . . . . 12  |-  ( ( G  e.  Grp  /\  g  e.  B )  ->  ( ( invg `  G ) `  g
)  e.  B )
4846, 47sylan 469 . . . . . . . . . . 11  |-  ( ( ( ph  /\  j  e.  A )  /\  g  e.  B )  ->  (
( invg `  G ) `  g
)  e.  B )
498, 39grpinvf 16296 . . . . . . . . . . . . 13  |-  ( G  e.  Grp  ->  ( invg `  G ) : B --> B )
5046, 49syl 16 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  A )  ->  ( invg `  G ) : B --> B )
5150feqmptd 5901 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  A )  ->  ( invg `  G )  =  ( g  e.  B  |->  ( ( invg `  G ) `
 g ) ) )
52 eqidd 2455 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  A )  ->  (
y  e.  B  |->  ( ( H `  j
)  .+  y )
)  =  ( y  e.  B  |->  ( ( H `  j ) 
.+  y ) ) )
53 oveq2 6278 . . . . . . . . . . 11  |-  ( y  =  ( ( invg `  G ) `
 g )  -> 
( ( H `  j )  .+  y
)  =  ( ( H `  j ) 
.+  ( ( invg `  G ) `
 g ) ) )
5448, 51, 52, 53fmptco 6040 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  A )  ->  (
( y  e.  B  |->  ( ( H `  j )  .+  y
) )  o.  ( invg `  G ) )  =  ( g  e.  B  |->  ( ( H `  j ) 
.+  ( ( invg `  G ) `
 g ) ) ) )
5543, 54eqtr4d 2498 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  A )  ->  (
g  e.  B  |->  ( ( H `  j
)  .-  g )
)  =  ( ( y  e.  B  |->  ( ( H `  j
)  .+  y )
)  o.  ( invg `  G ) ) )
5613adantr 463 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  A )  ->  G  e.  TopGrp )
579, 39grpinvhmeo 20754 . . . . . . . . . . 11  |-  ( G  e.  TopGrp  ->  ( invg `  G )  e.  ( J Homeo J ) )
5856, 57syl 16 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  A )  ->  ( invg `  G )  e.  ( J Homeo J ) )
59 eqid 2454 . . . . . . . . . . . 12  |-  ( y  e.  B  |->  ( ( H `  j ) 
.+  y ) )  =  ( y  e.  B  |->  ( ( H `
 j )  .+  y ) )
6059, 8, 38, 9tgplacthmeo 20771 . . . . . . . . . . 11  |-  ( ( G  e.  TopGrp  /\  ( H `  j )  e.  B )  ->  (
y  e.  B  |->  ( ( H `  j
)  .+  y )
)  e.  ( J
Homeo J ) )
6156, 37, 60syl2anc 659 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  A )  ->  (
y  e.  B  |->  ( ( H `  j
)  .+  y )
)  e.  ( J
Homeo J ) )
62 hmeoco 20442 . . . . . . . . . 10  |-  ( ( ( invg `  G )  e.  ( J Homeo J )  /\  ( y  e.  B  |->  ( ( H `  j )  .+  y
) )  e.  ( J Homeo J ) )  ->  ( ( y  e.  B  |->  ( ( H `  j ) 
.+  y ) )  o.  ( invg `  G ) )  e.  ( J Homeo J ) )
6358, 61, 62syl2anc 659 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  A )  ->  (
( y  e.  B  |->  ( ( H `  j )  .+  y
) )  o.  ( invg `  G ) )  e.  ( J
Homeo J ) )
6455, 63eqeltrd 2542 . . . . . . . 8  |-  ( (
ph  /\  j  e.  A )  ->  (
g  e.  B  |->  ( ( H `  j
)  .-  g )
)  e.  ( J
Homeo J ) )
6529adantr 463 . . . . . . . 8  |-  ( (
ph  /\  j  e.  A )  ->  L  e.  J )
66 hmeoima 20435 . . . . . . . 8  |-  ( ( ( g  e.  B  |->  ( ( H `  j )  .-  g
) )  e.  ( J Homeo J )  /\  L  e.  J )  ->  ( ( g  e.  B  |->  ( ( H `
 j )  .-  g ) ) " L )  e.  J
)
6764, 65, 66syl2anc 659 . . . . . . 7  |-  ( (
ph  /\  j  e.  A )  ->  (
( g  e.  B  |->  ( ( H `  j )  .-  g
) ) " L
)  e.  J )
6835, 67eqeltrrd 2543 . . . . . 6  |-  ( (
ph  /\  j  e.  A )  ->  ran  ( g  e.  L  |->  ( ( H `  j )  .-  g
) )  e.  J
)
69 tsmsxp.z . . . . . . . . 9  |-  .0.  =  ( 0g `  G )
708, 69, 40grpsubid1 16325 . . . . . . . 8  |-  ( ( G  e.  Grp  /\  ( H `  j )  e.  B )  -> 
( ( H `  j )  .-  .0.  )  =  ( H `  j ) )
7146, 37, 70syl2anc 659 . . . . . . 7  |-  ( (
ph  /\  j  e.  A )  ->  (
( H `  j
)  .-  .0.  )  =  ( H `  j ) )
72 tsmsxp.3 . . . . . . . . 9  |-  ( ph  ->  .0.  e.  L )
7372adantr 463 . . . . . . . 8  |-  ( (
ph  /\  j  e.  A )  ->  .0.  e.  L )
74 ovex 6298 . . . . . . . 8  |-  ( ( H `  j ) 
.-  .0.  )  e.  _V
75 eqid 2454 . . . . . . . . 9  |-  ( g  e.  L  |->  ( ( H `  j ) 
.-  g ) )  =  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) )
76 oveq2 6278 . . . . . . . . 9  |-  ( g  =  .0.  ->  (
( H `  j
)  .-  g )  =  ( ( H `
 j )  .-  .0.  ) )
7775, 76elrnmpt1s 5239 . . . . . . . 8  |-  ( (  .0.  e.  L  /\  ( ( H `  j )  .-  .0.  )  e.  _V )  ->  ( ( H `  j )  .-  .0.  )  e.  ran  ( g  e.  L  |->  ( ( H `  j ) 
.-  g ) ) )
7873, 74, 77sylancl 660 . . . . . . 7  |-  ( (
ph  /\  j  e.  A )  ->  (
( H `  j
)  .-  .0.  )  e.  ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )
7971, 78eqeltrrd 2543 . . . . . 6  |-  ( (
ph  /\  j  e.  A )  ->  ( H `  j )  e.  ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )
808, 9, 10, 12, 16, 18, 24, 25, 68, 79tsmsi 20801 . . . . 5  |-  ( (
ph  /\  j  e.  A )  ->  E. y  e.  ( ~P C  i^i  Fin ) A. z  e.  ( ~P C  i^i  Fin ) ( y  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z )
)  e.  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) ) )
817, 80syldan 468 . . . 4  |-  ( (
ph  /\  j  e.  K )  ->  E. y  e.  ( ~P C  i^i  Fin ) A. z  e.  ( ~P C  i^i  Fin ) ( y  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z )
)  e.  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) ) )
8281ralrimiva 2868 . . 3  |-  ( ph  ->  A. j  e.  K  E. y  e.  ( ~P C  i^i  Fin ) A. z  e.  ( ~P C  i^i  Fin )
( y  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) )
83 sseq1 3510 . . . . . 6  |-  ( y  =  ( f `  j )  ->  (
y  C_  z  <->  ( f `  j )  C_  z
) )
8483imbi1d 315 . . . . 5  |-  ( y  =  ( f `  j )  ->  (
( y  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )  <-> 
( ( f `  j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) ) )
8584ralbidv 2893 . . . 4  |-  ( y  =  ( f `  j )  ->  ( A. z  e.  ( ~P C  i^i  Fin )
( y  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )  <->  A. z  e.  ( ~P C  i^i  Fin )
( ( f `  j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) ) )
8685ac6sfi 7756 . . 3  |-  ( ( K  e.  Fin  /\  A. j  e.  K  E. y  e.  ( ~P C  i^i  Fin ) A. z  e.  ( ~P C  i^i  Fin ) ( y  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) )  ->  E. f
( f : K --> ( ~P C  i^i  Fin )  /\  A. j  e.  K  A. z  e.  ( ~P C  i^i  Fin ) ( ( f `
 j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z )
)  e.  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) ) ) )
874, 82, 86syl2anc 659 . 2  |-  ( ph  ->  E. f ( f : K --> ( ~P C  i^i  Fin )  /\  A. j  e.  K  A. z  e.  ( ~P C  i^i  Fin )
( ( f `  j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) ) )
88 frn 5719 . . . . . . . . 9  |-  ( f : K --> ( ~P C  i^i  Fin )  ->  ran  f  C_  ( ~P C  i^i  Fin )
)
8988adantl 464 . . . . . . . 8  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ran  f  C_  ( ~P C  i^i  Fin ) )
90 inss1 3704 . . . . . . . 8  |-  ( ~P C  i^i  Fin )  C_ 
~P C
9189, 90syl6ss 3501 . . . . . . 7  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ran  f  C_  ~P C )
92 sspwuni 4404 . . . . . . 7  |-  ( ran  f  C_  ~P C  <->  U.
ran  f  C_  C
)
9391, 92sylib 196 . . . . . 6  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  U. ran  f  C_  C )
94 tsmsxp.d . . . . . . . . 9  |-  ( ph  ->  D  e.  ( ~P ( A  X.  C
)  i^i  Fin )
)
95 elfpw 7814 . . . . . . . . . 10  |-  ( D  e.  ( ~P ( A  X.  C )  i^i 
Fin )  <->  ( D  C_  ( A  X.  C
)  /\  D  e.  Fin ) )
9695simplbi 458 . . . . . . . . 9  |-  ( D  e.  ( ~P ( A  X.  C )  i^i 
Fin )  ->  D  C_  ( A  X.  C
) )
97 rnss 5220 . . . . . . . . 9  |-  ( D 
C_  ( A  X.  C )  ->  ran  D 
C_  ran  ( A  X.  C ) )
9894, 96, 973syl 20 . . . . . . . 8  |-  ( ph  ->  ran  D  C_  ran  ( A  X.  C
) )
99 rnxpss 5424 . . . . . . . 8  |-  ran  ( A  X.  C )  C_  C
10098, 99syl6ss 3501 . . . . . . 7  |-  ( ph  ->  ran  D  C_  C
)
101100adantr 463 . . . . . 6  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ran  D 
C_  C )
10293, 101unssd 3666 . . . . 5  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ( U. ran  f  u.  ran  D )  C_  C )
1034adantr 463 . . . . . . . 8  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  K  e.  Fin )
104 ffn 5713 . . . . . . . . . 10  |-  ( f : K --> ( ~P C  i^i  Fin )  ->  f  Fn  K )
105104adantl 464 . . . . . . . . 9  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  f  Fn  K )
106 dffn4 5783 . . . . . . . . 9  |-  ( f  Fn  K  <->  f : K -onto-> ran  f )
107105, 106sylib 196 . . . . . . . 8  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  f : K -onto-> ran  f )
108 fofi 7798 . . . . . . . 8  |-  ( ( K  e.  Fin  /\  f : K -onto-> ran  f
)  ->  ran  f  e. 
Fin )
109103, 107, 108syl2anc 659 . . . . . . 7  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ran  f  e.  Fin )
110 inss2 3705 . . . . . . . 8  |-  ( ~P C  i^i  Fin )  C_ 
Fin
11189, 110syl6ss 3501 . . . . . . 7  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ran  f  C_  Fin )
112 unifi 7801 . . . . . . 7  |-  ( ( ran  f  e.  Fin  /\ 
ran  f  C_  Fin )  ->  U. ran  f  e. 
Fin )
113109, 111, 112syl2anc 659 . . . . . 6  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  U. ran  f  e.  Fin )
11495simprbi 462 . . . . . . . 8  |-  ( D  e.  ( ~P ( A  X.  C )  i^i 
Fin )  ->  D  e.  Fin )
115 rnfi 7797 . . . . . . . 8  |-  ( D  e.  Fin  ->  ran  D  e.  Fin )
11694, 114, 1153syl 20 . . . . . . 7  |-  ( ph  ->  ran  D  e.  Fin )
117116adantr 463 . . . . . 6  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ran  D  e.  Fin )
118 unfi 7779 . . . . . 6  |-  ( ( U. ran  f  e. 
Fin  /\  ran  D  e. 
Fin )  ->  ( U. ran  f  u.  ran  D )  e.  Fin )
119113, 117, 118syl2anc 659 . . . . 5  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ( U. ran  f  u.  ran  D )  e.  Fin )
120 elfpw 7814 . . . . 5  |-  ( ( U. ran  f  u. 
ran  D )  e.  ( ~P C  i^i  Fin )  <->  ( ( U. ran  f  u.  ran  D )  C_  C  /\  ( U. ran  f  u. 
ran  D )  e. 
Fin ) )
121102, 119, 120sylanbrc 662 . . . 4  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ( U. ran  f  u.  ran  D )  e.  ( ~P C  i^i  Fin )
)
122121adantrr 714 . . 3  |-  ( (
ph  /\  ( f : K --> ( ~P C  i^i  Fin )  /\  A. j  e.  K  A. z  e.  ( ~P C  i^i  Fin ) ( ( f `  j
)  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) ) )  ->  ( U. ran  f  u.  ran  D )  e.  ( ~P C  i^i  Fin )
)
123 ssun2 3654 . . . 4  |-  ran  D  C_  ( U. ran  f  u.  ran  D )
124123a1i 11 . . 3  |-  ( (
ph  /\  ( f : K --> ( ~P C  i^i  Fin )  /\  A. j  e.  K  A. z  e.  ( ~P C  i^i  Fin ) ( ( f `  j
)  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) ) )  ->  ran  D 
C_  ( U. ran  f  u.  ran  D ) )
125121adantlr 712 . . . . . . . . 9  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( U. ran  f  u.  ran  D )  e.  ( ~P C  i^i  Fin ) )
126 fvssunirn 5871 . . . . . . . . . . . . . 14  |-  ( f `
 j )  C_  U.
ran  f
127 ssun1 3653 . . . . . . . . . . . . . 14  |-  U. ran  f  C_  ( U. ran  f  u.  ran  D )
128126, 127sstri 3498 . . . . . . . . . . . . 13  |-  ( f `
 j )  C_  ( U. ran  f  u. 
ran  D )
129 id 22 . . . . . . . . . . . . 13  |-  ( z  =  ( U. ran  f  u.  ran  D )  ->  z  =  ( U. ran  f  u. 
ran  D ) )
130128, 129syl5sseqr 3538 . . . . . . . . . . . 12  |-  ( z  =  ( U. ran  f  u.  ran  D )  ->  ( f `  j )  C_  z
)
131 pm5.5 334 . . . . . . . . . . . 12  |-  ( ( f `  j ) 
C_  z  ->  (
( ( f `  j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )  <-> 
( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) )
132130, 131syl 16 . . . . . . . . . . 11  |-  ( z  =  ( U. ran  f  u.  ran  D )  ->  ( ( ( f `  j ) 
C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )  <-> 
( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) )
133 reseq2 5257 . . . . . . . . . . . . 13  |-  ( z  =  ( U. ran  f  u.  ran  D )  ->  ( ( k  e.  C  |->  ( j F k ) )  |`  z )  =  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u.  ran  D ) ) )
134133oveq2d 6286 . . . . . . . . . . . 12  |-  ( z  =  ( U. ran  f  u.  ran  D )  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z )
)  =  ( G 
gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u. 
ran  D ) ) ) )
135134eleq1d 2523 . . . . . . . . . . 11  |-  ( z  =  ( U. ran  f  u.  ran  D )  ->  ( ( G 
gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) )  <->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u.  ran  D ) ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) )
136132, 135bitrd 253 . . . . . . . . . 10  |-  ( z  =  ( U. ran  f  u.  ran  D )  ->  ( ( ( f `  j ) 
C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )  <-> 
( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u. 
ran  D ) ) )  e.  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) ) )
137136rspcv 3203 . . . . . . . . 9  |-  ( ( U. ran  f  u. 
ran  D )  e.  ( ~P C  i^i  Fin )  ->  ( A. z  e.  ( ~P C  i^i  Fin ) ( ( f `  j
)  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u.  ran  D ) ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) )
138125, 137syl 16 . . . . . . . 8  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( A. z  e.  ( ~P C  i^i  Fin ) ( ( f `
 j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z )
)  e.  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) )  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u. 
ran  D ) ) )  e.  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) ) )
13911ad2antrr 723 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  ->  G  e. CMnd )
140 cmnmnd 17015 . . . . . . . . . . . . 13  |-  ( G  e. CMnd  ->  G  e.  Mnd )
141139, 140syl 16 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  ->  G  e.  Mnd )
142 simplr 753 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
j  e.  K )
143119adantlr 712 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( U. ran  f  u.  ran  D )  e. 
Fin )
144102adantlr 712 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( U. ran  f  u.  ran  D )  C_  C )
145144sselda 3489 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  k  e.  ( U. ran  f  u. 
ran  D ) )  ->  k  e.  C
)
14619adantr 463 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  j  e.  K )  ->  F : ( A  X.  C ) --> B )
147146, 7jca 530 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  j  e.  K )  ->  ( F : ( A  X.  C ) --> B  /\  j  e.  A )
)
148203expa 1194 . . . . . . . . . . . . . . . . 17  |-  ( ( ( F : ( A  X.  C ) --> B  /\  j  e.  A )  /\  k  e.  C )  ->  (
j F k )  e.  B )
149147, 148sylan 469 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  j  e.  K )  /\  k  e.  C )  ->  (
j F k )  e.  B )
150149adantlr 712 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  k  e.  C )  ->  (
j F k )  e.  B )
151145, 150syldan 468 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  k  e.  ( U. ran  f  u. 
ran  D ) )  ->  ( j F k )  e.  B
)
152 eqid 2454 . . . . . . . . . . . . . 14  |-  ( k  e.  ( U. ran  f  u.  ran  D ) 
|->  ( j F k ) )  =  ( k  e.  ( U. ran  f  u.  ran  D )  |->  ( j F k ) )
153151, 152fmptd 6031 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( j F k ) ) : ( U. ran  f  u.  ran  D ) --> B )
154 ovex 6298 . . . . . . . . . . . . . . 15  |-  ( j F k )  e. 
_V
155154a1i 11 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  k  e.  ( U. ran  f  u. 
ran  D ) )  ->  ( j F k )  e.  _V )
156 fvex 5858 . . . . . . . . . . . . . . . 16  |-  ( 0g
`  G )  e. 
_V
15769, 156eqeltri 2538 . . . . . . . . . . . . . . 15  |-  .0.  e.  _V
158157a1i 11 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  ->  .0.  e.  _V )
159152, 143, 155, 158fsuppmptdm 7832 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( j F k ) ) finSupp  .0.  )
1608, 69, 139, 143, 153, 159gsumcl 17125 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( G  gsumg  ( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( j F k ) ) )  e.  B
)
161 elsn 4030 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  { j }  <-> 
y  =  j )
162 ovres 6415 . . . . . . . . . . . . . . . . 17  |-  ( ( y  e.  { j }  /\  k  e.  ( U. ran  f  u.  ran  D ) )  ->  ( y ( F  |`  ( {
j }  X.  ( U. ran  f  u.  ran  D ) ) ) k )  =  ( y F k ) )
163161, 162sylanbr 471 . . . . . . . . . . . . . . . 16  |-  ( ( y  =  j  /\  k  e.  ( U. ran  f  u.  ran  D ) )  ->  (
y ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) k )  =  ( y F k ) )
164 oveq1 6277 . . . . . . . . . . . . . . . . 17  |-  ( y  =  j  ->  (
y F k )  =  ( j F k ) )
165164adantr 463 . . . . . . . . . . . . . . . 16  |-  ( ( y  =  j  /\  k  e.  ( U. ran  f  u.  ran  D ) )  ->  (
y F k )  =  ( j F k ) )
166163, 165eqtrd 2495 . . . . . . . . . . . . . . 15  |-  ( ( y  =  j  /\  k  e.  ( U. ran  f  u.  ran  D ) )  ->  (
y ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) k )  =  ( j F k ) )
167166mpteq2dva 4525 . . . . . . . . . . . . . 14  |-  ( y  =  j  ->  (
k  e.  ( U. ran  f  u.  ran  D )  |->  ( y ( F  |`  ( {
j }  X.  ( U. ran  f  u.  ran  D ) ) ) k ) )  =  ( k  e.  ( U. ran  f  u.  ran  D )  |->  ( j F k ) ) )
168167oveq2d 6286 . . . . . . . . . . . . 13  |-  ( y  =  j  ->  ( G  gsumg  ( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( y ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) k ) ) )  =  ( G 
gsumg  ( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( j F k ) ) ) )
1698, 168gsumsn 17180 . . . . . . . . . . . 12  |-  ( ( G  e.  Mnd  /\  j  e.  K  /\  ( G  gsumg  ( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( j F k ) ) )  e.  B
)  ->  ( G  gsumg  ( y  e.  { j }  |->  ( G  gsumg  ( k  e.  ( U. ran  f  u.  ran  D ) 
|->  ( y ( F  |`  ( { j }  X.  ( U. ran  f  u.  ran  D ) ) ) k ) ) ) ) )  =  ( G  gsumg  ( k  e.  ( U. ran  f  u.  ran  D ) 
|->  ( j F k ) ) ) )
170141, 142, 160, 169syl3anc 1226 . . . . . . . . . . 11  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( G  gsumg  ( y  e.  {
j }  |->  ( G 
gsumg  ( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( y ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) k ) ) ) ) )  =  ( G  gsumg  ( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( j F k ) ) ) )
171 snfi 7589 . . . . . . . . . . . . 13  |-  { j }  e.  Fin
172171a1i 11 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  ->  { j }  e.  Fin )
17319ad2antrr 723 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  ->  F : ( A  X.  C ) --> B )
1747adantr 463 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
j  e.  A )
175174snssd 4161 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  ->  { j }  C_  A )
176 xpss12 5096 . . . . . . . . . . . . . 14  |-  ( ( { j }  C_  A  /\  ( U. ran  f  u.  ran  D ) 
C_  C )  -> 
( { j }  X.  ( U. ran  f  u.  ran  D ) )  C_  ( A  X.  C ) )
177175, 144, 176syl2anc 659 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( { j }  X.  ( U. ran  f  u.  ran  D ) )  C_  ( A  X.  C ) )
178173, 177fssresd 5734 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) : ( { j }  X.  ( U. ran  f  u.  ran  D ) ) --> B )
179 xpfi 7783 . . . . . . . . . . . . . 14  |-  ( ( { j }  e.  Fin  /\  ( U. ran  f  u.  ran  D )  e.  Fin )  -> 
( { j }  X.  ( U. ran  f  u.  ran  D ) )  e.  Fin )
180171, 143, 179sylancr 661 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( { j }  X.  ( U. ran  f  u.  ran  D ) )  e.  Fin )
181178, 180, 158fdmfifsupp 7831 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) finSupp  .0.  )
1828, 69, 139, 172, 143, 178, 181gsumxp 17203 . . . . . . . . . . 11  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) )  =  ( G  gsumg  ( y  e.  {
j }  |->  ( G 
gsumg  ( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( y ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) k ) ) ) ) ) )
183144resmptd 5313 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u. 
ran  D ) )  =  ( k  e.  ( U. ran  f  u.  ran  D )  |->  ( j F k ) ) )
184183oveq2d 6286 . . . . . . . . . . 11  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u. 
ran  D ) ) )  =  ( G 
gsumg  ( k  e.  ( U. ran  f  u. 
ran  D )  |->  ( j F k ) ) ) )
185170, 182, 1843eqtr4rd 2506 . . . . . . . . . 10  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u. 
ran  D ) ) )  =  ( G 
gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u.  ran  D ) ) ) ) )
186185eleq1d 2523 . . . . . . . . 9  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u.  ran  D ) ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) )  <->  ( G  gsumg  ( F  |`  ( {
j }  X.  ( U. ran  f  u.  ran  D ) ) ) )  e.  ran  ( g  e.  L  |->  ( ( H `  j ) 
.-  g ) ) ) )
187 ovex 6298 . . . . . . . . . . 11  |-  ( ( H `  j ) 
.-  g )  e. 
_V
18875, 187elrnmpti 5242 . . . . . . . . . 10  |-  ( ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) )  e.  ran  ( g  e.  L  |->  ( ( H `  j )  .-  g
) )  <->  E. g  e.  L  ( G  gsumg  ( F  |`  ( {
j }  X.  ( U. ran  f  u.  ran  D ) ) ) )  =  ( ( H `
 j )  .-  g ) )
189 isabl 17004 . . . . . . . . . . . . . . . 16  |-  ( G  e.  Abel  <->  ( G  e. 
Grp  /\  G  e. CMnd ) )
19045, 11, 189sylanbrc 662 . . . . . . . . . . . . . . 15  |-  ( ph  ->  G  e.  Abel )
191190ad3antrrr 727 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  g  e.  L )  ->  G  e.  Abel )
1927, 37syldan 468 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  j  e.  K )  ->  ( H `  j )  e.  B )
193192ad2antrr 723 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  g  e.  L )  ->  ( H `  j )  e.  B )
19431ad2antrr 723 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  ->  L  C_  B )
195194sselda 3489 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  g  e.  L )  ->  g  e.  B )
1968, 40, 191, 193, 195ablnncan 17033 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  g  e.  L )  ->  (
( H `  j
)  .-  ( ( H `  j )  .-  g ) )  =  g )
197 simpr 459 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  g  e.  L )  ->  g  e.  L )
198196, 197eqeltrd 2542 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  g  e.  L )  ->  (
( H `  j
)  .-  ( ( H `  j )  .-  g ) )  e.  L )
199 oveq2 6278 . . . . . . . . . . . . 13  |-  ( ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) )  =  ( ( H `  j
)  .-  g )  ->  ( ( H `  j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  =  ( ( H `  j )  .-  (
( H `  j
)  .-  g )
) )
200199eleq1d 2523 . . . . . . . . . . . 12  |-  ( ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) )  =  ( ( H `  j
)  .-  g )  ->  ( ( ( H `
 j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L  <->  ( ( H `
 j )  .-  ( ( H `  j )  .-  g
) )  e.  L
) )
201198, 200syl5ibrcom 222 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin )
)  /\  g  e.  L )  ->  (
( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) )  =  ( ( H `  j
)  .-  g )  ->  ( ( H `  j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )
202201rexlimdva 2946 . . . . . . . . . 10  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( E. g  e.  L  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u.  ran  D ) ) ) )  =  ( ( H `  j )  .-  g
)  ->  ( ( H `  j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )
203188, 202syl5bi 217 . . . . . . . . 9  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u.  ran  D ) ) ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) )  -> 
( ( H `  j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )
204186, 203sylbid 215 . . . . . . . 8  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  ( U. ran  f  u.  ran  D ) ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) )  -> 
( ( H `  j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )
205138, 204syld 44 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  K )  /\  f : K --> ( ~P C  i^i  Fin ) )  -> 
( A. z  e.  ( ~P C  i^i  Fin ) ( ( f `
 j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z )
)  e.  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) )  ->  (
( H `  j
)  .-  ( G  gsumg  ( F  |`  ( {
j }  X.  ( U. ran  f  u.  ran  D ) ) ) ) )  e.  L ) )
206205an32s 802 . . . . . 6  |-  ( ( ( ph  /\  f : K --> ( ~P C  i^i  Fin ) )  /\  j  e.  K )  ->  ( A. z  e.  ( ~P C  i^i  Fin ) ( ( f `
 j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z )
)  e.  ran  (
g  e.  L  |->  ( ( H `  j
)  .-  g )
) )  ->  (
( H `  j
)  .-  ( G  gsumg  ( F  |`  ( {
j }  X.  ( U. ran  f  u.  ran  D ) ) ) ) )  e.  L ) )
207206ralimdva 2862 . . . . 5  |-  ( (
ph  /\  f : K
--> ( ~P C  i^i  Fin ) )  ->  ( A. j  e.  K  A. z  e.  ( ~P C  i^i  Fin )
( ( f `  j )  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) )  ->  A. j  e.  K  ( ( H `  j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )
208207impr 617 . . . 4  |-  ( (
ph  /\  ( f : K --> ( ~P C  i^i  Fin )  /\  A. j  e.  K  A. z  e.  ( ~P C  i^i  Fin ) ( ( f `  j
)  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) ) )  ->  A. j  e.  K  ( ( H `  j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L )
209 fveq2 5848 . . . . . . 7  |-  ( j  =  x  ->  ( H `  j )  =  ( H `  x ) )
210 sneq 4026 . . . . . . . . . 10  |-  ( j  =  x  ->  { j }  =  { x } )
211210xpeq1d 5011 . . . . . . . . 9  |-  ( j  =  x  ->  ( { j }  X.  ( U. ran  f  u. 
ran  D ) )  =  ( { x }  X.  ( U. ran  f  u.  ran  D ) ) )
212211reseq2d 5262 . . . . . . . 8  |-  ( j  =  x  ->  ( F  |`  ( { j }  X.  ( U. ran  f  u.  ran  D ) ) )  =  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) )
213212oveq2d 6286 . . . . . . 7  |-  ( j  =  x  ->  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) )  =  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )
214209, 213oveq12d 6288 . . . . . 6  |-  ( j  =  x  ->  (
( H `  j
)  .-  ( G  gsumg  ( F  |`  ( {
j }  X.  ( U. ran  f  u.  ran  D ) ) ) ) )  =  ( ( H `  x ) 
.-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u.  ran  D ) ) ) ) ) )
215214eleq1d 2523 . . . . 5  |-  ( j  =  x  ->  (
( ( H `  j )  .-  ( G  gsumg  ( F  |`  ( { j }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L  <->  ( ( H `
 x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )
216215cbvralv 3081 . . . 4  |-  ( A. j  e.  K  (
( H `  j
)  .-  ( G  gsumg  ( F  |`  ( {
j }  X.  ( U. ran  f  u.  ran  D ) ) ) ) )  e.  L  <->  A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L )
217208, 216sylib 196 . . 3  |-  ( (
ph  /\  ( f : K --> ( ~P C  i^i  Fin )  /\  A. j  e.  K  A. z  e.  ( ~P C  i^i  Fin ) ( ( f `  j
)  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) ) )  ->  A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L )
218 sseq2 3511 . . . . 5  |-  ( n  =  ( U. ran  f  u.  ran  D )  ->  ( ran  D  C_  n  <->  ran  D  C_  ( U. ran  f  u.  ran  D ) ) )
219 xpeq2 5003 . . . . . . . . . 10  |-  ( n  =  ( U. ran  f  u.  ran  D )  ->  ( { x }  X.  n )  =  ( { x }  X.  ( U. ran  f  u.  ran  D ) ) )
220219reseq2d 5262 . . . . . . . . 9  |-  ( n  =  ( U. ran  f  u.  ran  D )  ->  ( F  |`  ( { x }  X.  n ) )  =  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) )
221220oveq2d 6286 . . . . . . . 8  |-  ( n  =  ( U. ran  f  u.  ran  D )  ->  ( G  gsumg  ( F  |`  ( { x }  X.  n ) ) )  =  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u.  ran  D ) ) ) ) )
222221oveq2d 6286 . . . . . . 7  |-  ( n  =  ( U. ran  f  u.  ran  D )  ->  ( ( H `
 x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  n ) ) ) )  =  ( ( H `  x ) 
.-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u.  ran  D ) ) ) ) ) )
223222eleq1d 2523 . . . . . 6  |-  ( n  =  ( U. ran  f  u.  ran  D )  ->  ( ( ( H `  x ) 
.-  ( G  gsumg  ( F  |`  ( { x }  X.  n ) ) ) )  e.  L  <->  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )
224223ralbidv 2893 . . . . 5  |-  ( n  =  ( U. ran  f  u.  ran  D )  ->  ( A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  n ) ) ) )  e.  L  <->  A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )
225218, 224anbi12d 708 . . . 4  |-  ( n  =  ( U. ran  f  u.  ran  D )  ->  ( ( ran 
D  C_  n  /\  A. x  e.  K  ( ( H `  x
)  .-  ( G  gsumg  ( F  |`  ( {
x }  X.  n
) ) ) )  e.  L )  <->  ( ran  D 
C_  ( U. ran  f  u.  ran  D )  /\  A. x  e.  K  ( ( H `
 x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) ) )
226225rspcev 3207 . . 3  |-  ( ( ( U. ran  f  u.  ran  D )  e.  ( ~P C  i^i  Fin )  /\  ( ran 
D  C_  ( U. ran  f  u.  ran  D )  /\  A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  ( U. ran  f  u. 
ran  D ) ) ) ) )  e.  L ) )  ->  E. n  e.  ( ~P C  i^i  Fin )
( ran  D  C_  n  /\  A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  n ) ) ) )  e.  L ) )
227122, 124, 217, 226syl12anc 1224 . 2  |-  ( (
ph  /\  ( f : K --> ( ~P C  i^i  Fin )  /\  A. j  e.  K  A. z  e.  ( ~P C  i^i  Fin ) ( ( f `  j
)  C_  z  ->  ( G  gsumg  ( ( k  e.  C  |->  ( j F k ) )  |`  z ) )  e. 
ran  ( g  e.  L  |->  ( ( H `
 j )  .-  g ) ) ) ) )  ->  E. n  e.  ( ~P C  i^i  Fin ) ( ran  D  C_  n  /\  A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  n ) ) ) )  e.  L ) )
22887, 227exlimddv 1731 1  |-  ( ph  ->  E. n  e.  ( ~P C  i^i  Fin ) ( ran  D  C_  n  /\  A. x  e.  K  ( ( H `  x )  .-  ( G  gsumg  ( F  |`  ( { x }  X.  n ) ) ) )  e.  L ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 367    = wceq 1398   E.wex 1617    e. wcel 1823   A.wral 2804   E.wrex 2805   _Vcvv 3106    u. cun 3459    i^i cin 3460    C_ wss 3461   ~Pcpw 3999   {csn 4016   U.cuni 4235    |-> cmpt 4497    X. cxp 4986   dom cdm 4988   ran crn 4989    |` cres 4990   "cima 4991    o. ccom 4992    Fn wfn 5565   -->wf 5566   -onto->wfo 5568   ` cfv 5570  (class class class)co 6270   Fincfn 7509   Basecbs 14719   +g cplusg 14787   TopOpenctopn 14914   0gc0g 14932    gsumg cgsu 14933   Mndcmnd 16121   Grpcgrp 16255   invgcminusg 16256   -gcsg 16257  CMndccmn 17000   Abelcabl 17001  TopOnctopon 19565   TopSpctps 19567   Homeochmeo 20423   TopGrpctgp 20739   tsums ctsu 20793
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1623  ax-4 1636  ax-5 1709  ax-6 1752  ax-7 1795  ax-8 1825  ax-9 1827  ax-10 1842  ax-11 1847  ax-12 1859  ax-13 2004  ax-ext 2432  ax-rep 4550  ax-sep 4560  ax-nul 4568  ax-pow 4615  ax-pr 4676  ax-un 6565  ax-inf2 8049  ax-cnex 9537  ax-resscn 9538  ax-1cn 9539  ax-icn 9540  ax-addcl 9541  ax-addrcl 9542  ax-mulcl 9543  ax-mulrcl 9544  ax-mulcom 9545  ax-addass 9546  ax-mulass 9547  ax-distr 9548  ax-i2m1 9549  ax-1ne0 9550  ax-1rid 9551  ax-rnegex 9552  ax-rrecex 9553  ax-cnre 9554  ax-pre-lttri 9555  ax-pre-lttrn 9556  ax-pre-ltadd 9557  ax-pre-mulgt0 9558
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1401  df-ex 1618  df-nf 1622  df-sb 1745  df-eu 2288  df-mo 2289  df-clab 2440  df-cleq 2446  df-clel 2449  df-nfc 2604  df-ne 2651  df-nel 2652  df-ral 2809  df-rex 2810  df-reu 2811  df-rmo 2812  df-rab 2813  df-v 3108  df-sbc 3325  df-csb 3421  df-dif 3464  df-un 3466  df-in 3468  df-ss 3475  df-pss 3477  df-nul 3784  df-if 3930  df-pw 4001  df-sn 4017  df-pr 4019  df-tp 4021  df-op 4023  df-uni 4236  df-int 4272  df-iun 4317  df-iin 4318  df-br 4440  df-opab 4498  df-mpt 4499  df-tr 4533  df-eprel 4780  df-id 4784  df-po 4789  df-so 4790  df-fr 4827  df-se 4828  df-we 4829  df-ord 4870  df-on 4871  df-lim 4872  df-suc 4873  df-xp 4994  df-rel 4995  df-cnv 4996  df-co 4997  df-dm 4998  df-rn 4999  df-res 5000  df-ima 5001  df-iota 5534  df-fun 5572  df-fn 5573  df-f 5574  df-f1 5575  df-fo 5576  df-f1o 5577  df-fv 5578  df-isom 5579  df-riota 6232  df-ov 6273  df-oprab 6274  df-mpt2 6275  df-of 6513  df-om 6674  df-1st 6773  df-2nd 6774  df-supp 6892  df-recs 7034  df-rdg 7068  df-1o 7122  df-oadd 7126  df-er 7303  df-map 7414  df-en 7510  df-dom 7511  df-sdom 7512  df-fin 7513  df-fsupp 7822  df-oi 7927  df-card 8311  df-pnf 9619  df-mnf 9620  df-xr 9621  df-ltxr 9622  df-le 9623  df-sub 9798  df-neg 9799  df-nn 10532  df-2 10590  df-n0 10792  df-z 10861  df-uz 11083  df-fz 11676  df-fzo 11800  df-seq 12093  df-hash 12391  df-ndx 14722  df-slot 14723  df-base 14724  df-sets 14725  df-ress 14726  df-plusg 14800  df-0g 14934  df-gsum 14935  df-topgen 14936  df-mre 15078  df-mrc 15079  df-acs 15081  df-plusf 16073  df-mgm 16074  df-sgrp 16113  df-mnd 16123  df-submnd 16169  df-grp 16259  df-minusg 16260  df-sbg 16261  df-mulg 16262  df-cntz 16557  df-cmn 17002  df-abl 17003  df-fbas 18614  df-fg 18615  df-top 19569  df-bases 19571  df-topon 19572  df-topsp 19573  df-ntr 19691  df-nei 19769  df-cn 19898  df-cnp 19899  df-tx 20232  df-hmeo 20425  df-fil 20516  df-fm 20608  df-flim 20609  df-flf 20610  df-tmd 20740  df-tgp 20741  df-tsms 20794
This theorem is referenced by:  tsmsxp  20826
  Copyright terms: Public domain W3C validator