ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  seqf Unicode version

Theorem seqf 10185
Description: Range of the recursive sequence builder. (Contributed by Mario Carneiro, 24-Jun-2013.)
Hypotheses
Ref Expression
seqf.1  |-  Z  =  ( ZZ>= `  M )
seqf.2  |-  ( ph  ->  M  e.  ZZ )
seqf.3  |-  ( (
ph  /\  x  e.  Z )  ->  ( F `  x )  e.  S )
seqf.4  |-  ( (
ph  /\  ( x  e.  S  /\  y  e.  S ) )  -> 
( x  .+  y
)  e.  S )
Assertion
Ref Expression
seqf  |-  ( ph  ->  seq M (  .+  ,  F ) : Z --> S )
Distinct variable groups:    x,  .+ , y    x, F, y    x, M, y    x, S, y   
x, Z    ph, x, y
Allowed substitution hint:    Z( y)

Proof of Theorem seqf
Dummy variables  a  b  s  t  w  z  u  v  c are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 seqf.2 . . 3  |-  ( ph  ->  M  e.  ZZ )
2 fveq2 5387 . . . . 5  |-  ( x  =  M  ->  ( F `  x )  =  ( F `  M ) )
32eleq1d 2184 . . . 4  |-  ( x  =  M  ->  (
( F `  x
)  e.  S  <->  ( F `  M )  e.  S
) )
4 seqf.3 . . . . 5  |-  ( (
ph  /\  x  e.  Z )  ->  ( F `  x )  e.  S )
54ralrimiva 2480 . . . 4  |-  ( ph  ->  A. x  e.  Z  ( F `  x )  e.  S )
6 uzid 9292 . . . . . 6  |-  ( M  e.  ZZ  ->  M  e.  ( ZZ>= `  M )
)
71, 6syl 14 . . . . 5  |-  ( ph  ->  M  e.  ( ZZ>= `  M ) )
8 seqf.1 . . . . 5  |-  Z  =  ( ZZ>= `  M )
97, 8syl6eleqr 2209 . . . 4  |-  ( ph  ->  M  e.  Z )
103, 5, 9rspcdva 2766 . . 3  |-  ( ph  ->  ( F `  M
)  e.  S )
11 ssv 3087 . . . 4  |-  S  C_  _V
1211a1i 9 . . 3  |-  ( ph  ->  S  C_  _V )
13 simprl 503 . . . . 5  |-  ( (
ph  /\  ( x  e.  ( ZZ>= `  M )  /\  y  e.  S
) )  ->  x  e.  ( ZZ>= `  M )
)
14 simprr 504 . . . . 5  |-  ( (
ph  /\  ( x  e.  ( ZZ>= `  M )  /\  y  e.  S
) )  ->  y  e.  S )
15 seqf.4 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  S  /\  y  e.  S ) )  -> 
( x  .+  y
)  e.  S )
1615caovclg 5889 . . . . . . 7  |-  ( (
ph  /\  ( a  e.  S  /\  b  e.  S ) )  -> 
( a  .+  b
)  e.  S )
1716adantlr 466 . . . . . 6  |-  ( ( ( ph  /\  (
x  e.  ( ZZ>= `  M )  /\  y  e.  S ) )  /\  ( a  e.  S  /\  b  e.  S
) )  ->  (
a  .+  b )  e.  S )
18 fveq2 5387 . . . . . . . 8  |-  ( c  =  ( x  + 
1 )  ->  ( F `  c )  =  ( F `  ( x  +  1
) ) )
1918eleq1d 2184 . . . . . . 7  |-  ( c  =  ( x  + 
1 )  ->  (
( F `  c
)  e.  S  <->  ( F `  ( x  +  1 ) )  e.  S
) )
20 fveq2 5387 . . . . . . . . . . 11  |-  ( x  =  c  ->  ( F `  x )  =  ( F `  c ) )
2120eleq1d 2184 . . . . . . . . . 10  |-  ( x  =  c  ->  (
( F `  x
)  e.  S  <->  ( F `  c )  e.  S
) )
2221cbvralv 2629 . . . . . . . . 9  |-  ( A. x  e.  Z  ( F `  x )  e.  S  <->  A. c  e.  Z  ( F `  c )  e.  S )
235, 22sylib 121 . . . . . . . 8  |-  ( ph  ->  A. c  e.  Z  ( F `  c )  e.  S )
2423adantr 272 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  ( ZZ>= `  M )  /\  y  e.  S
) )  ->  A. c  e.  Z  ( F `  c )  e.  S
)
25 peano2uz 9330 . . . . . . . . 9  |-  ( x  e.  ( ZZ>= `  M
)  ->  ( x  +  1 )  e.  ( ZZ>= `  M )
)
2625, 8syl6eleqr 2209 . . . . . . . 8  |-  ( x  e.  ( ZZ>= `  M
)  ->  ( x  +  1 )  e.  Z )
2713, 26syl 14 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  ( ZZ>= `  M )  /\  y  e.  S
) )  ->  (
x  +  1 )  e.  Z )
2819, 24, 27rspcdva 2766 . . . . . 6  |-  ( (
ph  /\  ( x  e.  ( ZZ>= `  M )  /\  y  e.  S
) )  ->  ( F `  ( x  +  1 ) )  e.  S )
2917, 14, 28caovcld 5890 . . . . 5  |-  ( (
ph  /\  ( x  e.  ( ZZ>= `  M )  /\  y  e.  S
) )  ->  (
y  .+  ( F `  ( x  +  1 ) ) )  e.  S )
30 fvoveq1 5763 . . . . . . 7  |-  ( z  =  x  ->  ( F `  ( z  +  1 ) )  =  ( F `  ( x  +  1
) ) )
3130oveq2d 5756 . . . . . 6  |-  ( z  =  x  ->  (
w  .+  ( F `  ( z  +  1 ) ) )  =  ( w  .+  ( F `  ( x  +  1 ) ) ) )
32 oveq1 5747 . . . . . 6  |-  ( w  =  y  ->  (
w  .+  ( F `  ( x  +  1 ) ) )  =  ( y  .+  ( F `  ( x  +  1 ) ) ) )
33 eqid 2115 . . . . . 6  |-  ( z  e.  ( ZZ>= `  M
) ,  w  e.  S  |->  ( w  .+  ( F `  ( z  +  1 ) ) ) )  =  ( z  e.  ( ZZ>= `  M ) ,  w  e.  S  |->  ( w 
.+  ( F `  ( z  +  1 ) ) ) )
3431, 32, 33ovmpog 5871 . . . . 5  |-  ( ( x  e.  ( ZZ>= `  M )  /\  y  e.  S  /\  (
y  .+  ( F `  ( x  +  1 ) ) )  e.  S )  ->  (
x ( z  e.  ( ZZ>= `  M ) ,  w  e.  S  |->  ( w  .+  ( F `  ( z  +  1 ) ) ) ) y )  =  ( y  .+  ( F `  ( x  +  1 ) ) ) )
3513, 14, 29, 34syl3anc 1199 . . . 4  |-  ( (
ph  /\  ( x  e.  ( ZZ>= `  M )  /\  y  e.  S
) )  ->  (
x ( z  e.  ( ZZ>= `  M ) ,  w  e.  S  |->  ( w  .+  ( F `  ( z  +  1 ) ) ) ) y )  =  ( y  .+  ( F `  ( x  +  1 ) ) ) )
3635, 29eqeltrd 2192 . . 3  |-  ( (
ph  /\  ( x  e.  ( ZZ>= `  M )  /\  y  e.  S
) )  ->  (
x ( z  e.  ( ZZ>= `  M ) ,  w  e.  S  |->  ( w  .+  ( F `  ( z  +  1 ) ) ) ) y )  e.  S )
37 iseqvalcbv 10181 . . 3  |- frec ( ( s  e.  ( ZZ>= `  M ) ,  t  e.  _V  |->  <. (
s  +  1 ) ,  ( s ( u  e.  ( ZZ>= `  M ) ,  v  e.  S  |->  ( v 
.+  ( F `  ( u  +  1
) ) ) ) t ) >. ) ,  <. M ,  ( F `  M )
>. )  = frec (
( x  e.  (
ZZ>= `  M ) ,  y  e.  _V  |->  <.
( x  +  1 ) ,  ( x ( z  e.  (
ZZ>= `  M ) ,  w  e.  S  |->  ( w  .+  ( F `
 ( z  +  1 ) ) ) ) y ) >.
) ,  <. M , 
( F `  M
) >. )
388eleq2i 2182 . . . . 5  |-  ( x  e.  Z  <->  x  e.  ( ZZ>= `  M )
)
3938, 4sylan2br 284 . . . 4  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  ( F `  x )  e.  S
)
401, 37, 39, 15seq3val 10182 . . 3  |-  ( ph  ->  seq M (  .+  ,  F )  =  ran frec ( ( s  e.  (
ZZ>= `  M ) ,  t  e.  _V  |->  <.
( s  +  1 ) ,  ( s ( u  e.  (
ZZ>= `  M ) ,  v  e.  S  |->  ( v  .+  ( F `
 ( u  + 
1 ) ) ) ) t ) >.
) ,  <. M , 
( F `  M
) >. ) )
411, 10, 12, 36, 37, 40frecuzrdgtclt 10145 . 2  |-  ( ph  ->  seq M (  .+  ,  F ) : (
ZZ>= `  M ) --> S )
428a1i 9 . . 3  |-  ( ph  ->  Z  =  ( ZZ>= `  M ) )
4342feq2d 5228 . 2  |-  ( ph  ->  (  seq M ( 
.+  ,  F ) : Z --> S  <->  seq M ( 
.+  ,  F ) : ( ZZ>= `  M
) --> S ) )
4441, 43mpbird 166 1  |-  ( ph  ->  seq M (  .+  ,  F ) : Z --> S )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103    = wceq 1314    e. wcel 1463   A.wral 2391   _Vcvv 2658    C_ wss 3039   <.cop 3498   -->wf 5087   ` cfv 5091  (class class class)co 5740    e. cmpo 5742  freccfrec 6253   1c1 7585    + caddc 7587   ZZcz 9008   ZZ>=cuz 9278    seqcseq 10169
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 586  ax-in2 587  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-13 1474  ax-14 1475  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-coll 4011  ax-sep 4014  ax-nul 4022  ax-pow 4066  ax-pr 4099  ax-un 4323  ax-setind 4420  ax-iinf 4470  ax-cnex 7675  ax-resscn 7676  ax-1cn 7677  ax-1re 7678  ax-icn 7679  ax-addcl 7680  ax-addrcl 7681  ax-mulcl 7682  ax-addcom 7684  ax-addass 7686  ax-distr 7688  ax-i2m1 7689  ax-0lt1 7690  ax-0id 7692  ax-rnegex 7693  ax-cnre 7695  ax-pre-ltirr 7696  ax-pre-ltwlin 7697  ax-pre-lttrn 7698  ax-pre-ltadd 7700
This theorem depends on definitions:  df-bi 116  df-3or 946  df-3an 947  df-tru 1317  df-fal 1320  df-nf 1420  df-sb 1719  df-eu 1978  df-mo 1979  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2245  df-ne 2284  df-nel 2379  df-ral 2396  df-rex 2397  df-reu 2398  df-rab 2400  df-v 2660  df-sbc 2881  df-csb 2974  df-dif 3041  df-un 3043  df-in 3045  df-ss 3052  df-nul 3332  df-pw 3480  df-sn 3501  df-pr 3502  df-op 3504  df-uni 3705  df-int 3740  df-iun 3783  df-br 3898  df-opab 3958  df-mpt 3959  df-tr 3995  df-id 4183  df-iord 4256  df-on 4258  df-ilim 4259  df-suc 4261  df-iom 4473  df-xp 4513  df-rel 4514  df-cnv 4515  df-co 4516  df-dm 4517  df-rn 4518  df-res 4519  df-ima 4520  df-iota 5056  df-fun 5093  df-fn 5094  df-f 5095  df-f1 5096  df-fo 5097  df-f1o 5098  df-fv 5099  df-riota 5696  df-ov 5743  df-oprab 5744  df-mpo 5745  df-1st 6004  df-2nd 6005  df-recs 6168  df-frec 6254  df-pnf 7766  df-mnf 7767  df-xr 7768  df-ltxr 7769  df-le 7770  df-sub 7899  df-neg 7900  df-inn 8681  df-n0 8932  df-z 9009  df-uz 9279  df-seqfrec 10170
This theorem is referenced by:  seq3p1  10186  seq3feq2  10194  seq3feq  10196  serf  10198  serfre  10199  seq3split  10203  seq3caopr2  10206  seq3f1olemqsumkj  10222  seq3homo  10234  seq3z  10235  seqfeq3  10236  seq3distr  10237  ser3ge0  10241  exp3vallem  10245  exp3val  10246  facnn  10424  fac0  10425  bcval5  10460  seq3coll  10536  seq3shft  10561  resqrexlemf  10730  algrf  11633
  Copyright terms: Public domain W3C validator