Users' Mathboxes Mathbox for Jim Kingdon < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >   Mathboxes  >  gfsumval Unicode version

Theorem gfsumval 16701
Description: Value of the finite group sum over an unordered finite set. (Contributed by Jim Kingdon, 24-Mar-2026.)
Hypotheses
Ref Expression
gfsumval.b  |-  B  =  ( Base `  W
)
gfsumval.w  |-  ( ph  ->  W  e. CMnd )
gfsumval.f  |-  ( ph  ->  F : A --> B )
gfsumval.fi  |-  ( ph  ->  A  e.  Fin )
gfsumval.g  |-  ( ph  ->  G : ( 1 ... ( `  A
) ) -1-1-onto-> A )
Assertion
Ref Expression
gfsumval  |-  ( ph  ->  ( W  gfsumgf 
F )  =  ( W  gsumg  ( F  o.  G
) ) )

Proof of Theorem gfsumval
Dummy variables  p  q  r  s  f  g  w  x  h  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 gfsumval.w . . 3  |-  ( ph  ->  W  e. CMnd )
2 gfsumval.f . . . 4  |-  ( ph  ->  F : A --> B )
3 gfsumval.fi . . . 4  |-  ( ph  ->  A  e.  Fin )
42, 3fexd 5884 . . 3  |-  ( ph  ->  F  e.  _V )
5 fngsum 13473 . . . . . . . 8  |-  gsumg 
Fn  ( _V  X.  _V )
65a1i 9 . . . . . . 7  |-  ( ph  -> 
gsumg  Fn  ( _V  X.  _V ) )
71elexd 2816 . . . . . . 7  |-  ( ph  ->  W  e.  _V )
8 gfsumval.g . . . . . . . . . 10  |-  ( ph  ->  G : ( 1 ... ( `  A
) ) -1-1-onto-> A )
9 f1of 5583 . . . . . . . . . 10  |-  ( G : ( 1 ... ( `  A )
)
-1-1-onto-> A  ->  G : ( 1 ... ( `  A
) ) --> A )
108, 9syl 14 . . . . . . . . 9  |-  ( ph  ->  G : ( 1 ... ( `  A
) ) --> A )
11 1zzd 9506 . . . . . . . . . 10  |-  ( ph  ->  1  e.  ZZ )
12 hashcl 11044 . . . . . . . . . . . 12  |-  ( A  e.  Fin  ->  ( `  A )  e.  NN0 )
133, 12syl 14 . . . . . . . . . . 11  |-  ( ph  ->  ( `  A )  e.  NN0 )
1413nn0zd 9600 . . . . . . . . . 10  |-  ( ph  ->  ( `  A )  e.  ZZ )
1511, 14fzfigd 10694 . . . . . . . . 9  |-  ( ph  ->  ( 1 ... ( `  A ) )  e. 
Fin )
1610, 15fexd 5884 . . . . . . . 8  |-  ( ph  ->  G  e.  _V )
17 coexg 5281 . . . . . . . 8  |-  ( ( F  e.  _V  /\  G  e.  _V )  ->  ( F  o.  G
)  e.  _V )
184, 16, 17syl2anc 411 . . . . . . 7  |-  ( ph  ->  ( F  o.  G
)  e.  _V )
19 fnovex 6051 . . . . . . 7  |-  ( ( 
gsumg  Fn  ( _V  X.  _V )  /\  W  e.  _V  /\  ( F  o.  G
)  e.  _V )  ->  ( W  gsumg  ( F  o.  G
) )  e.  _V )
206, 7, 18, 19syl3anc 1273 . . . . . 6  |-  ( ph  ->  ( W  gsumg  ( F  o.  G
) )  e.  _V )
212fdmd 5489 . . . . . . . 8  |-  ( ph  ->  dom  F  =  A )
2221, 3eqeltrd 2308 . . . . . . 7  |-  ( ph  ->  dom  F  e.  Fin )
23 eqidd 2232 . . . . . . . . . . 11  |-  ( ph  ->  G  =  G )
2421fveq2d 5643 . . . . . . . . . . . 12  |-  ( ph  ->  ( `  dom  F )  =  ( `  A
) )
2524oveq2d 6034 . . . . . . . . . . 11  |-  ( ph  ->  ( 1 ... ( ` 
dom  F ) )  =  ( 1 ... ( `  A )
) )
2623, 25, 21f1oeq123d 5577 . . . . . . . . . 10  |-  ( ph  ->  ( G : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  <->  G :
( 1 ... ( `  A ) ) -1-1-onto-> A ) )
278, 26mpbird 167 . . . . . . . . 9  |-  ( ph  ->  G : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F )
28 eqidd 2232 . . . . . . . . 9  |-  ( ph  ->  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  G
) ) )
2927, 28jca 306 . . . . . . . 8  |-  ( ph  ->  ( G : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  G
) ) ) )
30 f1oeq1 5571 . . . . . . . . 9  |-  ( g  =  G  ->  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  <->  G :
( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F ) )
31 coeq2 4888 . . . . . . . . . . 11  |-  ( g  =  G  ->  ( F  o.  g )  =  ( F  o.  G ) )
3231oveq2d 6034 . . . . . . . . . 10  |-  ( g  =  G  ->  ( W  gsumg  ( F  o.  g
) )  =  ( W  gsumg  ( F  o.  G
) ) )
3332eqeq2d 2243 . . . . . . . . 9  |-  ( g  =  G  ->  (
( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  g
) )  <->  ( W  gsumg  ( F  o.  G ) )  =  ( W 
gsumg  ( F  o.  G
) ) ) )
3430, 33anbi12d 473 . . . . . . . 8  |-  ( g  =  G  ->  (
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  g
) ) )  <->  ( G : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  G
) ) ) ) )
3516, 29, 34elabd 2951 . . . . . . 7  |-  ( ph  ->  E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  g
) ) ) )
3622, 35jca 306 . . . . . 6  |-  ( ph  ->  ( dom  F  e. 
Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  g
) ) ) ) )
37 eqeq1 2238 . . . . . . . . 9  |-  ( x  =  ( W  gsumg  ( F  o.  G ) )  ->  ( x  =  ( W  gsumg  ( F  o.  g
) )  <->  ( W  gsumg  ( F  o.  G ) )  =  ( W 
gsumg  ( F  o.  g
) ) ) )
3837anbi2d 464 . . . . . . . 8  |-  ( x  =  ( W  gsumg  ( F  o.  G ) )  ->  ( ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) )  <->  ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  ( W  gsumg  ( F  o.  G ) )  =  ( W 
gsumg  ( F  o.  g
) ) ) ) )
3938exbidv 1873 . . . . . . 7  |-  ( x  =  ( W  gsumg  ( F  o.  G ) )  ->  ( E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) )  <->  E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  g
) ) ) ) )
4039anbi2d 464 . . . . . 6  |-  ( x  =  ( W  gsumg  ( F  o.  G ) )  ->  ( ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) )  <-> 
( dom  F  e.  Fin  /\  E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  g
) ) ) ) ) )
4120, 36, 40elabd 2951 . . . . 5  |-  ( ph  ->  E. x ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) ) )
42 anandi 594 . . . . . . . 8  |-  ( ( dom  F  e.  Fin  /\  ( E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) )  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) ) ) )  <->  ( ( dom  F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) )  /\  ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) ) ) ) )
43 f1oeq1 5571 . . . . . . . . . . . . 13  |-  ( g  =  h  ->  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  <->  h :
( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F ) )
44 coeq2 4888 . . . . . . . . . . . . . . 15  |-  ( g  =  h  ->  ( F  o.  g )  =  ( F  o.  h ) )
4544oveq2d 6034 . . . . . . . . . . . . . 14  |-  ( g  =  h  ->  ( W  gsumg  ( F  o.  g
) )  =  ( W  gsumg  ( F  o.  h
) ) )
4645eqeq2d 2243 . . . . . . . . . . . . 13  |-  ( g  =  h  ->  (
y  =  ( W 
gsumg  ( F  o.  g
) )  <->  y  =  ( W  gsumg  ( F  o.  h
) ) ) )
4743, 46anbi12d 473 . . . . . . . . . . . 12  |-  ( g  =  h  ->  (
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) )  <->  ( h : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  y  =  ( W  gsumg  ( F  o.  h
) ) ) ) )
4847cbvexv 1967 . . . . . . . . . . 11  |-  ( E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  y  =  ( W  gsumg  ( F  o.  g
) ) )  <->  E. h
( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )
491ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  W  e. CMnd )
5049cmnmndd 13897 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  W  e.  Mnd )
5150ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  (
p  e.  B  /\  q  e.  B )
)  ->  W  e.  Mnd )
52 simprl 531 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  (
p  e.  B  /\  q  e.  B )
)  ->  p  e.  B )
53 simprr 533 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  (
p  e.  B  /\  q  e.  B )
)  ->  q  e.  B )
54 gfsumval.b . . . . . . . . . . . . . . . . . . . . . . . 24  |-  B  =  ( Base `  W
)
55 eqid 2231 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( +g  `  W )  =  ( +g  `  W )
5654, 55mndcl 13508 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( W  e.  Mnd  /\  p  e.  B  /\  q  e.  B )  ->  ( p ( +g  `  W ) q )  e.  B )
5751, 52, 53, 56syl3anc 1273 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  (
p  e.  B  /\  q  e.  B )
)  ->  ( p
( +g  `  W ) q )  e.  B
)
5849ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  (
p  e.  B  /\  q  e.  B )
)  ->  W  e. CMnd )
5954, 55cmncom 13891 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( W  e. CMnd  /\  p  e.  B  /\  q  e.  B )  ->  (
p ( +g  `  W
) q )  =  ( q ( +g  `  W ) p ) )
6058, 52, 53, 59syl3anc 1273 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  (
p  e.  B  /\  q  e.  B )
)  ->  ( p
( +g  `  W ) q )  =  ( q ( +g  `  W
) p ) )
6150ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  (
p  e.  B  /\  q  e.  B  /\  r  e.  B )
)  ->  W  e.  Mnd )
6254, 55mndass 13509 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( W  e.  Mnd  /\  ( p  e.  B  /\  q  e.  B  /\  r  e.  B
) )  ->  (
( p ( +g  `  W ) q ) ( +g  `  W
) r )  =  ( p ( +g  `  W ) ( q ( +g  `  W
) r ) ) )
6361, 62sylancom 420 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  (
p  e.  B  /\  q  e.  B  /\  r  e.  B )
)  ->  ( (
p ( +g  `  W
) q ) ( +g  `  W ) r )  =  ( p ( +g  `  W
) ( q ( +g  `  W ) r ) ) )
64 elnnuz 9793 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( `  dom  F )  e.  NN  <->  ( `  dom  F )  e.  ( ZZ>= `  1
) )
6564biimpi 120 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( `  dom  F )  e.  NN  ->  ( `  dom  F )  e.  ( ZZ>= ` 
1 ) )
6665adantl 277 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( ` 
dom  F )  e.  ( ZZ>= `  1 )
)
67 ssidd 3248 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  B  C_  B )
681ad3antrrr 492 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  W  e. CMnd )
69 plusgslid 13197 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( +g  = Slot  ( +g  `  ndx )  /\  ( +g  `  ndx )  e.  NN )
7069slotex 13111 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( W  e. CMnd  ->  ( +g  `  W
)  e.  _V )
7168, 70syl 14 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( +g  `  W )  e. 
_V )
72 simprl 531 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F )
7321ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  dom  F  =  A )
7473f1oeq3d 5580 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  <->  g :
( 1 ... ( ` 
dom  F ) ) -1-1-onto-> A ) )
7572, 74mpbid 147 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> A )
7675adantr 276 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> A )
77 f1ocnv 5596 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> A  ->  `' g : A -1-1-onto-> ( 1 ... ( ` 
dom  F ) ) )
7876, 77syl 14 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  `' g : A -1-1-onto-> ( 1 ... ( ` 
dom  F ) ) )
79 simplrl 537 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F )
8073f1oeq3d 5580 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  <->  h :
( 1 ... ( ` 
dom  F ) ) -1-1-onto-> A ) )
8179, 80mpbid 147 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> A )
8281adantr 276 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> A )
83 f1oco 5606 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( `' g : A -1-1-onto-> (
1 ... ( `  dom  F ) )  /\  h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> A )  ->  ( `' g  o.  h
) : ( 1 ... ( `  dom  F ) ) -1-1-onto-> ( 1 ... ( ` 
dom  F ) ) )
8478, 82, 83syl2anc 411 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( `' g  o.  h
) : ( 1 ... ( `  dom  F ) ) -1-1-onto-> ( 1 ... ( ` 
dom  F ) ) )
852ad4antr 494 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  p  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  F : A
--> B )
86 f1of 5583 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  ->  g : ( 1 ... ( `  dom  F ) ) --> dom  F )
8772, 86syl 14 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  g : ( 1 ... ( `  dom  F ) ) --> dom  F )
8873feq3d 5471 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  (
g : ( 1 ... ( `  dom  F ) ) --> dom  F  <->  g : ( 1 ... ( `  dom  F ) ) --> A ) )
8987, 88mpbid 147 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  g : ( 1 ... ( `  dom  F ) ) --> A )
9089ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  p  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  g :
( 1 ... ( ` 
dom  F ) ) --> A )
91 fco 5500 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( F : A --> B  /\  g : ( 1 ... ( `  dom  F ) ) --> A )  -> 
( F  o.  g
) : ( 1 ... ( `  dom  F ) ) --> B )
9285, 90, 91syl2anc 411 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  p  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( F  o.  g ) : ( 1 ... ( `  dom  F ) ) --> B )
93 simpr 110 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  p  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  p  e.  ( 1 ... ( ` 
dom  F ) ) )
9492, 93ffvelcdmd 5783 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  p  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( ( F  o.  g ) `  p )  e.  B
)
95 f1of 5583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  ->  h : ( 1 ... ( `  dom  F ) ) --> dom  F )
9679, 95syl 14 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  h : ( 1 ... ( `  dom  F ) ) --> dom  F )
9773feq3d 5471 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  (
h : ( 1 ... ( `  dom  F ) ) --> dom  F  <->  h : ( 1 ... ( `  dom  F ) ) --> A ) )
9896, 97mpbid 147 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  h : ( 1 ... ( `  dom  F ) ) --> A )
9998ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  h :
( 1 ... ( ` 
dom  F ) ) --> A )
100 fvco3 5717 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( h : ( 1 ... ( `  dom  F ) ) --> A  /\  s  e.  ( 1 ... ( `  dom  F ) ) )  -> 
( ( `' g  o.  h ) `  s )  =  ( `' g `  (
h `  s )
) )
10199, 100sylancom 420 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( ( `' g  o.  h
) `  s )  =  ( `' g `
 ( h `  s ) ) )
102101fveq2d 5643 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( g `  ( ( `' g  o.  h ) `  s ) )  =  ( g `  ( `' g `  (
h `  s )
) ) )
10376adantr 276 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  g :
( 1 ... ( ` 
dom  F ) ) -1-1-onto-> A )
104 simpr 110 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  s  e.  ( 1 ... ( ` 
dom  F ) ) )
10599, 104ffvelcdmd 5783 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( h `  s )  e.  A
)
106 f1ocnvfv2 5919 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> A  /\  ( h `
 s )  e.  A )  ->  (
g `  ( `' g `  ( h `  s ) ) )  =  ( h `  s ) )
107103, 105, 106syl2anc 411 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( g `  ( `' g `  ( h `  s
) ) )  =  ( h `  s
) )
108102, 107eqtrd 2264 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( g `  ( ( `' g  o.  h ) `  s ) )  =  ( h `  s
) )
109108fveq2d 5643 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( F `  ( g `  (
( `' g  o.  h ) `  s
) ) )  =  ( F `  (
h `  s )
) )
11089ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  g :
( 1 ... ( ` 
dom  F ) ) --> A )
111 f1ocnv 5596 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  ->  `' g : dom  F -1-1-onto-> ( 1 ... ( `  dom  F ) ) )
112 f1of 5583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( `' g : dom  F -1-1-onto-> (
1 ... ( `  dom  F ) )  ->  `' g : dom  F --> ( 1 ... ( `  dom  F ) ) )
11372, 111, 1123syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  `' g : dom  F --> ( 1 ... ( `  dom  F ) ) )
11473feq2d 5470 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  ( `' g : dom  F --> ( 1 ... ( ` 
dom  F ) )  <->  `' g : A --> ( 1 ... ( ` 
dom  F ) ) ) )
115113, 114mpbid 147 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  `' g : A --> ( 1 ... ( `  dom  F ) ) )
116115ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  `' g : A --> ( 1 ... ( `  dom  F ) ) )
117116, 105ffvelcdmd 5783 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( `' g `  ( h `  s ) )  e.  ( 1 ... ( ` 
dom  F ) ) )
118101, 117eqeltrd 2308 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( ( `' g  o.  h
) `  s )  e.  ( 1 ... ( ` 
dom  F ) ) )
119 fvco3 5717 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( g : ( 1 ... ( `  dom  F ) ) --> A  /\  ( ( `' g  o.  h ) `  s )  e.  ( 1 ... ( `  dom  F ) ) )  -> 
( ( F  o.  g ) `  (
( `' g  o.  h ) `  s
) )  =  ( F `  ( g `
 ( ( `' g  o.  h ) `
 s ) ) ) )
120110, 118, 119syl2anc 411 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( ( F  o.  g ) `  ( ( `' g  o.  h ) `  s ) )  =  ( F `  (
g `  ( ( `' g  o.  h
) `  s )
) ) )
121 fvco3 5717 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( h : ( 1 ... ( `  dom  F ) ) --> A  /\  s  e.  ( 1 ... ( `  dom  F ) ) )  -> 
( ( F  o.  h ) `  s
)  =  ( F `
 ( h `  s ) ) )
12299, 121sylancom 420 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( ( F  o.  h ) `  s )  =  ( F `  ( h `
 s ) ) )
123109, 120, 1223eqtr4rd 2275 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  /\  s  e.  ( 1 ... ( ` 
dom  F ) ) )  ->  ( ( F  o.  h ) `  s )  =  ( ( F  o.  g
) `  ( ( `' g  o.  h
) `  s )
) )
1244ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  F  e.  _V )
125 vex 2805 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  g  e. 
_V
126 coexg 5281 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( F  e.  _V  /\  g  e.  _V )  ->  ( F  o.  g
)  e.  _V )
127124, 125, 126sylancl 413 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  ( F  o.  g )  e.  _V )
128127adantr 276 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( F  o.  g )  e.  _V )
129 vex 2805 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  h  e. 
_V
130 coexg 5281 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( F  e.  _V  /\  h  e.  _V )  ->  ( F  o.  h
)  e.  _V )
131124, 129, 130sylancl 413 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  ( F  o.  h )  e.  _V )
132131adantr 276 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( F  o.  h )  e.  _V )
13357, 60, 63, 66, 67, 71, 84, 94, 123, 128, 132seqf1og 10784 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  (  seq 1 ( ( +g  `  W ) ,  ( F  o.  h ) ) `  ( `  dom  F ) )  =  (  seq 1 ( ( +g  `  W ) ,  ( F  o.  g ) ) `  ( `  dom  F ) ) )
1342ad3antrrr 492 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  F : A --> B )
13598adantr 276 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  h : ( 1 ... ( `  dom  F ) ) --> A )
136 fco 5500 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( F : A --> B  /\  h : ( 1 ... ( `  dom  F ) ) --> A )  -> 
( F  o.  h
) : ( 1 ... ( `  dom  F ) ) --> B )
137134, 135, 136syl2anc 411 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( F  o.  h ) : ( 1 ... ( `  dom  F ) ) --> B )
13854, 55, 68, 66, 137gsumval2 13482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( W  gsumg  ( F  o.  h
) )  =  (  seq 1 ( ( +g  `  W ) ,  ( F  o.  h ) ) `  ( `  dom  F ) ) )
139 simplrl 537 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F )
140139, 86syl 14 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  g : ( 1 ... ( `  dom  F ) ) --> dom  F )
141134fdmd 5489 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  dom  F  =  A )
142141feq3d 5471 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  (
g : ( 1 ... ( `  dom  F ) ) --> dom  F  <->  g : ( 1 ... ( `  dom  F ) ) --> A ) )
143140, 142mpbid 147 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  g : ( 1 ... ( `  dom  F ) ) --> A )
144134, 143, 91syl2anc 411 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( F  o.  g ) : ( 1 ... ( `  dom  F ) ) --> B )
14554, 55, 68, 66, 144gsumval2 13482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( W  gsumg  ( F  o.  g
) )  =  (  seq 1 ( ( +g  `  W ) ,  ( F  o.  g ) ) `  ( `  dom  F ) ) )
146133, 138, 1453eqtr4d 2274 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  ( W  gsumg  ( F  o.  h
) )  =  ( W  gsumg  ( F  o.  g
) ) )
147 simprr 533 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  ->  y  =  ( W  gsumg  ( F  o.  h ) ) )
148147ad2antrr 488 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  y  =  ( W  gsumg  ( F  o.  h ) ) )
149 simplrr 538 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  x  =  ( W  gsumg  ( F  o.  g ) ) )
150146, 148, 1493eqtr4rd 2275 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  e.  NN )  ->  x  =  y )
151 simprl 531 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( (
ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  ->  h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F )
152151ad2antrr 488 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F )
153152, 95syl 14 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  h : ( 1 ... ( `  dom  F ) ) --> dom  F )
154 simpr 110 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( ` 
dom  F )  =  0 )
155 fihasheq0 11056 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( dom 
F  e.  Fin  ->  ( ( `  dom  F )  =  0  <->  dom  F  =  (/) ) )
15622, 155syl 14 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( ( `  dom  F )  =  0  <->  dom  F  =  (/) ) )
157156ad3antrrr 492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  (
( `  dom  F )  =  0  <->  dom  F  =  (/) ) )
158154, 157mpbid 147 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  dom  F  =  (/) )
159158feq3d 5471 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  (
h : ( 1 ... ( `  dom  F ) ) --> dom  F  <->  h : ( 1 ... ( `  dom  F ) ) --> (/) ) )
160153, 159mpbid 147 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  h : ( 1 ... ( `  dom  F ) ) --> (/) )
161 f00 5528 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( h : ( 1 ... ( `  dom  F ) ) --> (/)  <->  ( h  =  (/)  /\  ( 1 ... ( `  dom  F ) )  =  (/) ) )
162160, 161sylib 122 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  (
h  =  (/)  /\  (
1 ... ( `  dom  F ) )  =  (/) ) )
163162simpld 112 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  h  =  (/) )
164163coeq2d 4892 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( F  o.  h )  =  ( F  o.  (/) ) )
165 co02 5250 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( F  o.  (/) )  =  (/)
166164, 165eqtrdi 2280 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( F  o.  h )  =  (/) )
167166oveq2d 6034 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( W  gsumg  ( F  o.  h
) )  =  ( W  gsumg  (/) ) )
168 eqid 2231 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( 0g
`  W )  =  ( 0g `  W
)
169168gsum0g 13481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( W  e. CMnd  ->  ( W  gsumg  (/) )  =  ( 0g `  W
) )
1701, 169syl 14 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( W  gsumg  (/) )  =  ( 0g `  W ) )
171170ad3antrrr 492 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( W  gsumg  (/) )  =  ( 0g `  W ) )
172167, 171eqtrd 2264 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( W  gsumg  ( F  o.  h
) )  =  ( 0g `  W ) )
173147ad2antrr 488 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  y  =  ( W  gsumg  ( F  o.  h ) ) )
174 simplrr 538 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  x  =  ( W  gsumg  ( F  o.  g ) ) )
175 simplrl 537 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F )
176175, 86syl 14 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  g : ( 1 ... ( `  dom  F ) ) --> dom  F )
177158feq3d 5471 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  (
g : ( 1 ... ( `  dom  F ) ) --> dom  F  <->  g : ( 1 ... ( `  dom  F ) ) --> (/) ) )
178176, 177mpbid 147 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  g : ( 1 ... ( `  dom  F ) ) --> (/) )
179 f00 5528 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( g : ( 1 ... ( `  dom  F ) ) --> (/)  <->  ( g  =  (/)  /\  ( 1 ... ( `  dom  F ) )  =  (/) ) )
180178, 179sylib 122 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  (
g  =  (/)  /\  (
1 ... ( `  dom  F ) )  =  (/) ) )
181180simpld 112 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  g  =  (/) )
182181coeq2d 4892 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( F  o.  g )  =  ( F  o.  (/) ) )
183182, 165eqtrdi 2280 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( F  o.  g )  =  (/) )
184183oveq2d 6034 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  ( W  gsumg  ( F  o.  g
) )  =  ( W  gsumg  (/) ) )
185174, 184, 1713eqtrd 2268 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  x  =  ( 0g `  W ) )
186172, 173, 1853eqtr4rd 2275 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( ` 
dom  F )  =  0 )  ->  x  =  y )
18724, 13eqeltrd 2308 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( `  dom  F )  e.  NN0 )
188 elnn0 9404 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( `  dom  F )  e. 
NN0 
<->  ( ( `  dom  F )  e.  NN  \/  ( `  dom  F )  =  0 ) )
189187, 188sylib 122 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( `  dom  F )  e.  NN  \/  ( `  dom  F )  =  0 ) )
190189ad2antrr 488 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  (
( `  dom  F )  e.  NN  \/  ( ` 
dom  F )  =  0 ) )
191150, 186, 190mpjaodan 805 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  /\  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  x  =  y )
192191ex 115 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  ->  (
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) )  ->  x  =  y ) )
193192exlimdv 1867 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) ) )  ->  ( E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) )  ->  x  =  y )
)
194193ex 115 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( h : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  y  =  ( W  gsumg  ( F  o.  h
) ) )  -> 
( E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) )  ->  x  =  y ) ) )
195194com23 78 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) )  ->  ( (
h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) )  ->  x  =  y ) ) )
196195adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  dom  F  e. 
Fin )  ->  ( E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) )  -> 
( ( h : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  y  =  ( W  gsumg  ( F  o.  h
) ) )  ->  x  =  y )
) )
197196imp 124 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  dom  F  e.  Fin )  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) )  ->  ( ( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) )  ->  x  =  y ) )
198197exlimdv 1867 . . . . . . . . . . 11  |-  ( ( ( ph  /\  dom  F  e.  Fin )  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) )  ->  ( E. h
( h : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  h ) ) )  ->  x  =  y ) )
19948, 198biimtrid 152 . . . . . . . . . 10  |-  ( ( ( ph  /\  dom  F  e.  Fin )  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) )  ->  ( E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) )  ->  x  =  y ) )
200199impr 379 . . . . . . . . 9  |-  ( ( ( ph  /\  dom  F  e.  Fin )  /\  ( E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) )  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) ) ) )  ->  x  =  y )
201200anasss 399 . . . . . . . 8  |-  ( (
ph  /\  ( dom  F  e.  Fin  /\  ( E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) )  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  y  =  ( W  gsumg  ( F  o.  g
) ) ) ) ) )  ->  x  =  y )
20242, 201sylan2br 288 . . . . . . 7  |-  ( (
ph  /\  ( ( dom  F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) )  /\  ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) ) ) ) )  ->  x  =  y )
203202ex 115 . . . . . 6  |-  ( ph  ->  ( ( ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) )  /\  ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) ) ) )  ->  x  =  y )
)
204203alrimivv 1923 . . . . 5  |-  ( ph  ->  A. x A. y
( ( ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) )  /\  ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) ) ) )  ->  x  =  y )
)
205 eqeq1 2238 . . . . . . . . 9  |-  ( x  =  y  ->  (
x  =  ( W 
gsumg  ( F  o.  g
) )  <->  y  =  ( W  gsumg  ( F  o.  g
) ) ) )
206205anbi2d 464 . . . . . . . 8  |-  ( x  =  y  ->  (
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) )  <->  ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  y  =  ( W  gsumg  ( F  o.  g
) ) ) ) )
207206exbidv 1873 . . . . . . 7  |-  ( x  =  y  ->  ( E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) )  <->  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  y  =  ( W  gsumg  ( F  o.  g ) ) ) ) )
208207anbi2d 464 . . . . . 6  |-  ( x  =  y  ->  (
( dom  F  e.  Fin  /\  E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  <->  ( dom  F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  y  =  ( W  gsumg  ( F  o.  g
) ) ) ) ) )
209208eu4 2142 . . . . 5  |-  ( E! x ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  <->  ( E. x ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  A. x A. y ( ( ( dom  F  e. 
Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  /\  ( dom  F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  y  =  ( W  gsumg  ( F  o.  g
) ) ) ) )  ->  x  =  y ) ) )
21041, 204, 209sylanbrc 417 . . . 4  |-  ( ph  ->  E! x ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) ) )
211 euiotaex 5303 . . . 4  |-  ( E! x ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) )  ->  ( iota x ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) ) )  e. 
_V )
212210, 211syl 14 . . 3  |-  ( ph  ->  ( iota x ( dom  F  e.  Fin  /\ 
E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) ) )  e. 
_V )
213 oveq1 6025 . . . . . . . . 9  |-  ( w  =  W  ->  (
w  gsumg  ( f  o.  g
) )  =  ( W  gsumg  ( f  o.  g
) ) )
214213eqeq2d 2243 . . . . . . . 8  |-  ( w  =  W  ->  (
x  =  ( w 
gsumg  ( f  o.  g
) )  <->  x  =  ( W  gsumg  ( f  o.  g
) ) ) )
215214anbi2d 464 . . . . . . 7  |-  ( w  =  W  ->  (
( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  (
w  gsumg  ( f  o.  g
) ) )  <->  ( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( W  gsumg  ( f  o.  g ) ) ) ) )
216215exbidv 1873 . . . . . 6  |-  ( w  =  W  ->  ( E. g ( g : ( 1 ... ( ` 
dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( w  gsumg  ( f  o.  g
) ) )  <->  E. g
( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( W  gsumg  ( f  o.  g
) ) ) ) )
217216anbi2d 464 . . . . 5  |-  ( w  =  W  ->  (
( dom  f  e.  Fin  /\  E. g ( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  (
w  gsumg  ( f  o.  g
) ) ) )  <-> 
( dom  f  e.  Fin  /\  E. g ( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( W  gsumg  ( f  o.  g
) ) ) ) ) )
218217iotabidv 5309 . . . 4  |-  ( w  =  W  ->  ( iota x ( dom  f  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  (
w  gsumg  ( f  o.  g
) ) ) ) )  =  ( iota
x ( dom  f  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( W  gsumg  ( f  o.  g
) ) ) ) ) )
219 dmeq 4931 . . . . . . 7  |-  ( f  =  F  ->  dom  f  =  dom  F )
220219eleq1d 2300 . . . . . 6  |-  ( f  =  F  ->  ( dom  f  e.  Fin  <->  dom  F  e.  Fin ) )
221 eqidd 2232 . . . . . . . . 9  |-  ( f  =  F  ->  g  =  g )
222219fveq2d 5643 . . . . . . . . . 10  |-  ( f  =  F  ->  ( ` 
dom  f )  =  ( `  dom  F ) )
223222oveq2d 6034 . . . . . . . . 9  |-  ( f  =  F  ->  (
1 ... ( `  dom  f ) )  =  ( 1 ... ( ` 
dom  F ) ) )
224221, 223, 219f1oeq123d 5577 . . . . . . . 8  |-  ( f  =  F  ->  (
g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  <->  g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F ) )
225 coeq1 4887 . . . . . . . . . 10  |-  ( f  =  F  ->  (
f  o.  g )  =  ( F  o.  g ) )
226225oveq2d 6034 . . . . . . . . 9  |-  ( f  =  F  ->  ( W  gsumg  ( f  o.  g
) )  =  ( W  gsumg  ( F  o.  g
) ) )
227226eqeq2d 2243 . . . . . . . 8  |-  ( f  =  F  ->  (
x  =  ( W 
gsumg  ( f  o.  g
) )  <->  x  =  ( W  gsumg  ( F  o.  g
) ) ) )
228224, 227anbi12d 473 . . . . . . 7  |-  ( f  =  F  ->  (
( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( W  gsumg  ( f  o.  g
) ) )  <->  ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) ) )
229228exbidv 1873 . . . . . 6  |-  ( f  =  F  ->  ( E. g ( g : ( 1 ... ( ` 
dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( W  gsumg  ( f  o.  g
) ) )  <->  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) ) )
230220, 229anbi12d 473 . . . . 5  |-  ( f  =  F  ->  (
( dom  f  e.  Fin  /\  E. g ( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( W  gsumg  ( f  o.  g
) ) ) )  <-> 
( dom  F  e.  Fin  /\  E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) ) ) )
231230iotabidv 5309 . . . 4  |-  ( f  =  F  ->  ( iota x ( dom  f  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( W  gsumg  ( f  o.  g
) ) ) ) )  =  ( iota
x ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) ) ) )
232 df-gfsum 16700 . . . 4  |-  gfsumgf 
=  ( w  e. CMnd ,  f  e.  _V  |->  ( iota x ( dom  f  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  f ) ) -1-1-onto-> dom  f  /\  x  =  ( w  gsumg  ( f  o.  g
) ) ) ) ) )
233218, 231, 232ovmpog 6156 . . 3  |-  ( ( W  e. CMnd  /\  F  e.  _V  /\  ( iota
x ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) ) )  e. 
_V )  ->  ( W  gfsumgf 
F )  =  ( iota x ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) ) ) )
2341, 4, 212, 233syl3anc 1273 . 2  |-  ( ph  ->  ( W  gfsumgf 
F )  =  ( iota x ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) ) ) )
23540iota2 5316 . . . 4  |-  ( ( ( W  gsumg  ( F  o.  G
) )  e.  _V  /\  E! x ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) ) )  ->  ( ( dom  F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  ( W  gsumg  ( F  o.  G ) )  =  ( W 
gsumg  ( F  o.  g
) ) ) )  <-> 
( iota x ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) ) )  =  ( W 
gsumg  ( F  o.  G
) ) ) )
23620, 210, 235syl2anc 411 . . 3  |-  ( ph  ->  ( ( dom  F  e.  Fin  /\  E. g
( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  ( W  gsumg  ( F  o.  G
) )  =  ( W  gsumg  ( F  o.  g
) ) ) )  <-> 
( iota x ( dom 
F  e.  Fin  /\  E. g ( g : ( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F  /\  x  =  ( W  gsumg  ( F  o.  g
) ) ) ) )  =  ( W 
gsumg  ( F  o.  G
) ) ) )
23736, 236mpbid 147 . 2  |-  ( ph  ->  ( iota x ( dom  F  e.  Fin  /\ 
E. g ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  /\  x  =  ( W  gsumg  ( F  o.  g ) ) ) ) )  =  ( W  gsumg  ( F  o.  G
) ) )
238234, 237eqtrd 2264 1  |-  ( ph  ->  ( W  gfsumgf 
F )  =  ( W  gsumg  ( F  o.  G
) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104    <-> wb 105    \/ wo 715    /\ w3a 1004   A.wal 1395    = wceq 1397   E.wex 1540   E!weu 2079    e. wcel 2202   _Vcvv 2802   (/)c0 3494    X. cxp 4723   `'ccnv 4724   dom cdm 4725    o. ccom 4729   iotacio 5284    Fn wfn 5321   -->wf 5322   -1-1-onto->wf1o 5325   ` cfv 5326  (class class class)co 6018   Fincfn 6909   0cc0 8032   1c1 8033   NNcn 9143   NN0cn0 9402   ZZ>=cuz 9755   ...cfz 10243    seqcseq 10710  ♯chash 11038   Basecbs 13084   +g cplusg 13162   0gc0g 13341    gsumg cgsu 13342   Mndcmnd 13501  CMndccmn 13873    gfsumgf cgfsu 16699
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4204  ax-sep 4207  ax-nul 4215  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635  ax-iinf 4686  ax-cnex 8123  ax-resscn 8124  ax-1cn 8125  ax-1re 8126  ax-icn 8127  ax-addcl 8128  ax-addrcl 8129  ax-mulcl 8130  ax-mulrcl 8131  ax-addcom 8132  ax-mulcom 8133  ax-addass 8134  ax-mulass 8135  ax-distr 8136  ax-i2m1 8137  ax-0lt1 8138  ax-1rid 8139  ax-0id 8140  ax-rnegex 8141  ax-precex 8142  ax-cnre 8143  ax-pre-ltirr 8144  ax-pre-ltwlin 8145  ax-pre-lttrn 8146  ax-pre-apti 8147  ax-pre-ltadd 8148  ax-pre-mulgt0 8149
This theorem depends on definitions:  df-bi 117  df-stab 838  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-nel 2498  df-ral 2515  df-rex 2516  df-reu 2517  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-nul 3495  df-if 3606  df-pw 3654  df-sn 3675  df-pr 3676  df-op 3678  df-uni 3894  df-int 3929  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-tr 4188  df-id 4390  df-iord 4463  df-on 4465  df-ilim 4466  df-suc 4468  df-iom 4689  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-riota 5971  df-ov 6021  df-oprab 6022  df-mpo 6023  df-1st 6303  df-2nd 6304  df-recs 6471  df-frec 6557  df-1o 6582  df-er 6702  df-en 6910  df-dom 6911  df-fin 6912  df-pnf 8216  df-mnf 8217  df-xr 8218  df-ltxr 8219  df-le 8220  df-sub 8352  df-neg 8353  df-reap 8755  df-ap 8762  df-inn 9144  df-2 9202  df-n0 9403  df-z 9480  df-uz 9756  df-fz 10244  df-fzo 10378  df-seqfrec 10711  df-ihash 11039  df-ndx 13087  df-slot 13088  df-base 13090  df-plusg 13175  df-0g 13343  df-igsum 13344  df-mgm 13441  df-sgrp 13487  df-mnd 13502  df-cmn 13875  df-gfsum 16700
This theorem is referenced by:  gsumgfsum1  16702  gsumgfsum  16705  gfsumsn  16706  gfsump1  16707
  Copyright terms: Public domain W3C validator