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

Theorem gfsumval 16853
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 5915 . . 3  |-  ( ph  ->  F  e.  _V )
5 fngsum 13593 . . . . . . . 8  |-  gsumg 
Fn  ( _V  X.  _V )
65a1i 9 . . . . . . 7  |-  ( ph  -> 
gsumg  Fn  ( _V  X.  _V ) )
71elexd 2826 . . . . . . 7  |-  ( ph  ->  W  e.  _V )
8 gfsumval.g . . . . . . . . . 10  |-  ( ph  ->  G : ( 1 ... ( `  A
) ) -1-1-onto-> A )
9 f1of 5613 . . . . . . . . . 10  |-  ( G : ( 1 ... ( `  A )
)
-1-1-onto-> A  ->  G : ( 1 ... ( `  A
) ) --> A )
108, 9syl 14 . . . . . . . . 9  |-  ( ph  ->  G : ( 1 ... ( `  A
) ) --> A )
11 1zzd 9603 . . . . . . . . . 10  |-  ( ph  ->  1  e.  ZZ )
12 hashcl 11142 . . . . . . . . . . . 12  |-  ( A  e.  Fin  ->  ( `  A )  e.  NN0 )
133, 12syl 14 . . . . . . . . . . 11  |-  ( ph  ->  ( `  A )  e.  NN0 )
1413nn0zd 9697 . . . . . . . . . 10  |-  ( ph  ->  ( `  A )  e.  ZZ )
1511, 14fzfigd 10792 . . . . . . . . 9  |-  ( ph  ->  ( 1 ... ( `  A ) )  e. 
Fin )
1610, 15fexd 5915 . . . . . . . 8  |-  ( ph  ->  G  e.  _V )
17 coexg 5306 . . . . . . . 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 6082 . . . . . . 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 1274 . . . . . 6  |-  ( ph  ->  ( W  gsumg  ( F  o.  G
) )  e.  _V )
212fdmd 5514 . . . . . . . 8  |-  ( ph  ->  dom  F  =  A )
2221, 3eqeltrd 2309 . . . . . . 7  |-  ( ph  ->  dom  F  e.  Fin )
23 eqidd 2233 . . . . . . . . . . 11  |-  ( ph  ->  G  =  G )
2421fveq2d 5673 . . . . . . . . . . . 12  |-  ( ph  ->  ( `  dom  F )  =  ( `  A
) )
2524oveq2d 6065 . . . . . . . . . . 11  |-  ( ph  ->  ( 1 ... ( ` 
dom  F ) )  =  ( 1 ... ( `  A )
) )
2623, 25, 21f1oeq123d 5607 . . . . . . . . . 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 2233 . . . . . . . . 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 5601 . . . . . . . . 9  |-  ( g  =  G  ->  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  <->  G :
( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F ) )
31 coeq2 4912 . . . . . . . . . . 11  |-  ( g  =  G  ->  ( F  o.  g )  =  ( F  o.  G ) )
3231oveq2d 6065 . . . . . . . . . 10  |-  ( g  =  G  ->  ( W  gsumg  ( F  o.  g
) )  =  ( W  gsumg  ( F  o.  G
) ) )
3332eqeq2d 2244 . . . . . . . . 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 2961 . . . . . . 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 2239 . . . . . . . . 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 1874 . . . . . . 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 2961 . . . . 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 5601 . . . . . . . . . . . . 13  |-  ( g  =  h  ->  (
g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  <->  h :
( 1 ... ( ` 
dom  F ) ) -1-1-onto-> dom 
F ) )
44 coeq2 4912 . . . . . . . . . . . . . . 15  |-  ( g  =  h  ->  ( F  o.  g )  =  ( F  o.  h ) )
4544oveq2d 6065 . . . . . . . . . . . . . 14  |-  ( g  =  h  ->  ( W  gsumg  ( F  o.  g
) )  =  ( W  gsumg  ( F  o.  h
) ) )
4645eqeq2d 2244 . . . . . . . . . . . . 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 1968 . . . . . . . . . . 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 14017 . . . . . . . . . . . . . . . . . . . . . . . 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 2232 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( +g  `  W )  =  ( +g  `  W )
5654, 55mndcl 13628 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( W  e.  Mnd  /\  p  e.  B  /\  q  e.  B )  ->  ( p ( +g  `  W ) q )  e.  B )
5751, 52, 53, 56syl3anc 1274 . . . . . . . . . . . . . . . . . . . . . 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 14011 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( W  e. CMnd  /\  p  e.  B  /\  q  e.  B )  ->  (
p ( +g  `  W
) q )  =  ( q ( +g  `  W ) p ) )
6058, 52, 53, 59syl3anc 1274 . . . . . . . . . . . . . . . . . . . . . 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 13629 . . . . . . . . . . . . . . . . . . . . . . 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 9890 . . . . . . . . . . . . . . . . . . . . . . . 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 3258 . . . . . . . . . . . . . . . . . . . . . 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 13317 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( +g  = Slot  ( +g  `  ndx )  /\  ( +g  `  ndx )  e.  NN )
7069slotex 13231 . . . . . . . . . . . . . . . . . . . . . . 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 5610 . . . . . . . . . . . . . . . . . . . . . . . . . 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 5626 . . . . . . . . . . . . . . . . . . . . . . . 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 5610 . . . . . . . . . . . . . . . . . . . . . . . . 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 5636 . . . . . . . . . . . . . . . . . . . . . . 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 5613 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5496 . . . . . . . . . . . . . . . . . . . . . . . . . 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 5526 . . . . . . . . . . . . . . . . . . . . . . . 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 5812 . . . . . . . . . . . . . . . . . . . . . 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 5613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5496 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5747 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5673 . . . . . . . . . . . . . . . . . . . . . . . . 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 5812 . . . . . . . . . . . . . . . . . . . . . . . . . 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 5950 . . . . . . . . . . . . . . . . . . . . . . . . . 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 2265 . . . . . . . . . . . . . . . . . . . . . . . 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 5673 . . . . . . . . . . . . . . . . . . . . . . 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 5626 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F  ->  `' g : dom  F -1-1-onto-> ( 1 ... ( `  dom  F ) ) )
112 f1of 5613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5495 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5812 . . . . . . . . . . . . . . . . . . . . . . . . 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 2309 . . . . . . . . . . . . . . . . . . . . . . . 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 5747 . . . . . . . . . . . . . . . . . . . . . . . 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 5747 . . . . . . . . . . . . . . . . . . . . . . . 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 2276 . . . . . . . . . . . . . . . . . . . . . 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 2815 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  g  e. 
_V
126 coexg 5306 . . . . . . . . . . . . . . . . . . . . . . . 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 2815 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  h  e. 
_V
130 coexg 5306 . . . . . . . . . . . . . . . . . . . . . . . 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 10882 . . . . . . . . . . . . . . . . . . . . 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 5526 . . . . . . . . . . . . . . . . . . . . . . 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 13602 . . . . . . . . . . . . . . . . . . . . 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 5514 . . . . . . . . . . . . . . . . . . . . . . . . 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 5496 . . . . . . . . . . . . . . . . . . . . . . . 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 13602 . . . . . . . . . . . . . . . . . . . . 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 2275 . . . . . . . . . . . . . . . . . . . 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 2276 . . . . . . . . . . . . . . . . . . 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 11154 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5496 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5558 . . . . . . . . . . . . . . . . . . . . . . . . . 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 4916 . . . . . . . . . . . . . . . . . . . . . . 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 5275 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( F  o.  (/) )  =  (/)
166164, 165eqtrdi 2281 . . . . . . . . . . . . . . . . . . . . . 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 6065 . . . . . . . . . . . . . . . . . . . . 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 2232 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( 0g
`  W )  =  ( 0g `  W
)
169168gsum0g 13601 . . . . . . . . . . . . . . . . . . . . . . 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 2265 . . . . . . . . . . . . . . . . . . . 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 5496 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 5558 . . . . . . . . . . . . . . . . . . . . . . . . . 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 4916 . . . . . . . . . . . . . . . . . . . . . . 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 2281 . . . . . . . . . . . . . . . . . . . . . 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 6065 . . . . . . . . . . . . . . . . . . . . 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 2269 . . . . . . . . . . . . . . . . . . . 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 2276 . . . . . . . . . . . . . . . . . . 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 2309 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( `  dom  F )  e.  NN0 )
188 elnn0 9497 . . . . . . . . . . . . . . . . . . . . 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 806 . . . . . . . . . . . . . . . . . 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 1868 . . . . . . . . . . . . . . . 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 1868 . . . . . . . . . . 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 1924 . . . . 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 2239 . . . . . . . . 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 1874 . . . . . . 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 2143 . . . . 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 5328 . . . 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 6056 . . . . . . . . 9  |-  ( w  =  W  ->  (
w  gsumg  ( f  o.  g
) )  =  ( W  gsumg  ( f  o.  g
) ) )
214213eqeq2d 2244 . . . . . . . 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 1874 . . . . . 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 5334 . . . 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 4955 . . . . . . 7  |-  ( f  =  F  ->  dom  f  =  dom  F )
220219eleq1d 2301 . . . . . 6  |-  ( f  =  F  ->  ( dom  f  e.  Fin  <->  dom  F  e.  Fin ) )
221 eqidd 2233 . . . . . . . . 9  |-  ( f  =  F  ->  g  =  g )
222219fveq2d 5673 . . . . . . . . . 10  |-  ( f  =  F  ->  ( ` 
dom  f )  =  ( `  dom  F ) )
223222oveq2d 6065 . . . . . . . . 9  |-  ( f  =  F  ->  (
1 ... ( `  dom  f ) )  =  ( 1 ... ( ` 
dom  F ) ) )
224221, 223, 219f1oeq123d 5607 . . . . . . . 8  |-  ( f  =  F  ->  (
g : ( 1 ... ( `  dom  f ) ) -1-1-onto-> dom  f  <->  g : ( 1 ... ( `  dom  F ) ) -1-1-onto-> dom  F ) )
225 coeq1 4911 . . . . . . . . . 10  |-  ( f  =  F  ->  (
f  o.  g )  =  ( F  o.  g ) )
226225oveq2d 6065 . . . . . . . . 9  |-  ( f  =  F  ->  ( W  gsumg  ( f  o.  g
) )  =  ( W  gsumg  ( F  o.  g
) ) )
227226eqeq2d 2244 . . . . . . . 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 1874 . . . . . 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 5334 . . . 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 16852 . . . 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 6187 . . 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 1274 . 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 5341 . . . 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 2265 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 716    /\ w3a 1005   A.wal 1396    = wceq 1398   E.wex 1541   E!weu 2080    e. wcel 2203   _Vcvv 2812   (/)c0 3507    X. cxp 4746   `'ccnv 4747   dom cdm 4748    o. ccom 4752   iotacio 5309    Fn wfn 5346   -->wf 5347   -1-1-onto->wf1o 5350   ` cfv 5351  (class class class)co 6049   Fincfn 6974   0cc0 8126   1c1 8127   NNcn 9236   NN0cn0 9495   ZZ>=cuz 9852   ...cfz 10341    seqcseq 10808  ♯chash 11136   Basecbs 13204   +g cplusg 13282   0gc0g 13461    gsumg cgsu 13462   Mndcmnd 13621  CMndccmn 13993    gfsumgf cgfsu 16851
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 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4224  ax-sep 4227  ax-nul 4235  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-iinf 4709  ax-cnex 8217  ax-resscn 8218  ax-1cn 8219  ax-1re 8220  ax-icn 8221  ax-addcl 8222  ax-addrcl 8223  ax-mulcl 8224  ax-mulrcl 8225  ax-addcom 8226  ax-mulcom 8227  ax-addass 8228  ax-mulass 8229  ax-distr 8230  ax-i2m1 8231  ax-0lt1 8232  ax-1rid 8233  ax-0id 8234  ax-rnegex 8235  ax-precex 8236  ax-cnre 8237  ax-pre-ltirr 8238  ax-pre-ltwlin 8239  ax-pre-lttrn 8240  ax-pre-apti 8241  ax-pre-ltadd 8242  ax-pre-mulgt0 8243
This theorem depends on definitions:  df-bi 117  df-stab 839  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2814  df-sbc 3042  df-csb 3138  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-if 3620  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-int 3949  df-iun 3992  df-br 4109  df-opab 4171  df-mpt 4172  df-tr 4208  df-id 4413  df-iord 4486  df-on 4488  df-ilim 4489  df-suc 4491  df-iom 4712  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-riota 6002  df-ov 6052  df-oprab 6053  df-mpo 6054  df-1st 6333  df-2nd 6334  df-recs 6535  df-frec 6621  df-1o 6646  df-er 6766  df-en 6975  df-dom 6976  df-fin 6977  df-pnf 8309  df-mnf 8310  df-xr 8311  df-ltxr 8312  df-le 8313  df-sub 8445  df-neg 8446  df-reap 8848  df-ap 8855  df-inn 9237  df-2 9295  df-n0 9496  df-z 9577  df-uz 9853  df-fz 10342  df-fzo 10476  df-seqfrec 10809  df-ihash 11137  df-ndx 13207  df-slot 13208  df-base 13210  df-plusg 13295  df-0g 13463  df-igsum 13464  df-mgm 13561  df-sgrp 13607  df-mnd 13622  df-cmn 13995  df-gfsum 16852
This theorem is referenced by:  gsumgfsum1  16854  gsumgfsum  16857  gfsumsn  16858  gfsump1  16859
  Copyright terms: Public domain W3C validator