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

Theorem frgpup3lem 15102
Description: The evaluation map has the intended behavior on the generators. (Contributed by Mario Carneiro, 2-Oct-2015.) (Revised by Mario Carneiro, 28-Feb-2016.)
Hypotheses
Ref Expression
frgpup.b  |-  B  =  ( Base `  H
)
frgpup.n  |-  N  =  ( inv g `  H )
frgpup.t  |-  T  =  ( y  e.  I ,  z  e.  2o  |->  if ( z  =  (/) ,  ( F `  y
) ,  ( N `
 ( F `  y ) ) ) )
frgpup.h  |-  ( ph  ->  H  e.  Grp )
frgpup.i  |-  ( ph  ->  I  e.  V )
frgpup.a  |-  ( ph  ->  F : I --> B )
frgpup.w  |-  W  =  (  _I  ` Word  ( I  X.  2o ) )
frgpup.r  |-  .~  =  ( ~FG  `  I )
frgpup.g  |-  G  =  (freeGrp `  I )
frgpup.x  |-  X  =  ( Base `  G
)
frgpup.e  |-  E  =  ran  ( g  e.  W  |->  <. [ g ]  .~  ,  ( H 
gsumg  ( T  o.  g
) ) >. )
frgpup.u  |-  U  =  (varFGrp `  I )
frgpup3.k  |-  ( ph  ->  K  e.  ( G 
GrpHom  H ) )
frgpup3.e  |-  ( ph  ->  ( K  o.  U
)  =  F )
Assertion
Ref Expression
frgpup3lem  |-  ( ph  ->  K  =  E )
Distinct variable groups:    y, g,
z    g, H    y, F, z    y, N, z    B, g, y, z    T, g    .~ , g    ph, g, y, z    y, I, z   
g, W
Allowed substitution hints:    .~ ( y, z)    T( y, z)    U( y, z, g)    E( y, z, g)    F( g)    G( y, z, g)    H( y, z)    I( g)    K( y, z, g)    N( g)    V( y, z, g)    W( y, z)    X( y, z, g)

Proof of Theorem frgpup3lem
Dummy variables  a 
t  n  i  j  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 frgpup3.k . . 3  |-  ( ph  ->  K  e.  ( G 
GrpHom  H ) )
2 frgpup.x . . . 4  |-  X  =  ( Base `  G
)
3 frgpup.b . . . 4  |-  B  =  ( Base `  H
)
42, 3ghmf 14703 . . 3  |-  ( K  e.  ( G  GrpHom  H )  ->  K : X
--> B )
5 ffn 5405 . . 3  |-  ( K : X --> B  ->  K  Fn  X )
61, 4, 53syl 18 . 2  |-  ( ph  ->  K  Fn  X )
7 frgpup.n . . . 4  |-  N  =  ( inv g `  H )
8 frgpup.t . . . 4  |-  T  =  ( y  e.  I ,  z  e.  2o  |->  if ( z  =  (/) ,  ( F `  y
) ,  ( N `
 ( F `  y ) ) ) )
9 frgpup.h . . . 4  |-  ( ph  ->  H  e.  Grp )
10 frgpup.i . . . 4  |-  ( ph  ->  I  e.  V )
11 frgpup.a . . . 4  |-  ( ph  ->  F : I --> B )
12 frgpup.w . . . 4  |-  W  =  (  _I  ` Word  ( I  X.  2o ) )
13 frgpup.r . . . 4  |-  .~  =  ( ~FG  `  I )
14 frgpup.g . . . 4  |-  G  =  (freeGrp `  I )
15 frgpup.e . . . 4  |-  E  =  ran  ( g  e.  W  |->  <. [ g ]  .~  ,  ( H 
gsumg  ( T  o.  g
) ) >. )
163, 7, 8, 9, 10, 11, 12, 13, 14, 2, 15frgpup1 15100 . . 3  |-  ( ph  ->  E  e.  ( G 
GrpHom  H ) )
172, 3ghmf 14703 . . 3  |-  ( E  e.  ( G  GrpHom  H )  ->  E : X
--> B )
18 ffn 5405 . . 3  |-  ( E : X --> B  ->  E  Fn  X )
1916, 17, 183syl 18 . 2  |-  ( ph  ->  E  Fn  X )
20 eqid 2296 . . . . . . . . 9  |-  (freeMnd `  (
I  X.  2o ) )  =  (freeMnd `  (
I  X.  2o ) )
2114, 20, 13frgpval 15083 . . . . . . . 8  |-  ( I  e.  V  ->  G  =  ( (freeMnd `  (
I  X.  2o ) )  /.s 
.~  ) )
2210, 21syl 15 . . . . . . 7  |-  ( ph  ->  G  =  ( (freeMnd `  ( I  X.  2o ) )  /.s  .~  )
)
23 2on 6503 . . . . . . . . . . 11  |-  2o  e.  On
24 xpexg 4816 . . . . . . . . . . 11  |-  ( ( I  e.  V  /\  2o  e.  On )  -> 
( I  X.  2o )  e.  _V )
2510, 23, 24sylancl 643 . . . . . . . . . 10  |-  ( ph  ->  ( I  X.  2o )  e.  _V )
26 wrdexg 11441 . . . . . . . . . 10  |-  ( ( I  X.  2o )  e.  _V  -> Word  ( I  X.  2o )  e. 
_V )
27 fvi 5595 . . . . . . . . . 10  |-  (Word  (
I  X.  2o )  e.  _V  ->  (  _I  ` Word  ( I  X.  2o ) )  = Word  (
I  X.  2o ) )
2825, 26, 273syl 18 . . . . . . . . 9  |-  ( ph  ->  (  _I  ` Word  ( I  X.  2o ) )  = Word  ( I  X.  2o ) )
2912, 28syl5eq 2340 . . . . . . . 8  |-  ( ph  ->  W  = Word  ( I  X.  2o ) )
30 eqid 2296 . . . . . . . . . 10  |-  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  =  ( Base `  (freeMnd `  ( I  X.  2o ) ) )
3120, 30frmdbas 14490 . . . . . . . . 9  |-  ( ( I  X.  2o )  e.  _V  ->  ( Base `  (freeMnd `  (
I  X.  2o ) ) )  = Word  (
I  X.  2o ) )
3225, 31syl 15 . . . . . . . 8  |-  ( ph  ->  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  = Word  ( I  X.  2o ) )
3329, 32eqtr4d 2331 . . . . . . 7  |-  ( ph  ->  W  =  ( Base `  (freeMnd `  ( I  X.  2o ) ) ) )
34 fvex 5555 . . . . . . . . 9  |-  ( ~FG  `  I
)  e.  _V
3513, 34eqeltri 2366 . . . . . . . 8  |-  .~  e.  _V
3635a1i 10 . . . . . . 7  |-  ( ph  ->  .~  e.  _V )
37 fvex 5555 . . . . . . . 8  |-  (freeMnd `  (
I  X.  2o ) )  e.  _V
3837a1i 10 . . . . . . 7  |-  ( ph  ->  (freeMnd `  ( I  X.  2o ) )  e. 
_V )
3922, 33, 36, 38divsbas 13463 . . . . . 6  |-  ( ph  ->  ( W /.  .~  )  =  ( Base `  G ) )
4039, 2syl6reqr 2347 . . . . 5  |-  ( ph  ->  X  =  ( W /.  .~  ) )
41 eqimss 3243 . . . . 5  |-  ( X  =  ( W /.  .~  )  ->  X  C_  ( W /.  .~  ) )
4240, 41syl 15 . . . 4  |-  ( ph  ->  X  C_  ( W /.  .~  ) )
4342sselda 3193 . . 3  |-  ( (
ph  /\  a  e.  X )  ->  a  e.  ( W /.  .~  ) )
44 eqid 2296 . . . 4  |-  ( W /.  .~  )  =  ( W /.  .~  )
45 fveq2 5541 . . . . 5  |-  ( [ t ]  .~  =  a  ->  ( K `  [ t ]  .~  )  =  ( K `  a ) )
46 fveq2 5541 . . . . 5  |-  ( [ t ]  .~  =  a  ->  ( E `  [ t ]  .~  )  =  ( E `  a ) )
4745, 46eqeq12d 2310 . . . 4  |-  ( [ t ]  .~  =  a  ->  ( ( K `
 [ t ]  .~  )  =  ( E `  [ t ]  .~  )  <->  ( K `  a )  =  ( E `  a ) ) )
48 simpr 447 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  t  e.  W )  ->  t  e.  W )
4929adantr 451 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  t  e.  W )  ->  W  = Word  ( I  X.  2o ) )
5048, 49eleqtrd 2372 . . . . . . . . . . . . 13  |-  ( (
ph  /\  t  e.  W )  ->  t  e. Word  ( I  X.  2o ) )
51 wrdf 11435 . . . . . . . . . . . . 13  |-  ( t  e. Word  ( I  X.  2o )  ->  t : ( 0..^ ( # `  t ) ) --> ( I  X.  2o ) )
5250, 51syl 15 . . . . . . . . . . . 12  |-  ( (
ph  /\  t  e.  W )  ->  t : ( 0..^ (
# `  t )
) --> ( I  X.  2o ) )
53 ffvelrn 5679 . . . . . . . . . . . 12  |-  ( ( t : ( 0..^ ( # `  t
) ) --> ( I  X.  2o )  /\  n  e.  ( 0..^ ( # `  t
) ) )  -> 
( t `  n
)  e.  ( I  X.  2o ) )
5452, 53sylan 457 . . . . . . . . . . 11  |-  ( ( ( ph  /\  t  e.  W )  /\  n  e.  ( 0..^ ( # `  t ) ) )  ->  ( t `  n )  e.  ( I  X.  2o ) )
55 elxp2 4723 . . . . . . . . . . 11  |-  ( ( t `  n )  e.  ( I  X.  2o )  <->  E. i  e.  I  E. j  e.  2o  ( t `  n
)  =  <. i ,  j >. )
5654, 55sylib 188 . . . . . . . . . 10  |-  ( ( ( ph  /\  t  e.  W )  /\  n  e.  ( 0..^ ( # `  t ) ) )  ->  E. i  e.  I  E. j  e.  2o  ( t `  n
)  =  <. i ,  j >. )
57 fveq2 5541 . . . . . . . . . . . . . . . . 17  |-  ( y  =  i  ->  ( F `  y )  =  ( F `  i ) )
5857fveq2d 5545 . . . . . . . . . . . . . . . . 17  |-  ( y  =  i  ->  ( N `  ( F `  y ) )  =  ( N `  ( F `  i )
) )
5957, 58ifeq12d 3594 . . . . . . . . . . . . . . . 16  |-  ( y  =  i  ->  if ( z  =  (/) ,  ( F `  y
) ,  ( N `
 ( F `  y ) ) )  =  if ( z  =  (/) ,  ( F `
 i ) ,  ( N `  ( F `  i )
) ) )
60 eqeq1 2302 . . . . . . . . . . . . . . . . 17  |-  ( z  =  j  ->  (
z  =  (/)  <->  j  =  (/) ) )
6160ifbid 3596 . . . . . . . . . . . . . . . 16  |-  ( z  =  j  ->  if ( z  =  (/) ,  ( F `  i
) ,  ( N `
 ( F `  i ) ) )  =  if ( j  =  (/) ,  ( F `
 i ) ,  ( N `  ( F `  i )
) ) )
62 fvex 5555 . . . . . . . . . . . . . . . . 17  |-  ( F `
 i )  e. 
_V
63 fvex 5555 . . . . . . . . . . . . . . . . 17  |-  ( N `
 ( F `  i ) )  e. 
_V
6462, 63ifex 3636 . . . . . . . . . . . . . . . 16  |-  if ( j  =  (/) ,  ( F `  i ) ,  ( N `  ( F `  i ) ) )  e.  _V
6559, 61, 8, 64ovmpt2 5999 . . . . . . . . . . . . . . 15  |-  ( ( i  e.  I  /\  j  e.  2o )  ->  ( i T j )  =  if ( j  =  (/) ,  ( F `  i ) ,  ( N `  ( F `  i ) ) ) )
6665adantl 452 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( i  e.  I  /\  j  e.  2o ) )  -> 
( i T j )  =  if ( j  =  (/) ,  ( F `  i ) ,  ( N `  ( F `  i ) ) ) )
67 elpri 3673 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  { (/) ,  1o }  ->  ( j  =  (/)  \/  j  =  1o ) )
68 df2o3 6508 . . . . . . . . . . . . . . . . 17  |-  2o  =  { (/) ,  1o }
6967, 68eleq2s 2388 . . . . . . . . . . . . . . . 16  |-  ( j  e.  2o  ->  (
j  =  (/)  \/  j  =  1o ) )
70 frgpup3.e . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( K  o.  U
)  =  F )
7170adantr 451 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  i  e.  I )  ->  ( K  o.  U )  =  F )
7271fveq1d 5543 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  I )  ->  (
( K  o.  U
) `  i )  =  ( F `  i ) )
73 frgpup.u . . . . . . . . . . . . . . . . . . . . . . 23  |-  U  =  (varFGrp `  I )
7413, 73, 14, 2vrgpf 15093 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( I  e.  V  ->  U : I --> X )
7510, 74syl 15 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  U : I --> X )
76 fvco3 5612 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( U : I --> X  /\  i  e.  I )  ->  ( ( K  o.  U ) `  i
)  =  ( K `
 ( U `  i ) ) )
7775, 76sylan 457 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  I )  ->  (
( K  o.  U
) `  i )  =  ( K `  ( U `  i ) ) )
7872, 77eqtr3d 2330 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  I )  ->  ( F `  i )  =  ( K `  ( U `  i ) ) )
7978adantr 451 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  ( F `  i )  =  ( K `  ( U `  i ) ) )
80 iftrue 3584 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  (/)  ->  if ( j  =  (/) ,  ( F `  i ) ,  ( N `  ( F `  i ) ) )  =  ( F `  i ) )
8180adantl 452 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  if ( j  =  (/) ,  ( F `  i
) ,  ( N `
 ( F `  i ) ) )  =  ( F `  i ) )
82 simpr 447 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  j  =  (/) )
8382opeq2d 3819 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  <. i ,  j >.  =  <. i ,  (/) >. )
8483s1eqd 11456 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  <" <. i ,  j >. ">  =  <" <. i ,  (/) >. "> )
85 eceq1 6712 . . . . . . . . . . . . . . . . . . . . 21  |-  ( <" <. i ,  j
>. ">  =  <"
<. i ,  (/) >. ">  ->  [ <" <. i ,  j >. "> ]  .~  =  [ <"
<. i ,  (/) >. "> ]  .~  )
8684, 85syl 15 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  [ <"
<. i ,  j >. "> ]  .~  =  [ <" <. i ,  (/) >. "> ]  .~  )
8713, 73vrgpval 15092 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( I  e.  V  /\  i  e.  I )  ->  ( U `  i
)  =  [ <"
<. i ,  (/) >. "> ]  .~  )
8810, 87sylan 457 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  i  e.  I )  ->  ( U `  i )  =  [ <" <. i ,  (/) >. "> ]  .~  )
8988adantr 451 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  ( U `  i )  =  [ <" <. i ,  (/) >. "> ]  .~  )
9086, 89eqtr4d 2331 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  [ <"
<. i ,  j >. "> ]  .~  =  ( U `  i ) )
9190fveq2d 5545 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  ( K `  [ <" <. i ,  j >. "> ]  .~  )  =  ( K `  ( U `
 i ) ) )
9279, 81, 913eqtr4d 2338 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  (/) )  ->  if ( j  =  (/) ,  ( F `  i
) ,  ( N `
 ( F `  i ) ) )  =  ( K `  [ <" <. i ,  j >. "> ]  .~  ) )
9378fveq2d 5545 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  I )  ->  ( N `  ( F `  i ) )  =  ( N `  ( K `  ( U `  i ) ) ) )
941adantr 451 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  i  e.  I )  ->  K  e.  ( G  GrpHom  H ) )
95 ffvelrn 5679 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( U : I --> X  /\  i  e.  I )  ->  ( U `  i
)  e.  X )
9675, 95sylan 457 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  i  e.  I )  ->  ( U `  i )  e.  X )
97 eqid 2296 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( inv g `  G )  =  ( inv g `  G )
982, 97, 7ghminv 14706 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( K  e.  ( G 
GrpHom  H )  /\  ( U `  i )  e.  X )  ->  ( K `  ( ( inv g `  G ) `
 ( U `  i ) ) )  =  ( N `  ( K `  ( U `
 i ) ) ) )
9994, 96, 98syl2anc 642 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  I )  ->  ( K `  ( ( inv g `  G ) `
 ( U `  i ) ) )  =  ( N `  ( K `  ( U `
 i ) ) ) )
10093, 99eqtr4d 2331 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  I )  ->  ( N `  ( F `  i ) )  =  ( K `  (
( inv g `  G ) `  ( U `  i )
) ) )
101100adantr 451 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  ( N `  ( F `  i ) )  =  ( K `  (
( inv g `  G ) `  ( U `  i )
) ) )
102 1n0 6510 . . . . . . . . . . . . . . . . . . . 20  |-  1o  =/=  (/)
103 simpr 447 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  j  =  1o )
104103neeq1d 2472 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  (
j  =/=  (/)  <->  1o  =/=  (/) ) )
105102, 104mpbiri 224 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  j  =/=  (/) )
106 ifnefalse 3586 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =/=  (/)  ->  if (
j  =  (/) ,  ( F `  i ) ,  ( N `  ( F `  i ) ) )  =  ( N `  ( F `
 i ) ) )
107105, 106syl 15 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  if ( j  =  (/) ,  ( F `  i
) ,  ( N `
 ( F `  i ) ) )  =  ( N `  ( F `  i ) ) )
108103opeq2d 3819 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  <. i ,  j >.  =  <. i ,  1o >. )
109108s1eqd 11456 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  <" <. i ,  j >. ">  =  <" <. i ,  1o >. "> )
110 eceq1 6712 . . . . . . . . . . . . . . . . . . . . 21  |-  ( <" <. i ,  j
>. ">  =  <"
<. i ,  1o >. ">  ->  [ <" <. i ,  j >. "> ]  .~  =  [ <"
<. i ,  1o >. "> ]  .~  )
111109, 110syl 15 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  [ <"
<. i ,  j >. "> ]  .~  =  [ <" <. i ,  1o >. "> ]  .~  )
11213, 73, 14, 97vrgpinv 15094 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( I  e.  V  /\  i  e.  I )  ->  ( ( inv g `  G ) `  ( U `  i )
)  =  [ <"
<. i ,  1o >. "> ]  .~  )
11310, 112sylan 457 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  i  e.  I )  ->  (
( inv g `  G ) `  ( U `  i )
)  =  [ <"
<. i ,  1o >. "> ]  .~  )
114113adantr 451 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  (
( inv g `  G ) `  ( U `  i )
)  =  [ <"
<. i ,  1o >. "> ]  .~  )
115111, 114eqtr4d 2331 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  [ <"
<. i ,  j >. "> ]  .~  =  ( ( inv g `  G ) `  ( U `  i )
) )
116115fveq2d 5545 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  ( K `  [ <" <. i ,  j >. "> ]  .~  )  =  ( K `  ( ( inv g `  G
) `  ( U `  i ) ) ) )
117101, 107, 1163eqtr4d 2338 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  I )  /\  j  =  1o )  ->  if ( j  =  (/) ,  ( F `  i
) ,  ( N `
 ( F `  i ) ) )  =  ( K `  [ <" <. i ,  j >. "> ]  .~  ) )
11892, 117jaodan 760 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  i  e.  I )  /\  (
j  =  (/)  \/  j  =  1o ) )  ->  if ( j  =  (/) ,  ( F `  i
) ,  ( N `
 ( F `  i ) ) )  =  ( K `  [ <" <. i ,  j >. "> ]  .~  ) )
11969, 118sylan2 460 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  i  e.  I )  /\  j  e.  2o )  ->  if ( j  =  (/) ,  ( F `  i
) ,  ( N `
 ( F `  i ) ) )  =  ( K `  [ <" <. i ,  j >. "> ]  .~  ) )
120119anasss 628 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( i  e.  I  /\  j  e.  2o ) )  ->  if ( j  =  (/) ,  ( F `  i
) ,  ( N `
 ( F `  i ) ) )  =  ( K `  [ <" <. i ,  j >. "> ]  .~  ) )
12166, 120eqtrd 2328 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( i  e.  I  /\  j  e.  2o ) )  -> 
( i T j )  =  ( K `
 [ <" <. i ,  j >. "> ]  .~  ) )
122 fveq2 5541 . . . . . . . . . . . . . . 15  |-  ( ( t `  n )  =  <. i ,  j
>.  ->  ( T `  ( t `  n
) )  =  ( T `  <. i ,  j >. )
)
123 df-ov 5877 . . . . . . . . . . . . . . 15  |-  ( i T j )  =  ( T `  <. i ,  j >. )
124122, 123syl6eqr 2346 . . . . . . . . . . . . . 14  |-  ( ( t `  n )  =  <. i ,  j
>.  ->  ( T `  ( t `  n
) )  =  ( i T j ) )
125 s1eq 11455 . . . . . . . . . . . . . . . 16  |-  ( ( t `  n )  =  <. i ,  j
>.  ->  <" ( t `
 n ) ">  =  <" <. i ,  j >. "> )
126 eceq1 6712 . . . . . . . . . . . . . . . 16  |-  ( <" ( t `  n ) ">  =  <" <. i ,  j >. ">  ->  [ <" (
t `  n ) "> ]  .~  =  [ <" <. i ,  j >. "> ]  .~  )
127125, 126syl 15 . . . . . . . . . . . . . . 15  |-  ( ( t `  n )  =  <. i ,  j
>.  ->  [ <" (
t `  n ) "> ]  .~  =  [ <" <. i ,  j >. "> ]  .~  )
128127fveq2d 5545 . . . . . . . . . . . . . 14  |-  ( ( t `  n )  =  <. i ,  j
>.  ->  ( K `  [ <" ( t `
 n ) "> ]  .~  )  =  ( K `  [ <" <. i ,  j >. "> ]  .~  ) )
129124, 128eqeq12d 2310 . . . . . . . . . . . . 13  |-  ( ( t `  n )  =  <. i ,  j
>.  ->  ( ( T `
 ( t `  n ) )  =  ( K `  [ <" ( t `  n ) "> ]  .~  )  <->  ( i T j )  =  ( K `  [ <" <. i ,  j
>. "> ]  .~  ) ) )
130121, 129syl5ibrcom 213 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( i  e.  I  /\  j  e.  2o ) )  -> 
( ( t `  n )  =  <. i ,  j >.  ->  ( T `  ( t `  n ) )  =  ( K `  [ <" ( t `  n ) "> ]  .~  ) ) )
131130rexlimdvva 2687 . . . . . . . . . . 11  |-  ( ph  ->  ( E. i  e.  I  E. j  e.  2o  ( t `  n )  =  <. i ,  j >.  ->  ( T `  ( t `  n ) )  =  ( K `  [ <" ( t `  n ) "> ]  .~  ) ) )
132131ad2antrr 706 . . . . . . . . . 10  |-  ( ( ( ph  /\  t  e.  W )  /\  n  e.  ( 0..^ ( # `  t ) ) )  ->  ( E. i  e.  I  E. j  e.  2o  ( t `  n )  =  <. i ,  j >.  ->  ( T `  ( t `  n ) )  =  ( K `  [ <" ( t `  n ) "> ]  .~  ) ) )
13356, 132mpd 14 . . . . . . . . 9  |-  ( ( ( ph  /\  t  e.  W )  /\  n  e.  ( 0..^ ( # `  t ) ) )  ->  ( T `  ( t `  n
) )  =  ( K `  [ <" ( t `  n
) "> ]  .~  ) )
134133mpteq2dva 4122 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  (
n  e.  ( 0..^ ( # `  t
) )  |->  ( T `
 ( t `  n ) ) )  =  ( n  e.  ( 0..^ ( # `  t ) )  |->  ( K `  [ <" ( t `  n
) "> ]  .~  ) ) )
1353, 7, 8, 9, 10, 11frgpuptf 15095 . . . . . . . . . 10  |-  ( ph  ->  T : ( I  X.  2o ) --> B )
136135adantr 451 . . . . . . . . 9  |-  ( (
ph  /\  t  e.  W )  ->  T : ( I  X.  2o ) --> B )
137 fcompt 5710 . . . . . . . . 9  |-  ( ( T : ( I  X.  2o ) --> B  /\  t : ( 0..^ ( # `  t
) ) --> ( I  X.  2o ) )  ->  ( T  o.  t )  =  ( n  e.  ( 0..^ ( # `  t
) )  |->  ( T `
 ( t `  n ) ) ) )
138136, 52, 137syl2anc 642 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  ( T  o.  t )  =  ( n  e.  ( 0..^ ( # `  t ) )  |->  ( T `  ( t `
 n ) ) ) )
13954s1cld 11458 . . . . . . . . . . 11  |-  ( ( ( ph  /\  t  e.  W )  /\  n  e.  ( 0..^ ( # `  t ) ) )  ->  <" ( t `
 n ) ">  e. Word  ( I  X.  2o ) )
14029ad2antrr 706 . . . . . . . . . . 11  |-  ( ( ( ph  /\  t  e.  W )  /\  n  e.  ( 0..^ ( # `  t ) ) )  ->  W  = Word  (
I  X.  2o ) )
141139, 140eleqtrrd 2373 . . . . . . . . . 10  |-  ( ( ( ph  /\  t  e.  W )  /\  n  e.  ( 0..^ ( # `  t ) ) )  ->  <" ( t `
 n ) ">  e.  W )
14214, 13, 12, 2frgpeccl 15086 . . . . . . . . . 10  |-  ( <" ( t `  n ) ">  e.  W  ->  [ <" ( t `  n
) "> ]  .~  e.  X )
143141, 142syl 15 . . . . . . . . 9  |-  ( ( ( ph  /\  t  e.  W )  /\  n  e.  ( 0..^ ( # `  t ) ) )  ->  [ <" (
t `  n ) "> ]  .~  e.  X )
14452feqmptd 5591 . . . . . . . . . . 11  |-  ( (
ph  /\  t  e.  W )  ->  t  =  ( n  e.  ( 0..^ ( # `  t ) )  |->  ( t `  n ) ) )
14510adantr 451 . . . . . . . . . . . . 13  |-  ( (
ph  /\  t  e.  W )  ->  I  e.  V )
146145, 23, 24sylancl 643 . . . . . . . . . . . 12  |-  ( (
ph  /\  t  e.  W )  ->  (
I  X.  2o )  e.  _V )
147 eqid 2296 . . . . . . . . . . . . 13  |-  (varFMnd `  (
I  X.  2o ) )  =  (varFMnd `  (
I  X.  2o ) )
148147vrmdfval 14494 . . . . . . . . . . . 12  |-  ( ( I  X.  2o )  e.  _V  ->  (varFMnd `  (
I  X.  2o ) )  =  ( w  e.  ( I  X.  2o )  |->  <" w "> ) )
149146, 148syl 15 . . . . . . . . . . 11  |-  ( (
ph  /\  t  e.  W )  ->  (varFMnd `  (
I  X.  2o ) )  =  ( w  e.  ( I  X.  2o )  |->  <" w "> ) )
150 s1eq 11455 . . . . . . . . . . 11  |-  ( w  =  ( t `  n )  ->  <" w ">  =  <" (
t `  n ) "> )
15154, 144, 149, 150fmptco 5707 . . . . . . . . . 10  |-  ( (
ph  /\  t  e.  W )  ->  (
(varFMnd `  ( I  X.  2o ) )  o.  t
)  =  ( n  e.  ( 0..^ (
# `  t )
)  |->  <" ( t `
 n ) "> ) )
152 eqidd 2297 . . . . . . . . . 10  |-  ( (
ph  /\  t  e.  W )  ->  (
w  e.  W  |->  [ w ]  .~  )  =  ( w  e.  W  |->  [ w ]  .~  ) )
153 eceq1 6712 . . . . . . . . . 10  |-  ( w  =  <" ( t `
 n ) ">  ->  [ w ]  .~  =  [ <" ( t `  n
) "> ]  .~  )
154141, 151, 152, 153fmptco 5707 . . . . . . . . 9  |-  ( (
ph  /\  t  e.  W )  ->  (
( w  e.  W  |->  [ w ]  .~  )  o.  ( (varFMnd `  (
I  X.  2o ) )  o.  t ) )  =  ( n  e.  ( 0..^ (
# `  t )
)  |->  [ <" (
t `  n ) "> ]  .~  )
)
1551adantr 451 . . . . . . . . . . 11  |-  ( (
ph  /\  t  e.  W )  ->  K  e.  ( G  GrpHom  H ) )
156155, 4syl 15 . . . . . . . . . 10  |-  ( (
ph  /\  t  e.  W )  ->  K : X --> B )
157156feqmptd 5591 . . . . . . . . 9  |-  ( (
ph  /\  t  e.  W )  ->  K  =  ( w  e.  X  |->  ( K `  w ) ) )
158 fveq2 5541 . . . . . . . . 9  |-  ( w  =  [ <" (
t `  n ) "> ]  .~  ->  ( K `  w )  =  ( K `  [ <" ( t `
 n ) "> ]  .~  )
)
159143, 154, 157, 158fmptco 5707 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  ( K  o.  ( (
w  e.  W  |->  [ w ]  .~  )  o.  ( (varFMnd `  ( I  X.  2o ) )  o.  t
) ) )  =  ( n  e.  ( 0..^ ( # `  t
) )  |->  ( K `
 [ <" (
t `  n ) "> ]  .~  )
) )
160134, 138, 1593eqtr4d 2338 . . . . . . 7  |-  ( (
ph  /\  t  e.  W )  ->  ( T  o.  t )  =  ( K  o.  ( ( w  e.  W  |->  [ w ]  .~  )  o.  (
(varFMnd `  ( I  X.  2o ) )  o.  t
) ) ) )
161160oveq2d 5890 . . . . . 6  |-  ( (
ph  /\  t  e.  W )  ->  ( H  gsumg  ( T  o.  t
) )  =  ( H  gsumg  ( K  o.  (
( w  e.  W  |->  [ w ]  .~  )  o.  ( (varFMnd `  (
I  X.  2o ) )  o.  t ) ) ) ) )
1623, 7, 8, 9, 10, 11, 12, 13, 14, 2, 15frgpupval 15099 . . . . . 6  |-  ( (
ph  /\  t  e.  W )  ->  ( E `  [ t ]  .~  )  =  ( H  gsumg  ( T  o.  t
) ) )
163 ghmmhm 14709 . . . . . . . 8  |-  ( K  e.  ( G  GrpHom  H )  ->  K  e.  ( G MndHom  H ) )
164155, 163syl 15 . . . . . . 7  |-  ( (
ph  /\  t  e.  W )  ->  K  e.  ( G MndHom  H ) )
165147vrmdf 14496 . . . . . . . . . . 11  |-  ( ( I  X.  2o )  e.  _V  ->  (varFMnd `  (
I  X.  2o ) ) : ( I  X.  2o ) -->Word  ( I  X.  2o ) )
166146, 165syl 15 . . . . . . . . . 10  |-  ( (
ph  /\  t  e.  W )  ->  (varFMnd `  (
I  X.  2o ) ) : ( I  X.  2o ) -->Word  ( I  X.  2o ) )
167 feq3 5393 . . . . . . . . . . 11  |-  ( W  = Word  ( I  X.  2o )  ->  ( (varFMnd `  ( I  X.  2o ) ) : ( I  X.  2o ) --> W  <->  (varFMnd `  ( I  X.  2o ) ) : ( I  X.  2o ) -->Word  ( I  X.  2o ) ) )
16849, 167syl 15 . . . . . . . . . 10  |-  ( (
ph  /\  t  e.  W )  ->  (
(varFMnd `  ( I  X.  2o ) ) : ( I  X.  2o ) --> W  <->  (varFMnd `  ( I  X.  2o ) ) : ( I  X.  2o ) -->Word  ( I  X.  2o ) ) )
169166, 168mpbird 223 . . . . . . . . 9  |-  ( (
ph  /\  t  e.  W )  ->  (varFMnd `  (
I  X.  2o ) ) : ( I  X.  2o ) --> W )
170 wrdco 11502 . . . . . . . . 9  |-  ( ( t  e. Word  ( I  X.  2o )  /\  (varFMnd `  ( I  X.  2o ) ) : ( I  X.  2o ) --> W )  ->  (
(varFMnd `  ( I  X.  2o ) )  o.  t
)  e. Word  W )
17150, 169, 170syl2anc 642 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  (
(varFMnd `  ( I  X.  2o ) )  o.  t
)  e. Word  W )
17233adantr 451 . . . . . . . . . . . 12  |-  ( (
ph  /\  t  e.  W )  ->  W  =  ( Base `  (freeMnd `  ( I  X.  2o ) ) ) )
173 mpteq1 4116 . . . . . . . . . . . 12  |-  ( W  =  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  -> 
( w  e.  W  |->  [ w ]  .~  )  =  ( w  e.  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  |->  [ w ]  .~  )
)
174172, 173syl 15 . . . . . . . . . . 11  |-  ( (
ph  /\  t  e.  W )  ->  (
w  e.  W  |->  [ w ]  .~  )  =  ( w  e.  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  |->  [ w ]  .~  )
)
175 eqid 2296 . . . . . . . . . . . . 13  |-  ( w  e.  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  |->  [ w ]  .~  )  =  ( w  e.  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  |->  [ w ]  .~  )
17620, 30, 14, 13, 175frgpmhm 15090 . . . . . . . . . . . 12  |-  ( I  e.  V  ->  (
w  e.  ( Base `  (freeMnd `  ( I  X.  2o ) ) ) 
|->  [ w ]  .~  )  e.  ( (freeMnd `  ( I  X.  2o ) ) MndHom  G ) )
177145, 176syl 15 . . . . . . . . . . 11  |-  ( (
ph  /\  t  e.  W )  ->  (
w  e.  ( Base `  (freeMnd `  ( I  X.  2o ) ) ) 
|->  [ w ]  .~  )  e.  ( (freeMnd `  ( I  X.  2o ) ) MndHom  G ) )
178174, 177eqeltrd 2370 . . . . . . . . . 10  |-  ( (
ph  /\  t  e.  W )  ->  (
w  e.  W  |->  [ w ]  .~  )  e.  ( (freeMnd `  (
I  X.  2o ) ) MndHom  G ) )
17930, 2mhmf 14436 . . . . . . . . . 10  |-  ( ( w  e.  W  |->  [ w ]  .~  )  e.  ( (freeMnd `  (
I  X.  2o ) ) MndHom  G )  -> 
( w  e.  W  |->  [ w ]  .~  ) : ( Base `  (freeMnd `  ( I  X.  2o ) ) ) --> X )
180178, 179syl 15 . . . . . . . . 9  |-  ( (
ph  /\  t  e.  W )  ->  (
w  e.  W  |->  [ w ]  .~  ) : ( Base `  (freeMnd `  ( I  X.  2o ) ) ) --> X )
181172feq2d 5396 . . . . . . . . 9  |-  ( (
ph  /\  t  e.  W )  ->  (
( w  e.  W  |->  [ w ]  .~  ) : W --> X  <->  ( w  e.  W  |->  [ w ]  .~  ) : (
Base `  (freeMnd `  (
I  X.  2o ) ) ) --> X ) )
182180, 181mpbird 223 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  (
w  e.  W  |->  [ w ]  .~  ) : W --> X )
183 wrdco 11502 . . . . . . . 8  |-  ( ( ( (varFMnd `  ( I  X.  2o ) )  o.  t
)  e. Word  W  /\  ( w  e.  W  |->  [ w ]  .~  ) : W --> X )  ->  ( ( w  e.  W  |->  [ w ]  .~  )  o.  (
(varFMnd `  ( I  X.  2o ) )  o.  t
) )  e. Word  X
)
184171, 182, 183syl2anc 642 . . . . . . 7  |-  ( (
ph  /\  t  e.  W )  ->  (
( w  e.  W  |->  [ w ]  .~  )  o.  ( (varFMnd `  (
I  X.  2o ) )  o.  t ) )  e. Word  X )
1852gsumwmhm 14483 . . . . . . 7  |-  ( ( K  e.  ( G MndHom  H )  /\  (
( w  e.  W  |->  [ w ]  .~  )  o.  ( (varFMnd `  (
I  X.  2o ) )  o.  t ) )  e. Word  X )  ->  ( K `  ( G  gsumg  ( ( w  e.  W  |->  [ w ]  .~  )  o.  (
(varFMnd `  ( I  X.  2o ) )  o.  t
) ) ) )  =  ( H  gsumg  ( K  o.  ( ( w  e.  W  |->  [ w ]  .~  )  o.  (
(varFMnd `  ( I  X.  2o ) )  o.  t
) ) ) ) )
186164, 184, 185syl2anc 642 . . . . . 6  |-  ( (
ph  /\  t  e.  W )  ->  ( K `  ( G  gsumg  ( ( w  e.  W  |->  [ w ]  .~  )  o.  ( (varFMnd `  (
I  X.  2o ) )  o.  t ) ) ) )  =  ( H  gsumg  ( K  o.  (
( w  e.  W  |->  [ w ]  .~  )  o.  ( (varFMnd `  (
I  X.  2o ) )  o.  t ) ) ) ) )
187161, 162, 1863eqtr4d 2338 . . . . 5  |-  ( (
ph  /\  t  e.  W )  ->  ( E `  [ t ]  .~  )  =  ( K `  ( G 
gsumg  ( ( w  e.  W  |->  [ w ]  .~  )  o.  (
(varFMnd `  ( I  X.  2o ) )  o.  t
) ) ) ) )
18820, 147frmdgsum 14500 . . . . . . . . 9  |-  ( ( ( I  X.  2o )  e.  _V  /\  t  e. Word  ( I  X.  2o ) )  ->  (
(freeMnd `  ( I  X.  2o ) )  gsumg  ( (varFMnd `  ( I  X.  2o ) )  o.  t
) )  =  t )
189146, 50, 188syl2anc 642 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  (
(freeMnd `  ( I  X.  2o ) )  gsumg  ( (varFMnd `  ( I  X.  2o ) )  o.  t
) )  =  t )
190189fveq2d 5545 . . . . . . 7  |-  ( (
ph  /\  t  e.  W )  ->  (
( w  e.  W  |->  [ w ]  .~  ) `  ( (freeMnd `  ( I  X.  2o ) )  gsumg  ( (varFMnd `  ( I  X.  2o ) )  o.  t
) ) )  =  ( ( w  e.  W  |->  [ w ]  .~  ) `  t ) )
191 wrdco 11502 . . . . . . . . . 10  |-  ( ( t  e. Word  ( I  X.  2o )  /\  (varFMnd `  ( I  X.  2o ) ) : ( I  X.  2o ) -->Word  ( I  X.  2o ) )  ->  (
(varFMnd `  ( I  X.  2o ) )  o.  t
)  e. Word Word  ( I  X.  2o ) )
19250, 166, 191syl2anc 642 . . . . . . . . 9  |-  ( (
ph  /\  t  e.  W )  ->  (
(varFMnd `  ( I  X.  2o ) )  o.  t
)  e. Word Word  ( I  X.  2o ) )
19332adantr 451 . . . . . . . . . 10  |-  ( (
ph  /\  t  e.  W )  ->  ( Base `  (freeMnd `  (
I  X.  2o ) ) )  = Word  (
I  X.  2o ) )
194 wrdeq 11440 . . . . . . . . . 10  |-  ( (
Base `  (freeMnd `  (
I  X.  2o ) ) )  = Word  (
I  X.  2o )  -> Word  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  = Word Word  ( I  X.  2o ) )
195193, 194syl 15 . . . . . . . . 9  |-  ( (
ph  /\  t  e.  W )  -> Word  ( Base `  (freeMnd `  ( I  X.  2o ) ) )  = Word Word  ( I  X.  2o ) )
196192, 195eleqtrrd 2373 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  (
(varFMnd `  ( I  X.  2o ) )  o.  t
)  e. Word  ( Base `  (freeMnd `  ( I  X.  2o ) ) ) )
19730gsumwmhm 14483 . . . . . . . 8  |-  ( ( ( w  e.  W  |->  [ w ]  .~  )  e.  ( (freeMnd `  ( I  X.  2o ) ) MndHom  G )  /\  ( (varFMnd `  ( I  X.  2o ) )  o.  t
)  e. Word  ( Base `  (freeMnd `  ( I  X.  2o ) ) ) )  ->  ( (
w  e.  W  |->  [ w ]  .~  ) `  ( (freeMnd `  (
I  X.  2o ) )  gsumg  ( (varFMnd `  ( I  X.  2o ) )  o.  t
) ) )  =  ( G  gsumg  ( ( w  e.  W  |->  [ w ]  .~  )  o.  (
(varFMnd `  ( I  X.  2o ) )  o.  t
) ) ) )
198178, 196, 197syl2anc 642 . . . . . . 7  |-  ( (
ph  /\  t  e.  W )  ->  (
( w  e.  W  |->  [ w ]  .~  ) `  ( (freeMnd `  ( I  X.  2o ) )  gsumg  ( (varFMnd `  ( I  X.  2o ) )  o.  t
) ) )  =  ( G  gsumg  ( ( w  e.  W  |->  [ w ]  .~  )  o.  (
(varFMnd `  ( I  X.  2o ) )  o.  t
) ) ) )
19912, 13efger 15043 . . . . . . . . 9  |-  .~  Er  W
200199a1i 10 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  .~  Er  W )
201 fvex 5555 . . . . . . . . . 10  |-  (  _I 
` Word  ( I  X.  2o ) )  e.  _V
20212, 201eqeltri 2366 . . . . . . . . 9  |-  W  e. 
_V
203202a1i 10 . . . . . . . 8  |-  ( (
ph  /\  t  e.  W )  ->  W  e.  _V )
204 eqid 2296 . . . . . . . 8  |-  ( w  e.  W  |->  [ w ]  .~  )  =  ( w  e.  W  |->  [ w ]  .~  )
205200, 203, 204divsfval 13465 . . . . . . 7  |-  ( (
ph  /\  t  e.  W )  ->  (
( w  e.  W  |->  [ w ]  .~  ) `  t )  =  [ t ]  .~  )
206190, 198, 2053eqtr3d 2336 . . . . . 6  |-  ( (
ph  /\  t  e.  W )  ->  ( G  gsumg  ( ( w  e.  W  |->  [ w ]  .~  )  o.  (
(varFMnd `  ( I  X.  2o ) )  o.  t
) ) )  =  [ t ]  .~  )
207206fveq2d 5545 . . . . 5  |-  ( (
ph  /\  t  e.  W )  ->  ( K `  ( G  gsumg  ( ( w  e.  W  |->  [ w ]  .~  )  o.  ( (varFMnd `  (
I  X.  2o ) )  o.  t ) ) ) )  =  ( K `  [
t ]  .~  )
)
208187, 207eqtr2d 2329 . . . 4  |-  ( (
ph  /\  t  e.  W )  ->  ( K `  [ t ]  .~  )  =  ( E `  [ t ]  .~  ) )
20944, 47, 208ectocld 6742 . . 3  |-  ( (
ph  /\  a  e.  ( W /.  .~  )
)  ->  ( K `  a )  =  ( E `  a ) )
21043, 209syldan 456 . 2  |-  ( (
ph  /\  a  e.  X )  ->  ( K `  a )  =  ( E `  a ) )
2116, 19, 210eqfnfvd 5641 1  |-  ( ph  ->  K  =  E )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    \/ wo 357    /\ wa 358    = wceq 1632    e. wcel 1696    =/= wne 2459   E.wrex 2557   _Vcvv 2801    C_ wss 3165   (/)c0 3468   ifcif 3578   {cpr 3654   <.cop 3656    e. cmpt 4093    _I cid 4320   Oncon0 4408    X. cxp 4703   ran crn 4706    o. ccom 4709    Fn wfn 5266   -->wf 5267   ` cfv 5271  (class class class)co 5874    e. cmpt2 5876   1oc1o 6488   2oc2o 6489    Er wer 6673   [cec 6674   /.cqs 6675   0cc0 8753  ..^cfzo 10886   #chash 11353  Word cword 11419   <"cs1 11421   Basecbs 13164    gsumg cgsu 13417    /.s cqus 13424   Grpcgrp 14378   inv gcminusg 14379   MndHom cmhm 14429  freeMndcfrmd 14485  varFMndcvrmd 14486    GrpHom cghm 14696   ~FG cefg 15031  freeGrpcfrgp 15032  varFGrpcvrgp 15033
This theorem is referenced by:  frgpup3  15103
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1536  ax-5 1547  ax-17 1606  ax-9 1644  ax-8 1661  ax-13 1698  ax-14 1700  ax-6 1715  ax-7 1720  ax-11 1727  ax-12 1878  ax-ext 2277  ax-rep 4147  ax-sep 4157  ax-nul 4165  ax-pow 4204  ax-pr 4230  ax-un 4528  ax-cnex 8809  ax-resscn 8810  ax-1cn 8811  ax-icn 8812  ax-addcl 8813  ax-addrcl 8814  ax-mulcl 8815  ax-mulrcl 8816  ax-mulcom 8817  ax-addass 8818  ax-mulass 8819  ax-distr 8820  ax-i2m1 8821  ax-1ne0 8822  ax-1rid 8823  ax-rnegex 8824  ax-rrecex 8825  ax-cnre 8826  ax-pre-lttri 8827  ax-pre-lttrn 8828  ax-pre-ltadd 8829  ax-pre-mulgt0 8830
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1310  df-ex 1532  df-nf 1535  df-sb 1639  df-eu 2160  df-mo 2161  df-clab 2283  df-cleq 2289  df-clel 2292  df-nfc 2421  df-ne 2461  df-nel 2462  df-ral 2561  df-rex 2562  df-reu 2563  df-rmo 2564  df-rab 2565  df-v 2803  df-sbc 3005  df-csb 3095  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-pss 3181  df-nul 3469  df-if 3579  df-pw 3640  df-sn 3659  df-pr 3660  df-tp 3661  df-op 3662  df-ot 3663  df-uni 3844  df-int 3879  df-iun 3923  df-iin 3924  df-br 4040  df-opab 4094  df-mpt 4095  df-tr 4130  df-eprel 4321  df-id 4325  df-po 4330  df-so 4331  df-fr 4368  df-we 4370  df-ord 4411  df-on 4412  df-lim 4413  df-suc 4414  df-om 4673  df-xp 4711  df-rel 4712  df-cnv 4713  df-co 4714  df-dm 4715  df-rn 4716  df-res 4717  df-ima 4718  df-iota 5235  df-fun 5273  df-fn 5274  df-f 5275  df-f1 5276  df-fo 5277  df-f1o 5278  df-fv 5279  df-ov 5877  df-oprab 5878  df-mpt2 5879  df-1st 6138  df-2nd 6139  df-riota 6320  df-recs 6404  df-rdg 6439  df-1o 6495  df-2o 6496  df-oadd 6499  df-er 6676  df-ec 6678  df-qs 6682  df-map 6790  df-pm 6791  df-en 6880  df-dom 6881  df-sdom 6882  df-fin 6883  df-sup 7210  df-card 7588  df-pnf 8885  df-mnf 8886  df-xr 8887  df-ltxr 8888  df-le 8889  df-sub 9055  df-neg 9056  df-nn 9763  df-2 9820  df-3 9821  df-4 9822  df-5 9823  df-6 9824  df-7 9825  df-8 9826  df-9 9827  df-10 9828  df-n0 9982  df-z 10041  df-dec 10141  df-uz 10247  df-fz 10799  df-fzo 10887  df-seq 11063  df-hash 11354  df-word 11425  df-concat 11426  df-s1 11427  df-substr 11428  df-splice 11429  df-reverse 11430  df-s2 11514  df-struct 13166  df-ndx 13167  df-slot 13168  df-base 13169  df-sets 13170  df-ress 13171  df-plusg 13237  df-mulr 13238  df-sca 13240  df-vsca 13241  df-tset 13243  df-ple 13244  df-ds 13246  df-0g 13420  df-gsum 13421  df-imas 13427  df-divs 13428  df-mnd 14383  df-mhm 14431  df-submnd 14432  df-frmd 14487  df-vrmd 14488  df-grp 14505  df-minusg 14506  df-ghm 14697  df-efg 15034  df-frgp 15035  df-vrgp 15036
  Copyright terms: Public domain W3C validator