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

Theorem mplbas2 18266
Description: An alternative expression for the set of polynomials, as the smallest subalgebra of the set of power series that contains all the variable generators. (Contributed by Mario Carneiro, 10-Jan-2015.)
Hypotheses
Ref Expression
mplbas2.p  |-  P  =  ( I mPoly  R )
mplbas2.s  |-  S  =  ( I mPwSer  R )
mplbas2.v  |-  V  =  ( I mVar  R )
mplbas2.a  |-  A  =  (AlgSpan `  S )
mplbas2.i  |-  ( ph  ->  I  e.  W )
mplbas2.r  |-  ( ph  ->  R  e.  CRing )
Assertion
Ref Expression
mplbas2  |-  ( ph  ->  ( A `  ran  V )  =  ( Base `  P ) )

Proof of Theorem mplbas2
Dummy variables  u  k  v  x  z 
y  f are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mplbas2.s . . . . 5  |-  S  =  ( I mPwSer  R )
2 mplbas2.i . . . . 5  |-  ( ph  ->  I  e.  W )
3 mplbas2.r . . . . 5  |-  ( ph  ->  R  e.  CRing )
41, 2, 3psrassa 18201 . . . 4  |-  ( ph  ->  S  e. AssAlg )
5 mplbas2.p . . . . . 6  |-  P  =  ( I mPoly  R )
6 eqid 2392 . . . . . 6  |-  ( Base `  P )  =  (
Base `  P )
7 eqid 2392 . . . . . 6  |-  ( Base `  S )  =  (
Base `  S )
85, 1, 6, 7mplbasss 18223 . . . . 5  |-  ( Base `  P )  C_  ( Base `  S )
98a1i 11 . . . 4  |-  ( ph  ->  ( Base `  P
)  C_  ( Base `  S ) )
10 mplbas2.v . . . . . . . 8  |-  V  =  ( I mVar  R )
11 crngring 17341 . . . . . . . . 9  |-  ( R  e.  CRing  ->  R  e.  Ring )
123, 11syl 16 . . . . . . . 8  |-  ( ph  ->  R  e.  Ring )
131, 10, 7, 2, 12mvrf 18212 . . . . . . 7  |-  ( ph  ->  V : I --> ( Base `  S ) )
14 ffn 5652 . . . . . . 7  |-  ( V : I --> ( Base `  S )  ->  V  Fn  I )
1513, 14syl 16 . . . . . 6  |-  ( ph  ->  V  Fn  I )
162adantr 463 . . . . . . . 8  |-  ( (
ph  /\  x  e.  I )  ->  I  e.  W )
1712adantr 463 . . . . . . . 8  |-  ( (
ph  /\  x  e.  I )  ->  R  e.  Ring )
18 simpr 459 . . . . . . . 8  |-  ( (
ph  /\  x  e.  I )  ->  x  e.  I )
195, 10, 6, 16, 17, 18mvrcl 18243 . . . . . . 7  |-  ( (
ph  /\  x  e.  I )  ->  ( V `  x )  e.  ( Base `  P
) )
2019ralrimiva 2806 . . . . . 6  |-  ( ph  ->  A. x  e.  I 
( V `  x
)  e.  ( Base `  P ) )
21 ffnfv 5972 . . . . . 6  |-  ( V : I --> ( Base `  P )  <->  ( V  Fn  I  /\  A. x  e.  I  ( V `  x )  e.  (
Base `  P )
) )
2215, 20, 21sylanbrc 662 . . . . 5  |-  ( ph  ->  V : I --> ( Base `  P ) )
23 frn 5658 . . . . 5  |-  ( V : I --> ( Base `  P )  ->  ran  V 
C_  ( Base `  P
) )
2422, 23syl 16 . . . 4  |-  ( ph  ->  ran  V  C_  ( Base `  P ) )
25 mplbas2.a . . . . 5  |-  A  =  (AlgSpan `  S )
2625, 7aspss 18113 . . . 4  |-  ( ( S  e. AssAlg  /\  ( Base `  P )  C_  ( Base `  S )  /\  ran  V  C_  ( Base `  P ) )  ->  ( A `  ran  V )  C_  ( A `  ( Base `  P ) ) )
274, 9, 24, 26syl3anc 1226 . . 3  |-  ( ph  ->  ( A `  ran  V )  C_  ( A `  ( Base `  P
) ) )
281, 5, 6, 2, 12mplsubrg 18234 . . . 4  |-  ( ph  ->  ( Base `  P
)  e.  (SubRing `  S
) )
291, 5, 6, 2, 12mpllss 18231 . . . 4  |-  ( ph  ->  ( Base `  P
)  e.  ( LSubSp `  S ) )
30 eqid 2392 . . . . 5  |-  ( LSubSp `  S )  =  (
LSubSp `  S )
3125, 7, 30aspid 18111 . . . 4  |-  ( ( S  e. AssAlg  /\  ( Base `  P )  e.  (SubRing `  S )  /\  ( Base `  P
)  e.  ( LSubSp `  S ) )  -> 
( A `  ( Base `  P ) )  =  ( Base `  P
) )
324, 28, 29, 31syl3anc 1226 . . 3  |-  ( ph  ->  ( A `  ( Base `  P ) )  =  ( Base `  P
) )
3327, 32sseqtrd 3466 . 2  |-  ( ph  ->  ( A `  ran  V )  C_  ( Base `  P ) )
34 eqid 2392 . . . . . 6  |-  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  =  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }
35 eqid 2392 . . . . . 6  |-  ( 0g
`  R )  =  ( 0g `  R
)
36 eqid 2392 . . . . . 6  |-  ( 1r
`  R )  =  ( 1r `  R
)
372adantr 463 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  I  e.  W )
38 eqid 2392 . . . . . 6  |-  ( .s
`  P )  =  ( .s `  P
)
3912adantr 463 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  R  e.  Ring )
40 simpr 459 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  x  e.  ( Base `  P )
)
415, 34, 35, 36, 37, 6, 38, 39, 40mplcoe1 18259 . . . . 5  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  x  =  ( P  gsumg  ( k  e.  {
f  e.  ( NN0 
^m  I )  |  ( `' f " NN )  e.  Fin } 
|->  ( ( x `  k ) ( .s
`  P ) ( y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) ) ) )
42 eqid 2392 . . . . . 6  |-  ( 0g
`  P )  =  ( 0g `  P
)
435mplring 18246 . . . . . . . . 9  |-  ( ( I  e.  W  /\  R  e.  Ring )  ->  P  e.  Ring )
442, 12, 43syl2anc 659 . . . . . . . 8  |-  ( ph  ->  P  e.  Ring )
45 ringabl 17360 . . . . . . . 8  |-  ( P  e.  Ring  ->  P  e. 
Abel )
4644, 45syl 16 . . . . . . 7  |-  ( ph  ->  P  e.  Abel )
4746adantr 463 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  P  e.  Abel )
48 ovex 6242 . . . . . . . 8  |-  ( NN0 
^m  I )  e. 
_V
4948rabex 4529 . . . . . . 7  |-  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  e.  _V
5049a1i 11 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  e.  _V )
5124, 8syl6ss 3442 . . . . . . . . . 10  |-  ( ph  ->  ran  V  C_  ( Base `  S ) )
5225, 7aspsubrg 18112 . . . . . . . . . 10  |-  ( ( S  e. AssAlg  /\  ran  V  C_  ( Base `  S
) )  ->  ( A `  ran  V )  e.  (SubRing `  S
) )
534, 51, 52syl2anc 659 . . . . . . . . 9  |-  ( ph  ->  ( A `  ran  V )  e.  (SubRing `  S
) )
545, 1, 6mplval2 18222 . . . . . . . . . . 11  |-  P  =  ( Ss  ( Base `  P
) )
5554subsubrg 17587 . . . . . . . . . 10  |-  ( (
Base `  P )  e.  (SubRing `  S )  ->  ( ( A `  ran  V )  e.  (SubRing `  P )  <->  ( ( A `  ran  V )  e.  (SubRing `  S
)  /\  ( A `  ran  V )  C_  ( Base `  P )
) ) )
5628, 55syl 16 . . . . . . . . 9  |-  ( ph  ->  ( ( A `  ran  V )  e.  (SubRing `  P )  <->  ( ( A `  ran  V )  e.  (SubRing `  S
)  /\  ( A `  ran  V )  C_  ( Base `  P )
) ) )
5753, 33, 56mpbir2and 920 . . . . . . . 8  |-  ( ph  ->  ( A `  ran  V )  e.  (SubRing `  P
) )
58 subrgsubg 17567 . . . . . . . 8  |-  ( ( A `  ran  V
)  e.  (SubRing `  P
)  ->  ( A `  ran  V )  e.  (SubGrp `  P )
)
5957, 58syl 16 . . . . . . 7  |-  ( ph  ->  ( A `  ran  V )  e.  (SubGrp `  P ) )
6059adantr 463 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( A `  ran  V )  e.  (SubGrp `  P )
)
615mpllmod 18245 . . . . . . . . . 10  |-  ( ( I  e.  W  /\  R  e.  Ring )  ->  P  e.  LMod )
622, 12, 61syl2anc 659 . . . . . . . . 9  |-  ( ph  ->  P  e.  LMod )
6362ad2antrr 723 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  P  e.  LMod )
6425, 7, 30asplss 18110 . . . . . . . . . . 11  |-  ( ( S  e. AssAlg  /\  ran  V  C_  ( Base `  S
) )  ->  ( A `  ran  V )  e.  ( LSubSp `  S
) )
654, 51, 64syl2anc 659 . . . . . . . . . 10  |-  ( ph  ->  ( A `  ran  V )  e.  ( LSubSp `  S ) )
661, 2, 12psrlmod 18186 . . . . . . . . . . 11  |-  ( ph  ->  S  e.  LMod )
67 eqid 2392 . . . . . . . . . . . 12  |-  ( LSubSp `  P )  =  (
LSubSp `  P )
6854, 30, 67lsslss 17739 . . . . . . . . . . 11  |-  ( ( S  e.  LMod  /\  ( Base `  P )  e.  ( LSubSp `  S )
)  ->  ( ( A `  ran  V )  e.  ( LSubSp `  P
)  <->  ( ( A `
 ran  V )  e.  ( LSubSp `  S )  /\  ( A `  ran  V )  C_  ( Base `  P ) ) ) )
6966, 29, 68syl2anc 659 . . . . . . . . . 10  |-  ( ph  ->  ( ( A `  ran  V )  e.  (
LSubSp `  P )  <->  ( ( A `  ran  V )  e.  ( LSubSp `  S
)  /\  ( A `  ran  V )  C_  ( Base `  P )
) ) )
7065, 33, 69mpbir2and 920 . . . . . . . . 9  |-  ( ph  ->  ( A `  ran  V )  e.  ( LSubSp `  P ) )
7170ad2antrr 723 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  ( A `  ran  V )  e.  ( LSubSp `  P
) )
72 eqid 2392 . . . . . . . . . . 11  |-  ( Base `  R )  =  (
Base `  R )
735, 72, 6, 34, 40mplelf 18224 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  x : { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } --> ( Base `  R
) )
7473ffvelrnda 5946 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
x `  k )  e.  ( Base `  R
) )
755, 37, 39mplsca 18239 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  R  =  (Scalar `  P ) )
7675adantr 463 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  R  =  (Scalar `  P )
)
7776fveq2d 5791 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  ( Base `  R )  =  ( Base `  (Scalar `  P ) ) )
7874, 77eleqtrd 2482 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
x `  k )  e.  ( Base `  (Scalar `  P ) ) )
792ad2antrr 723 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  I  e.  W )
80 eqid 2392 . . . . . . . . . 10  |-  (mulGrp `  P )  =  (mulGrp `  P )
81 eqid 2392 . . . . . . . . . 10  |-  (.g `  (mulGrp `  P ) )  =  (.g `  (mulGrp `  P
) )
823ad2antrr 723 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  R  e.  CRing )
83 simpr 459 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )
845, 34, 35, 36, 79, 80, 81, 10, 82, 83mplcoe2 18264 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) )  =  ( (mulGrp `  P )  gsumg  ( z  e.  I  |->  ( ( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) ) ) )
85 eqid 2392 . . . . . . . . . . 11  |-  ( 1r
`  P )  =  ( 1r `  P
)
8680, 85ringidval 17287 . . . . . . . . . 10  |-  ( 1r
`  P )  =  ( 0g `  (mulGrp `  P ) )
875mplcrng 18247 . . . . . . . . . . . . 13  |-  ( ( I  e.  W  /\  R  e.  CRing )  ->  P  e.  CRing )
882, 3, 87syl2anc 659 . . . . . . . . . . . 12  |-  ( ph  ->  P  e.  CRing )
8980crngmgp 17338 . . . . . . . . . . . 12  |-  ( P  e.  CRing  ->  (mulGrp `  P
)  e. CMnd )
9088, 89syl 16 . . . . . . . . . . 11  |-  ( ph  ->  (mulGrp `  P )  e. CMnd )
9190ad2antrr 723 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (mulGrp `  P )  e. CMnd )
9257ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  ( A `  ran  V )  e.  (SubRing `  P
) )
9380subrgsubm 17574 . . . . . . . . . . 11  |-  ( ( A `  ran  V
)  e.  (SubRing `  P
)  ->  ( A `  ran  V )  e.  (SubMnd `  (mulGrp `  P
) ) )
9492, 93syl 16 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  ( A `  ran  V )  e.  (SubMnd `  (mulGrp `  P ) ) )
95 simplll 757 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  I
)  ->  ph )
9634psrbag 18145 . . . . . . . . . . . . . . . 16  |-  ( I  e.  W  ->  (
k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  <->  ( k : I --> NN0  /\  ( `' k " NN )  e.  Fin )
) )
9737, 96syl 16 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  <->  ( k : I --> NN0  /\  ( `' k " NN )  e.  Fin )
) )
9897biimpa 482 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
k : I --> NN0  /\  ( `' k " NN )  e.  Fin )
)
9998simpld 457 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  k : I --> NN0 )
10099ffvelrnda 5946 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  I
)  ->  ( k `  z )  e.  NN0 )
10125, 7aspssid 18114 . . . . . . . . . . . . . . 15  |-  ( ( S  e. AssAlg  /\  ran  V  C_  ( Base `  S
) )  ->  ran  V 
C_  ( A `  ran  V ) )
1024, 51, 101syl2anc 659 . . . . . . . . . . . . . 14  |-  ( ph  ->  ran  V  C_  ( A `  ran  V ) )
103102ad3antrrr 727 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  I
)  ->  ran  V  C_  ( A `  ran  V
) )
10415ad2antrr 723 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  V  Fn  I )
105 fnfvelrn 5943 . . . . . . . . . . . . . 14  |-  ( ( V  Fn  I  /\  z  e.  I )  ->  ( V `  z
)  e.  ran  V
)
106104, 105sylan 469 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  I
)  ->  ( V `  z )  e.  ran  V )
107103, 106sseldd 3431 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  I
)  ->  ( V `  z )  e.  ( A `  ran  V
) )
10880, 6mgpbas 17279 . . . . . . . . . . . . 13  |-  ( Base `  P )  =  (
Base `  (mulGrp `  P
) )
109 eqid 2392 . . . . . . . . . . . . . 14  |-  ( .r
`  P )  =  ( .r `  P
)
11080, 109mgpplusg 17277 . . . . . . . . . . . . 13  |-  ( .r
`  P )  =  ( +g  `  (mulGrp `  P ) )
111109subrgmcl 17573 . . . . . . . . . . . . . 14  |-  ( ( ( A `  ran  V )  e.  (SubRing `  P
)  /\  u  e.  ( A `  ran  V
)  /\  v  e.  ( A `  ran  V
) )  ->  (
u ( .r `  P ) v )  e.  ( A `  ran  V ) )
11257, 111syl3an1 1259 . . . . . . . . . . . . 13  |-  ( (
ph  /\  u  e.  ( A `  ran  V
)  /\  v  e.  ( A `  ran  V
) )  ->  (
u ( .r `  P ) v )  e.  ( A `  ran  V ) )
11385subrg1cl 17569 . . . . . . . . . . . . . 14  |-  ( ( A `  ran  V
)  e.  (SubRing `  P
)  ->  ( 1r `  P )  e.  ( A `  ran  V
) )
11457, 113syl 16 . . . . . . . . . . . . 13  |-  ( ph  ->  ( 1r `  P
)  e.  ( A `
 ran  V )
)
115108, 81, 110, 90, 33, 112, 86, 114mulgnn0subcl 16291 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( k `  z )  e.  NN0  /\  ( V `  z
)  e.  ( A `
 ran  V )
)  ->  ( (
k `  z )
(.g `  (mulGrp `  P
) ) ( V `
 z ) )  e.  ( A `  ran  V ) )
11695, 100, 107, 115syl3anc 1226 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  I
)  ->  ( (
k `  z )
(.g `  (mulGrp `  P
) ) ( V `
 z ) )  e.  ( A `  ran  V ) )
117 eqid 2392 . . . . . . . . . . 11  |-  ( z  e.  I  |->  ( ( k `  z ) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) )  =  ( z  e.  I  |->  ( ( k `  z ) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) )
118116, 117fmptd 5970 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
z  e.  I  |->  ( ( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) ) : I --> ( A `
 ran  V )
)
119 mptexg 6059 . . . . . . . . . . . . 13  |-  ( I  e.  W  ->  (
z  e.  I  |->  ( ( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) )  e.  _V )
1202, 119syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  ( z  e.  I  |->  ( ( k `  z ) (.g `  (mulGrp `  P ) ) ( V `  z ) ) )  e.  _V )
121120ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
z  e.  I  |->  ( ( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) )  e.  _V )
122 funmpt 5545 . . . . . . . . . . . 12  |-  Fun  (
z  e.  I  |->  ( ( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) )
123122a1i 11 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  Fun  ( z  e.  I  |->  ( ( k `  z ) (.g `  (mulGrp `  P ) ) ( V `  z ) ) ) )
124 fvex 5797 . . . . . . . . . . . 12  |-  ( 1r
`  P )  e. 
_V
125124a1i 11 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  ( 1r `  P )  e. 
_V )
12698simprd 461 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  ( `' k " NN )  e.  Fin )
127 elrabi 3192 . . . . . . . . . . . . . . 15  |-  ( k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  ->  k  e.  ( NN0  ^m  I ) )
128 elmapi 7377 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( NN0  ^m  I )  ->  k : I --> NN0 )
129128adantl 464 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( NN0  ^m  I
) )  ->  k : I --> NN0 )
1302ad2antrr 723 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( NN0  ^m  I
) )  ->  I  e.  W )
131 frnnn0supp 10784 . . . . . . . . . . . . . . . . . 18  |-  ( ( I  e.  W  /\  k : I --> NN0 )  ->  ( k supp  0 )  =  ( `' k
" NN ) )
132130, 129, 131syl2anc 659 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( NN0  ^m  I
) )  ->  (
k supp  0 )  =  ( `' k " NN ) )
133 eqimss 3482 . . . . . . . . . . . . . . . . 17  |-  ( ( k supp  0 )  =  ( `' k " NN )  ->  ( k supp  0 )  C_  ( `' k " NN ) )
134132, 133syl 16 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( NN0  ^m  I
) )  ->  (
k supp  0 )  C_  ( `' k " NN ) )
135 c0ex 9519 . . . . . . . . . . . . . . . . 17  |-  0  e.  _V
136135a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( NN0  ^m  I
) )  ->  0  e.  _V )
137129, 134, 130, 136suppssr 6867 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  ( NN0  ^m  I ) )  /\  z  e.  ( I  \  ( `' k
" NN ) ) )  ->  ( k `  z )  =  0 )
138127, 137sylanl2 649 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  ( I  \  ( `' k " NN ) ) )  ->  (
k `  z )  =  0 )
139138oveq1d 6229 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  ( I  \  ( `' k " NN ) ) )  ->  (
( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) )  =  ( 0 (.g `  (mulGrp `  P )
) ( V `  z ) ) )
1402ad3antrrr 727 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  ( I  \  ( `' k " NN ) ) )  ->  I  e.  W )
14112ad3antrrr 727 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  ( I  \  ( `' k " NN ) ) )  ->  R  e.  Ring )
142 eldifi 3553 . . . . . . . . . . . . . . . 16  |-  ( z  e.  ( I  \ 
( `' k " NN ) )  ->  z  e.  I )
143142adantl 464 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  ( I  \  ( `' k " NN ) ) )  ->  z  e.  I )
1445, 10, 6, 140, 141, 143mvrcl 18243 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  ( I  \  ( `' k " NN ) ) )  ->  ( V `  z )  e.  ( Base `  P
) )
145108, 86, 81mulg0 16283 . . . . . . . . . . . . . 14  |-  ( ( V `  z )  e.  ( Base `  P
)  ->  ( 0 (.g `  (mulGrp `  P
) ) ( V `
 z ) )  =  ( 1r `  P ) )
146144, 145syl 16 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  ( I  \  ( `' k " NN ) ) )  ->  (
0 (.g `  (mulGrp `  P
) ) ( V `
 z ) )  =  ( 1r `  P ) )
147139, 146eqtrd 2433 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  x  e.  ( Base `  P ) )  /\  k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin } )  /\  z  e.  ( I  \  ( `' k " NN ) ) )  ->  (
( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) )  =  ( 1r `  P ) )
148147, 79suppss2 6870 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
( z  e.  I  |->  ( ( k `  z ) (.g `  (mulGrp `  P ) ) ( V `  z ) ) ) supp  ( 1r
`  P ) ) 
C_  ( `' k
" NN ) )
149 suppssfifsupp 7777 . . . . . . . . . . 11  |-  ( ( ( ( z  e.  I  |->  ( ( k `
 z ) (.g `  (mulGrp `  P )
) ( V `  z ) ) )  e.  _V  /\  Fun  ( z  e.  I  |->  ( ( k `  z ) (.g `  (mulGrp `  P ) ) ( V `  z ) ) )  /\  ( 1r `  P )  e. 
_V )  /\  (
( `' k " NN )  e.  Fin  /\  ( ( z  e.  I  |->  ( ( k `
 z ) (.g `  (mulGrp `  P )
) ( V `  z ) ) ) supp  ( 1r `  P
) )  C_  ( `' k " NN ) ) )  -> 
( z  e.  I  |->  ( ( k `  z ) (.g `  (mulGrp `  P ) ) ( V `  z ) ) ) finSupp  ( 1r
`  P ) )
150121, 123, 125, 126, 148, 149syl32anc 1234 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
z  e.  I  |->  ( ( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) ) finSupp  ( 1r `  P ) )
15186, 91, 79, 94, 118, 150gsumsubmcl 17066 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
(mulGrp `  P )  gsumg  ( z  e.  I  |->  ( ( k `  z
) (.g `  (mulGrp `  P
) ) ( V `
 z ) ) ) )  e.  ( A `  ran  V
) )
15284, 151eqeltrd 2480 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) )  e.  ( A `  ran  V
) )
153 eqid 2392 . . . . . . . . 9  |-  (Scalar `  P )  =  (Scalar `  P )
154 eqid 2392 . . . . . . . . 9  |-  ( Base `  (Scalar `  P )
)  =  ( Base `  (Scalar `  P )
)
155153, 38, 154, 67lssvscl 17733 . . . . . . . 8  |-  ( ( ( P  e.  LMod  /\  ( A `  ran  V )  e.  ( LSubSp `  P ) )  /\  ( ( x `  k )  e.  (
Base `  (Scalar `  P
) )  /\  (
y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) )  e.  ( A `  ran  V
) ) )  -> 
( ( x `  k ) ( .s
`  P ) ( y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) )  e.  ( A `  ran  V ) )
15663, 71, 78, 152, 155syl22anc 1227 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) )  e.  ( A `  ran  V ) )
157 eqid 2392 . . . . . . 7  |-  ( k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) )  =  ( k  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  ( ( x `  k ) ( .s `  P
) ( y  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  if ( y  =  k ,  ( 1r `  R
) ,  ( 0g
`  R ) ) ) ) )
158156, 157fmptd 5970 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  ( ( x `  k ) ( .s `  P
) ( y  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  if ( y  =  k ,  ( 1r `  R
) ,  ( 0g
`  R ) ) ) ) ) : { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } --> ( A `  ran  V ) )
15948mptrabex 6061 . . . . . . . . 9  |-  ( k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) )  e.  _V
160 funmpt 5545 . . . . . . . . 9  |-  Fun  (
k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) )
161 fvex 5797 . . . . . . . . 9  |-  ( 0g
`  P )  e. 
_V
162159, 160, 1613pm3.2i 1172 . . . . . . . 8  |-  ( ( k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) )  e.  _V  /\  Fun  ( k  e.  {
f  e.  ( NN0 
^m  I )  |  ( `' f " NN )  e.  Fin } 
|->  ( ( x `  k ) ( .s
`  P ) ( y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) )  /\  ( 0g `  P )  e.  _V )
163162a1i 11 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( (
k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) )  e.  _V  /\  Fun  ( k  e.  {
f  e.  ( NN0 
^m  I )  |  ( `' f " NN )  e.  Fin } 
|->  ( ( x `  k ) ( .s
`  P ) ( y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) )  /\  ( 0g `  P )  e.  _V ) )
1645, 1, 7, 35, 6mplelbas 18219 . . . . . . . . . 10  |-  ( x  e.  ( Base `  P
)  <->  ( x  e.  ( Base `  S
)  /\  x finSupp  ( 0g
`  R ) ) )
165164simprbi 462 . . . . . . . . 9  |-  ( x  e.  ( Base `  P
)  ->  x finSupp  ( 0g
`  R ) )
166165adantl 464 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  x finSupp  ( 0g
`  R ) )
167166fsuppimpd 7769 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( x supp  ( 0g `  R ) )  e.  Fin )
168 ssid 3449 . . . . . . . . . . . . 13  |-  ( x supp  ( 0g `  R
) )  C_  (
x supp  ( 0g `  R ) )
169168a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( x supp  ( 0g `  R ) )  C_  ( x supp  ( 0g `  R ) ) )
170 fvex 5797 . . . . . . . . . . . . 13  |-  ( 0g
`  R )  e. 
_V
171170a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( 0g `  R )  e.  _V )
17273, 169, 50, 171suppssr 6867 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  \ 
( x supp  ( 0g
`  R ) ) ) )  ->  (
x `  k )  =  ( 0g `  R ) )
17375fveq2d 5791 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( 0g `  R )  =  ( 0g `  (Scalar `  P ) ) )
174173adantr 463 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  \ 
( x supp  ( 0g
`  R ) ) ) )  ->  ( 0g `  R )  =  ( 0g `  (Scalar `  P ) ) )
175172, 174eqtrd 2433 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  \ 
( x supp  ( 0g
`  R ) ) ) )  ->  (
x `  k )  =  ( 0g `  (Scalar `  P ) ) )
176175oveq1d 6229 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  \ 
( x supp  ( 0g
`  R ) ) ) )  ->  (
( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) )  =  ( ( 0g `  (Scalar `  P ) ) ( .s `  P
) ( y  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  if ( y  =  k ,  ( 1r `  R
) ,  ( 0g
`  R ) ) ) ) )
177 eldifi 3553 . . . . . . . . . 10  |-  ( k  e.  ( { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  \ 
( x supp  ( 0g
`  R ) ) )  ->  k  e.  { f  e.  ( NN0 
^m  I )  |  ( `' f " NN )  e.  Fin } )
17812ad2antrr 723 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  R  e.  Ring )
1795, 6, 35, 36, 34, 79, 178, 83mplmon 18257 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) )  e.  (
Base `  P )
)
180 eqid 2392 . . . . . . . . . . . 12  |-  ( 0g
`  (Scalar `  P )
)  =  ( 0g
`  (Scalar `  P )
)
1816, 153, 38, 180, 42lmod0vs 17677 . . . . . . . . . . 11  |-  ( ( P  e.  LMod  /\  (
y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) )  e.  (
Base `  P )
)  ->  ( ( 0g `  (Scalar `  P
) ) ( .s
`  P ) ( y  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) )  =  ( 0g `  P
) )
18263, 179, 181syl2anc 659 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin } )  ->  (
( 0g `  (Scalar `  P ) ) ( .s `  P ) ( y  e.  {
f  e.  ( NN0 
^m  I )  |  ( `' f " NN )  e.  Fin } 
|->  if ( y  =  k ,  ( 1r
`  R ) ,  ( 0g `  R
) ) ) )  =  ( 0g `  P ) )
183177, 182sylan2 472 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  \ 
( x supp  ( 0g
`  R ) ) ) )  ->  (
( 0g `  (Scalar `  P ) ) ( .s `  P ) ( y  e.  {
f  e.  ( NN0 
^m  I )  |  ( `' f " NN )  e.  Fin } 
|->  if ( y  =  k ,  ( 1r
`  R ) ,  ( 0g `  R
) ) ) )  =  ( 0g `  P ) )
184176, 183eqtrd 2433 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  ( Base `  P
) )  /\  k  e.  ( { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  \ 
( x supp  ( 0g
`  R ) ) ) )  ->  (
( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) )  =  ( 0g `  P
) )
185184, 50suppss2 6870 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( (
k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) ) supp  ( 0g `  P
) )  C_  (
x supp  ( 0g `  R ) ) )
186 suppssfifsupp 7777 . . . . . . 7  |-  ( ( ( ( k  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  ( ( x `  k ) ( .s `  P
) ( y  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  if ( y  =  k ,  ( 1r `  R
) ,  ( 0g
`  R ) ) ) ) )  e. 
_V  /\  Fun  ( k  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) )  /\  ( 0g `  P )  e.  _V )  /\  ( ( x supp  ( 0g `  R
) )  e.  Fin  /\  ( ( k  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  ( ( x `  k ) ( .s `  P
) ( y  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  if ( y  =  k ,  ( 1r `  R
) ,  ( 0g
`  R ) ) ) ) ) supp  ( 0g `  P ) ) 
C_  ( x supp  ( 0g `  R ) ) ) )  ->  (
k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) ) finSupp 
( 0g `  P
) )
187163, 167, 185, 186syl12anc 1224 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  ( ( x `  k ) ( .s `  P
) ( y  e. 
{ f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }  |->  if ( y  =  k ,  ( 1r `  R
) ,  ( 0g
`  R ) ) ) ) ) finSupp  ( 0g `  P ) )
18842, 47, 50, 60, 158, 187gsumsubgcl 17068 . . . . 5  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  ( P  gsumg  ( k  e.  { f  e.  ( NN0  ^m  I )  |  ( `' f " NN )  e.  Fin }  |->  ( ( x `  k
) ( .s `  P ) ( y  e.  { f  e.  ( NN0  ^m  I
)  |  ( `' f " NN )  e.  Fin }  |->  if ( y  =  k ,  ( 1r `  R ) ,  ( 0g `  R ) ) ) ) ) )  e.  ( A `
 ran  V )
)
18941, 188eqeltrd 2480 . . . 4  |-  ( (
ph  /\  x  e.  ( Base `  P )
)  ->  x  e.  ( A `  ran  V
) )
190189ex 432 . . 3  |-  ( ph  ->  ( x  e.  (
Base `  P )  ->  x  e.  ( A `
 ran  V )
) )
191190ssrdv 3436 . 2  |-  ( ph  ->  ( Base `  P
)  C_  ( A `  ran  V ) )
19233, 191eqssd 3447 1  |-  ( ph  ->  ( A `  ran  V )  =  ( Base `  P ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 367    /\ w3a 971    = wceq 1399    e. wcel 1836   A.wral 2742   {crab 2746   _Vcvv 3047    \ cdif 3399    C_ wss 3402   ifcif 3870   class class class wbr 4380    |-> cmpt 4438   `'ccnv 4925   ran crn 4927   "cima 4929   Fun wfun 5503    Fn wfn 5504   -->wf 5505   ` cfv 5509  (class class class)co 6214   supp csupp 6835    ^m cmap 7356   Fincfn 7453   finSupp cfsupp 7762   0cc0 9421   NNcn 10470   NN0cn0 10730   Basecbs 14653   .rcmulr 14722  Scalarcsca 14724   .scvsca 14725   0gc0g 14866    gsumg cgsu 14867  SubMndcsubmnd 16101  .gcmg 16192  SubGrpcsubg 16331  CMndccmn 16934   Abelcabl 16935  mulGrpcmgp 17273   1rcur 17285   Ringcrg 17330   CRingccrg 17331  SubRingcsubrg 17557   LModclmod 17644   LSubSpclss 17710  AssAlgcasa 18090  AlgSpancasp 18091   mPwSer cmps 18132   mVar cmvr 18133   mPoly cmpl 18134
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1633  ax-4 1646  ax-5 1719  ax-6 1765  ax-7 1808  ax-8 1838  ax-9 1840  ax-10 1855  ax-11 1860  ax-12 1872  ax-13 2016  ax-ext 2370  ax-rep 4491  ax-sep 4501  ax-nul 4509  ax-pow 4556  ax-pr 4614  ax-un 6509  ax-inf2 7990  ax-cnex 9477  ax-resscn 9478  ax-1cn 9479  ax-icn 9480  ax-addcl 9481  ax-addrcl 9482  ax-mulcl 9483  ax-mulrcl 9484  ax-mulcom 9485  ax-addass 9486  ax-mulass 9487  ax-distr 9488  ax-i2m1 9489  ax-1ne0 9490  ax-1rid 9491  ax-rnegex 9492  ax-rrecex 9493  ax-cnre 9494  ax-pre-lttri 9495  ax-pre-lttrn 9496  ax-pre-ltadd 9497  ax-pre-mulgt0 9498
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1402  df-ex 1628  df-nf 1632  df-sb 1758  df-eu 2232  df-mo 2233  df-clab 2378  df-cleq 2384  df-clel 2387  df-nfc 2542  df-ne 2589  df-nel 2590  df-ral 2747  df-rex 2748  df-reu 2749  df-rmo 2750  df-rab 2751  df-v 3049  df-sbc 3266  df-csb 3362  df-dif 3405  df-un 3407  df-in 3409  df-ss 3416  df-pss 3418  df-nul 3725  df-if 3871  df-pw 3942  df-sn 3958  df-pr 3960  df-tp 3962  df-op 3964  df-uni 4177  df-int 4213  df-iun 4258  df-iin 4259  df-br 4381  df-opab 4439  df-mpt 4440  df-tr 4474  df-eprel 4718  df-id 4722  df-po 4727  df-so 4728  df-fr 4765  df-se 4766  df-we 4767  df-ord 4808  df-on 4809  df-lim 4810  df-suc 4811  df-xp 4932  df-rel 4933  df-cnv 4934  df-co 4935  df-dm 4936  df-rn 4937  df-res 4938  df-ima 4939  df-iota 5473  df-fun 5511  df-fn 5512  df-f 5513  df-f1 5514  df-fo 5515  df-f1o 5516  df-fv 5517  df-isom 5518  df-riota 6176  df-ov 6217  df-oprab 6218  df-mpt2 6219  df-of 6457  df-ofr 6458  df-om 6618  df-1st 6717  df-2nd 6718  df-supp 6836  df-recs 6978  df-rdg 7012  df-1o 7066  df-2o 7067  df-oadd 7070  df-er 7247  df-map 7358  df-pm 7359  df-ixp 7407  df-en 7454  df-dom 7455  df-sdom 7456  df-fin 7457  df-fsupp 7763  df-oi 7868  df-card 8251  df-pnf 9559  df-mnf 9560  df-xr 9561  df-ltxr 9562  df-le 9563  df-sub 9738  df-neg 9739  df-nn 10471  df-2 10529  df-3 10530  df-4 10531  df-5 10532  df-6 10533  df-7 10534  df-8 10535  df-9 10536  df-n0 10731  df-z 10800  df-uz 11020  df-fz 11612  df-fzo 11736  df-seq 12030  df-hash 12327  df-struct 14655  df-ndx 14656  df-slot 14657  df-base 14658  df-sets 14659  df-ress 14660  df-plusg 14734  df-mulr 14735  df-sca 14737  df-vsca 14738  df-tset 14740  df-0g 14868  df-gsum 14869  df-mre 15012  df-mrc 15013  df-acs 15015  df-mgm 16008  df-sgrp 16047  df-mnd 16057  df-mhm 16102  df-submnd 16103  df-grp 16193  df-minusg 16194  df-sbg 16195  df-mulg 16196  df-subg 16334  df-ghm 16401  df-cntz 16491  df-cmn 16936  df-abl 16937  df-mgp 17274  df-ur 17286  df-srg 17290  df-ring 17332  df-cring 17333  df-subrg 17559  df-lmod 17646  df-lss 17711  df-assa 18093  df-asp 18094  df-psr 18137  df-mvr 18138  df-mpl 18139
This theorem is referenced by:  mplind  18299  evlseu  18317
  Copyright terms: Public domain W3C validator