Theorem seq1 14021

Description: Value of the sequence builder function at its initial value. (Contributed by Mario Carneiro, 24-Jun-2013.) (Revised by Mario Carneiro, 15-Sep-2013.)

Assertion

Ref	Expression
seq1	⊢ (𝑀 ∈ ℤ → (seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀))

Proof of Theorem seq1

Dummy variables 𝑥 𝑤 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		seqeq1 14011	. . . 4 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → seq𝑀( + , 𝐹) = seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹))
2		id 22	. . . 4 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → 𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0))
3	1, 2	fveq12d 6869	. . 3 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → (seq𝑀( + , 𝐹)‘𝑀) = (seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹)‘if(𝑀 ∈ ℤ, 𝑀, 0)))
4		fveq2 6862	. . 3 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → (𝐹‘𝑀) = (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0)))
5	3, 4	eqeq12d 2777	. 2 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → ((seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀) ↔ (seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹)‘if(𝑀 ∈ ℤ, 𝑀, 0)) = (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0))))
6		0z 12573	. . . 4 ⊢ 0 ∈ ℤ
7	6	elimel 4547	. . 3 ⊢ if(𝑀 ∈ ℤ, 𝑀, 0) ∈ ℤ
8		eqid 2761	. . 3 ⊢ (rec((𝑥 ∈ V ↦ (𝑥 + 1)), if(𝑀 ∈ ℤ, 𝑀, 0)) ↾ ω) = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), if(𝑀 ∈ ℤ, 𝑀, 0)) ↾ ω)
9		fvex 6875	. . 3 ⊢ (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0)) ∈ V
10		eqid 2761	. . 3 ⊢ (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥(𝑧 ∈ V, 𝑤 ∈ V ↦ (𝑤 + (𝐹‘(𝑧 + 1))))𝑦)⟩), ⟨if(𝑀 ∈ ℤ, 𝑀, 0), (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0))⟩) ↾ ω) = (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥(𝑧 ∈ V, 𝑤 ∈ V ↦ (𝑤 + (𝐹‘(𝑧 + 1))))𝑦)⟩), ⟨if(𝑀 ∈ ℤ, 𝑀, 0), (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0))⟩) ↾ ω)
11	10	seqval 14019	. . 3 ⊢ seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹) = ran (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥(𝑧 ∈ V, 𝑤 ∈ V ↦ (𝑤 + (𝐹‘(𝑧 + 1))))𝑦)⟩), ⟨if(𝑀 ∈ ℤ, 𝑀, 0), (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0))⟩) ↾ ω)
12	7, 8, 9, 10, 11	uzrdg0i 13966	. 2 ⊢ (seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹)‘if(𝑀 ∈ ℤ, 𝑀, 0)) = (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0))
13	5, 12	dedth 4536	1 ⊢ (𝑀 ∈ ℤ → (seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀))

Syntax hints:   → wi 4   = wceq 1559   ∈ wcel 2141  Vcvv 3453  ifcif 4477  ⟨cop 4585   ↦ cmpt 5178   ↾ cres 5645  ‘cfv 6516  (class class class)co 7391   ∈ cmpo 7393  ωcom 7841  reccrdg 8374  0cc0 11067  1c1 11068   + caddc 11070  ℤcz 12562  seqcseq 14008

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7713  ax-cnex 11123  ax-resscn 11124  ax-1cn 11125  ax-icn 11126  ax-addcl 11127  ax-addrcl 11128  ax-mulcl 11129  ax-mulrcl 11130  ax-mulcom 11131  ax-addass 11132  ax-mulass 11133  ax-distr 11134  ax-i2m1 11135  ax-1ne0 11136  ax-1rid 11137  ax-rnegex 11138  ax-rrecex 11139  ax-cnre 11140  ax-pre-lttri 11141  ax-pre-lttrn 11142  ax-pre-ltadd 11143  ax-pre-mulgt0 11144

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3061  df-ral 3076  df-rex 3086  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5538  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-pred 6283  df-ord 6344  df-on 6345  df-lim 6346  df-suc 6347  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-riota 7348  df-ov 7394  df-oprab 7395  df-mpo 7396  df-om 7842  df-2nd 7966  df-frecs 8256  df-wrecs 8287  df-recs 8336  df-rdg 8375  df-er 8672  df-en 8922  df-dom 8923  df-sdom 8924  df-pnf 11212  df-mnf 11213  df-xr 11214  df-ltxr 11215  df-le 11216  df-sub 11410  df-neg 11411  df-nn 12205  df-n0 12476  df-z 12563  df-uz 12834  df-seq 14009

This theorem is referenced by:  seq1i  14022  seqexw  14024  seqcl2  14027  seqfveq2  14031  seqfveq  14033  seqshft2  14035  seqsplit  14042  seq1p  14043  seqcaopr3  14044  seqf1olem2a  14047  seqf1olem2  14049  seqf1o  14050  seqid  14054  seqhomo  14056  seqz  14057  exp1  14074  fac1  14284  bcn2  14326  seqcoll  14471  isumrpcl  15864  clim2prod  15909  prodfn0  15915  prodfrec  15916  ruclem6  16258  sadc0  16479  smup0  16504  seq1st  16596  algr0  16597  eulerthlem2  16808  pcmpt  16919  gsumsplit1r  18712  gsumprval  18713  mulgfval  19102  voliunlem1  25600  volsup  25606  abelthlem6  26487  abelthlem9  26491  leibpi  26995  bposlem5  27340  opsqrlem2  32301  esumfzf  34327  sseqp1  34653  rrvsum  34712  cvmliftlem4  35599  iprodefisumlem  36051  faclimlem1  36054  heiborlem4  38274  fmul01  46117  fmuldfeq  46120  fmul01lt1lem1  46121  stoweidlem3  46538  wallispilem4  46603  wallispi2lem1  46606  wallispi2lem2  46607  stirlinglem7  46615  stirlinglem11  46619  sge0isum  46962  ackval0  49263