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

Theorem mdetuni0 19644
Description: Lemma for mdetuni 19645. (Contributed by SO, 15-Jul-2018.)
Hypotheses
Ref Expression
mdetuni.a  |-  A  =  ( N Mat  R )
mdetuni.b  |-  B  =  ( Base `  A
)
mdetuni.k  |-  K  =  ( Base `  R
)
mdetuni.0g  |-  .0.  =  ( 0g `  R )
mdetuni.1r  |-  .1.  =  ( 1r `  R )
mdetuni.pg  |-  .+  =  ( +g  `  R )
mdetuni.tg  |-  .x.  =  ( .r `  R )
mdetuni.n  |-  ( ph  ->  N  e.  Fin )
mdetuni.r  |-  ( ph  ->  R  e.  Ring )
mdetuni.ff  |-  ( ph  ->  D : B --> K )
mdetuni.al  |-  ( ph  ->  A. x  e.  B  A. y  e.  N  A. z  e.  N  ( ( y  =/=  z  /\  A. w  e.  N  ( y
x w )  =  ( z x w ) )  ->  ( D `  x )  =  .0.  ) )
mdetuni.li  |-  ( ph  ->  A. x  e.  B  A. y  e.  B  A. z  e.  B  A. w  e.  N  ( ( ( x  |`  ( { w }  X.  N ) )  =  ( ( y  |`  ( { w }  X.  N ) )  oF  .+  ( z  |`  ( { w }  X.  N ) ) )  /\  ( x  |`  ( ( N  \  { w } )  X.  N ) )  =  ( y  |`  ( ( N  \  { w } )  X.  N ) )  /\  ( x  |`  ( ( N  \  { w } )  X.  N ) )  =  ( z  |`  ( ( N  \  { w } )  X.  N ) ) )  ->  ( D `  x )  =  ( ( D `  y
)  .+  ( D `  z ) ) ) )
mdetuni.sc  |-  ( ph  ->  A. x  e.  B  A. y  e.  K  A. z  e.  B  A. w  e.  N  ( ( ( x  |`  ( { w }  X.  N ) )  =  ( ( ( { w }  X.  N
)  X.  { y } )  oF  .x.  ( z  |`  ( { w }  X.  N ) ) )  /\  ( x  |`  ( ( N  \  { w } )  X.  N ) )  =  ( z  |`  ( ( N  \  { w } )  X.  N ) ) )  ->  ( D `  x )  =  ( y  .x.  ( D `
 z ) ) ) )
mdetuni.e  |-  E  =  ( N maDet  R )
mdetuni.cr  |-  ( ph  ->  R  e.  CRing )
mdetuni.f  |-  ( ph  ->  F  e.  B )
Assertion
Ref Expression
mdetuni0  |-  ( ph  ->  ( D `  F
)  =  ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  F ) ) )
Distinct variable groups:    ph, x, y, z, w    x, B, y, z, w    x, K, y, z, w    x, N, y, z, w    x, D, y, z, w    x,  .x. , y, z, w    x,  .+ , y, z, w    x,  .0. , y, z, w    x,  .1. , y, z, w    x, R, y, z, w    x, A, y, z, w    x, E, y, z, w    x, F, y, z, w

Proof of Theorem mdetuni0
Dummy variables  a 
b  c  d  e are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mdetuni.a . . . . 5  |-  A  =  ( N Mat  R )
2 mdetuni.b . . . . 5  |-  B  =  ( Base `  A
)
3 mdetuni.k . . . . 5  |-  K  =  ( Base `  R
)
4 mdetuni.0g . . . . 5  |-  .0.  =  ( 0g `  R )
5 mdetuni.1r . . . . 5  |-  .1.  =  ( 1r `  R )
6 mdetuni.pg . . . . 5  |-  .+  =  ( +g  `  R )
7 mdetuni.tg . . . . 5  |-  .x.  =  ( .r `  R )
8 mdetuni.n . . . . 5  |-  ( ph  ->  N  e.  Fin )
9 mdetuni.r . . . . 5  |-  ( ph  ->  R  e.  Ring )
10 ringgrp 17784 . . . . . . . . 9  |-  ( R  e.  Ring  ->  R  e. 
Grp )
119, 10syl 17 . . . . . . . 8  |-  ( ph  ->  R  e.  Grp )
1211adantr 466 . . . . . . 7  |-  ( (
ph  /\  a  e.  B )  ->  R  e.  Grp )
13 mdetuni.ff . . . . . . . 8  |-  ( ph  ->  D : B --> K )
1413ffvelrnda 6037 . . . . . . 7  |-  ( (
ph  /\  a  e.  B )  ->  ( D `  a )  e.  K )
159adantr 466 . . . . . . . 8  |-  ( (
ph  /\  a  e.  B )  ->  R  e.  Ring )
168, 9jca 534 . . . . . . . . . . 11  |-  ( ph  ->  ( N  e.  Fin  /\  R  e.  Ring )
)
171matring 19466 . . . . . . . . . . 11  |-  ( ( N  e.  Fin  /\  R  e.  Ring )  ->  A  e.  Ring )
18 eqid 2422 . . . . . . . . . . . 12  |-  ( 1r
`  A )  =  ( 1r `  A
)
192, 18ringidcl 17800 . . . . . . . . . . 11  |-  ( A  e.  Ring  ->  ( 1r
`  A )  e.  B )
2016, 17, 193syl 18 . . . . . . . . . 10  |-  ( ph  ->  ( 1r `  A
)  e.  B )
2113, 20ffvelrnd 6038 . . . . . . . . 9  |-  ( ph  ->  ( D `  ( 1r `  A ) )  e.  K )
2221adantr 466 . . . . . . . 8  |-  ( (
ph  /\  a  e.  B )  ->  ( D `  ( 1r `  A ) )  e.  K )
23 mdetuni.cr . . . . . . . . . 10  |-  ( ph  ->  R  e.  CRing )
24 mdetuni.e . . . . . . . . . . 11  |-  E  =  ( N maDet  R )
2524, 1, 2, 3mdetf 19618 . . . . . . . . . 10  |-  ( R  e.  CRing  ->  E : B
--> K )
2623, 25syl 17 . . . . . . . . 9  |-  ( ph  ->  E : B --> K )
2726ffvelrnda 6037 . . . . . . . 8  |-  ( (
ph  /\  a  e.  B )  ->  ( E `  a )  e.  K )
283, 7ringcl 17793 . . . . . . . 8  |-  ( ( R  e.  Ring  /\  ( D `  ( 1r `  A ) )  e.  K  /\  ( E `
 a )  e.  K )  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  a ) )  e.  K )
2915, 22, 27, 28syl3anc 1264 . . . . . . 7  |-  ( (
ph  /\  a  e.  B )  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  a ) )  e.  K )
30 eqid 2422 . . . . . . . 8  |-  ( -g `  R )  =  (
-g `  R )
313, 30grpsubcl 16733 . . . . . . 7  |-  ( ( R  e.  Grp  /\  ( D `  a )  e.  K  /\  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  a ) )  e.  K )  ->  (
( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) )  e.  K
)
3212, 14, 29, 31syl3anc 1264 . . . . . 6  |-  ( (
ph  /\  a  e.  B )  ->  (
( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) )  e.  K
)
33 eqid 2422 . . . . . 6  |-  ( a  e.  B  |->  ( ( D `  a ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) )  =  ( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) )
3432, 33fmptd 6061 . . . . 5  |-  ( ph  ->  ( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) : B --> K )
35 simpr1 1011 . . . . . . . . . 10  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N ) )  -> 
b  e.  B )
36 fveq2 5881 . . . . . . . . . . . 12  |-  ( a  =  b  ->  ( D `  a )  =  ( D `  b ) )
37 fveq2 5881 . . . . . . . . . . . . 13  |-  ( a  =  b  ->  ( E `  a )  =  ( E `  b ) )
3837oveq2d 6321 . . . . . . . . . . . 12  |-  ( a  =  b  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  a ) )  =  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 b ) ) )
3936, 38oveq12d 6323 . . . . . . . . . . 11  |-  ( a  =  b  ->  (
( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) )  =  ( ( D `  b
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) ) ) )
40 ovex 6333 . . . . . . . . . . 11  |-  ( ( D `  b ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) ) )  e.  _V
4139, 33, 40fvmpt 5964 . . . . . . . . . 10  |-  ( b  e.  B  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  b )  =  ( ( D `
 b ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 b ) ) ) )
4235, 41syl 17 . . . . . . . . 9  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N ) )  -> 
( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  b
)  =  ( ( D `  b ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) ) ) )
43423adant3 1025 . . . . . . . 8  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  ( ( a  e.  B  |->  ( ( D `  a ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( ( D `  b
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) ) ) )
44 simp1 1005 . . . . . . . . . 10  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  ph )
45 simp21 1038 . . . . . . . . . 10  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  b  e.  B
)
46 simp3r 1034 . . . . . . . . . . 11  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  A. e  e.  N  ( c b e )  =  ( d b e ) )
47 oveq2 6313 . . . . . . . . . . . . 13  |-  ( e  =  w  ->  (
c b e )  =  ( c b w ) )
48 oveq2 6313 . . . . . . . . . . . . 13  |-  ( e  =  w  ->  (
d b e )  =  ( d b w ) )
4947, 48eqeq12d 2444 . . . . . . . . . . . 12  |-  ( e  =  w  ->  (
( c b e )  =  ( d b e )  <->  ( c
b w )  =  ( d b w ) ) )
5049cbvralv 3054 . . . . . . . . . . 11  |-  ( A. e  e.  N  (
c b e )  =  ( d b e )  <->  A. w  e.  N  ( c
b w )  =  ( d b w ) )
5146, 50sylib 199 . . . . . . . . . 10  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  A. w  e.  N  ( c b w )  =  ( d b w ) )
52 simp22 1039 . . . . . . . . . 10  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  c  e.  N
)
53 simp23 1040 . . . . . . . . . 10  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  d  e.  N
)
54 simp3l 1033 . . . . . . . . . 10  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  c  =/=  d
)
55 mdetuni.al . . . . . . . . . . 11  |-  ( ph  ->  A. x  e.  B  A. y  e.  N  A. z  e.  N  ( ( y  =/=  z  /\  A. w  e.  N  ( y
x w )  =  ( z x w ) )  ->  ( D `  x )  =  .0.  ) )
56 mdetuni.li . . . . . . . . . . 11  |-  ( ph  ->  A. x  e.  B  A. y  e.  B  A. z  e.  B  A. w  e.  N  ( ( ( x  |`  ( { w }  X.  N ) )  =  ( ( y  |`  ( { w }  X.  N ) )  oF  .+  ( z  |`  ( { w }  X.  N ) ) )  /\  ( x  |`  ( ( N  \  { w } )  X.  N ) )  =  ( y  |`  ( ( N  \  { w } )  X.  N ) )  /\  ( x  |`  ( ( N  \  { w } )  X.  N ) )  =  ( z  |`  ( ( N  \  { w } )  X.  N ) ) )  ->  ( D `  x )  =  ( ( D `  y
)  .+  ( D `  z ) ) ) )
57 mdetuni.sc . . . . . . . . . . 11  |-  ( ph  ->  A. x  e.  B  A. y  e.  K  A. z  e.  B  A. w  e.  N  ( ( ( x  |`  ( { w }  X.  N ) )  =  ( ( ( { w }  X.  N
)  X.  { y } )  oF  .x.  ( z  |`  ( { w }  X.  N ) ) )  /\  ( x  |`  ( ( N  \  { w } )  X.  N ) )  =  ( z  |`  ( ( N  \  { w } )  X.  N ) ) )  ->  ( D `  x )  =  ( y  .x.  ( D `
 z ) ) ) )
581, 2, 3, 4, 5, 6, 7, 8, 9, 13, 55, 56, 57mdetunilem1 19635 . . . . . . . . . 10  |-  ( ( ( ph  /\  b  e.  B  /\  A. w  e.  N  ( c
b w )  =  ( d b w ) )  /\  (
c  e.  N  /\  d  e.  N  /\  c  =/=  d ) )  ->  ( D `  b )  =  .0.  )
5944, 45, 51, 52, 53, 54, 58syl33anc 1279 . . . . . . . . 9  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  ( D `  b )  =  .0.  )
60233ad2ant1 1026 . . . . . . . . . . 11  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  R  e.  CRing )
6124, 1, 2, 4, 60, 45, 52, 53, 54, 46mdetralt 19631 . . . . . . . . . 10  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  ( E `  b )  =  .0.  )
6261oveq2d 6321 . . . . . . . . 9  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) )  =  ( ( D `  ( 1r
`  A ) ) 
.x.  .0.  ) )
6359, 62oveq12d 6323 . . . . . . . 8  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  ( ( D `
 b ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 b ) ) )  =  (  .0.  ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  .0.  ) ) )
643, 7, 4ringrz 17817 . . . . . . . . . . . 12  |-  ( ( R  e.  Ring  /\  ( D `  ( 1r `  A ) )  e.  K )  ->  (
( D `  ( 1r `  A ) ) 
.x.  .0.  )  =  .0.  )
659, 21, 64syl2anc 665 . . . . . . . . . . 11  |-  ( ph  ->  ( ( D `  ( 1r `  A ) )  .x.  .0.  )  =  .0.  )
6665oveq2d 6321 . . . . . . . . . 10  |-  ( ph  ->  (  .0.  ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  .0.  ) )  =  (  .0.  ( -g `  R )  .0.  ) )
673, 4grpidcl 16693 . . . . . . . . . . . 12  |-  ( R  e.  Grp  ->  .0.  e.  K )
6811, 67syl 17 . . . . . . . . . . 11  |-  ( ph  ->  .0.  e.  K )
693, 4, 30grpsubid 16737 . . . . . . . . . . 11  |-  ( ( R  e.  Grp  /\  .0.  e.  K )  -> 
(  .0.  ( -g `  R )  .0.  )  =  .0.  )
7011, 68, 69syl2anc 665 . . . . . . . . . 10  |-  ( ph  ->  (  .0.  ( -g `  R )  .0.  )  =  .0.  )
7166, 70eqtrd 2463 . . . . . . . . 9  |-  ( ph  ->  (  .0.  ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  .0.  ) )  =  .0.  )
72713ad2ant1 1026 . . . . . . . 8  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  (  .0.  ( -g `  R ) ( ( D `  ( 1r `  A ) ) 
.x.  .0.  ) )  =  .0.  )
7343, 63, 723eqtrd 2467 . . . . . . 7  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N )  /\  (
c  =/=  d  /\  A. e  e.  N  ( c b e )  =  ( d b e ) ) )  ->  ( ( a  e.  B  |->  ( ( D `  a ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  .0.  )
74733expia 1207 . . . . . 6  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  N  /\  d  e.  N ) )  -> 
( ( c  =/=  d  /\  A. e  e.  N  ( c
b e )  =  ( d b e ) )  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  b )  =  .0.  ) )
7574ralrimivvva 2844 . . . . 5  |-  ( ph  ->  A. b  e.  B  A. c  e.  N  A. d  e.  N  ( ( c  =/=  d  /\  A. e  e.  N  ( c
b e )  =  ( d b e ) )  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  b )  =  .0.  ) )
76 simp1 1005 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  ph )
77 simp2ll 1072 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  b  e.  B )
78 simp2lr 1073 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  c  e.  B )
79 simp2rl 1074 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  d  e.  B )
80 simp2rr 1075 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  e  e.  N )
81 simp31 1041 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( {
e }  X.  N
) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) ) )
82 simp32 1042 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
b  |`  ( ( N 
\  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) ) )
83 simp33 1043 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
b  |`  ( ( N 
\  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )
841, 2, 3, 4, 5, 6, 7, 8, 9, 13, 55, 56, 57mdetunilem3 19637 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  b  e.  B  /\  c  e.  B )  /\  (
d  e.  B  /\  e  e.  N  /\  ( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) ) )  /\  (
( b  |`  (
( N  \  {
e } )  X.  N ) )  =  ( c  |`  (
( N  \  {
e } )  X.  N ) )  /\  ( b  |`  (
( N  \  {
e } )  X.  N ) )  =  ( d  |`  (
( N  \  {
e } )  X.  N ) ) ) )  ->  ( D `  b )  =  ( ( D `  c
)  .+  ( D `  d ) ) )
8576, 77, 78, 79, 80, 81, 82, 83, 84syl332anc 1295 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  ( D `  b )  =  ( ( D `
 c )  .+  ( D `  d ) ) )
86233ad2ant1 1026 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  R  e.  CRing )
8724, 1, 2, 6, 86, 77, 78, 79, 80, 81, 82, 83mdetrlin 19625 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  ( E `  b )  =  ( ( E `
 c )  .+  ( E `  d ) ) )
8887oveq2d 6321 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  b ) )  =  ( ( D `  ( 1r `  A ) )  .x.  ( ( E `  c ) 
.+  ( E `  d ) ) ) )
8985, 88oveq12d 6323 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( D `  b
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) ) )  =  ( ( ( D `  c )  .+  ( D `  d )
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( ( E `  c )  .+  ( E `  d )
) ) ) )
90 simprll 770 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
b  e.  B )
9190, 41syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  b
)  =  ( ( D `  b ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) ) ) )
92913adant3 1025 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  b )  =  ( ( D `
 b ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 b ) ) ) )
93 simprlr 771 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
c  e.  B )
94 fveq2 5881 . . . . . . . . . . . . . . . 16  |-  ( a  =  c  ->  ( D `  a )  =  ( D `  c ) )
95 fveq2 5881 . . . . . . . . . . . . . . . . 17  |-  ( a  =  c  ->  ( E `  a )  =  ( E `  c ) )
9695oveq2d 6321 . . . . . . . . . . . . . . . 16  |-  ( a  =  c  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  a ) )  =  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 c ) ) )
9794, 96oveq12d 6323 . . . . . . . . . . . . . . 15  |-  ( a  =  c  ->  (
( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) )  =  ( ( D `  c
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  c ) ) ) )
98 ovex 6333 . . . . . . . . . . . . . . 15  |-  ( ( D `  c ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  c ) ) )  e.  _V
9997, 33, 98fvmpt 5964 . . . . . . . . . . . . . 14  |-  ( c  e.  B  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  c )  =  ( ( D `
 c ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 c ) ) ) )
10093, 99syl 17 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  c
)  =  ( ( D `  c ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  c ) ) ) )
101 simprrl 772 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
d  e.  B )
102 fveq2 5881 . . . . . . . . . . . . . . . 16  |-  ( a  =  d  ->  ( D `  a )  =  ( D `  d ) )
103 fveq2 5881 . . . . . . . . . . . . . . . . 17  |-  ( a  =  d  ->  ( E `  a )  =  ( E `  d ) )
104103oveq2d 6321 . . . . . . . . . . . . . . . 16  |-  ( a  =  d  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  a ) )  =  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) )
105102, 104oveq12d 6323 . . . . . . . . . . . . . . 15  |-  ( a  =  d  ->  (
( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) )  =  ( ( D `  d
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  d ) ) ) )
106 ovex 6333 . . . . . . . . . . . . . . 15  |-  ( ( D `  d ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  d ) ) )  e.  _V
107105, 33, 106fvmpt 5964 . . . . . . . . . . . . . 14  |-  ( d  e.  B  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  d )  =  ( ( D `
 d ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) )
108101, 107syl 17 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  d
)  =  ( ( D `  d ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  d ) ) ) )
109100, 108oveq12d 6323 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( ( a  e.  B  |->  ( ( D `  a ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  c )  .+  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  d ) )  =  ( ( ( D `  c
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  c ) ) )  .+  (
( D `  d
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  d ) ) ) ) )
110 ringabl 17809 . . . . . . . . . . . . . . 15  |-  ( R  e.  Ring  ->  R  e. 
Abel )
1119, 110syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  R  e.  Abel )
112111adantr 466 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  ->  R  e.  Abel )
11313adantr 466 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  ->  D : B --> K )
114113, 93ffvelrnd 6038 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( D `  c
)  e.  K )
115113, 101ffvelrnd 6038 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( D `  d
)  e.  K )
1169adantr 466 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  ->  R  e.  Ring )
11721adantr 466 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( D `  ( 1r `  A ) )  e.  K )
11826adantr 466 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  ->  E : B --> K )
119118, 93ffvelrnd 6038 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( E `  c
)  e.  K )
1203, 7ringcl 17793 . . . . . . . . . . . . . 14  |-  ( ( R  e.  Ring  /\  ( D `  ( 1r `  A ) )  e.  K  /\  ( E `
 c )  e.  K )  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  c ) )  e.  K )
121116, 117, 119, 120syl3anc 1264 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( D `  ( 1r `  A ) )  .x.  ( E `
 c ) )  e.  K )
122118, 101ffvelrnd 6038 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( E `  d
)  e.  K )
1233, 7ringcl 17793 . . . . . . . . . . . . . 14  |-  ( ( R  e.  Ring  /\  ( D `  ( 1r `  A ) )  e.  K  /\  ( E `
 d )  e.  K )  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  d ) )  e.  K )
124116, 117, 122, 123syl3anc 1264 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) )  e.  K )
1253, 6, 30ablsub4 17454 . . . . . . . . . . . . 13  |-  ( ( R  e.  Abel  /\  (
( D `  c
)  e.  K  /\  ( D `  d )  e.  K )  /\  ( ( ( D `
 ( 1r `  A ) )  .x.  ( E `  c ) )  e.  K  /\  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) )  e.  K ) )  ->  ( ( ( D `  c ) 
.+  ( D `  d ) ) (
-g `  R )
( ( ( D `
 ( 1r `  A ) )  .x.  ( E `  c ) )  .+  ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  d ) ) ) )  =  ( ( ( D `  c
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  c ) ) )  .+  (
( D `  d
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  d ) ) ) ) )
126112, 114, 115, 121, 124, 125syl122anc 1273 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( ( D `
 c )  .+  ( D `  d ) ) ( -g `  R
) ( ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  c ) )  .+  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) )  =  ( ( ( D `  c ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  c ) ) ) 
.+  ( ( D `
 d ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) ) )
1273, 6, 7ringdi 17798 . . . . . . . . . . . . . . 15  |-  ( ( R  e.  Ring  /\  (
( D `  ( 1r `  A ) )  e.  K  /\  ( E `  c )  e.  K  /\  ( E `  d )  e.  K ) )  -> 
( ( D `  ( 1r `  A ) )  .x.  ( ( E `  c ) 
.+  ( E `  d ) ) )  =  ( ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  c ) )  .+  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) )
128116, 117, 119, 122, 127syl13anc 1266 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( D `  ( 1r `  A ) )  .x.  ( ( E `  c ) 
.+  ( E `  d ) ) )  =  ( ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  c ) )  .+  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) )
129128eqcomd 2430 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( ( D `
 ( 1r `  A ) )  .x.  ( E `  c ) )  .+  ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  d ) ) )  =  ( ( D `
 ( 1r `  A ) )  .x.  ( ( E `  c )  .+  ( E `  d )
) ) )
130129oveq2d 6321 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( ( D `
 c )  .+  ( D `  d ) ) ( -g `  R
) ( ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  c ) )  .+  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) )  =  ( ( ( D `  c )  .+  ( D `  d )
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( ( E `  c )  .+  ( E `  d )
) ) ) )
131109, 126, 1303eqtr2d 2469 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( ( a  e.  B  |->  ( ( D `  a ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  c )  .+  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  d ) )  =  ( ( ( D `  c
)  .+  ( D `  d ) ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( ( E `  c ) 
.+  ( E `  d ) ) ) ) )
1321313adant3 1025 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  c
)  .+  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) )  =  ( ( ( D `
 c )  .+  ( D `  d ) ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( ( E `  c )  .+  ( E `  d )
) ) ) )
13389, 92, 1323eqtr4d 2473 . . . . . . . . 9  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  b )  =  ( ( ( a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  c )  .+  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  d ) ) )
1341333expia 1207 . . . . . . . 8  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  B )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( ( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  (
d  |`  ( { e }  X.  N ) ) )  /\  (
b  |`  ( ( N 
\  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )  ->  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( ( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  c
)  .+  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) ) ) )
135134anassrs 652 . . . . . . 7  |-  ( ( ( ph  /\  (
b  e.  B  /\  c  e.  B )
)  /\  ( d  e.  B  /\  e  e.  N ) )  -> 
( ( ( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  (
d  |`  ( { e }  X.  N ) ) )  /\  (
b  |`  ( ( N 
\  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )  ->  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( ( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  c
)  .+  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) ) ) )
136135ralrimivva 2843 . . . . . 6  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  B ) )  ->  A. d  e.  B  A. e  e.  N  ( ( ( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  (
d  |`  ( { e }  X.  N ) ) )  /\  (
b  |`  ( ( N 
\  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )  ->  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( ( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  c
)  .+  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) ) ) )
137136ralrimivva 2843 . . . . 5  |-  ( ph  ->  A. b  e.  B  A. c  e.  B  A. d  e.  B  A. e  e.  N  ( ( ( b  |`  ( { e }  X.  N ) )  =  ( ( c  |`  ( { e }  X.  N ) )  oF  .+  (
d  |`  ( { e }  X.  N ) ) )  /\  (
b  |`  ( ( N 
\  { e } )  X.  N ) )  =  ( c  |`  ( ( N  \  { e } )  X.  N ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )  ->  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( ( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  c
)  .+  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) ) ) )
138 simp1 1005 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  ph )
139 simp2ll 1072 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  b  e.  B )
140 simp2lr 1073 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  c  e.  K )
141 simp2rl 1074 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  d  e.  B )
142 simp2rr 1075 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  e  e.  N )
143 simp3l 1033 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N )  X. 
{ c } )  oF  .x.  (
d  |`  ( { e }  X.  N ) ) ) )
144 simp3r 1034 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
b  |`  ( ( N 
\  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )
1451, 2, 3, 4, 5, 6, 7, 8, 9, 13, 55, 56, 57mdetunilem4 19638 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  K  /\  d  e.  B )  /\  (
e  e.  N  /\  ( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  ( D `  b )  =  ( c  .x.  ( D `  d ) ) )
146138, 139, 140, 141, 142, 143, 144, 145syl133anc 1287 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  ( D `  b )  =  ( c  .x.  ( D `  d ) ) )
147233ad2ant1 1026 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  R  e.  CRing )
14824, 1, 2, 3, 7, 147, 139, 140, 141, 142, 143, 144mdetrsca 19626 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  ( E `  b )  =  ( c  .x.  ( E `  d ) ) )
149148oveq2d 6321 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  b ) )  =  ( ( D `  ( 1r `  A ) )  .x.  ( c 
.x.  ( E `  d ) ) ) )
150146, 149oveq12d 6323 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( D `  b
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) ) )  =  ( ( c  .x.  ( D `  d )
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( c  .x.  ( E `  d )
) ) ) )
151 simprll 770 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
b  e.  B )
152151, 41syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  b
)  =  ( ( D `  b ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  b ) ) ) )
1531523adant3 1025 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  b )  =  ( ( D `
 b ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 b ) ) ) )
154 simprrl 772 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
d  e.  B )
155154, 107syl 17 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  d
)  =  ( ( D `  d ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  d ) ) ) )
156155oveq2d 6321 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( c  .x.  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  d ) )  =  ( c 
.x.  ( ( D `
 d ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) ) )
1579adantr 466 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  ->  R  e.  Ring )
158 simprlr 771 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
c  e.  K )
15913adantr 466 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  ->  D : B --> K )
160159, 154ffvelrnd 6038 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( D `  d
)  e.  K )
16121adantr 466 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( D `  ( 1r `  A ) )  e.  K )
16226adantr 466 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  ->  E : B --> K )
163162, 154ffvelrnd 6038 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( E `  d
)  e.  K )
164157, 161, 163, 123syl3anc 1264 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) )  e.  K )
1653, 7, 30, 157, 158, 160, 164ringsubdi 17826 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( c  .x.  (
( D `  d
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  d ) ) ) )  =  ( ( c  .x.  ( D `  d ) ) ( -g `  R
) ( c  .x.  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) ) )
166 eqid 2422 . . . . . . . . . . . . . . . . 17  |-  (mulGrp `  R )  =  (mulGrp `  R )
167166crngmgp 17787 . . . . . . . . . . . . . . . 16  |-  ( R  e.  CRing  ->  (mulGrp `  R
)  e. CMnd )
16823, 167syl 17 . . . . . . . . . . . . . . 15  |-  ( ph  ->  (mulGrp `  R )  e. CMnd )
169168adantr 466 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
(mulGrp `  R )  e. CMnd )
170166, 3mgpbas 17728 . . . . . . . . . . . . . . 15  |-  K  =  ( Base `  (mulGrp `  R ) )
171166, 7mgpplusg 17726 . . . . . . . . . . . . . . 15  |-  .x.  =  ( +g  `  (mulGrp `  R ) )
172170, 171cmn12 17449 . . . . . . . . . . . . . 14  |-  ( ( (mulGrp `  R )  e. CMnd  /\  ( c  e.  K  /\  ( D `
 ( 1r `  A ) )  e.  K  /\  ( E `
 d )  e.  K ) )  -> 
( c  .x.  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  d ) ) )  =  ( ( D `
 ( 1r `  A ) )  .x.  ( c  .x.  ( E `  d )
) ) )
173169, 158, 161, 163, 172syl13anc 1266 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( c  .x.  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  d ) ) )  =  ( ( D `
 ( 1r `  A ) )  .x.  ( c  .x.  ( E `  d )
) ) )
174173oveq2d 6321 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( c  .x.  ( D `  d ) ) ( -g `  R
) ( c  .x.  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 d ) ) ) )  =  ( ( c  .x.  ( D `  d )
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( c  .x.  ( E `  d )
) ) ) )
175156, 165, 1743eqtrd 2467 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( c  .x.  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  d ) )  =  ( ( c  .x.  ( D `
 d ) ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( c  .x.  ( E `  d )
) ) ) )
1761753adant3 1025 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
c  .x.  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) )  =  ( ( c  .x.  ( D `  d ) ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( c  .x.  ( E `  d )
) ) ) )
177150, 153, 1763eqtr4d 2473 . . . . . . . . 9  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) )  /\  (
( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N
)  X.  { c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) ) )  ->  (
( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) ) `  b )  =  ( c  .x.  ( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  d
) ) )
1781773expia 1207 . . . . . . . 8  |-  ( (
ph  /\  ( (
b  e.  B  /\  c  e.  K )  /\  ( d  e.  B  /\  e  e.  N
) ) )  -> 
( ( ( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N )  X.  {
c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )  ->  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( c  .x.  ( ( a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) ) ) )
179178anassrs 652 . . . . . . 7  |-  ( ( ( ph  /\  (
b  e.  B  /\  c  e.  K )
)  /\  ( d  e.  B  /\  e  e.  N ) )  -> 
( ( ( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N )  X.  {
c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )  ->  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( c  .x.  ( ( a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) ) ) )
180179ralrimivva 2843 . . . . . 6  |-  ( (
ph  /\  ( b  e.  B  /\  c  e.  K ) )  ->  A. d  e.  B  A. e  e.  N  ( ( ( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N )  X.  {
c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )  ->  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( c  .x.  ( ( a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) ) ) )
181180ralrimivva 2843 . . . . 5  |-  ( ph  ->  A. b  e.  B  A. c  e.  K  A. d  e.  B  A. e  e.  N  ( ( ( b  |`  ( { e }  X.  N ) )  =  ( ( ( { e }  X.  N )  X.  {
c } )  oF  .x.  ( d  |`  ( { e }  X.  N ) ) )  /\  ( b  |`  ( ( N  \  { e } )  X.  N ) )  =  ( d  |`  ( ( N  \  { e } )  X.  N ) ) )  ->  ( (
a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  b )  =  ( c  .x.  ( ( a  e.  B  |->  ( ( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  d ) ) ) )
182 eqidd 2423 . . . . . 6  |-  ( ph  ->  ( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) )  =  ( a  e.  B  |->  ( ( D `  a ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) )
183 fveq2 5881 . . . . . . . 8  |-  ( a  =  ( 1r `  A )  ->  ( D `  a )  =  ( D `  ( 1r `  A ) ) )
184 fveq2 5881 . . . . . . . . 9  |-  ( a  =  ( 1r `  A )  ->  ( E `  a )  =  ( E `  ( 1r `  A ) ) )
185184oveq2d 6321 . . . . . . . 8  |-  ( a  =  ( 1r `  A )  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  a ) )  =  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 ( 1r `  A ) ) ) )
186183, 185oveq12d 6323 . . . . . . 7  |-  ( a  =  ( 1r `  A )  ->  (
( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) )  =  ( ( D `  ( 1r `  A ) ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  ( 1r
`  A ) ) ) ) )
18724, 1, 18, 5mdet1 19624 . . . . . . . . . . . 12  |-  ( ( R  e.  CRing  /\  N  e.  Fin )  ->  ( E `  ( 1r `  A ) )  =  .1.  )
18823, 8, 187syl2anc 665 . . . . . . . . . . 11  |-  ( ph  ->  ( E `  ( 1r `  A ) )  =  .1.  )
189188oveq2d 6321 . . . . . . . . . 10  |-  ( ph  ->  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 ( 1r `  A ) ) )  =  ( ( D `
 ( 1r `  A ) )  .x.  .1.  ) )
1903, 7, 5ringridm 17804 . . . . . . . . . . 11  |-  ( ( R  e.  Ring  /\  ( D `  ( 1r `  A ) )  e.  K )  ->  (
( D `  ( 1r `  A ) ) 
.x.  .1.  )  =  ( D `  ( 1r
`  A ) ) )
1919, 21, 190syl2anc 665 . . . . . . . . . 10  |-  ( ph  ->  ( ( D `  ( 1r `  A ) )  .x.  .1.  )  =  ( D `  ( 1r `  A ) ) )
192189, 191eqtrd 2463 . . . . . . . . 9  |-  ( ph  ->  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 ( 1r `  A ) ) )  =  ( D `  ( 1r `  A ) ) )
193192oveq2d 6321 . . . . . . . 8  |-  ( ph  ->  ( ( D `  ( 1r `  A ) ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  ( 1r
`  A ) ) ) )  =  ( ( D `  ( 1r `  A ) ) ( -g `  R
) ( D `  ( 1r `  A ) ) ) )
1943, 4, 30grpsubid 16737 . . . . . . . . 9  |-  ( ( R  e.  Grp  /\  ( D `  ( 1r
`  A ) )  e.  K )  -> 
( ( D `  ( 1r `  A ) ) ( -g `  R
) ( D `  ( 1r `  A ) ) )  =  .0.  )
19511, 21, 194syl2anc 665 . . . . . . . 8  |-  ( ph  ->  ( ( D `  ( 1r `  A ) ) ( -g `  R
) ( D `  ( 1r `  A ) ) )  =  .0.  )
196193, 195eqtrd 2463 . . . . . . 7  |-  ( ph  ->  ( ( D `  ( 1r `  A ) ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  ( 1r
`  A ) ) ) )  =  .0.  )
197186, 196sylan9eqr 2485 . . . . . 6  |-  ( (
ph  /\  a  =  ( 1r `  A ) )  ->  ( ( D `  a )
( -g `  R ) ( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) )  =  .0.  )
198 fvex 5891 . . . . . . . 8  |-  ( 0g
`  R )  e. 
_V
1994, 198eqeltri 2503 . . . . . . 7  |-  .0.  e.  _V
200199a1i 11 . . . . . 6  |-  ( ph  ->  .0.  e.  _V )
201182, 197, 20, 200fvmptd 5970 . . . . 5  |-  ( ph  ->  ( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  ( 1r `  A ) )  =  .0.  )
202 eqid 2422 . . . . 5  |-  { b  |  A. c  e.  B  A. d  e.  ( N  ^m  N
) ( A. e  e.  b  ( c `  e )  =  if ( e  e.  d ,  .1.  ,  .0.  )  ->  ( ( a  e.  B  |->  ( ( D `  a ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  c )  =  .0.  ) }  =  {
b  |  A. c  e.  B  A. d  e.  ( N  ^m  N
) ( A. e  e.  b  ( c `  e )  =  if ( e  e.  d ,  .1.  ,  .0.  )  ->  ( ( a  e.  B  |->  ( ( D `  a ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) ) ) `  c )  =  .0.  ) }
2031, 2, 3, 4, 5, 6, 7, 8, 9, 34, 75, 137, 181, 201, 202mdetunilem9 19643 . . . 4  |-  ( ph  ->  ( a  e.  B  |->  ( ( D `  a ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  a ) ) ) )  =  ( B  X.  {  .0.  }
) )
204203fveq1d 5883 . . 3  |-  ( ph  ->  ( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  F
)  =  ( ( B  X.  {  .0.  } ) `  F ) )
205 fveq2 5881 . . . . . 6  |-  ( a  =  F  ->  ( D `  a )  =  ( D `  F ) )
206 fveq2 5881 . . . . . . 7  |-  ( a  =  F  ->  ( E `  a )  =  ( E `  F ) )
207206oveq2d 6321 . . . . . 6  |-  ( a  =  F  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  a ) )  =  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 F ) ) )
208205, 207oveq12d 6323 . . . . 5  |-  ( a  =  F  ->  (
( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) )  =  ( ( D `  F
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  F ) ) ) )
209208adantl 467 . . . 4  |-  ( (
ph  /\  a  =  F )  ->  (
( D `  a
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  a ) ) )  =  ( ( D `  F
) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  F ) ) ) )
210 mdetuni.f . . . 4  |-  ( ph  ->  F  e.  B )
211 ovex 6333 . . . . 5  |-  ( ( D `  F ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  F ) ) )  e.  _V
212211a1i 11 . . . 4  |-  ( ph  ->  ( ( D `  F ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  F ) ) )  e.  _V )
213182, 209, 210, 212fvmptd 5970 . . 3  |-  ( ph  ->  ( ( a  e.  B  |->  ( ( D `
 a ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 a ) ) ) ) `  F
)  =  ( ( D `  F ) ( -g `  R
) ( ( D `
 ( 1r `  A ) )  .x.  ( E `  F ) ) ) )
214199fvconst2 6135 . . . 4  |-  ( F  e.  B  ->  (
( B  X.  {  .0.  } ) `  F
)  =  .0.  )
215210, 214syl 17 . . 3  |-  ( ph  ->  ( ( B  X.  {  .0.  } ) `  F )  =  .0.  )
216204, 213, 2153eqtr3d 2471 . 2  |-  ( ph  ->  ( ( D `  F ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  F ) ) )  =  .0.  )
21713, 210ffvelrnd 6038 . . 3  |-  ( ph  ->  ( D `  F
)  e.  K )
21826, 210ffvelrnd 6038 . . . 4  |-  ( ph  ->  ( E `  F
)  e.  K )
2193, 7ringcl 17793 . . . 4  |-  ( ( R  e.  Ring  /\  ( D `  ( 1r `  A ) )  e.  K  /\  ( E `
 F )  e.  K )  ->  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  F ) )  e.  K )
2209, 21, 218, 219syl3anc 1264 . . 3  |-  ( ph  ->  ( ( D `  ( 1r `  A ) )  .x.  ( E `
 F ) )  e.  K )
2213, 4, 30grpsubeq0 16739 . . 3  |-  ( ( R  e.  Grp  /\  ( D `  F )  e.  K  /\  (
( D `  ( 1r `  A ) ) 
.x.  ( E `  F ) )  e.  K )  ->  (
( ( D `  F ) ( -g `  R ) ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  F ) ) )  =  .0.  <->  ( D `  F )  =  ( ( D `  ( 1r `  A ) ) 
.x.  ( E `  F ) ) ) )
22211, 217, 220, 221syl3anc 1264 . 2  |-  ( ph  ->  ( ( ( D `
 F ) (
-g `  R )
( ( D `  ( 1r `  A ) )  .x.  ( E `
 F ) ) )  =  .0.  <->  ( D `  F )  =  ( ( D `  ( 1r `  A ) ) 
.x.  ( E `  F ) ) ) )
223216, 222mpbid 213 1  |-  ( ph  ->  ( D `  F
)  =  ( ( D `  ( 1r
`  A ) ) 
.x.  ( E `  F ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 187    /\ wa 370    /\ w3a 982    = wceq 1437    e. wcel 1872   {cab 2407    =/= wne 2614   A.wral 2771   _Vcvv 3080    \ cdif 3433   ifcif 3911   {csn 3998    |-> cmpt 4482    X. cxp 4851    |` cres 4855   -->wf 5597   ` cfv 5601  (class class class)co 6305    oFcof 6543    ^m cmap 7483   Fincfn 7580   Basecbs 15120   +g cplusg 15189   .rcmulr 15190   0gc0g 15337   Grpcgrp 16668   -gcsg 16670  CMndccmn 17429   Abelcabl 17430  mulGrpcmgp 17722   1rcur 17734   Ringcrg 17779   CRingccrg 17780   Mat cmat 19430   maDet cmdat 19607
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-8 1874  ax-9 1876  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2057  ax-ext 2401  ax-rep 4536  ax-sep 4546  ax-nul 4555  ax-pow 4602  ax-pr 4660  ax-un 6597  ax-inf2 8155  ax-cnex 9602  ax-resscn 9603  ax-1cn 9604  ax-icn 9605  ax-addcl 9606  ax-addrcl 9607  ax-mulcl 9608  ax-mulrcl 9609  ax-mulcom 9610  ax-addass 9611  ax-mulass 9612  ax-distr 9613  ax-i2m1 9614  ax-1ne0 9615  ax-1rid 9616  ax-rnegex 9617  ax-rrecex 9618  ax-cnre 9619  ax-pre-lttri 9620  ax-pre-lttrn 9621  ax-pre-ltadd 9622  ax-pre-mulgt0 9623  ax-addf 9625  ax-mulf 9626
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-xor 1401  df-tru 1440  df-fal 1443  df-ex 1658  df-nf 1662  df-sb 1791  df-eu 2273  df-mo 2274  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2568  df-ne 2616  df-nel 2617  df-ral 2776  df-rex 2777  df-reu 2778  df-rmo 2779  df-rab 2780  df-v 3082  df-sbc 3300  df-csb 3396  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-pss 3452  df-nul 3762  df-if 3912  df-pw 3983  df-sn 3999  df-pr 4001  df-tp 4003  df-op 4005  df-ot 4007  df-uni 4220  df-int 4256  df-iun 4301  df-iin 4302  df-br 4424  df-opab 4483  df-mpt 4484  df-tr 4519  df-eprel 4764  df-id 4768  df-po 4774  df-so 4775  df-fr 4812  df-se 4813  df-we 4814  df-xp 4859  df-rel 4860  df-cnv 4861  df-co 4862  df-dm 4863  df-rn 4864  df-res 4865  df-ima 4866  df-pred 5399  df-ord 5445  df-on 5446  df-lim 5447  df-suc 5448  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-isom 5610  df-riota 6267  df-ov 6308  df-oprab 6309  df-mpt2 6310  df-of 6545  df-om 6707  df-1st 6807  df-2nd 6808  df-supp 6926  df-tpos 6984  df-wrecs 7039  df-recs 7101  df-rdg 7139  df-1o 7193  df-2o 7194  df-oadd 7197  df-er 7374  df-map 7485  df-pm 7486  df-ixp 7534  df-en 7581  df-dom 7582  df-sdom 7583  df-fin 7584  df-fsupp 7893  df-sup 7965  df-oi 8034  df-card 8381  df-cda 8605  df-pnf 9684  df-mnf 9685  df-xr 9686  df-ltxr 9687  df-le 9688  df-sub 9869  df-neg 9870  df-div 10277  df-nn 10617  df-2 10675  df-3 10676  df-4 10677  df-5 10678  df-6 10679  df-7 10680  df-8 10681  df-9 10682  df-10 10683  df-n0 10877  df-z 10945  df-dec 11059  df-uz 11167  df-rp 11310  df-fz 11792  df-fzo 11923  df-seq 12220  df-exp 12279  df-hash 12522  df-word 12668  df-lsw 12669  df-concat 12670  df-s1 12671  df-substr 12672  df-splice 12673  df-reverse 12674  df-s2 12946  df-struct 15122  df-ndx 15123  df-slot 15124  df-base 15125  df-sets 15126  df-ress 15127  df-plusg 15202  df-mulr 15203  df-starv 15204  df-sca 15205  df-vsca 15206  df-ip 15207  df-tset 15208  df-ple 15209  df-ds 15211  df-unif 15212  df-hom 15213  df-cco 15214  df-0g 15339  df-gsum 15340  df-prds 15345  df-pws 15347  df-mre 15491  df-mrc 15492  df-acs 15494  df-mgm 16487  df-sgrp 16526  df-mnd 16536  df-mhm 16581  df-submnd 16582  df-grp 16672  df-minusg 16673  df-sbg 16674  df-mulg 16675  df-subg 16813  df-ghm 16880  df-gim 16922  df-cntz 16970  df-oppg 16996  df-symg 17018  df-pmtr 17082  df-psgn 17131  df-evpm 17132  df-cmn 17431  df-abl 17432  df-mgp 17723  df-ur 17735  df-srg 17739  df-ring 17781  df-cring 17782  df-oppr 17850  df-dvdsr 17868  df-unit 17869  df-invr 17899  df-dvr 17910  df-rnghom 17942  df-drng 17976  df-subrg 18005  df-lmod 18092  df-lss 18155  df-sra 18394  df-rgmod 18395  df-cnfld 18970  df-zring 19038  df-zrh 19073  df-dsmm 19293  df-frlm 19308  df-mamu 19407  df-mat 19431  df-mdet 19608
This theorem is referenced by:  mdetuni  19645  mdetmul  19646
  Copyright terms: Public domain W3C validator