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

Theorem mrcmndind 15800
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 15745 . . . . . 6  |-  ( M  e.  Mnd  ->  .0.  e.  B )
62, 5syl 16 . . . . 5  |-  ( ph  ->  .0.  e.  B )
7 mrcmndind.ta . . . . . 6  |-  ( x  =  .0.  ->  ( ps 
<->  ta ) )
87sbcieg 3357 . . . . 5  |-  (  .0. 
e.  B  ->  ( [.  .0.  /  x ]. ps 
<->  ta ) )
96, 8syl 16 . . . 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 15799 . . . . . . . . . 10  |-  ( M  e.  Mnd  ->  (SubMnd `  M )  e.  (ACS
`  B ) )
132, 12syl 16 . . . . . . . . 9  |-  ( ph  ->  (SubMnd `  M )  e.  (ACS `  B )
)
1413acsmred 14900 . . . . . . . 8  |-  ( ph  ->  (SubMnd `  M )  e.  (Moore `  B )
)
15 mrcmndind.g . . . . . . . . 9  |-  ( ph  ->  G  C_  B )
16 eleq1 2532 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  (
y  e.  B  <->  a  e.  B ) )
1716anbi2d 703 . . . . . . . . . . . 12  |-  ( y  =  a  ->  (
( ( ph  /\  b  e.  G )  /\  y  e.  B
)  <->  ( ( ph  /\  b  e.  G )  /\  a  e.  B
) ) )
18 vex 3109 . . . . . . . . . . . . . . 15  |-  y  e. 
_V
19 mrcmndind.ch . . . . . . . . . . . . . . 15  |-  ( x  =  y  ->  ( ps 
<->  ch ) )
2018, 19sbcie 3359 . . . . . . . . . . . . . 14  |-  ( [. y  /  x ]. ps  <->  ch )
21 dfsbcq 3326 . . . . . . . . . . . . . 14  |-  ( y  =  a  ->  ( [. y  /  x ]. ps  <->  [. a  /  x ]. ps ) )
2220, 21syl5bbr 259 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  ( ch 
<-> 
[. a  /  x ]. ps ) )
23 oveq1 6282 . . . . . . . . . . . . . 14  |-  ( y  =  a  ->  (
y  .+  b )  =  ( a  .+  b ) )
2423sbceq1d 3329 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  ( [. ( y  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  b )  /  x ]. ps ) )
2522, 24imbi12d 320 . . . . . . . . . . . 12  |-  ( y  =  a  ->  (
( ch  ->  [. (
y  .+  b )  /  x ]. ps )  <->  (
[. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) ) )
2617, 25imbi12d 320 . . . . . . . . . . 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 2532 . . . . . . . . . . . . . . 15  |-  ( z  =  b  ->  (
z  e.  G  <->  b  e.  G ) )
2827anbi2d 703 . . . . . . . . . . . . . 14  |-  ( z  =  b  ->  (
( ph  /\  z  e.  G )  <->  ( ph  /\  b  e.  G ) ) )
2928anbi1d 704 . . . . . . . . . . . . 13  |-  ( z  =  b  ->  (
( ( ph  /\  z  e.  G )  /\  y  e.  B
)  <->  ( ( ph  /\  b  e.  G )  /\  y  e.  B
) ) )
30 ovex 6300 . . . . . . . . . . . . . . . 16  |-  ( y 
.+  z )  e. 
_V
31 mrcmndind.th . . . . . . . . . . . . . . . 16  |-  ( x  =  ( y  .+  z )  ->  ( ps 
<->  th ) )
3230, 31sbcie 3359 . . . . . . . . . . . . . . 15  |-  ( [. ( y  .+  z
)  /  x ]. ps 
<->  th )
33 oveq2 6283 . . . . . . . . . . . . . . . 16  |-  ( z  =  b  ->  (
y  .+  z )  =  ( y  .+  b ) )
3433sbceq1d 3329 . . . . . . . . . . . . . . 15  |-  ( z  =  b  ->  ( [. ( y  .+  z
)  /  x ]. ps 
<-> 
[. ( y  .+  b )  /  x ]. ps ) )
3532, 34syl5bbr 259 . . . . . . . . . . . . . 14  |-  ( z  =  b  ->  ( th 
<-> 
[. ( y  .+  b )  /  x ]. ps ) )
3635imbi2d 316 . . . . . . . . . . . . 13  |-  ( z  =  b  ->  (
( ch  ->  th )  <->  ( ch  ->  [. ( y 
.+  b )  /  x ]. ps ) ) )
3729, 36imbi12d 320 . . . . . . . . . . . 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 434 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  y  e.  B  /\  z  e.  G
)  ->  ( ch  ->  th ) )
40393expa 1191 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  y  e.  B )  /\  z  e.  G )  ->  ( ch  ->  th ) )
4140an32s 802 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  z  e.  G )  /\  y  e.  B )  ->  ( ch  ->  th ) )
4237, 41chvarv 1976 . . . . . . . . . . 11  |-  ( ( ( ph  /\  b  e.  G )  /\  y  e.  B )  ->  ( ch  ->  [. ( y  .+  b )  /  x ]. ps ) )
4326, 42chvarv 1976 . . . . . . . . . 10  |-  ( ( ( ph  /\  b  e.  G )  /\  a  e.  B )  ->  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) )
4443ralrimiva 2871 . . . . . . . . 9  |-  ( (
ph  /\  b  e.  G )  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  b )  /  x ]. ps ) )
4515, 44ssrabdv 3572 . . . . . . . 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 15748 . . . . . . . . . . . . 13  |-  ( ( M  e.  Mnd  /\  a  e.  B )  ->  ( a  .+  .0.  )  =  a )
482, 47sylan 471 . . . . . . . . . . . 12  |-  ( (
ph  /\  a  e.  B )  ->  (
a  .+  .0.  )  =  a )
4948sbceq1d 3329 . . . . . . . . . . 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 2871 . . . . . . . . 9  |-  ( ph  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  .0.  )  /  x ]. ps ) )
52 simprrl 763 . . . . . . . . . 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 725 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  M  e.  Mnd )
54 simpr 461 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  b  e.  B )
55 simplrl 759 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  c  e.  B )
563, 46mndcl 15726 . . . . . . . . . . . . . . . 16  |-  ( ( M  e.  Mnd  /\  b  e.  B  /\  c  e.  B )  ->  ( b  .+  c
)  e.  B )
5753, 54, 55, 56syl3anc 1223 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  (
b  .+  c )  e.  B )
58 simpr 461 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
a  =  ( b 
.+  c ) )
5958sbceq1d 3329 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
( [. a  /  x ]. ps  <->  [. ( b  .+  c )  /  x ]. ps ) )
60 oveq1 6282 . . . . . . . . . . . . . . . . . 18  |-  ( a  =  ( b  .+  c )  ->  (
a  .+  d )  =  ( ( b 
.+  c )  .+  d ) )
61 simplrr 760 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  d  e.  B )
623, 46mndass 15727 . . . . . . . . . . . . . . . . . . 19  |-  ( ( M  e.  Mnd  /\  ( b  e.  B  /\  c  e.  B  /\  d  e.  B
) )  ->  (
( b  .+  c
)  .+  d )  =  ( b  .+  ( c  .+  d
) ) )
6353, 54, 55, 61, 62syl13anc 1225 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  (
( b  .+  c
)  .+  d )  =  ( b  .+  ( c  .+  d
) ) )
6460, 63sylan9eqr 2523 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
( a  .+  d
)  =  ( b 
.+  ( c  .+  d ) ) )
6564sbceq1d 3329 . . . . . . . . . . . . . . . 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 320 . . . . . . . . . . . . . . 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 3210 . . . . . . . . . . . . . 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 2875 . . . . . . . . . . . . 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 619 . . . . . . . . . . . 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 6282 . . . . . . . . . . . . . . 15  |-  ( b  =  a  ->  (
b  .+  c )  =  ( a  .+  c ) )
7170sbceq1d 3329 . . . . . . . . . . . . . 14  |-  ( b  =  a  ->  ( [. ( b  .+  c
)  /  x ]. ps 
<-> 
[. ( a  .+  c )  /  x ]. ps ) )
72 oveq1 6282 . . . . . . . . . . . . . . 15  |-  ( b  =  a  ->  (
b  .+  ( c  .+  d ) )  =  ( a  .+  (
c  .+  d )
) )
7372sbceq1d 3329 . . . . . . . . . . . . . 14  |-  ( b  =  a  ->  ( [. ( b  .+  (
c  .+  d )
)  /  x ]. ps 
<-> 
[. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
7471, 73imbi12d 320 . . . . . . . . . . . . 13  |-  ( b  =  a  ->  (
( [. ( b  .+  c )  /  x ]. ps  ->  [. ( b 
.+  ( c  .+  d ) )  /  x ]. ps )  <->  ( [. ( a  .+  c
)  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
7574cbvralv 3081 . . . . . . . . . . . 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 723 . . . . . . . . . 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 2845 . . . . . . . . . 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 60 . . . . . . . . 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 6283 . . . . . . . . . . . 12  |-  ( b  =  .0.  ->  (
a  .+  b )  =  ( a  .+  .0.  ) )
8281sbceq1d 3329 . . . . . . . . . . 11  |-  ( b  =  .0.  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  .0.  )  /  x ]. ps ) )
8382imbi2d 316 . . . . . . . . . 10  |-  ( b  =  .0.  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  .0.  )  /  x ]. ps ) ) )
8483ralbidv 2896 . . . . . . . . 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 6283 . . . . . . . . . . . 12  |-  ( b  =  c  ->  (
a  .+  b )  =  ( a  .+  c ) )
8685sbceq1d 3329 . . . . . . . . . . 11  |-  ( b  =  c  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  c )  /  x ]. ps ) )
8786imbi2d 316 . . . . . . . . . 10  |-  ( b  =  c  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  c )  /  x ]. ps ) ) )
8887ralbidv 2896 . . . . . . . . 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 6283 . . . . . . . . . . . 12  |-  ( b  =  d  ->  (
a  .+  b )  =  ( a  .+  d ) )
9089sbceq1d 3329 . . . . . . . . . . 11  |-  ( b  =  d  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  d )  /  x ]. ps ) )
9190imbi2d 316 . . . . . . . . . 10  |-  ( b  =  d  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  d )  /  x ]. ps ) ) )
9291ralbidv 2896 . . . . . . . . 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 6283 . . . . . . . . . . . 12  |-  ( b  =  ( c  .+  d )  ->  (
a  .+  b )  =  ( a  .+  ( c  .+  d
) ) )
9493sbceq1d 3329 . . . . . . . . . . 11  |-  ( b  =  ( c  .+  d )  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
9594imbi2d 316 . . . . . . . . . 10  |-  ( b  =  ( c  .+  d )  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
9695ralbidv 2896 . . . . . . . . 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 15783 . . . . . . . 8  |-  ( ph  ->  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) }  e.  (SubMnd `  M
) )
98 eqid 2460 . . . . . . . . 9  |-  (mrCls `  (SubMnd `  M ) )  =  (mrCls `  (SubMnd `  M ) )
9998mrcsscl 14864 . . . . . . . 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 1223 . . . . . . 7  |-  ( ph  ->  ( (mrCls `  (SubMnd `  M ) ) `  G )  C_  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
10111, 100eqsstrd 3531 . . . . . 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 3498 . . . . 5  |-  ( ph  ->  A  e.  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
104 oveq2 6283 . . . . . . . . . 10  |-  ( b  =  A  ->  (
a  .+  b )  =  ( a  .+  A ) )
105104sbceq1d 3329 . . . . . . . . 9  |-  ( b  =  A  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  A )  /  x ]. ps ) )
106105imbi2d 316 . . . . . . . 8  |-  ( b  =  A  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  A )  /  x ]. ps ) ) )
107106ralbidv 2896 . . . . . . 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 3254 . . . . . 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 464 . . . . 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 16 . . . 4  |-  ( ph  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  A )  /  x ]. ps ) )
111 dfsbcq 3326 . . . . . 6  |-  ( a  =  .0.  ->  ( [. a  /  x ]. ps  <->  [.  .0.  /  x ]. ps ) )
112 oveq1 6282 . . . . . . 7  |-  ( a  =  .0.  ->  (
a  .+  A )  =  (  .0.  .+  A
) )
113112sbceq1d 3329 . . . . . 6  |-  ( a  =  .0.  ->  ( [. ( a  .+  A
)  /  x ]. ps 
<-> 
[. (  .0.  .+  A )  /  x ]. ps ) )
114111, 113imbi12d 320 . . . . 5  |-  ( a  =  .0.  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  A )  /  x ]. ps )  <->  ( [.  .0.  /  x ]. ps  ->  [. (  .0.  .+  A )  /  x ]. ps ) ) )
115114rspcva 3205 . . . 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 661 . . 3  |-  ( ph  ->  ( [.  .0.  /  x ]. ps  ->  [. (  .0.  .+  A )  /  x ]. ps ) )
11710, 116mpd 15 . 2  |-  ( ph  ->  [. (  .0.  .+  A )  /  x ]. ps )
1183, 46, 4mndlid 15747 . . . . 5  |-  ( ( M  e.  Mnd  /\  A  e.  B )  ->  (  .0.  .+  A
)  =  A )
1192, 102, 118syl2anc 661 . . . 4  |-  ( ph  ->  (  .0.  .+  A
)  =  A )
120119sbceq1d 3329 . . 3  |-  ( ph  ->  ( [. (  .0.  .+  A )  /  x ]. ps  <->  [. A  /  x ]. ps ) )
121 mrcmndind.et . . . . 5  |-  ( x  =  A  ->  ( ps 
<->  et ) )
122121sbcieg 3357 . . . 4  |-  ( A  e.  B  ->  ( [. A  /  x ]. ps  <->  et ) )
123102, 122syl 16 . . 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 369    /\ w3a 968    = wceq 1374    e. wcel 1762   A.wral 2807   {crab 2811   [.wsbc 3324    C_ wss 3469   ` cfv 5579  (class class class)co 6275   Basecbs 14479   +g cplusg 14544   0gc0g 14684  Moorecmre 14826  mrClscmrc 14827  ACScacs 14829   Mndcmnd 15715  SubMndcsubmnd 15769
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1714  ax-7 1734  ax-8 1764  ax-9 1766  ax-10 1781  ax-11 1786  ax-12 1798  ax-13 1961  ax-ext 2438  ax-sep 4561  ax-nul 4569  ax-pow 4618  ax-pr 4679  ax-un 6567
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 969  df-3an 970  df-tru 1377  df-ex 1592  df-nf 1595  df-sb 1707  df-eu 2272  df-mo 2273  df-clab 2446  df-cleq 2452  df-clel 2455  df-nfc 2610  df-ne 2657  df-ral 2812  df-rex 2813  df-reu 2814  df-rmo 2815  df-rab 2816  df-v 3108  df-sbc 3325  df-csb 3429  df-dif 3472  df-un 3474  df-in 3476  df-ss 3483  df-pss 3485  df-nul 3779  df-if 3933  df-pw 4005  df-sn 4021  df-pr 4023  df-tp 4025  df-op 4027  df-uni 4239  df-int 4276  df-iun 4320  df-iin 4321  df-br 4441  df-opab 4499  df-mpt 4500  df-tr 4534  df-eprel 4784  df-id 4788  df-po 4793  df-so 4794  df-fr 4831  df-we 4833  df-ord 4874  df-on 4875  df-lim 4876  df-suc 4877  df-xp 4998  df-rel 4999  df-cnv 5000  df-co 5001  df-dm 5002  df-rn 5003  df-res 5004  df-ima 5005  df-iota 5542  df-fun 5581  df-fn 5582  df-f 5583  df-f1 5584  df-fo 5585  df-f1o 5586  df-fv 5587  df-riota 6236  df-ov 6278  df-oprab 6279  df-mpt2 6280  df-om 6672  df-recs 7032  df-rdg 7066  df-1o 7120  df-oadd 7124  df-er 7301  df-en 7507  df-fin 7510  df-0g 14686  df-mre 14830  df-mrc 14831  df-acs 14833  df-mnd 15721  df-submnd 15771
This theorem is referenced by:  mdetunilem7  18880
  Copyright terms: Public domain W3C validator