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

Theorem mrcmndind 16319
Description: (( From SO's determinants branch )). TODO: Appropriate description to be added! (Contributed by SO, 14-Jul-2018.)
Hypotheses
Ref Expression
mrcmndind.ch  |-  ( x  =  y  ->  ( ps 
<->  ch ) )
mrcmndind.th  |-  ( x  =  ( y  .+  z )  ->  ( ps 
<->  th ) )
mrcmndind.ta  |-  ( x  =  .0.  ->  ( ps 
<->  ta ) )
mrcmndind.et  |-  ( x  =  A  ->  ( ps 
<->  et ) )
mrcmndind.0g  |-  .0.  =  ( 0g `  M )
mrcmndind.pg  |-  .+  =  ( +g  `  M )
mrcmndind.b  |-  B  =  ( Base `  M
)
mrcmndind.m  |-  ( ph  ->  M  e.  Mnd )
mrcmndind.g  |-  ( ph  ->  G  C_  B )
mrcmndind.k  |-  ( ph  ->  B  =  ( (mrCls `  (SubMnd `  M )
) `  G )
)
mrcmndind.i1  |-  ( ph  ->  ta )
mrcmndind.i2  |-  ( ( ( ph  /\  y  e.  B  /\  z  e.  G )  /\  ch )  ->  th )
mrcmndind.a  |-  ( ph  ->  A  e.  B )
Assertion
Ref Expression
mrcmndind  |-  ( ph  ->  et )
Distinct variable groups:    ph, x, y, z    ps, y, z    ch, x, z    th, x    x,  .0.    x, A    ta, x    et, x    y, G, z   
y, B, z    x,  .+ , y, z
Allowed substitution hints:    ps( x)    ch( y)    th( y, z)    ta( y, z)    et( y, z)    A( y, z)    B( x)    G( x)    M( x, y, z)    .0. ( y, z)

Proof of Theorem mrcmndind
Dummy variables  a 
b  c  d are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mrcmndind.i1 . . . 4  |-  ( ph  ->  ta )
2 mrcmndind.m . . . . . 6  |-  ( ph  ->  M  e.  Mnd )
3 mrcmndind.b . . . . . . 7  |-  B  =  ( Base `  M
)
4 mrcmndind.0g . . . . . . 7  |-  .0.  =  ( 0g `  M )
53, 4mndidcl 16260 . . . . . 6  |-  ( M  e.  Mnd  ->  .0.  e.  B )
62, 5syl 17 . . . . 5  |-  ( ph  ->  .0.  e.  B )
7 mrcmndind.ta . . . . . 6  |-  ( x  =  .0.  ->  ( ps 
<->  ta ) )
87sbcieg 3309 . . . . 5  |-  (  .0. 
e.  B  ->  ( [.  .0.  /  x ]. ps 
<->  ta ) )
96, 8syl 17 . . . 4  |-  ( ph  ->  ( [.  .0.  /  x ]. ps  <->  ta )
)
101, 9mpbird 232 . . 3  |-  ( ph  ->  [.  .0.  /  x ]. ps )
11 mrcmndind.k . . . . . . 7  |-  ( ph  ->  B  =  ( (mrCls `  (SubMnd `  M )
) `  G )
)
123submacs 16318 . . . . . . . . . 10  |-  ( M  e.  Mnd  ->  (SubMnd `  M )  e.  (ACS
`  B ) )
132, 12syl 17 . . . . . . . . 9  |-  ( ph  ->  (SubMnd `  M )  e.  (ACS `  B )
)
1413acsmred 15268 . . . . . . . 8  |-  ( ph  ->  (SubMnd `  M )  e.  (Moore `  B )
)
15 mrcmndind.g . . . . . . . . 9  |-  ( ph  ->  G  C_  B )
16 eleq1 2474 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  (
y  e.  B  <->  a  e.  B ) )
1716anbi2d 702 . . . . . . . . . . . 12  |-  ( y  =  a  ->  (
( ( ph  /\  b  e.  G )  /\  y  e.  B
)  <->  ( ( ph  /\  b  e.  G )  /\  a  e.  B
) ) )
18 vex 3061 . . . . . . . . . . . . . . 15  |-  y  e. 
_V
19 mrcmndind.ch . . . . . . . . . . . . . . 15  |-  ( x  =  y  ->  ( ps 
<->  ch ) )
2018, 19sbcie 3311 . . . . . . . . . . . . . 14  |-  ( [. y  /  x ]. ps  <->  ch )
21 dfsbcq 3278 . . . . . . . . . . . . . 14  |-  ( y  =  a  ->  ( [. y  /  x ]. ps  <->  [. a  /  x ]. ps ) )
2220, 21syl5bbr 259 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  ( ch 
<-> 
[. a  /  x ]. ps ) )
23 oveq1 6284 . . . . . . . . . . . . . 14  |-  ( y  =  a  ->  (
y  .+  b )  =  ( a  .+  b ) )
2423sbceq1d 3281 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  ( [. ( y  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  b )  /  x ]. ps ) )
2522, 24imbi12d 318 . . . . . . . . . . . 12  |-  ( y  =  a  ->  (
( ch  ->  [. (
y  .+  b )  /  x ]. ps )  <->  (
[. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) ) )
2617, 25imbi12d 318 . . . . . . . . . . 11  |-  ( y  =  a  ->  (
( ( ( ph  /\  b  e.  G )  /\  y  e.  B
)  ->  ( ch  ->  [. ( y  .+  b )  /  x ]. ps ) )  <->  ( (
( ph  /\  b  e.  G )  /\  a  e.  B )  ->  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) ) ) )
27 eleq1 2474 . . . . . . . . . . . . . . 15  |-  ( z  =  b  ->  (
z  e.  G  <->  b  e.  G ) )
2827anbi2d 702 . . . . . . . . . . . . . 14  |-  ( z  =  b  ->  (
( ph  /\  z  e.  G )  <->  ( ph  /\  b  e.  G ) ) )
2928anbi1d 703 . . . . . . . . . . . . 13  |-  ( z  =  b  ->  (
( ( ph  /\  z  e.  G )  /\  y  e.  B
)  <->  ( ( ph  /\  b  e.  G )  /\  y  e.  B
) ) )
30 ovex 6305 . . . . . . . . . . . . . . . 16  |-  ( y 
.+  z )  e. 
_V
31 mrcmndind.th . . . . . . . . . . . . . . . 16  |-  ( x  =  ( y  .+  z )  ->  ( ps 
<->  th ) )
3230, 31sbcie 3311 . . . . . . . . . . . . . . 15  |-  ( [. ( y  .+  z
)  /  x ]. ps 
<->  th )
33 oveq2 6285 . . . . . . . . . . . . . . . 16  |-  ( z  =  b  ->  (
y  .+  z )  =  ( y  .+  b ) )
3433sbceq1d 3281 . . . . . . . . . . . . . . 15  |-  ( z  =  b  ->  ( [. ( y  .+  z
)  /  x ]. ps 
<-> 
[. ( y  .+  b )  /  x ]. ps ) )
3532, 34syl5bbr 259 . . . . . . . . . . . . . 14  |-  ( z  =  b  ->  ( th 
<-> 
[. ( y  .+  b )  /  x ]. ps ) )
3635imbi2d 314 . . . . . . . . . . . . 13  |-  ( z  =  b  ->  (
( ch  ->  th )  <->  ( ch  ->  [. ( y 
.+  b )  /  x ]. ps ) ) )
3729, 36imbi12d 318 . . . . . . . . . . . 12  |-  ( z  =  b  ->  (
( ( ( ph  /\  z  e.  G )  /\  y  e.  B
)  ->  ( ch  ->  th ) )  <->  ( (
( ph  /\  b  e.  G )  /\  y  e.  B )  ->  ( ch  ->  [. ( y  .+  b )  /  x ]. ps ) ) ) )
38 mrcmndind.i2 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  y  e.  B  /\  z  e.  G )  /\  ch )  ->  th )
3938ex 432 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  y  e.  B  /\  z  e.  G
)  ->  ( ch  ->  th ) )
40393expa 1197 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  y  e.  B )  /\  z  e.  G )  ->  ( ch  ->  th ) )
4140an32s 805 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  z  e.  G )  /\  y  e.  B )  ->  ( ch  ->  th ) )
4237, 41chvarv 2041 . . . . . . . . . . 11  |-  ( ( ( ph  /\  b  e.  G )  /\  y  e.  B )  ->  ( ch  ->  [. ( y  .+  b )  /  x ]. ps ) )
4326, 42chvarv 2041 . . . . . . . . . 10  |-  ( ( ( ph  /\  b  e.  G )  /\  a  e.  B )  ->  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) )
4443ralrimiva 2817 . . . . . . . . 9  |-  ( (
ph  /\  b  e.  G )  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  b )  /  x ]. ps ) )
4515, 44ssrabdv 3517 . . . . . . . 8  |-  ( ph  ->  G  C_  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
46 mrcmndind.pg . . . . . . . . 9  |-  .+  =  ( +g  `  M )
473, 46, 4mndrid 16264 . . . . . . . . . . . . 13  |-  ( ( M  e.  Mnd  /\  a  e.  B )  ->  ( a  .+  .0.  )  =  a )
482, 47sylan 469 . . . . . . . . . . . 12  |-  ( (
ph  /\  a  e.  B )  ->  (
a  .+  .0.  )  =  a )
4948sbceq1d 3281 . . . . . . . . . . 11  |-  ( (
ph  /\  a  e.  B )  ->  ( [. ( a  .+  .0.  )  /  x ]. ps  <->  [. a  /  x ]. ps ) )
5049biimprd 223 . . . . . . . . . 10  |-  ( (
ph  /\  a  e.  B )  ->  ( [. a  /  x ]. ps  ->  [. ( a 
.+  .0.  )  /  x ]. ps ) )
5150ralrimiva 2817 . . . . . . . . 9  |-  ( ph  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  .0.  )  /  x ]. ps ) )
52 simprrl 766 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
c  e.  B  /\  d  e.  B )  /\  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  c
)  /  x ]. ps )  /\  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  d )  /  x ]. ps ) ) ) )  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  c )  /  x ]. ps ) )
532ad2antrr 724 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  M  e.  Mnd )
54 simpr 459 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  b  e.  B )
55 simplrl 762 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  c  e.  B )
563, 46mndcl 16251 . . . . . . . . . . . . . . . 16  |-  ( ( M  e.  Mnd  /\  b  e.  B  /\  c  e.  B )  ->  ( b  .+  c
)  e.  B )
5753, 54, 55, 56syl3anc 1230 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  (
b  .+  c )  e.  B )
58 simpr 459 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
a  =  ( b 
.+  c ) )
5958sbceq1d 3281 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
( [. a  /  x ]. ps  <->  [. ( b  .+  c )  /  x ]. ps ) )
60 oveq1 6284 . . . . . . . . . . . . . . . . . 18  |-  ( a  =  ( b  .+  c )  ->  (
a  .+  d )  =  ( ( b 
.+  c )  .+  d ) )
61 simplrr 763 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  d  e.  B )
623, 46mndass 16252 . . . . . . . . . . . . . . . . . . 19  |-  ( ( M  e.  Mnd  /\  ( b  e.  B  /\  c  e.  B  /\  d  e.  B
) )  ->  (
( b  .+  c
)  .+  d )  =  ( b  .+  ( c  .+  d
) ) )
6353, 54, 55, 61, 62syl13anc 1232 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  (
( b  .+  c
)  .+  d )  =  ( b  .+  ( c  .+  d
) ) )
6460, 63sylan9eqr 2465 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
( a  .+  d
)  =  ( b 
.+  ( c  .+  d ) ) )
6564sbceq1d 3281 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
( [. ( a  .+  d )  /  x ]. ps  <->  [. ( b  .+  ( c  .+  d
) )  /  x ]. ps ) )
6659, 65imbi12d 318 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
( ( [. a  /  x ]. ps  ->  [. ( a  .+  d
)  /  x ]. ps )  <->  ( [. (
b  .+  c )  /  x ]. ps  ->  [. ( b  .+  (
c  .+  d )
)  /  x ]. ps ) ) )
6757, 66rspcdv 3162 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  d )  /  x ]. ps )  -> 
( [. ( b  .+  c )  /  x ]. ps  ->  [. ( b 
.+  ( c  .+  d ) )  /  x ]. ps ) ) )
6867ralrimdva 2821 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( c  e.  B  /\  d  e.  B ) )  -> 
( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  d
)  /  x ]. ps )  ->  A. b  e.  B  ( [. ( b  .+  c
)  /  x ]. ps  ->  [. ( b  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
6968impr 617 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
c  e.  B  /\  d  e.  B )  /\  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  d )  /  x ]. ps ) ) )  ->  A. b  e.  B  ( [. ( b  .+  c
)  /  x ]. ps  ->  [. ( b  .+  ( c  .+  d
) )  /  x ]. ps ) )
70 oveq1 6284 . . . . . . . . . . . . . . 15  |-  ( b  =  a  ->  (
b  .+  c )  =  ( a  .+  c ) )
7170sbceq1d 3281 . . . . . . . . . . . . . 14  |-  ( b  =  a  ->  ( [. ( b  .+  c
)  /  x ]. ps 
<-> 
[. ( a  .+  c )  /  x ]. ps ) )
72 oveq1 6284 . . . . . . . . . . . . . . 15  |-  ( b  =  a  ->  (
b  .+  ( c  .+  d ) )  =  ( a  .+  (
c  .+  d )
) )
7372sbceq1d 3281 . . . . . . . . . . . . . 14  |-  ( b  =  a  ->  ( [. ( b  .+  (
c  .+  d )
)  /  x ]. ps 
<-> 
[. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
7471, 73imbi12d 318 . . . . . . . . . . . . 13  |-  ( b  =  a  ->  (
( [. ( b  .+  c )  /  x ]. ps  ->  [. ( b 
.+  ( c  .+  d ) )  /  x ]. ps )  <->  ( [. ( a  .+  c
)  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
7574cbvralv 3033 . . . . . . . . . . . 12  |-  ( A. b  e.  B  ( [. ( b  .+  c
)  /  x ]. ps  ->  [. ( b  .+  ( c  .+  d
) )  /  x ]. ps )  <->  A. a  e.  B  ( [. ( a  .+  c
)  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
7669, 75sylib 196 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
c  e.  B  /\  d  e.  B )  /\  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  d )  /  x ]. ps ) ) )  ->  A. a  e.  B  ( [. ( a  .+  c
)  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
7776adantrrl 722 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
c  e.  B  /\  d  e.  B )  /\  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  c
)  /  x ]. ps )  /\  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  d )  /  x ]. ps ) ) ) )  ->  A. a  e.  B  ( [. ( a  .+  c
)  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
78 imim1 76 . . . . . . . . . . 11  |-  ( (
[. a  /  x ]. ps  ->  [. ( a 
.+  c )  /  x ]. ps )  -> 
( ( [. (
a  .+  c )  /  x ]. ps  ->  [. ( a  .+  (
c  .+  d )
)  /  x ]. ps )  ->  ( [. a  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
7978ral2imi 2791 . . . . . . . . . 10  |-  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  c )  /  x ]. ps )  -> 
( A. a  e.  B  ( [. (
a  .+  c )  /  x ]. ps  ->  [. ( a  .+  (
c  .+  d )
)  /  x ]. ps )  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
8052, 77, 79sylc 59 . . . . . . . . 9  |-  ( (
ph  /\  ( (
c  e.  B  /\  d  e.  B )  /\  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  c
)  /  x ]. ps )  /\  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  d )  /  x ]. ps ) ) ) )  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
81 oveq2 6285 . . . . . . . . . . . 12  |-  ( b  =  .0.  ->  (
a  .+  b )  =  ( a  .+  .0.  ) )
8281sbceq1d 3281 . . . . . . . . . . 11  |-  ( b  =  .0.  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  .0.  )  /  x ]. ps ) )
8382imbi2d 314 . . . . . . . . . 10  |-  ( b  =  .0.  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  .0.  )  /  x ]. ps ) ) )
8483ralbidv 2842 . . . . . . . . 9  |-  ( b  =  .0.  ->  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  .0.  )  /  x ]. ps ) ) )
85 oveq2 6285 . . . . . . . . . . . 12  |-  ( b  =  c  ->  (
a  .+  b )  =  ( a  .+  c ) )
8685sbceq1d 3281 . . . . . . . . . . 11  |-  ( b  =  c  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  c )  /  x ]. ps ) )
8786imbi2d 314 . . . . . . . . . 10  |-  ( b  =  c  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  c )  /  x ]. ps ) ) )
8887ralbidv 2842 . . . . . . . . 9  |-  ( b  =  c  ->  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  c )  /  x ]. ps ) ) )
89 oveq2 6285 . . . . . . . . . . . 12  |-  ( b  =  d  ->  (
a  .+  b )  =  ( a  .+  d ) )
9089sbceq1d 3281 . . . . . . . . . . 11  |-  ( b  =  d  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  d )  /  x ]. ps ) )
9190imbi2d 314 . . . . . . . . . 10  |-  ( b  =  d  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  d )  /  x ]. ps ) ) )
9291ralbidv 2842 . . . . . . . . 9  |-  ( b  =  d  ->  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  d )  /  x ]. ps ) ) )
93 oveq2 6285 . . . . . . . . . . . 12  |-  ( b  =  ( c  .+  d )  ->  (
a  .+  b )  =  ( a  .+  ( c  .+  d
) ) )
9493sbceq1d 3281 . . . . . . . . . . 11  |-  ( b  =  ( c  .+  d )  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
9594imbi2d 314 . . . . . . . . . 10  |-  ( b  =  ( c  .+  d )  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
9695ralbidv 2842 . . . . . . . . 9  |-  ( b  =  ( c  .+  d )  ->  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
973, 46, 4, 2, 51, 80, 84, 88, 92, 96issubmd 16302 . . . . . . . 8  |-  ( ph  ->  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) }  e.  (SubMnd `  M
) )
98 eqid 2402 . . . . . . . . 9  |-  (mrCls `  (SubMnd `  M ) )  =  (mrCls `  (SubMnd `  M ) )
9998mrcsscl 15232 . . . . . . . 8  |-  ( ( (SubMnd `  M )  e.  (Moore `  B )  /\  G  C_  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) }  /\  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  b )  /  x ]. ps ) }  e.  (SubMnd `  M ) )  ->  ( (mrCls `  (SubMnd `  M ) ) `
 G )  C_  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
10014, 45, 97, 99syl3anc 1230 . . . . . . 7  |-  ( ph  ->  ( (mrCls `  (SubMnd `  M ) ) `  G )  C_  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
10111, 100eqsstrd 3475 . . . . . 6  |-  ( ph  ->  B  C_  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
102 mrcmndind.a . . . . . 6  |-  ( ph  ->  A  e.  B )
103101, 102sseldd 3442 . . . . 5  |-  ( ph  ->  A  e.  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
104 oveq2 6285 . . . . . . . . . 10  |-  ( b  =  A  ->  (
a  .+  b )  =  ( a  .+  A ) )
105104sbceq1d 3281 . . . . . . . . 9  |-  ( b  =  A  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  A )  /  x ]. ps ) )
106105imbi2d 314 . . . . . . . 8  |-  ( b  =  A  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  A )  /  x ]. ps ) ) )
107106ralbidv 2842 . . . . . . 7  |-  ( b  =  A  ->  ( A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  A )  /  x ]. ps ) ) )
108107elrab 3206 . . . . . 6  |-  ( A  e.  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  b )  /  x ]. ps ) }  <->  ( A  e.  B  /\  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  A )  /  x ]. ps ) ) )
109108simprbi 462 . . . . 5  |-  ( A  e.  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  b )  /  x ]. ps ) }  ->  A. a  e.  B  (
[. a  /  x ]. ps  ->  [. ( a 
.+  A )  /  x ]. ps ) )
110103, 109syl 17 . . . 4  |-  ( ph  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  A )  /  x ]. ps ) )
111 dfsbcq 3278 . . . . . 6  |-  ( a  =  .0.  ->  ( [. a  /  x ]. ps  <->  [.  .0.  /  x ]. ps ) )
112 oveq1 6284 . . . . . . 7  |-  ( a  =  .0.  ->  (
a  .+  A )  =  (  .0.  .+  A
) )
113112sbceq1d 3281 . . . . . 6  |-  ( a  =  .0.  ->  ( [. ( a  .+  A
)  /  x ]. ps 
<-> 
[. (  .0.  .+  A )  /  x ]. ps ) )
114111, 113imbi12d 318 . . . . 5  |-  ( a  =  .0.  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  A )  /  x ]. ps )  <->  ( [.  .0.  /  x ]. ps  ->  [. (  .0.  .+  A )  /  x ]. ps ) ) )
115114rspcva 3157 . . . 4  |-  ( (  .0.  e.  B  /\  A. a  e.  B  (
[. a  /  x ]. ps  ->  [. ( a 
.+  A )  /  x ]. ps ) )  ->  ( [.  .0.  /  x ]. ps  ->  [. (  .0.  .+  A
)  /  x ]. ps ) )
1166, 110, 115syl2anc 659 . . 3  |-  ( ph  ->  ( [.  .0.  /  x ]. ps  ->  [. (  .0.  .+  A )  /  x ]. ps ) )
11710, 116mpd 15 . 2  |-  ( ph  ->  [. (  .0.  .+  A )  /  x ]. ps )
1183, 46, 4mndlid 16263 . . . . 5  |-  ( ( M  e.  Mnd  /\  A  e.  B )  ->  (  .0.  .+  A
)  =  A )
1192, 102, 118syl2anc 659 . . . 4  |-  ( ph  ->  (  .0.  .+  A
)  =  A )
120119sbceq1d 3281 . . 3  |-  ( ph  ->  ( [. (  .0.  .+  A )  /  x ]. ps  <->  [. A  /  x ]. ps ) )
121 mrcmndind.et . . . . 5  |-  ( x  =  A  ->  ( ps 
<->  et ) )
122121sbcieg 3309 . . . 4  |-  ( A  e.  B  ->  ( [. A  /  x ]. ps  <->  et ) )
123102, 122syl 17 . . 3  |-  ( ph  ->  ( [. A  /  x ]. ps  <->  et )
)
124120, 123bitrd 253 . 2  |-  ( ph  ->  ( [. (  .0.  .+  A )  /  x ]. ps  <->  et ) )
125117, 124mpbid 210 1  |-  ( ph  ->  et )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 367    /\ w3a 974    = wceq 1405    e. wcel 1842   A.wral 2753   {crab 2757   [.wsbc 3276    C_ wss 3413   ` cfv 5568  (class class class)co 6277   Basecbs 14839   +g cplusg 14907   0gc0g 15052  Moorecmre 15194  mrClscmrc 15195  ACScacs 15197   Mndcmnd 16241  SubMndcsubmnd 16287
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1639  ax-4 1652  ax-5 1725  ax-6 1771  ax-7 1814  ax-8 1844  ax-9 1846  ax-10 1861  ax-11 1866  ax-12 1878  ax-13 2026  ax-ext 2380  ax-sep 4516  ax-nul 4524  ax-pow 4571  ax-pr 4629  ax-un 6573
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 975  df-3an 976  df-tru 1408  df-ex 1634  df-nf 1638  df-sb 1764  df-eu 2242  df-mo 2243  df-clab 2388  df-cleq 2394  df-clel 2397  df-nfc 2552  df-ne 2600  df-ral 2758  df-rex 2759  df-reu 2760  df-rmo 2761  df-rab 2762  df-v 3060  df-sbc 3277  df-csb 3373  df-dif 3416  df-un 3418  df-in 3420  df-ss 3427  df-pss 3429  df-nul 3738  df-if 3885  df-pw 3956  df-sn 3972  df-pr 3974  df-tp 3976  df-op 3978  df-uni 4191  df-int 4227  df-iun 4272  df-iin 4273  df-br 4395  df-opab 4453  df-mpt 4454  df-tr 4489  df-eprel 4733  df-id 4737  df-po 4743  df-so 4744  df-fr 4781  df-we 4783  df-xp 4828  df-rel 4829  df-cnv 4830  df-co 4831  df-dm 4832  df-rn 4833  df-res 4834  df-ima 4835  df-pred 5366  df-ord 5412  df-on 5413  df-lim 5414  df-suc 5415  df-iota 5532  df-fun 5570  df-fn 5571  df-f 5572  df-f1 5573  df-fo 5574  df-f1o 5575  df-fv 5576  df-riota 6239  df-ov 6280  df-oprab 6281  df-mpt2 6282  df-om 6683  df-wrecs 7012  df-recs 7074  df-rdg 7112  df-1o 7166  df-oadd 7170  df-er 7347  df-en 7554  df-fin 7557  df-0g 15054  df-mre 15198  df-mrc 15199  df-acs 15201  df-mgm 16194  df-sgrp 16233  df-mnd 16243  df-submnd 16289
This theorem is referenced by:  mdetunilem7  19410
  Copyright terms: Public domain W3C validator