Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mzpclval Structured version   Unicode version

Theorem mzpclval 35492
Description: Substitution lemma for mzPolyCld. (Contributed by Stefan O'Rear, 4-Oct-2014.)
Assertion
Ref Expression
mzpclval  |-  ( V  e.  _V  ->  (mzPolyCld `  V )  =  {
p  e.  ~P ( ZZ  ^m  ( ZZ  ^m  V ) )  |  ( ( A. i  e.  ZZ  ( ( ZZ 
^m  V )  X. 
{ i } )  e.  p  /\  A. j  e.  V  (
x  e.  ( ZZ 
^m  V )  |->  ( x `  j ) )  e.  p )  /\  A. f  e.  p  A. g  e.  p  ( ( f  oF  +  g )  e.  p  /\  ( f  oF  x.  g )  e.  p ) ) } )
Distinct variable groups:    V, p, f, g    i, V, p   
j, V, x, p

Proof of Theorem mzpclval
Dummy variables  v 
a  b  c are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oveq2 6311 . . . . 5  |-  ( v  =  V  ->  ( ZZ  ^m  v )  =  ( ZZ  ^m  V
) )
21oveq2d 6319 . . . 4  |-  ( v  =  V  ->  ( ZZ  ^m  ( ZZ  ^m  v ) )  =  ( ZZ  ^m  ( ZZ  ^m  V ) ) )
32pweqd 3985 . . 3  |-  ( v  =  V  ->  ~P ( ZZ  ^m  ( ZZ  ^m  v ) )  =  ~P ( ZZ 
^m  ( ZZ  ^m  V ) ) )
41xpeq1d 4874 . . . . . . . 8  |-  ( v  =  V  ->  (
( ZZ  ^m  v
)  X.  { a } )  =  ( ( ZZ  ^m  V
)  X.  { a } ) )
54eleq1d 2492 . . . . . . 7  |-  ( v  =  V  ->  (
( ( ZZ  ^m  v )  X.  {
a } )  e.  p  <->  ( ( ZZ 
^m  V )  X. 
{ a } )  e.  p ) )
65ralbidv 2865 . . . . . 6  |-  ( v  =  V  ->  ( A. a  e.  ZZ  ( ( ZZ  ^m  v )  X.  {
a } )  e.  p  <->  A. a  e.  ZZ  ( ( ZZ  ^m  V )  X.  {
a } )  e.  p ) )
7 sneq 4007 . . . . . . . . 9  |-  ( a  =  i  ->  { a }  =  { i } )
87xpeq2d 4875 . . . . . . . 8  |-  ( a  =  i  ->  (
( ZZ  ^m  V
)  X.  { a } )  =  ( ( ZZ  ^m  V
)  X.  { i } ) )
98eleq1d 2492 . . . . . . 7  |-  ( a  =  i  ->  (
( ( ZZ  ^m  V )  X.  {
a } )  e.  p  <->  ( ( ZZ 
^m  V )  X. 
{ i } )  e.  p ) )
109cbvralv 3056 . . . . . 6  |-  ( A. a  e.  ZZ  (
( ZZ  ^m  V
)  X.  { a } )  e.  p  <->  A. i  e.  ZZ  (
( ZZ  ^m  V
)  X.  { i } )  e.  p
)
116, 10syl6bb 265 . . . . 5  |-  ( v  =  V  ->  ( A. a  e.  ZZ  ( ( ZZ  ^m  v )  X.  {
a } )  e.  p  <->  A. i  e.  ZZ  ( ( ZZ  ^m  V )  X.  {
i } )  e.  p ) )
121mpteq1d 4503 . . . . . . . 8  |-  ( v  =  V  ->  (
c  e.  ( ZZ 
^m  v )  |->  ( c `  b ) )  =  ( c  e.  ( ZZ  ^m  V )  |->  ( c `
 b ) ) )
1312eleq1d 2492 . . . . . . 7  |-  ( v  =  V  ->  (
( c  e.  ( ZZ  ^m  v ) 
|->  ( c `  b
) )  e.  p  <->  ( c  e.  ( ZZ 
^m  V )  |->  ( c `  b ) )  e.  p ) )
1413raleqbi1dv 3034 . . . . . 6  |-  ( v  =  V  ->  ( A. b  e.  v 
( c  e.  ( ZZ  ^m  v ) 
|->  ( c `  b
) )  e.  p  <->  A. b  e.  V  ( c  e.  ( ZZ 
^m  V )  |->  ( c `  b ) )  e.  p ) )
15 fveq2 5879 . . . . . . . . . 10  |-  ( b  =  j  ->  (
c `  b )  =  ( c `  j ) )
1615mpteq2dv 4509 . . . . . . . . 9  |-  ( b  =  j  ->  (
c  e.  ( ZZ 
^m  V )  |->  ( c `  b ) )  =  ( c  e.  ( ZZ  ^m  V )  |->  ( c `
 j ) ) )
1716eleq1d 2492 . . . . . . . 8  |-  ( b  =  j  ->  (
( c  e.  ( ZZ  ^m  V ) 
|->  ( c `  b
) )  e.  p  <->  ( c  e.  ( ZZ 
^m  V )  |->  ( c `  j ) )  e.  p ) )
18 fveq1 5878 . . . . . . . . . 10  |-  ( c  =  x  ->  (
c `  j )  =  ( x `  j ) )
1918cbvmptv 4514 . . . . . . . . 9  |-  ( c  e.  ( ZZ  ^m  V )  |->  ( c `
 j ) )  =  ( x  e.  ( ZZ  ^m  V
)  |->  ( x `  j ) )
2019eleq1i 2500 . . . . . . . 8  |-  ( ( c  e.  ( ZZ 
^m  V )  |->  ( c `  j ) )  e.  p  <->  ( x  e.  ( ZZ  ^m  V
)  |->  ( x `  j ) )  e.  p )
2117, 20syl6bb 265 . . . . . . 7  |-  ( b  =  j  ->  (
( c  e.  ( ZZ  ^m  V ) 
|->  ( c `  b
) )  e.  p  <->  ( x  e.  ( ZZ 
^m  V )  |->  ( x `  j ) )  e.  p ) )
2221cbvralv 3056 . . . . . 6  |-  ( A. b  e.  V  (
c  e.  ( ZZ 
^m  V )  |->  ( c `  b ) )  e.  p  <->  A. j  e.  V  ( x  e.  ( ZZ  ^m  V
)  |->  ( x `  j ) )  e.  p )
2314, 22syl6bb 265 . . . . 5  |-  ( v  =  V  ->  ( A. b  e.  v 
( c  e.  ( ZZ  ^m  v ) 
|->  ( c `  b
) )  e.  p  <->  A. j  e.  V  ( x  e.  ( ZZ 
^m  V )  |->  ( x `  j ) )  e.  p ) )
2411, 23anbi12d 716 . . . 4  |-  ( v  =  V  ->  (
( A. a  e.  ZZ  ( ( ZZ 
^m  v )  X. 
{ a } )  e.  p  /\  A. b  e.  v  (
c  e.  ( ZZ 
^m  v )  |->  ( c `  b ) )  e.  p )  <-> 
( A. i  e.  ZZ  ( ( ZZ 
^m  V )  X. 
{ i } )  e.  p  /\  A. j  e.  V  (
x  e.  ( ZZ 
^m  V )  |->  ( x `  j ) )  e.  p ) ) )
2524anbi1d 710 . . 3  |-  ( v  =  V  ->  (
( ( A. a  e.  ZZ  ( ( ZZ 
^m  v )  X. 
{ a } )  e.  p  /\  A. b  e.  v  (
c  e.  ( ZZ 
^m  v )  |->  ( c `  b ) )  e.  p )  /\  A. f  e.  p  A. g  e.  p  ( ( f  oF  +  g )  e.  p  /\  ( f  oF  x.  g )  e.  p ) )  <->  ( ( A. i  e.  ZZ  ( ( ZZ  ^m  V )  X.  {
i } )  e.  p  /\  A. j  e.  V  ( x  e.  ( ZZ  ^m  V
)  |->  ( x `  j ) )  e.  p )  /\  A. f  e.  p  A. g  e.  p  (
( f  oF  +  g )  e.  p  /\  ( f  oF  x.  g
)  e.  p ) ) ) )
263, 25rabeqbidv 3077 . 2  |-  ( v  =  V  ->  { p  e.  ~P ( ZZ  ^m  ( ZZ  ^m  v
) )  |  ( ( A. a  e.  ZZ  ( ( ZZ 
^m  v )  X. 
{ a } )  e.  p  /\  A. b  e.  v  (
c  e.  ( ZZ 
^m  v )  |->  ( c `  b ) )  e.  p )  /\  A. f  e.  p  A. g  e.  p  ( ( f  oF  +  g )  e.  p  /\  ( f  oF  x.  g )  e.  p ) ) }  =  { p  e. 
~P ( ZZ  ^m  ( ZZ  ^m  V ) )  |  ( ( A. i  e.  ZZ  ( ( ZZ  ^m  V )  X.  {
i } )  e.  p  /\  A. j  e.  V  ( x  e.  ( ZZ  ^m  V
)  |->  ( x `  j ) )  e.  p )  /\  A. f  e.  p  A. g  e.  p  (
( f  oF  +  g )  e.  p  /\  ( f  oF  x.  g
)  e.  p ) ) } )
27 df-mzpcl 35490 . 2  |- mzPolyCld  =  ( v  e.  _V  |->  { p  e.  ~P ( ZZ  ^m  ( ZZ  ^m  v ) )  |  ( ( A. a  e.  ZZ  ( ( ZZ 
^m  v )  X. 
{ a } )  e.  p  /\  A. b  e.  v  (
c  e.  ( ZZ 
^m  v )  |->  ( c `  b ) )  e.  p )  /\  A. f  e.  p  A. g  e.  p  ( ( f  oF  +  g )  e.  p  /\  ( f  oF  x.  g )  e.  p ) ) } )
28 ovex 6331 . . . 4  |-  ( ZZ 
^m  ( ZZ  ^m  V ) )  e. 
_V
2928pwex 4605 . . 3  |-  ~P ( ZZ  ^m  ( ZZ  ^m  V ) )  e. 
_V
3029rabex 4573 . 2  |-  { p  e.  ~P ( ZZ  ^m  ( ZZ  ^m  V ) )  |  ( ( A. i  e.  ZZ  ( ( ZZ  ^m  V )  X.  {
i } )  e.  p  /\  A. j  e.  V  ( x  e.  ( ZZ  ^m  V
)  |->  ( x `  j ) )  e.  p )  /\  A. f  e.  p  A. g  e.  p  (
( f  oF  +  g )  e.  p  /\  ( f  oF  x.  g
)  e.  p ) ) }  e.  _V
3126, 27, 30fvmpt 5962 1  |-  ( V  e.  _V  ->  (mzPolyCld `  V )  =  {
p  e.  ~P ( ZZ  ^m  ( ZZ  ^m  V ) )  |  ( ( A. i  e.  ZZ  ( ( ZZ 
^m  V )  X. 
{ i } )  e.  p  /\  A. j  e.  V  (
x  e.  ( ZZ 
^m  V )  |->  ( x `  j ) )  e.  p )  /\  A. f  e.  p  A. g  e.  p  ( ( f  oF  +  g )  e.  p  /\  ( f  oF  x.  g )  e.  p ) ) } )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 371    = wceq 1438    e. wcel 1869   A.wral 2776   {crab 2780   _Vcvv 3082   ~Pcpw 3980   {csn 3997    |-> cmpt 4480    X. cxp 4849   ` cfv 5599  (class class class)co 6303    oFcof 6541    ^m cmap 7478    + caddc 9544    x. cmul 9546   ZZcz 10939  mzPolyCldcmzpcl 35488
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-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
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  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-rab 2785  df-v 3084  df-sbc 3301  df-dif 3440  df-un 3442  df-in 3444  df-ss 3451  df-nul 3763  df-if 3911  df-pw 3982  df-sn 3998  df-pr 4000  df-op 4004  df-uni 4218  df-br 4422  df-opab 4481  df-mpt 4482  df-id 4766  df-xp 4857  df-rel 4858  df-cnv 4859  df-co 4860  df-dm 4861  df-iota 5563  df-fun 5601  df-fv 5607  df-ov 6306  df-mzpcl 35490
This theorem is referenced by:  elmzpcl  35493
  Copyright terms: Public domain W3C validator