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

Theorem frlmup2 26920
Description: The evaluation map has the intended behavior on the unit vectors. (Contributed by Stefan O'Rear, 7-Feb-2015.)
Hypotheses
Ref Expression
frlmup.f  |-  F  =  ( R freeLMod  I )
frlmup.b  |-  B  =  ( Base `  F
)
frlmup.c  |-  C  =  ( Base `  T
)
frlmup.v  |-  .x.  =  ( .s `  T )
frlmup.e  |-  E  =  ( x  e.  B  |->  ( T  gsumg  ( x  o F 
.x.  A ) ) )
frlmup.t  |-  ( ph  ->  T  e.  LMod )
frlmup.i  |-  ( ph  ->  I  e.  X )
frlmup.r  |-  ( ph  ->  R  =  (Scalar `  T ) )
frlmup.a  |-  ( ph  ->  A : I --> C )
frlmup.y  |-  ( ph  ->  Y  e.  I )
frlmup.u  |-  U  =  ( R unitVec  I )
Assertion
Ref Expression
frlmup2  |-  ( ph  ->  ( E `  ( U `  Y )
)  =  ( A `
 Y ) )
Distinct variable groups:    x, R    x, I    x, F    x, B    x, C    x,  .x.    x, A    x, X    ph, x    x, Y    x, U    x, T
Allowed substitution hint:    E( x)

Proof of Theorem frlmup2
StepHypRef Expression
1 frlmup.r . . . . . 6  |-  ( ph  ->  R  =  (Scalar `  T ) )
2 frlmup.t . . . . . . 7  |-  ( ph  ->  T  e.  LMod )
3 eqid 2387 . . . . . . . 8  |-  (Scalar `  T )  =  (Scalar `  T )
43lmodrng 15885 . . . . . . 7  |-  ( T  e.  LMod  ->  (Scalar `  T )  e.  Ring )
52, 4syl 16 . . . . . 6  |-  ( ph  ->  (Scalar `  T )  e.  Ring )
61, 5eqeltrd 2461 . . . . 5  |-  ( ph  ->  R  e.  Ring )
7 frlmup.i . . . . 5  |-  ( ph  ->  I  e.  X )
8 frlmup.u . . . . . 6  |-  U  =  ( R unitVec  I )
9 frlmup.f . . . . . 6  |-  F  =  ( R freeLMod  I )
10 frlmup.b . . . . . 6  |-  B  =  ( Base `  F
)
118, 9, 10uvcff 26909 . . . . 5  |-  ( ( R  e.  Ring  /\  I  e.  X )  ->  U : I --> B )
126, 7, 11syl2anc 643 . . . 4  |-  ( ph  ->  U : I --> B )
13 frlmup.y . . . 4  |-  ( ph  ->  Y  e.  I )
1412, 13ffvelrnd 5810 . . 3  |-  ( ph  ->  ( U `  Y
)  e.  B )
15 oveq1 6027 . . . . 5  |-  ( x  =  ( U `  Y )  ->  (
x  o F  .x.  A )  =  ( ( U `  Y
)  o F  .x.  A ) )
1615oveq2d 6036 . . . 4  |-  ( x  =  ( U `  Y )  ->  ( T  gsumg  ( x  o F 
.x.  A ) )  =  ( T  gsumg  ( ( U `  Y )  o F  .x.  A
) ) )
17 frlmup.e . . . 4  |-  E  =  ( x  e.  B  |->  ( T  gsumg  ( x  o F 
.x.  A ) ) )
18 ovex 6045 . . . 4  |-  ( T 
gsumg  ( ( U `  Y )  o F 
.x.  A ) )  e.  _V
1916, 17, 18fvmpt 5745 . . 3  |-  ( ( U `  Y )  e.  B  ->  ( E `  ( U `  Y ) )  =  ( T  gsumg  ( ( U `  Y )  o F 
.x.  A ) ) )
2014, 19syl 16 . 2  |-  ( ph  ->  ( E `  ( U `  Y )
)  =  ( T 
gsumg  ( ( U `  Y )  o F 
.x.  A ) ) )
21 frlmup.c . . 3  |-  C  =  ( Base `  T
)
22 eqid 2387 . . 3  |-  ( 0g
`  T )  =  ( 0g `  T
)
23 lmodcmn 15919 . . . 4  |-  ( T  e.  LMod  ->  T  e. CMnd
)
24 cmnmnd 15354 . . . 4  |-  ( T  e. CMnd  ->  T  e.  Mnd )
252, 23, 243syl 19 . . 3  |-  ( ph  ->  T  e.  Mnd )
26 eqid 2387 . . . 4  |-  ( Base `  (Scalar `  T )
)  =  ( Base `  (Scalar `  T )
)
27 frlmup.v . . . 4  |-  .x.  =  ( .s `  T )
28 eqid 2387 . . . . . . 7  |-  ( Base `  R )  =  (
Base `  R )
299, 28, 10frlmbasf 26897 . . . . . 6  |-  ( ( I  e.  X  /\  ( U `  Y )  e.  B )  -> 
( U `  Y
) : I --> ( Base `  R ) )
307, 14, 29syl2anc 643 . . . . 5  |-  ( ph  ->  ( U `  Y
) : I --> ( Base `  R ) )
311fveq2d 5672 . . . . . 6  |-  ( ph  ->  ( Base `  R
)  =  ( Base `  (Scalar `  T )
) )
32 feq3 5518 . . . . . 6  |-  ( (
Base `  R )  =  ( Base `  (Scalar `  T ) )  -> 
( ( U `  Y ) : I --> ( Base `  R
)  <->  ( U `  Y ) : I --> ( Base `  (Scalar `  T ) ) ) )
3331, 32syl 16 . . . . 5  |-  ( ph  ->  ( ( U `  Y ) : I --> ( Base `  R
)  <->  ( U `  Y ) : I --> ( Base `  (Scalar `  T ) ) ) )
3430, 33mpbid 202 . . . 4  |-  ( ph  ->  ( U `  Y
) : I --> ( Base `  (Scalar `  T )
) )
35 frlmup.a . . . 4  |-  ( ph  ->  A : I --> C )
363, 26, 27, 21, 2, 34, 35, 7lcomf 26437 . . 3  |-  ( ph  ->  ( ( U `  Y )  o F 
.x.  A ) : I --> C )
37 ffn 5531 . . . . . . . 8  |-  ( ( U `  Y ) : I --> ( Base `  R )  ->  ( U `  Y )  Fn  I )
3830, 37syl 16 . . . . . . 7  |-  ( ph  ->  ( U `  Y
)  Fn  I )
3938adantr 452 . . . . . 6  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( U `  Y
)  Fn  I )
40 ffn 5531 . . . . . . . 8  |-  ( A : I --> C  ->  A  Fn  I )
4135, 40syl 16 . . . . . . 7  |-  ( ph  ->  A  Fn  I )
4241adantr 452 . . . . . 6  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  ->  A  Fn  I )
437adantr 452 . . . . . 6  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  ->  I  e.  X )
44 eldifi 3412 . . . . . . 7  |-  ( x  e.  ( I  \  { Y } )  ->  x  e.  I )
4544adantl 453 . . . . . 6  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  ->  x  e.  I )
46 fnfvof 6256 . . . . . 6  |-  ( ( ( ( U `  Y )  Fn  I  /\  A  Fn  I
)  /\  ( I  e.  X  /\  x  e.  I ) )  -> 
( ( ( U `
 Y )  o F  .x.  A ) `
 x )  =  ( ( ( U `
 Y ) `  x )  .x.  ( A `  x )
) )
4739, 42, 43, 45, 46syl22anc 1185 . . . . 5  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( ( ( U `
 Y )  o F  .x.  A ) `
 x )  =  ( ( ( U `
 Y ) `  x )  .x.  ( A `  x )
) )
486adantr 452 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  ->  R  e.  Ring )
4913adantr 452 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  ->  Y  e.  I )
50 eldifsni 3871 . . . . . . . . . 10  |-  ( x  e.  ( I  \  { Y } )  ->  x  =/=  Y )
5150necomd 2633 . . . . . . . . 9  |-  ( x  e.  ( I  \  { Y } )  ->  Y  =/=  x )
5251adantl 453 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  ->  Y  =/=  x )
53 eqid 2387 . . . . . . . 8  |-  ( 0g
`  R )  =  ( 0g `  R
)
548, 48, 43, 49, 45, 52, 53uvcvv0 26908 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( ( U `  Y ) `  x
)  =  ( 0g
`  R ) )
551fveq2d 5672 . . . . . . . 8  |-  ( ph  ->  ( 0g `  R
)  =  ( 0g
`  (Scalar `  T )
) )
5655adantr 452 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( 0g `  R
)  =  ( 0g
`  (Scalar `  T )
) )
5754, 56eqtrd 2419 . . . . . 6  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( ( U `  Y ) `  x
)  =  ( 0g
`  (Scalar `  T )
) )
5857oveq1d 6035 . . . . 5  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( ( ( U `
 Y ) `  x )  .x.  ( A `  x )
)  =  ( ( 0g `  (Scalar `  T ) )  .x.  ( A `  x ) ) )
592adantr 452 . . . . . 6  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  ->  T  e.  LMod )
60 ffvelrn 5807 . . . . . . 7  |-  ( ( A : I --> C  /\  x  e.  I )  ->  ( A `  x
)  e.  C )
6135, 44, 60syl2an 464 . . . . . 6  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( A `  x
)  e.  C )
62 eqid 2387 . . . . . . 7  |-  ( 0g
`  (Scalar `  T )
)  =  ( 0g
`  (Scalar `  T )
)
6321, 3, 27, 62, 22lmod0vs 15910 . . . . . 6  |-  ( ( T  e.  LMod  /\  ( A `  x )  e.  C )  ->  (
( 0g `  (Scalar `  T ) )  .x.  ( A `  x ) )  =  ( 0g
`  T ) )
6459, 61, 63syl2anc 643 . . . . 5  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( ( 0g `  (Scalar `  T ) ) 
.x.  ( A `  x ) )  =  ( 0g `  T
) )
6547, 58, 643eqtrd 2423 . . . 4  |-  ( (
ph  /\  x  e.  ( I  \  { Y } ) )  -> 
( ( ( U `
 Y )  o F  .x.  A ) `
 x )  =  ( 0g `  T
) )
6636, 65suppss 5802 . . 3  |-  ( ph  ->  ( `' ( ( U `  Y )  o F  .x.  A
) " ( _V 
\  { ( 0g
`  T ) } ) )  C_  { Y } )
6721, 22, 25, 7, 13, 36, 66gsumpt 15472 . 2  |-  ( ph  ->  ( T  gsumg  ( ( U `  Y )  o F 
.x.  A ) )  =  ( ( ( U `  Y )  o F  .x.  A
) `  Y )
)
68 fnfvof 6256 . . . 4  |-  ( ( ( ( U `  Y )  Fn  I  /\  A  Fn  I
)  /\  ( I  e.  X  /\  Y  e.  I ) )  -> 
( ( ( U `
 Y )  o F  .x.  A ) `
 Y )  =  ( ( ( U `
 Y ) `  Y )  .x.  ( A `  Y )
) )
6938, 41, 7, 13, 68syl22anc 1185 . . 3  |-  ( ph  ->  ( ( ( U `
 Y )  o F  .x.  A ) `
 Y )  =  ( ( ( U `
 Y ) `  Y )  .x.  ( A `  Y )
) )
70 eqid 2387 . . . . . 6  |-  ( 1r
`  R )  =  ( 1r `  R
)
718, 6, 7, 13, 70uvcvv1 26907 . . . . 5  |-  ( ph  ->  ( ( U `  Y ) `  Y
)  =  ( 1r
`  R ) )
721fveq2d 5672 . . . . 5  |-  ( ph  ->  ( 1r `  R
)  =  ( 1r
`  (Scalar `  T )
) )
7371, 72eqtrd 2419 . . . 4  |-  ( ph  ->  ( ( U `  Y ) `  Y
)  =  ( 1r
`  (Scalar `  T )
) )
7473oveq1d 6035 . . 3  |-  ( ph  ->  ( ( ( U `
 Y ) `  Y )  .x.  ( A `  Y )
)  =  ( ( 1r `  (Scalar `  T ) )  .x.  ( A `  Y ) ) )
7535, 13ffvelrnd 5810 . . . 4  |-  ( ph  ->  ( A `  Y
)  e.  C )
76 eqid 2387 . . . . 5  |-  ( 1r
`  (Scalar `  T )
)  =  ( 1r
`  (Scalar `  T )
)
7721, 3, 27, 76lmodvs1 15905 . . . 4  |-  ( ( T  e.  LMod  /\  ( A `  Y )  e.  C )  ->  (
( 1r `  (Scalar `  T ) )  .x.  ( A `  Y ) )  =  ( A `
 Y ) )
782, 75, 77syl2anc 643 . . 3  |-  ( ph  ->  ( ( 1r `  (Scalar `  T ) ) 
.x.  ( A `  Y ) )  =  ( A `  Y
) )
7969, 74, 783eqtrd 2423 . 2  |-  ( ph  ->  ( ( ( U `
 Y )  o F  .x.  A ) `
 Y )  =  ( A `  Y
) )
8020, 67, 793eqtrd 2423 1  |-  ( ph  ->  ( E `  ( U `  Y )
)  =  ( A `
 Y ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 177    /\ wa 359    = wceq 1649    e. wcel 1717    =/= wne 2550    \ cdif 3260   {csn 3757    e. cmpt 4207    Fn wfn 5389   -->wf 5390   ` cfv 5394  (class class class)co 6020    o Fcof 6242   Basecbs 13396  Scalarcsca 13459   .scvsca 13460   0gc0g 13650    gsumg cgsu 13651   Mndcmnd 14611  CMndccmn 15339   Ringcrg 15587   1rcur 15589   LModclmod 15877   freeLMod cfrlm 26881   unitVec cuvc 26882
This theorem is referenced by:  frlmup3  26921  frlmup4  26922
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2368  ax-rep 4261  ax-sep 4271  ax-nul 4279  ax-pow 4318  ax-pr 4344  ax-un 4641  ax-inf2 7529  ax-cnex 8979  ax-resscn 8980  ax-1cn 8981  ax-icn 8982  ax-addcl 8983  ax-addrcl 8984  ax-mulcl 8985  ax-mulrcl 8986  ax-mulcom 8987  ax-addass 8988  ax-mulass 8989  ax-distr 8990  ax-i2m1 8991  ax-1ne0 8992  ax-1rid 8993  ax-rnegex 8994  ax-rrecex 8995  ax-cnre 8996  ax-pre-lttri 8997  ax-pre-lttrn 8998  ax-pre-ltadd 8999  ax-pre-mulgt0 9000
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2242  df-mo 2243  df-clab 2374  df-cleq 2380  df-clel 2383  df-nfc 2512  df-ne 2552  df-nel 2553  df-ral 2654  df-rex 2655  df-reu 2656  df-rmo 2657  df-rab 2658  df-v 2901  df-sbc 3105  df-csb 3195  df-dif 3266  df-un 3268  df-in 3270  df-ss 3277  df-pss 3279  df-nul 3572  df-if 3683  df-pw 3744  df-sn 3763  df-pr 3764  df-tp 3765  df-op 3766  df-uni 3958  df-int 3993  df-iun 4037  df-iin 4038  df-br 4154  df-opab 4208  df-mpt 4209  df-tr 4244  df-eprel 4435  df-id 4439  df-po 4444  df-so 4445  df-fr 4482  df-se 4483  df-we 4484  df-ord 4525  df-on 4526  df-lim 4527  df-suc 4528  df-om 4786  df-xp 4824  df-rel 4825  df-cnv 4826  df-co 4827  df-dm 4828  df-rn 4829  df-res 4830  df-ima 4831  df-iota 5358  df-fun 5396  df-fn 5397  df-f 5398  df-f1 5399  df-fo 5400  df-f1o 5401  df-fv 5402  df-isom 5403  df-ov 6023  df-oprab 6024  df-mpt2 6025  df-of 6244  df-1st 6288  df-2nd 6289  df-riota 6485  df-recs 6569  df-rdg 6604  df-1o 6660  df-oadd 6664  df-er 6841  df-map 6956  df-ixp 7000  df-en 7046  df-dom 7047  df-sdom 7048  df-fin 7049  df-sup 7381  df-oi 7412  df-card 7759  df-pnf 9055  df-mnf 9056  df-xr 9057  df-ltxr 9058  df-le 9059  df-sub 9225  df-neg 9226  df-nn 9933  df-2 9990  df-3 9991  df-4 9992  df-5 9993  df-6 9994  df-7 9995  df-8 9996  df-9 9997  df-10 9998  df-n0 10154  df-z 10215  df-dec 10315  df-uz 10421  df-fz 10976  df-fzo 11066  df-seq 11251  df-hash 11546  df-struct 13398  df-ndx 13399  df-slot 13400  df-base 13401  df-sets 13402  df-ress 13403  df-plusg 13469  df-mulr 13470  df-sca 13472  df-vsca 13473  df-tset 13475  df-ple 13476  df-ds 13478  df-hom 13480  df-cco 13481  df-prds 13598  df-pws 13600  df-0g 13654  df-gsum 13655  df-mre 13738  df-mrc 13739  df-acs 13741  df-mnd 14617  df-submnd 14666  df-grp 14739  df-minusg 14740  df-mulg 14742  df-cntz 15043  df-cmn 15341  df-abl 15342  df-mgp 15576  df-rng 15590  df-ur 15592  df-lmod 15879  df-sra 16171  df-rgmod 16172  df-dsmm 26867  df-frlm 26883  df-uvc 26884
  Copyright terms: Public domain W3C validator