Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fibp1 Structured version   Visualization version   GIF version

Theorem fibp1 30437
Description: Value of the Fibonacci sequence at higher indices. (Contributed by Thierry Arnoux, 25-Apr-2019.)
Assertion
Ref Expression
fibp1 (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))

Proof of Theorem fibp1
Dummy variables 𝑤 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-fib 30433 . . . 4 Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1)))))
21fveq1i 6179 . . 3 (Fibci‘(𝑁 + 1)) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1)))))‘(𝑁 + 1))
32a1i 11 . 2 (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1)))))‘(𝑁 + 1)))
4 nn0ex 11283 . . . 4 0 ∈ V
54a1i 11 . . 3 (𝑁 ∈ ℕ → ℕ0 ∈ V)
6 0nn0 11292 . . . . 5 0 ∈ ℕ0
76a1i 11 . . . 4 (𝑁 ∈ ℕ → 0 ∈ ℕ0)
8 1nn0 11293 . . . . 5 1 ∈ ℕ0
98a1i 11 . . . 4 (𝑁 ∈ ℕ → 1 ∈ ℕ0)
107, 9s2cld 13597 . . 3 (𝑁 ∈ ℕ → ⟨“01”⟩ ∈ Word ℕ0)
11 eqid 2620 . . 3 (Word ℕ0 ∩ (# “ (ℤ‘(#‘⟨“01”⟩)))) = (Word ℕ0 ∩ (# “ (ℤ‘(#‘⟨“01”⟩))))
12 fiblem 30434 . . . 4 (𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1)))):(Word ℕ0 ∩ (# “ (ℤ‘(#‘⟨“01”⟩))))⟶ℕ0
1312a1i 11 . . 3 (𝑁 ∈ ℕ → (𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1)))):(Word ℕ0 ∩ (# “ (ℤ‘(#‘⟨“01”⟩))))⟶ℕ0)
14 eluzp1p1 11698 . . . . 5 (𝑁 ∈ (ℤ‘1) → (𝑁 + 1) ∈ (ℤ‘(1 + 1)))
15 nnuz 11708 . . . . 5 ℕ = (ℤ‘1)
1614, 15eleq2s 2717 . . . 4 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ‘(1 + 1)))
17 s2len 13615 . . . . . 6 (#‘⟨“01”⟩) = 2
18 1p1e2 11119 . . . . . 6 (1 + 1) = 2
1917, 18eqtr4i 2645 . . . . 5 (#‘⟨“01”⟩) = (1 + 1)
2019fveq2i 6181 . . . 4 (ℤ‘(#‘⟨“01”⟩)) = (ℤ‘(1 + 1))
2116, 20syl6eleqr 2710 . . 3 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ‘(#‘⟨“01”⟩)))
225, 10, 11, 13, 21sseqp1 30431 . 2 (𝑁 ∈ ℕ → ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1)))))‘(𝑁 + 1)) = ((𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))‘((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))))
23 id 22 . . . . . . 7 (𝑤 = 𝑡𝑤 = 𝑡)
24 fveq2 6178 . . . . . . . 8 (𝑤 = 𝑡 → (#‘𝑤) = (#‘𝑡))
2524oveq1d 6650 . . . . . . 7 (𝑤 = 𝑡 → ((#‘𝑤) − 2) = ((#‘𝑡) − 2))
2623, 25fveq12d 6184 . . . . . 6 (𝑤 = 𝑡 → (𝑤‘((#‘𝑤) − 2)) = (𝑡‘((#‘𝑡) − 2)))
2724oveq1d 6650 . . . . . . 7 (𝑤 = 𝑡 → ((#‘𝑤) − 1) = ((#‘𝑡) − 1))
2823, 27fveq12d 6184 . . . . . 6 (𝑤 = 𝑡 → (𝑤‘((#‘𝑤) − 1)) = (𝑡‘((#‘𝑡) − 1)))
2926, 28oveq12d 6653 . . . . 5 (𝑤 = 𝑡 → ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))) = ((𝑡‘((#‘𝑡) − 2)) + (𝑡‘((#‘𝑡) − 1))))
3029cbvmptv 4741 . . . 4 (𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1)))) = (𝑡 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑡‘((#‘𝑡) − 2)) + (𝑡‘((#‘𝑡) − 1))))
3130a1i 11 . . 3 (𝑁 ∈ ℕ → (𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1)))) = (𝑡 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑡‘((#‘𝑡) − 2)) + (𝑡‘((#‘𝑡) − 1)))))
32 simpr 477 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
331a1i 11 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))))
3433reseq1d 5384 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
3532, 34eqtr4d 2657 . . . 4 ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
36 simpr 477 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
3736fveq2d 6182 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (#‘𝑡) = (#‘(Fibci ↾ (0..^(𝑁 + 1)))))
385, 10, 11, 13sseqf 30428 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ → (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))):ℕ0⟶ℕ0)
391a1i 11 . . . . . . . . . . . . . 14 (𝑁 ∈ ℕ → Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))))
4039feq1d 6017 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ → (Fibci:ℕ0⟶ℕ0 ↔ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))):ℕ0⟶ℕ0))
4138, 40mpbird 247 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → Fibci:ℕ0⟶ℕ0)
42 nnnn0 11284 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
4342, 9nn0addcld 11340 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ0)
445, 41, 43subiwrdlen 30422 . . . . . . . . . . 11 (𝑁 ∈ ℕ → (#‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
4544adantr 481 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (#‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
4637, 45eqtrd 2654 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (#‘𝑡) = (𝑁 + 1))
4746oveq1d 6650 . . . . . . . 8 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((#‘𝑡) − 2) = ((𝑁 + 1) − 2))
48 nncn 11013 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
49 1cnd 10041 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 1 ∈ ℂ)
50 2cnd 11078 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 2 ∈ ℂ)
5148, 49, 50addsubassd 10397 . . . . . . . . . 10 (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 + (1 − 2)))
5248, 50, 49subsub2d 10406 . . . . . . . . . 10 (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 + (1 − 2)))
53 2m1e1 11120 . . . . . . . . . . . 12 (2 − 1) = 1
5453oveq2i 6646 . . . . . . . . . . 11 (𝑁 − (2 − 1)) = (𝑁 − 1)
5554a1i 11 . . . . . . . . . 10 (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 − 1))
5651, 52, 553eqtr2d 2660 . . . . . . . . 9 (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 − 1))
5756adantr 481 . . . . . . . 8 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 2) = (𝑁 − 1))
5847, 57eqtrd 2654 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((#‘𝑡) − 2) = (𝑁 − 1))
5958fveq2d 6182 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((#‘𝑡) − 2)) = (𝑡‘(𝑁 − 1)))
6036fveq1d 6180 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘(𝑁 − 1)) = ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)))
61 nnm1nn0 11319 . . . . . . . . 9 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
62 peano2nn 11017 . . . . . . . . 9 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
63 nnre 11012 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
64 2re 11075 . . . . . . . . . . . . 13 2 ∈ ℝ
6564a1i 11 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → 2 ∈ ℝ)
6663, 65readdcld 10054 . . . . . . . . . . 11 (𝑁 ∈ ℕ → (𝑁 + 2) ∈ ℝ)
67 1red 10040 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 1 ∈ ℝ)
68 2rp 11822 . . . . . . . . . . . . 13 2 ∈ ℝ+
6968a1i 11 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → 2 ∈ ℝ+)
7063, 69ltaddrpd 11890 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 𝑁 < (𝑁 + 2))
7163, 66, 67, 70ltsub1dd 10624 . . . . . . . . . 10 (𝑁 ∈ ℕ → (𝑁 − 1) < ((𝑁 + 2) − 1))
7248, 50, 49addsubassd 10397 . . . . . . . . . . 11 (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + (2 − 1)))
7353oveq2i 6646 . . . . . . . . . . 11 (𝑁 + (2 − 1)) = (𝑁 + 1)
7472, 73syl6eq 2670 . . . . . . . . . 10 (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + 1))
7571, 74breqtrd 4670 . . . . . . . . 9 (𝑁 ∈ ℕ → (𝑁 − 1) < (𝑁 + 1))
76 elfzo0 12492 . . . . . . . . 9 ((𝑁 − 1) ∈ (0..^(𝑁 + 1)) ↔ ((𝑁 − 1) ∈ ℕ0 ∧ (𝑁 + 1) ∈ ℕ ∧ (𝑁 − 1) < (𝑁 + 1)))
7761, 62, 75, 76syl3anbrc 1244 . . . . . . . 8 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
7877adantr 481 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
79 fvres 6194 . . . . . . 7 ((𝑁 − 1) ∈ (0..^(𝑁 + 1)) → ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)) = (Fibci‘(𝑁 − 1)))
8078, 79syl 17 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)) = (Fibci‘(𝑁 − 1)))
8159, 60, 803eqtrd 2658 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((#‘𝑡) − 2)) = (Fibci‘(𝑁 − 1)))
8246oveq1d 6650 . . . . . . . 8 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((#‘𝑡) − 1) = ((𝑁 + 1) − 1))
83 simpl 473 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℕ)
8483nncnd 11021 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℂ)
85 1cnd 10041 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 1 ∈ ℂ)
8684, 85pncand 10378 . . . . . . . 8 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 1) = 𝑁)
8782, 86eqtrd 2654 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((#‘𝑡) − 1) = 𝑁)
8887fveq2d 6182 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((#‘𝑡) − 1)) = (𝑡𝑁))
8936fveq1d 6180 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡𝑁) = ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁))
90 nn0fz0 12421 . . . . . . . . . 10 (𝑁 ∈ ℕ0𝑁 ∈ (0...𝑁))
9142, 90sylib 208 . . . . . . . . 9 (𝑁 ∈ ℕ → 𝑁 ∈ (0...𝑁))
92 nnz 11384 . . . . . . . . . 10 (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
93 fzval3 12520 . . . . . . . . . 10 (𝑁 ∈ ℤ → (0...𝑁) = (0..^(𝑁 + 1)))
9492, 93syl 17 . . . . . . . . 9 (𝑁 ∈ ℕ → (0...𝑁) = (0..^(𝑁 + 1)))
9591, 94eleqtrd 2701 . . . . . . . 8 (𝑁 ∈ ℕ → 𝑁 ∈ (0..^(𝑁 + 1)))
9695adantr 481 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ (0..^(𝑁 + 1)))
97 fvres 6194 . . . . . . 7 (𝑁 ∈ (0..^(𝑁 + 1)) → ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁) = (Fibci‘𝑁))
9896, 97syl 17 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁) = (Fibci‘𝑁))
9988, 89, 983eqtrd 2658 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((#‘𝑡) − 1)) = (Fibci‘𝑁))
10081, 99oveq12d 6653 . . . 4 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((#‘𝑡) − 2)) + (𝑡‘((#‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
10135, 100syldan 487 . . 3 ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((#‘𝑡) − 2)) + (𝑡‘((#‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
10239reseq1d 5384 . . . 4 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
1035, 41, 43subiwrd 30421 . . . . 5 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ Word ℕ0)
104 ovex 6663 . . . . . . . . 9 (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ∈ V
1051, 104eqeltri 2695 . . . . . . . 8 Fibci ∈ V
106105resex 5431 . . . . . . 7 (Fibci ↾ (0..^(𝑁 + 1))) ∈ V
107106a1i 11 . . . . . 6 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ V)
10818fveq2i 6181 . . . . . . . 8 (ℤ‘(1 + 1)) = (ℤ‘2)
10916, 108syl6eleq 2709 . . . . . . 7 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ‘2))
11044, 109eqeltrd 2699 . . . . . 6 (𝑁 ∈ ℕ → (#‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ‘2))
111 hashf 13108 . . . . . . 7 #:V⟶(ℕ0 ∪ {+∞})
112 ffn 6032 . . . . . . 7 (#:V⟶(ℕ0 ∪ {+∞}) → # Fn V)
113 elpreima 6323 . . . . . . 7 (# Fn V → ((Fibci ↾ (0..^(𝑁 + 1))) ∈ (# “ (ℤ‘2)) ↔ ((Fibci ↾ (0..^(𝑁 + 1))) ∈ V ∧ (#‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ‘2))))
114111, 112, 113mp2b 10 . . . . . 6 ((Fibci ↾ (0..^(𝑁 + 1))) ∈ (# “ (ℤ‘2)) ↔ ((Fibci ↾ (0..^(𝑁 + 1))) ∈ V ∧ (#‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ‘2)))
115107, 110, 114sylanbrc 697 . . . . 5 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (# “ (ℤ‘2)))
116103, 115elind 3790 . . . 4 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))))
117102, 116eqeltrrd 2700 . . 3 (𝑁 ∈ ℕ → ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))))
118 ovex 6663 . . . 4 ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V
119118a1i 11 . . 3 (𝑁 ∈ ℕ → ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V)
12031, 101, 117, 119fvmptd 6275 . 2 (𝑁 ∈ ℕ → ((𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))‘((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (# “ (ℤ‘2))) ↦ ((𝑤‘((#‘𝑤) − 2)) + (𝑤‘((#‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
1213, 22, 1203eqtrd 2658 1 (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384   = wceq 1481  wcel 1988  Vcvv 3195  cun 3565  cin 3566  {csn 4168   class class class wbr 4644  cmpt 4720  ccnv 5103  cres 5106  cima 5107   Fn wfn 5871  wf 5872  cfv 5876  (class class class)co 6635  cr 9920  0cc0 9921  1c1 9922   + caddc 9924  +∞cpnf 10056   < clt 10059  cmin 10251  cn 11005  2c2 11055  0cn0 11277  cz 11362  cuz 11672  +crp 11817  ...cfz 12311  ..^cfzo 12449  #chash 13100  Word cword 13274  ⟨“cs2 13567  seqstrcsseq 30419  Fibcicfib 30432
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1720  ax-4 1735  ax-5 1837  ax-6 1886  ax-7 1933  ax-8 1990  ax-9 1997  ax-10 2017  ax-11 2032  ax-12 2045  ax-13 2244  ax-ext 2600  ax-rep 4762  ax-sep 4772  ax-nul 4780  ax-pow 4834  ax-pr 4897  ax-un 6934  ax-inf2 8523  ax-cnex 9977  ax-resscn 9978  ax-1cn 9979  ax-icn 9980  ax-addcl 9981  ax-addrcl 9982  ax-mulcl 9983  ax-mulrcl 9984  ax-mulcom 9985  ax-addass 9986  ax-mulass 9987  ax-distr 9988  ax-i2m1 9989  ax-1ne0 9990  ax-1rid 9991  ax-rnegex 9992  ax-rrecex 9993  ax-cnre 9994  ax-pre-lttri 9995  ax-pre-lttrn 9996  ax-pre-ltadd 9997  ax-pre-mulgt0 9998
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1484  df-ex 1703  df-nf 1708  df-sb 1879  df-eu 2472  df-mo 2473  df-clab 2607  df-cleq 2613  df-clel 2616  df-nfc 2751  df-ne 2792  df-nel 2895  df-ral 2914  df-rex 2915  df-reu 2916  df-rab 2918  df-v 3197  df-sbc 3430  df-csb 3527  df-dif 3570  df-un 3572  df-in 3574  df-ss 3581  df-pss 3583  df-nul 3908  df-if 4078  df-pw 4151  df-sn 4169  df-pr 4171  df-tp 4173  df-op 4175  df-uni 4428  df-int 4467  df-iun 4513  df-br 4645  df-opab 4704  df-mpt 4721  df-tr 4744  df-id 5014  df-eprel 5019  df-po 5025  df-so 5026  df-fr 5063  df-we 5065  df-xp 5110  df-rel 5111  df-cnv 5112  df-co 5113  df-dm 5114  df-rn 5115  df-res 5116  df-ima 5117  df-pred 5668  df-ord 5714  df-on 5715  df-lim 5716  df-suc 5717  df-iota 5839  df-fun 5878  df-fn 5879  df-f 5880  df-f1 5881  df-fo 5882  df-f1o 5883  df-fv 5884  df-riota 6596  df-ov 6638  df-oprab 6639  df-mpt2 6640  df-om 7051  df-1st 7153  df-2nd 7154  df-wrecs 7392  df-recs 7453  df-rdg 7491  df-1o 7545  df-oadd 7549  df-er 7727  df-map 7844  df-pm 7845  df-en 7941  df-dom 7942  df-sdom 7943  df-fin 7944  df-card 8750  df-pnf 10061  df-mnf 10062  df-xr 10063  df-ltxr 10064  df-le 10065  df-sub 10253  df-neg 10254  df-nn 11006  df-2 11064  df-n0 11278  df-xnn0 11349  df-z 11363  df-uz 11673  df-rp 11818  df-fz 12312  df-fzo 12450  df-seq 12785  df-hash 13101  df-word 13282  df-lsw 13283  df-concat 13284  df-s1 13285  df-substr 13286  df-s2 13574  df-sseq 30420  df-fib 30433
This theorem is referenced by:  fib2  30438  fib3  30439  fib4  30440  fib5  30441  fib6  30442
  Copyright terms: Public domain W3C validator