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

Theorem mrcmndind 16606
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 16547 . . . . . 6  |-  ( M  e.  Mnd  ->  .0.  e.  B )
62, 5syl 17 . . . . 5  |-  ( ph  ->  .0.  e.  B )
7 mrcmndind.ta . . . . . 6  |-  ( x  =  .0.  ->  ( ps 
<->  ta ) )
87sbcieg 3333 . . . . 5  |-  (  .0. 
e.  B  ->  ( [.  .0.  /  x ]. ps 
<->  ta ) )
96, 8syl 17 . . . 4  |-  ( ph  ->  ( [.  .0.  /  x ]. ps  <->  ta )
)
101, 9mpbird 236 . . 3  |-  ( ph  ->  [.  .0.  /  x ]. ps )
11 mrcmndind.k . . . . . . 7  |-  ( ph  ->  B  =  ( (mrCls `  (SubMnd `  M )
) `  G )
)
123submacs 16605 . . . . . . . . . 10  |-  ( M  e.  Mnd  ->  (SubMnd `  M )  e.  (ACS
`  B ) )
132, 12syl 17 . . . . . . . . 9  |-  ( ph  ->  (SubMnd `  M )  e.  (ACS `  B )
)
1413acsmred 15555 . . . . . . . 8  |-  ( ph  ->  (SubMnd `  M )  e.  (Moore `  B )
)
15 mrcmndind.g . . . . . . . . 9  |-  ( ph  ->  G  C_  B )
16 eleq1 2495 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  (
y  e.  B  <->  a  e.  B ) )
1716anbi2d 709 . . . . . . . . . . . 12  |-  ( y  =  a  ->  (
( ( ph  /\  b  e.  G )  /\  y  e.  B
)  <->  ( ( ph  /\  b  e.  G )  /\  a  e.  B
) ) )
18 vex 3085 . . . . . . . . . . . . . . 15  |-  y  e. 
_V
19 mrcmndind.ch . . . . . . . . . . . . . . 15  |-  ( x  =  y  ->  ( ps 
<->  ch ) )
2018, 19sbcie 3335 . . . . . . . . . . . . . 14  |-  ( [. y  /  x ]. ps  <->  ch )
21 dfsbcq 3302 . . . . . . . . . . . . . 14  |-  ( y  =  a  ->  ( [. y  /  x ]. ps  <->  [. a  /  x ]. ps ) )
2220, 21syl5bbr 263 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  ( ch 
<-> 
[. a  /  x ]. ps ) )
23 oveq1 6310 . . . . . . . . . . . . . 14  |-  ( y  =  a  ->  (
y  .+  b )  =  ( a  .+  b ) )
2423sbceq1d 3305 . . . . . . . . . . . . 13  |-  ( y  =  a  ->  ( [. ( y  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  b )  /  x ]. ps ) )
2522, 24imbi12d 322 . . . . . . . . . . . 12  |-  ( y  =  a  ->  (
( ch  ->  [. (
y  .+  b )  /  x ]. ps )  <->  (
[. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) ) )
2617, 25imbi12d 322 . . . . . . . . . . 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 2495 . . . . . . . . . . . . . . 15  |-  ( z  =  b  ->  (
z  e.  G  <->  b  e.  G ) )
2827anbi2d 709 . . . . . . . . . . . . . 14  |-  ( z  =  b  ->  (
( ph  /\  z  e.  G )  <->  ( ph  /\  b  e.  G ) ) )
2928anbi1d 710 . . . . . . . . . . . . 13  |-  ( z  =  b  ->  (
( ( ph  /\  z  e.  G )  /\  y  e.  B
)  <->  ( ( ph  /\  b  e.  G )  /\  y  e.  B
) ) )
30 ovex 6331 . . . . . . . . . . . . . . . 16  |-  ( y 
.+  z )  e. 
_V
31 mrcmndind.th . . . . . . . . . . . . . . . 16  |-  ( x  =  ( y  .+  z )  ->  ( ps 
<->  th ) )
3230, 31sbcie 3335 . . . . . . . . . . . . . . 15  |-  ( [. ( y  .+  z
)  /  x ]. ps 
<->  th )
33 oveq2 6311 . . . . . . . . . . . . . . . 16  |-  ( z  =  b  ->  (
y  .+  z )  =  ( y  .+  b ) )
3433sbceq1d 3305 . . . . . . . . . . . . . . 15  |-  ( z  =  b  ->  ( [. ( y  .+  z
)  /  x ]. ps 
<-> 
[. ( y  .+  b )  /  x ]. ps ) )
3532, 34syl5bbr 263 . . . . . . . . . . . . . 14  |-  ( z  =  b  ->  ( th 
<-> 
[. ( y  .+  b )  /  x ]. ps ) )
3635imbi2d 318 . . . . . . . . . . . . 13  |-  ( z  =  b  ->  (
( ch  ->  th )  <->  ( ch  ->  [. ( y 
.+  b )  /  x ]. ps ) ) )
3729, 36imbi12d 322 . . . . . . . . . . . 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 436 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  y  e.  B  /\  z  e.  G
)  ->  ( ch  ->  th ) )
40393expa 1206 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  y  e.  B )  /\  z  e.  G )  ->  ( ch  ->  th ) )
4140an32s 812 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  z  e.  G )  /\  y  e.  B )  ->  ( ch  ->  th ) )
4237, 41chvarv 2069 . . . . . . . . . . 11  |-  ( ( ( ph  /\  b  e.  G )  /\  y  e.  B )  ->  ( ch  ->  [. ( y  .+  b )  /  x ]. ps ) )
4326, 42chvarv 2069 . . . . . . . . . 10  |-  ( ( ( ph  /\  b  e.  G )  /\  a  e.  B )  ->  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) )
4443ralrimiva 2840 . . . . . . . . 9  |-  ( (
ph  /\  b  e.  G )  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a  .+  b )  /  x ]. ps ) )
4515, 44ssrabdv 3541 . . . . . . . 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 16551 . . . . . . . . . . . . 13  |-  ( ( M  e.  Mnd  /\  a  e.  B )  ->  ( a  .+  .0.  )  =  a )
482, 47sylan 474 . . . . . . . . . . . 12  |-  ( (
ph  /\  a  e.  B )  ->  (
a  .+  .0.  )  =  a )
4948sbceq1d 3305 . . . . . . . . . . 11  |-  ( (
ph  /\  a  e.  B )  ->  ( [. ( a  .+  .0.  )  /  x ]. ps  <->  [. a  /  x ]. ps ) )
5049biimprd 227 . . . . . . . . . 10  |-  ( (
ph  /\  a  e.  B )  ->  ( [. a  /  x ]. ps  ->  [. ( a 
.+  .0.  )  /  x ]. ps ) )
5150ralrimiva 2840 . . . . . . . . 9  |-  ( ph  ->  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  .0.  )  /  x ]. ps ) )
52 simprrl 773 . . . . . . . . . 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 731 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  M  e.  Mnd )
54 simpr 463 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  b  e.  B )
55 simplrl 769 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  c  e.  B )
563, 46mndcl 16538 . . . . . . . . . . . . . . . 16  |-  ( ( M  e.  Mnd  /\  b  e.  B  /\  c  e.  B )  ->  ( b  .+  c
)  e.  B )
5753, 54, 55, 56syl3anc 1265 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  (
b  .+  c )  e.  B )
58 simpr 463 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
a  =  ( b 
.+  c ) )
5958sbceq1d 3305 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
( [. a  /  x ]. ps  <->  [. ( b  .+  c )  /  x ]. ps ) )
60 oveq1 6310 . . . . . . . . . . . . . . . . . 18  |-  ( a  =  ( b  .+  c )  ->  (
a  .+  d )  =  ( ( b 
.+  c )  .+  d ) )
61 simplrr 770 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  d  e.  B )
623, 46mndass 16539 . . . . . . . . . . . . . . . . . . 19  |-  ( ( M  e.  Mnd  /\  ( b  e.  B  /\  c  e.  B  /\  d  e.  B
) )  ->  (
( b  .+  c
)  .+  d )  =  ( b  .+  ( c  .+  d
) ) )
6353, 54, 55, 61, 62syl13anc 1267 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  (
c  e.  B  /\  d  e.  B )
)  /\  b  e.  B )  ->  (
( b  .+  c
)  .+  d )  =  ( b  .+  ( c  .+  d
) ) )
6460, 63sylan9eqr 2486 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( c  e.  B  /\  d  e.  B
) )  /\  b  e.  B )  /\  a  =  ( b  .+  c ) )  -> 
( a  .+  d
)  =  ( b 
.+  ( c  .+  d ) ) )
6564sbceq1d 3305 . . . . . . . . . . . . . . . 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 322 . . . . . . . . . . . . . . 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 3186 . . . . . . . . . . . . . 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 2844 . . . . . . . . . . . . 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 624 . . . . . . . . . . . 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 6310 . . . . . . . . . . . . . . 15  |-  ( b  =  a  ->  (
b  .+  c )  =  ( a  .+  c ) )
7170sbceq1d 3305 . . . . . . . . . . . . . 14  |-  ( b  =  a  ->  ( [. ( b  .+  c
)  /  x ]. ps 
<-> 
[. ( a  .+  c )  /  x ]. ps ) )
72 oveq1 6310 . . . . . . . . . . . . . . 15  |-  ( b  =  a  ->  (
b  .+  ( c  .+  d ) )  =  ( a  .+  (
c  .+  d )
) )
7372sbceq1d 3305 . . . . . . . . . . . . . 14  |-  ( b  =  a  ->  ( [. ( b  .+  (
c  .+  d )
)  /  x ]. ps 
<-> 
[. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
7471, 73imbi12d 322 . . . . . . . . . . . . 13  |-  ( b  =  a  ->  (
( [. ( b  .+  c )  /  x ]. ps  ->  [. ( b 
.+  ( c  .+  d ) )  /  x ]. ps )  <->  ( [. ( a  .+  c
)  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
7574cbvralv 3056 . . . . . . . . . . . 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 200 . . . . . . . . . . 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 729 . . . . . . . . . 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 80 . . . . . . . . . . 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 2814 . . . . . . . . . 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 63 . . . . . . . . 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 6311 . . . . . . . . . . . 12  |-  ( b  =  .0.  ->  (
a  .+  b )  =  ( a  .+  .0.  ) )
8281sbceq1d 3305 . . . . . . . . . . 11  |-  ( b  =  .0.  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  .0.  )  /  x ]. ps ) )
8382imbi2d 318 . . . . . . . . . 10  |-  ( b  =  .0.  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  .0.  )  /  x ]. ps ) ) )
8483ralbidv 2865 . . . . . . . . 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 6311 . . . . . . . . . . . 12  |-  ( b  =  c  ->  (
a  .+  b )  =  ( a  .+  c ) )
8685sbceq1d 3305 . . . . . . . . . . 11  |-  ( b  =  c  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  c )  /  x ]. ps ) )
8786imbi2d 318 . . . . . . . . . 10  |-  ( b  =  c  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  c )  /  x ]. ps ) ) )
8887ralbidv 2865 . . . . . . . . 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 6311 . . . . . . . . . . . 12  |-  ( b  =  d  ->  (
a  .+  b )  =  ( a  .+  d ) )
9089sbceq1d 3305 . . . . . . . . . . 11  |-  ( b  =  d  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  d )  /  x ]. ps ) )
9190imbi2d 318 . . . . . . . . . 10  |-  ( b  =  d  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  d )  /  x ]. ps ) ) )
9291ralbidv 2865 . . . . . . . . 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 6311 . . . . . . . . . . . 12  |-  ( b  =  ( c  .+  d )  ->  (
a  .+  b )  =  ( a  .+  ( c  .+  d
) ) )
9493sbceq1d 3305 . . . . . . . . . . 11  |-  ( b  =  ( c  .+  d )  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) )
9594imbi2d 318 . . . . . . . . . 10  |-  ( b  =  ( c  .+  d )  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  ( c  .+  d
) )  /  x ]. ps ) ) )
9695ralbidv 2865 . . . . . . . . 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 16589 . . . . . . . 8  |-  ( ph  ->  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) }  e.  (SubMnd `  M
) )
98 eqid 2423 . . . . . . . . 9  |-  (mrCls `  (SubMnd `  M ) )  =  (mrCls `  (SubMnd `  M ) )
9998mrcsscl 15519 . . . . . . . 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 1265 . . . . . . 7  |-  ( ph  ->  ( (mrCls `  (SubMnd `  M ) ) `  G )  C_  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
10111, 100eqsstrd 3499 . . . . . 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 3466 . . . . 5  |-  ( ph  ->  A  e.  { b  e.  B  |  A. a  e.  B  ( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps ) } )
104 oveq2 6311 . . . . . . . . . 10  |-  ( b  =  A  ->  (
a  .+  b )  =  ( a  .+  A ) )
105104sbceq1d 3305 . . . . . . . . 9  |-  ( b  =  A  ->  ( [. ( a  .+  b
)  /  x ]. ps 
<-> 
[. ( a  .+  A )  /  x ]. ps ) )
106105imbi2d 318 . . . . . . . 8  |-  ( b  =  A  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  b )  /  x ]. ps )  <->  ( [. a  /  x ]. ps  ->  [. ( a  .+  A )  /  x ]. ps ) ) )
107106ralbidv 2865 . . . . . . 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 3230 . . . . . 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 466 . . . . 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 3302 . . . . . 6  |-  ( a  =  .0.  ->  ( [. a  /  x ]. ps  <->  [.  .0.  /  x ]. ps ) )
112 oveq1 6310 . . . . . . 7  |-  ( a  =  .0.  ->  (
a  .+  A )  =  (  .0.  .+  A
) )
113112sbceq1d 3305 . . . . . 6  |-  ( a  =  .0.  ->  ( [. ( a  .+  A
)  /  x ]. ps 
<-> 
[. (  .0.  .+  A )  /  x ]. ps ) )
114111, 113imbi12d 322 . . . . 5  |-  ( a  =  .0.  ->  (
( [. a  /  x ]. ps  ->  [. ( a 
.+  A )  /  x ]. ps )  <->  ( [.  .0.  /  x ]. ps  ->  [. (  .0.  .+  A )  /  x ]. ps ) ) )
115114rspcva 3181 . . . 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 666 . . 3  |-  ( ph  ->  ( [.  .0.  /  x ]. ps  ->  [. (  .0.  .+  A )  /  x ]. ps ) )
11710, 116mpd 15 . 2  |-  ( ph  ->  [. (  .0.  .+  A )  /  x ]. ps )
1183, 46, 4mndlid 16550 . . . . 5  |-  ( ( M  e.  Mnd  /\  A  e.  B )  ->  (  .0.  .+  A
)  =  A )
1192, 102, 118syl2anc 666 . . . 4  |-  ( ph  ->  (  .0.  .+  A
)  =  A )
120119sbceq1d 3305 . . 3  |-  ( ph  ->  ( [. (  .0.  .+  A )  /  x ]. ps  <->  [. A  /  x ]. ps ) )
121 mrcmndind.et . . . . 5  |-  ( x  =  A  ->  ( ps 
<->  et ) )
122121sbcieg 3333 . . . 4  |-  ( A  e.  B  ->  ( [. A  /  x ]. ps  <->  et ) )
123102, 122syl 17 . . 3  |-  ( ph  ->  ( [. A  /  x ]. ps  <->  et )
)
124120, 123bitrd 257 . 2  |-  ( ph  ->  ( [. (  .0.  .+  A )  /  x ]. ps  <->  et ) )
125117, 124mpbid 214 1  |-  ( ph  ->  et )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 188    /\ wa 371    /\ w3a 983    = wceq 1438    e. wcel 1869   A.wral 2776   {crab 2780   [.wsbc 3300    C_ wss 3437   ` cfv 5599  (class class class)co 6303   Basecbs 15114   +g cplusg 15183   0gc0g 15331  Moorecmre 15481  mrClscmrc 15482  ACScacs 15484   Mndcmnd 16528  SubMndcsubmnd 16574
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1666  ax-4 1679  ax-5 1749  ax-6 1795  ax-7 1840  ax-8 1871  ax-9 1873  ax-10 1888  ax-11 1893  ax-12 1906  ax-13 2054  ax-ext 2401  ax-sep 4544  ax-nul 4553  ax-pow 4600  ax-pr 4658  ax-un 6595
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 984  df-3an 985  df-tru 1441  df-ex 1661  df-nf 1665  df-sb 1788  df-eu 2270  df-mo 2271  df-clab 2409  df-cleq 2415  df-clel 2418  df-nfc 2573  df-ne 2621  df-ral 2781  df-rex 2782  df-reu 2783  df-rmo 2784  df-rab 2785  df-v 3084  df-sbc 3301  df-csb 3397  df-dif 3440  df-un 3442  df-in 3444  df-ss 3451  df-pss 3453  df-nul 3763  df-if 3911  df-pw 3982  df-sn 3998  df-pr 4000  df-tp 4002  df-op 4004  df-uni 4218  df-int 4254  df-iun 4299  df-iin 4300  df-br 4422  df-opab 4481  df-mpt 4482  df-tr 4517  df-eprel 4762  df-id 4766  df-po 4772  df-so 4773  df-fr 4810  df-we 4812  df-xp 4857  df-rel 4858  df-cnv 4859  df-co 4860  df-dm 4861  df-rn 4862  df-res 4863  df-ima 4864  df-pred 5397  df-ord 5443  df-on 5444  df-lim 5445  df-suc 5446  df-iota 5563  df-fun 5601  df-fn 5602  df-f 5603  df-f1 5604  df-fo 5605  df-f1o 5606  df-fv 5607  df-riota 6265  df-ov 6306  df-oprab 6307  df-mpt2 6308  df-om 6705  df-wrecs 7034  df-recs 7096  df-rdg 7134  df-1o 7188  df-oadd 7192  df-er 7369  df-en 7576  df-fin 7579  df-0g 15333  df-mre 15485  df-mrc 15486  df-acs 15488  df-mgm 16481  df-sgrp 16520  df-mnd 16530  df-submnd 16576
This theorem is referenced by:  mdetunilem7  19635
  Copyright terms: Public domain W3C validator