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

Theorem mvrf1 16409
Description: The power series variable function is injective if the base ring is nonzero. (Contributed by Mario Carneiro, 29-Dec-2014.)
Hypotheses
Ref Expression
mvrf.s  |-  S  =  ( I mPwSer  R )
mvrf.v  |-  V  =  ( I mVar  R )
mvrf.b  |-  B  =  ( Base `  S
)
mvrf.i  |-  ( ph  ->  I  e.  W )
mvrf.r  |-  ( ph  ->  R  e.  Ring )
mvrf1.z  |-  .0.  =  ( 0g `  R )
mvrf1.o  |-  .1.  =  ( 1r `  R )
mvrf1.n  |-  ( ph  ->  .1.  =/=  .0.  )
Assertion
Ref Expression
mvrf1  |-  ( ph  ->  V : I -1-1-> B
)

Proof of Theorem mvrf1
Dummy variables  h  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mvrf.s . . 3  |-  S  =  ( I mPwSer  R )
2 mvrf.v . . 3  |-  V  =  ( I mVar  R )
3 mvrf.b . . 3  |-  B  =  ( Base `  S
)
4 mvrf.i . . 3  |-  ( ph  ->  I  e.  W )
5 mvrf.r . . 3  |-  ( ph  ->  R  e.  Ring )
61, 2, 3, 4, 5mvrf 16408 . 2  |-  ( ph  ->  V : I --> B )
7 mvrf1.n . . . . . 6  |-  ( ph  ->  .1.  =/=  .0.  )
87adantr 452 . . . . 5  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) ) )  ->  .1.  =/=  .0.  )
9 simp2r 984 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  ( V `  x )  =  ( V `  y ) )
109fveq1d 5663 . . . . . . . . 9  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  (
( V `  x
) `  ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) ) )  =  ( ( V `  y
) `  ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) ) ) )
11 eqid 2380 . . . . . . . . . 10  |-  { h  e.  ( NN0  ^m  I
)  |  ( `' h " NN )  e.  Fin }  =  { h  e.  ( NN0  ^m  I )  |  ( `' h " NN )  e.  Fin }
12 mvrf1.z . . . . . . . . . 10  |-  .0.  =  ( 0g `  R )
13 mvrf1.o . . . . . . . . . 10  |-  .1.  =  ( 1r `  R )
1443ad2ant1 978 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  I  e.  W )
1553ad2ant1 978 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  R  e.  Ring )
16 simp2ll 1024 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  x  e.  I )
172, 11, 12, 13, 14, 15, 16mvrid 16407 . . . . . . . . 9  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  (
( V `  x
) `  ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) ) )  =  .1.  )
18 simp2lr 1025 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  y  e.  I )
1911mvridlem 16403 . . . . . . . . . . 11  |-  ( I  e.  W  ->  (
z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  e.  {
h  e.  ( NN0 
^m  I )  |  ( `' h " NN )  e.  Fin } )
2014, 19syl 16 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  (
z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  e.  {
h  e.  ( NN0 
^m  I )  |  ( `' h " NN )  e.  Fin } )
212, 11, 12, 13, 14, 15, 18, 20mvrval2 16406 . . . . . . . . 9  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  (
( V `  y
) `  ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) ) )  =  if ( ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) ) ,  .1.  ,  .0.  ) )
2210, 17, 213eqtr3d 2420 . . . . . . . 8  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  .1.  =  if ( ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) ) ,  .1.  ,  .0.  ) )
23 simp3 959 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  -.  x  =  y )
24 mpteqb 5751 . . . . . . . . . . . . . 14  |-  ( A. z  e.  I  if ( z  =  x ,  1 ,  0 )  e.  NN0  ->  ( ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) )  <->  A. z  e.  I  if (
z  =  x ,  1 ,  0 )  =  if ( z  =  y ,  1 ,  0 ) ) )
25 1nn0 10162 . . . . . . . . . . . . . . . 16  |-  1  e.  NN0
26 0nn0 10161 . . . . . . . . . . . . . . . 16  |-  0  e.  NN0
2725, 26keepel 3732 . . . . . . . . . . . . . . 15  |-  if ( z  =  x ,  1 ,  0 )  e.  NN0
2827a1i 11 . . . . . . . . . . . . . 14  |-  ( z  e.  I  ->  if ( z  =  x ,  1 ,  0 )  e.  NN0 )
2924, 28mprg 2711 . . . . . . . . . . . . 13  |-  ( ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) )  <->  A. z  e.  I  if (
z  =  x ,  1 ,  0 )  =  if ( z  =  y ,  1 ,  0 ) )
30 iftrue 3681 . . . . . . . . . . . . . . 15  |-  ( z  =  x  ->  if ( z  =  x ,  1 ,  0 )  =  1 )
31 eqeq1 2386 . . . . . . . . . . . . . . . 16  |-  ( z  =  x  ->  (
z  =  y  <->  x  =  y ) )
3231ifbid 3693 . . . . . . . . . . . . . . 15  |-  ( z  =  x  ->  if ( z  =  y ,  1 ,  0 )  =  if ( x  =  y ,  1 ,  0 ) )
3330, 32eqeq12d 2394 . . . . . . . . . . . . . 14  |-  ( z  =  x  ->  ( if ( z  =  x ,  1 ,  0 )  =  if ( z  =  y ,  1 ,  0 )  <->  1  =  if ( x  =  y ,  1 ,  0 ) ) )
3433rspcv 2984 . . . . . . . . . . . . 13  |-  ( x  e.  I  ->  ( A. z  e.  I  if ( z  =  x ,  1 ,  0 )  =  if ( z  =  y ,  1 ,  0 )  ->  1  =  if ( x  =  y ,  1 ,  0 ) ) )
3529, 34syl5bi 209 . . . . . . . . . . . 12  |-  ( x  e.  I  ->  (
( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) )  -> 
1  =  if ( x  =  y ,  1 ,  0 ) ) )
3616, 35syl 16 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  (
( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) )  -> 
1  =  if ( x  =  y ,  1 ,  0 ) ) )
37 ax-1ne0 8985 . . . . . . . . . . . . 13  |-  1  =/=  0
38 eqeq1 2386 . . . . . . . . . . . . . 14  |-  ( 1  =  if ( x  =  y ,  1 ,  0 )  -> 
( 1  =  0  <-> 
if ( x  =  y ,  1 ,  0 )  =  0 ) )
3938necon3abid 2576 . . . . . . . . . . . . 13  |-  ( 1  =  if ( x  =  y ,  1 ,  0 )  -> 
( 1  =/=  0  <->  -.  if ( x  =  y ,  1 ,  0 )  =  0 ) )
4037, 39mpbii 203 . . . . . . . . . . . 12  |-  ( 1  =  if ( x  =  y ,  1 ,  0 )  ->  -.  if ( x  =  y ,  1 ,  0 )  =  0 )
41 iffalse 3682 . . . . . . . . . . . 12  |-  ( -.  x  =  y  ->  if ( x  =  y ,  1 ,  0 )  =  0 )
4240, 41nsyl2 121 . . . . . . . . . . 11  |-  ( 1  =  if ( x  =  y ,  1 ,  0 )  ->  x  =  y )
4336, 42syl6 31 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  (
( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) )  ->  x  =  y )
)
4423, 43mtod 170 . . . . . . . . 9  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  -.  ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) ) )
45 iffalse 3682 . . . . . . . . 9  |-  ( -.  ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) )  ->  if ( ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) ) ,  .1.  ,  .0.  )  =  .0.  )
4644, 45syl 16 . . . . . . . 8  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  if ( ( z  e.  I  |->  if ( z  =  x ,  1 ,  0 ) )  =  ( z  e.  I  |->  if ( z  =  y ,  1 ,  0 ) ) ,  .1.  ,  .0.  )  =  .0.  )
4722, 46eqtrd 2412 . . . . . . 7  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) )  /\  -.  x  =  y )  ->  .1.  =  .0.  )
48473expia 1155 . . . . . 6  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) ) )  ->  ( -.  x  =  y  ->  .1.  =  .0.  ) )
4948necon1ad 2610 . . . . 5  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) ) )  ->  (  .1.  =/=  .0.  ->  x  =  y ) )
508, 49mpd 15 . . . 4  |-  ( (
ph  /\  ( (
x  e.  I  /\  y  e.  I )  /\  ( V `  x
)  =  ( V `
 y ) ) )  ->  x  =  y )
5150expr 599 . . 3  |-  ( (
ph  /\  ( x  e.  I  /\  y  e.  I ) )  -> 
( ( V `  x )  =  ( V `  y )  ->  x  =  y ) )
5251ralrimivva 2734 . 2  |-  ( ph  ->  A. x  e.  I  A. y  e.  I 
( ( V `  x )  =  ( V `  y )  ->  x  =  y ) )
53 dff13 5936 . 2  |-  ( V : I -1-1-> B  <->  ( V : I --> B  /\  A. x  e.  I  A. y  e.  I  (
( V `  x
)  =  ( V `
 y )  ->  x  =  y )
) )
546, 52, 53sylanbrc 646 1  |-  ( ph  ->  V : I -1-1-> B
)
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    /\ wa 359    /\ w3a 936    = wceq 1649    e. wcel 1717    =/= wne 2543   A.wral 2642   {crab 2646   ifcif 3675    e. cmpt 4200   `'ccnv 4810   "cima 4814   -->wf 5383   -1-1->wf1 5384   ` cfv 5387  (class class class)co 6013    ^m cmap 6947   Fincfn 7038   0cc0 8916   1c1 8917   NNcn 9925   NN0cn0 10146   Basecbs 13389   0gc0g 13643   Ringcrg 15580   1rcur 15582   mPwSer cmps 16326   mVar cmvr 16327
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 2361  ax-rep 4254  ax-sep 4264  ax-nul 4272  ax-pow 4311  ax-pr 4337  ax-un 4634  ax-cnex 8972  ax-resscn 8973  ax-1cn 8974  ax-icn 8975  ax-addcl 8976  ax-addrcl 8977  ax-mulcl 8978  ax-mulrcl 8979  ax-mulcom 8980  ax-addass 8981  ax-mulass 8982  ax-distr 8983  ax-i2m1 8984  ax-1ne0 8985  ax-1rid 8986  ax-rnegex 8987  ax-rrecex 8988  ax-cnre 8989  ax-pre-lttri 8990  ax-pre-lttrn 8991  ax-pre-ltadd 8992  ax-pre-mulgt0 8993
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 2235  df-mo 2236  df-clab 2367  df-cleq 2373  df-clel 2376  df-nfc 2505  df-ne 2545  df-nel 2546  df-ral 2647  df-rex 2648  df-reu 2649  df-rmo 2650  df-rab 2651  df-v 2894  df-sbc 3098  df-csb 3188  df-dif 3259  df-un 3261  df-in 3263  df-ss 3270  df-pss 3272  df-nul 3565  df-if 3676  df-pw 3737  df-sn 3756  df-pr 3757  df-tp 3758  df-op 3759  df-uni 3951  df-int 3986  df-iun 4030  df-br 4147  df-opab 4201  df-mpt 4202  df-tr 4237  df-eprel 4428  df-id 4432  df-po 4437  df-so 4438  df-fr 4475  df-we 4477  df-ord 4518  df-on 4519  df-lim 4520  df-suc 4521  df-om 4779  df-xp 4817  df-rel 4818  df-cnv 4819  df-co 4820  df-dm 4821  df-rn 4822  df-res 4823  df-ima 4824  df-iota 5351  df-fun 5389  df-fn 5390  df-f 5391  df-f1 5392  df-fo 5393  df-f1o 5394  df-fv 5395  df-ov 6016  df-oprab 6017  df-mpt2 6018  df-of 6237  df-1st 6281  df-2nd 6282  df-riota 6478  df-recs 6562  df-rdg 6597  df-1o 6653  df-oadd 6657  df-er 6834  df-map 6949  df-en 7039  df-dom 7040  df-sdom 7041  df-fin 7042  df-pnf 9048  df-mnf 9049  df-xr 9050  df-ltxr 9051  df-le 9052  df-sub 9218  df-neg 9219  df-nn 9926  df-2 9983  df-3 9984  df-4 9985  df-5 9986  df-6 9987  df-7 9988  df-8 9989  df-9 9990  df-n0 10147  df-z 10208  df-uz 10414  df-fz 10969  df-struct 13391  df-ndx 13392  df-slot 13393  df-base 13394  df-sets 13395  df-plusg 13462  df-mulr 13463  df-sca 13465  df-vsca 13466  df-tset 13468  df-0g 13647  df-mnd 14610  df-grp 14732  df-mgp 15569  df-rng 15583  df-ur 15585  df-psr 16337  df-mvr 16338
  Copyright terms: Public domain W3C validator