Theorem seq1 14046

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 14036	. . . 4 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → seq𝑀( + , 𝐹) = seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹))
2		id 23	. . . 4 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → 𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0))
3	1, 2	fveq12d 6886	. . 3 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → (seq𝑀( + , 𝐹)‘𝑀) = (seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹)‘if(𝑀 ∈ ℤ, 𝑀, 0)))
4		fveq2 6879	. . 3 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → (𝐹‘𝑀) = (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0)))
5	3, 4	eqeq12d 2785	. 2 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 0) → ((seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀) ↔ (seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹)‘if(𝑀 ∈ ℤ, 𝑀, 0)) = (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0))))
6		0z 12598	. . . 4 ⊢ 0 ∈ ℤ
7	6	elimel 4559	. . 3 ⊢ if(𝑀 ∈ ℤ, 𝑀, 0) ∈ ℤ
8		eqid 2769	. . 3 ⊢ (rec((𝑥 ∈ V ↦ (𝑥 + 1)), if(𝑀 ∈ ℤ, 𝑀, 0)) ↾ ω) = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), if(𝑀 ∈ ℤ, 𝑀, 0)) ↾ ω)
9		fvex 6892	. . 3 ⊢ (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0)) ∈ V
10		eqid 2769	. . 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 14044	. . 3 ⊢ seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹) = ran (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥(𝑧 ∈ V, 𝑤 ∈ V ↦ (𝑤 + (𝐹‘(𝑧 + 1))))𝑦)⟩), ⟨if(𝑀 ∈ ℤ, 𝑀, 0), (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0))⟩) ↾ ω)
12	7, 8, 9, 10, 11	uzrdg0i 13991	. 2 ⊢ (seqif(𝑀 ∈ ℤ, 𝑀, 0)( + , 𝐹)‘if(𝑀 ∈ ℤ, 𝑀, 0)) = (𝐹‘if(𝑀 ∈ ℤ, 𝑀, 0))
13	5, 12	dedth 4548	1 ⊢ (𝑀 ∈ ℤ → (seq𝑀( + , 𝐹)‘𝑀) = (𝐹‘𝑀))

Syntax hints:   → wi 4   = wceq 1567   ∈ wcel 2149  Vcvv 3463  ifcif 4489  ⟨cop 4597   ↦ cmpt 5193   ↾ cres 5661  ‘cfv 6534  (class class class)co 7408   ∈ cmpo 7410  ωcom 7858  reccrdg 8392  0cc0 11096  1c1 11097   + caddc 11099  ℤcz 12587  seqcseq 14033

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730  ax-cnex 11152  ax-resscn 11153  ax-1cn 11154  ax-icn 11155  ax-addcl 11156  ax-addrcl 11157  ax-mulcl 11158  ax-mulrcl 11159  ax-mulcom 11160  ax-addass 11161  ax-mulass 11162  ax-distr 11163  ax-i2m1 11164  ax-1ne0 11165  ax-1rid 11166  ax-rnegex 11167  ax-rrecex 11168  ax-cnre 11169  ax-pre-lttri 11170  ax-pre-lttrn 11171  ax-pre-ltadd 11172  ax-pre-mulgt0 11173

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6300  df-ord 6361  df-on 6362  df-lim 6363  df-suc 6364  df-iota 6490  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7859  df-2nd 7983  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-er 8690  df-en 8940  df-dom 8941  df-sdom 8942  df-pnf 11241  df-mnf 11242  df-xr 11243  df-ltxr 11244  df-le 11245  df-sub 11439  df-neg 11440  df-nn 12230  df-n0 12501  df-z 12588  df-uz 12859  df-seq 14034

This theorem is referenced by:  seq1i  14047  seqexw  14049  seqcl2  14052  seqfveq2  14056  seqfveq  14058  seqshft2  14060  seqsplit  14067  seq1p  14068  seqcaopr3  14069  seqf1olem2a  14072  seqf1olem2  14074  seqf1o  14075  seqid  14079  seqhomo  14081  seqz  14082  exp1  14099  fac1  14309  bcn2  14351  seqcoll  14497  isumrpcl  15893  clim2prod  15938  prodfn0  15944  prodfrec  15945  ruclem6  16287  sadc0  16508  smup0  16533  seq1st  16625  algr0  16626  eulerthlem2  16837  pcmpt  16948  gsumsplit1r  18741  gsumprval  18742  mulgfval  19131  voliunlem1  25674  volsup  25680  abelthlem6  26561  abelthlem9  26565  leibpi  27069  bposlem5  27414  opsqrlem2  32430  esumfzf  34400  sseqp1  34726  rrvsum  34785  cvmliftlem4  35675  iprodefisumlem  36127  faclimlem1  36130  heiborlem4  38348  fmul01  46183  fmuldfeq  46186  fmul01lt1lem1  46187  stoweidlem3  46604  wallispilem4  46669  wallispi2lem1  46672  wallispi2lem2  46673  stirlinglem7  46681  stirlinglem11  46685  sge0isum  47028  ackval0  49340