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 32804
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 32800 . . . 4 Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))))
21fveq1i 6840 . . 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 12377 . . . 4 0 ∈ V
54a1i 11 . . 3 (𝑁 ∈ ℕ → ℕ0 ∈ V)
6 0nn0 12386 . . . . 5 0 ∈ ℕ0
76a1i 11 . . . 4 (𝑁 ∈ ℕ → 0 ∈ ℕ0)
8 1nn0 12387 . . . . 5 1 ∈ ℕ0
98a1i 11 . . . 4 (𝑁 ∈ ℕ → 1 ∈ ℕ0)
107, 9s2cld 14717 . . 3 (𝑁 ∈ ℕ → ⟨“01”⟩ ∈ Word ℕ0)
11 eqid 2737 . . 3 (Word ℕ0 ∩ (♯ “ (ℤ‘(♯‘⟨“01”⟩)))) = (Word ℕ0 ∩ (♯ “ (ℤ‘(♯‘⟨“01”⟩))))
12 fiblem 32801 . . . 4 (𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))):(Word ℕ0 ∩ (♯ “ (ℤ‘(♯‘⟨“01”⟩))))⟶ℕ0
1312a1i 11 . . 3 (𝑁 ∈ ℕ → (𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))):(Word ℕ0 ∩ (♯ “ (ℤ‘(♯‘⟨“01”⟩))))⟶ℕ0)
14 eluzp1p1 12749 . . . . 5 (𝑁 ∈ (ℤ‘1) → (𝑁 + 1) ∈ (ℤ‘(1 + 1)))
15 nnuz 12760 . . . . 5 ℕ = (ℤ‘1)
1614, 15eleq2s 2856 . . . 4 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ‘(1 + 1)))
17 s2len 14735 . . . . . 6 (♯‘⟨“01”⟩) = 2
18 1p1e2 12236 . . . . . 6 (1 + 1) = 2
1917, 18eqtr4i 2768 . . . . 5 (♯‘⟨“01”⟩) = (1 + 1)
2019fveq2i 6842 . . . 4 (ℤ‘(♯‘⟨“01”⟩)) = (ℤ‘(1 + 1))
2116, 20eleqtrrdi 2849 . . 3 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ‘(♯‘⟨“01”⟩)))
225, 10, 11, 13, 21sseqp1 32798 . 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 6839 . . . . . . . 8 (𝑤 = 𝑡 → (♯‘𝑤) = (♯‘𝑡))
2524oveq1d 7366 . . . . . . 7 (𝑤 = 𝑡 → ((♯‘𝑤) − 2) = ((♯‘𝑡) − 2))
2623, 25fveq12d 6846 . . . . . 6 (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 2)) = (𝑡‘((♯‘𝑡) − 2)))
2724oveq1d 7366 . . . . . . 7 (𝑤 = 𝑡 → ((♯‘𝑤) − 1) = ((♯‘𝑡) − 1))
2823, 27fveq12d 6846 . . . . . 6 (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 1)) = (𝑡‘((♯‘𝑡) − 1)))
2926, 28oveq12d 7369 . . . . 5 (𝑤 = 𝑡 → ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))) = ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))))
3029cbvmptv 5216 . . . 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 485 . . . . 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 5934 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
3532, 34eqtr4d 2780 . . . 4 ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
36 simpr 485 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
3736fveq2d 6843 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (♯‘(Fibci ↾ (0..^(𝑁 + 1)))))
385, 10, 11, 13sseqf 32795 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ → (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))):ℕ0⟶ℕ0)
391a1i 11 . . . . . . . . . . . . . 14 (𝑁 ∈ ℕ → Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))))
4039feq1d 6650 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ → (Fibci:ℕ0⟶ℕ0 ↔ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))):ℕ0⟶ℕ0))
4138, 40mpbird 256 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → Fibci:ℕ0⟶ℕ0)
42 nnnn0 12378 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
4342, 9nn0addcld 12435 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ0)
445, 41, 43subiwrdlen 32789 . . . . . . . . . . 11 (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
4544adantr 481 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
4637, 45eqtrd 2777 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (𝑁 + 1))
4746oveq1d 7366 . . . . . . . 8 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = ((𝑁 + 1) − 2))
48 nncn 12119 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
49 1cnd 11108 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 1 ∈ ℂ)
50 2cnd 12189 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 2 ∈ ℂ)
5148, 49, 50addsubassd 11490 . . . . . . . . . 10 (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 + (1 − 2)))
5248, 50, 49subsub2d 11499 . . . . . . . . . 10 (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 + (1 − 2)))
53 2m1e1 12237 . . . . . . . . . . . 12 (2 − 1) = 1
5453oveq2i 7362 . . . . . . . . . . 11 (𝑁 − (2 − 1)) = (𝑁 − 1)
5554a1i 11 . . . . . . . . . 10 (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 − 1))
5651, 52, 553eqtr2d 2783 . . . . . . . . 9 (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 − 1))
5756adantr 481 . . . . . . . 8 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 2) = (𝑁 − 1))
5847, 57eqtrd 2777 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = (𝑁 − 1))
5958fveq2d 6843 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (𝑡‘(𝑁 − 1)))
6036fveq1d 6841 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘(𝑁 − 1)) = ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)))
61 nnm1nn0 12412 . . . . . . . . 9 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
62 peano2nn 12123 . . . . . . . . 9 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
63 nnre 12118 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
64 2re 12185 . . . . . . . . . . . . 13 2 ∈ ℝ
6564a1i 11 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → 2 ∈ ℝ)
6663, 65readdcld 11142 . . . . . . . . . . 11 (𝑁 ∈ ℕ → (𝑁 + 2) ∈ ℝ)
67 1red 11114 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 1 ∈ ℝ)
68 2rp 12874 . . . . . . . . . . . . 13 2 ∈ ℝ+
6968a1i 11 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → 2 ∈ ℝ+)
7063, 69ltaddrpd 12944 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 𝑁 < (𝑁 + 2))
7163, 66, 67, 70ltsub1dd 11725 . . . . . . . . . 10 (𝑁 ∈ ℕ → (𝑁 − 1) < ((𝑁 + 2) − 1))
7248, 50, 49addsubassd 11490 . . . . . . . . . . 11 (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + (2 − 1)))
7353oveq2i 7362 . . . . . . . . . . 11 (𝑁 + (2 − 1)) = (𝑁 + 1)
7472, 73eqtrdi 2793 . . . . . . . . . 10 (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + 1))
7571, 74breqtrd 5129 . . . . . . . . 9 (𝑁 ∈ ℕ → (𝑁 − 1) < (𝑁 + 1))
76 elfzo0 13567 . . . . . . . . 9 ((𝑁 − 1) ∈ (0..^(𝑁 + 1)) ↔ ((𝑁 − 1) ∈ ℕ0 ∧ (𝑁 + 1) ∈ ℕ ∧ (𝑁 − 1) < (𝑁 + 1)))
7761, 62, 75, 76syl3anbrc 1343 . . . . . . . 8 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
7877adantr 481 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
79 fvres 6858 . . . . . . 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 2781 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (Fibci‘(𝑁 − 1)))
8246oveq1d 7366 . . . . . . . 8 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = ((𝑁 + 1) − 1))
83 simpl 483 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℕ)
8483nncnd 12127 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℂ)
85 1cnd 11108 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 1 ∈ ℂ)
8684, 85pncand 11471 . . . . . . . 8 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 1) = 𝑁)
8782, 86eqtrd 2777 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = 𝑁)
8887fveq2d 6843 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (𝑡𝑁))
8936fveq1d 6841 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡𝑁) = ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁))
90 nn0fz0 13493 . . . . . . . . . 10 (𝑁 ∈ ℕ0𝑁 ∈ (0...𝑁))
9142, 90sylib 217 . . . . . . . . 9 (𝑁 ∈ ℕ → 𝑁 ∈ (0...𝑁))
92 nnz 12478 . . . . . . . . . 10 (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
93 fzval3 13595 . . . . . . . . . 10 (𝑁 ∈ ℤ → (0...𝑁) = (0..^(𝑁 + 1)))
9492, 93syl 17 . . . . . . . . 9 (𝑁 ∈ ℕ → (0...𝑁) = (0..^(𝑁 + 1)))
9591, 94eleqtrd 2840 . . . . . . . 8 (𝑁 ∈ ℕ → 𝑁 ∈ (0..^(𝑁 + 1)))
9695adantr 481 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ (0..^(𝑁 + 1)))
97 fvres 6858 . . . . . . 7 (𝑁 ∈ (0..^(𝑁 + 1)) → ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁) = (Fibci‘𝑁))
9896, 97syl 17 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁) = (Fibci‘𝑁))
9988, 89, 983eqtrd 2781 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (Fibci‘𝑁))
10081, 99oveq12d 7369 . . . 4 ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
10135, 100syldan 591 . . 3 ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
10239reseq1d 5934 . . . 4 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
1035, 41, 43subiwrd 32788 . . . . 5 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ Word ℕ0)
104 ovex 7384 . . . . . . . . 9 (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ∈ V
1051, 104eqeltri 2834 . . . . . . . 8 Fibci ∈ V
106105resex 5983 . . . . . . 7 (Fibci ↾ (0..^(𝑁 + 1))) ∈ V
107106a1i 11 . . . . . 6 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ V)
10818fveq2i 6842 . . . . . . . 8 (ℤ‘(1 + 1)) = (ℤ‘2)
10916, 108eleqtrdi 2848 . . . . . . 7 (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ‘2))
11044, 109eqeltrd 2838 . . . . . 6 (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ‘2))
111 hashf 14191 . . . . . . 7 ♯:V⟶(ℕ0 ∪ {+∞})
112 ffn 6665 . . . . . . 7 (♯:V⟶(ℕ0 ∪ {+∞}) → ♯ Fn V)
113 elpreima 7005 . . . . . . 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 583 . . . . 5 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (♯ “ (ℤ‘2)))
116103, 115elind 4152 . . . 4 (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))))
117102, 116eqeltrrd 2839 . . 3 (𝑁 ∈ ℕ → ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))))
118 ovex 7384 . . . 4 ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V
119118a1i 11 . . 3 (𝑁 ∈ ℕ → ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V)
12031, 101, 117, 119fvmptd 6952 . 2 (𝑁 ∈ ℕ → ((𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))‘((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (♯ “ (ℤ‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
1213, 22, 1203eqtrd 2781 1 (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396   = wceq 1541  wcel 2106  Vcvv 3443  cun 3906  cin 3907  {csn 4584   class class class wbr 5103  cmpt 5186  ccnv 5630  cres 5633  cima 5634   Fn wfn 6488  wf 6489  cfv 6493  (class class class)co 7351  cr 11008  0cc0 11009  1c1 11010   + caddc 11012  +∞cpnf 11144   < clt 11147  cmin 11343  cn 12111  2c2 12166  0cn0 12371  cz 12457  cuz 12721  +crp 12869  ...cfz 13378  ..^cfzo 13521  chash 14183  Word cword 14355  ⟨“cs2 14687  seqstrcsseq 32786  Fibcicfib 32799
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2708  ax-rep 5240  ax-sep 5254  ax-nul 5261  ax-pow 5318  ax-pr 5382  ax-un 7664  ax-inf2 9535  ax-cnex 11065  ax-resscn 11066  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-addrcl 11070  ax-mulcl 11071  ax-mulrcl 11072  ax-mulcom 11073  ax-addass 11074  ax-mulass 11075  ax-distr 11076  ax-i2m1 11077  ax-1ne0 11078  ax-1rid 11079  ax-rnegex 11080  ax-rrecex 11081  ax-cnre 11082  ax-pre-lttri 11083  ax-pre-lttrn 11084  ax-pre-ltadd 11085  ax-pre-mulgt0 11086
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-reu 3352  df-rab 3406  df-v 3445  df-sbc 3738  df-csb 3854  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3927  df-nul 4281  df-if 4485  df-pw 4560  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4864  df-int 4906  df-iun 4954  df-br 5104  df-opab 5166  df-mpt 5187  df-tr 5221  df-id 5529  df-eprel 5535  df-po 5543  df-so 5544  df-fr 5586  df-we 5588  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6251  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6445  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7307  df-ov 7354  df-oprab 7355  df-mpo 7356  df-om 7795  df-1st 7913  df-2nd 7914  df-frecs 8204  df-wrecs 8235  df-recs 8309  df-rdg 8348  df-1o 8404  df-er 8606  df-map 8725  df-en 8842  df-dom 8843  df-sdom 8844  df-fin 8845  df-card 9833  df-pnf 11149  df-mnf 11150  df-xr 11151  df-ltxr 11152  df-le 11153  df-sub 11345  df-neg 11346  df-nn 12112  df-2 12174  df-n0 12372  df-xnn0 12444  df-z 12458  df-uz 12722  df-rp 12870  df-fz 13379  df-fzo 13522  df-seq 13861  df-hash 14184  df-word 14356  df-lsw 14404  df-concat 14412  df-s1 14437  df-substr 14486  df-pfx 14516  df-s2 14694  df-sseq 32787  df-fib 32800
This theorem is referenced by:  fib2  32805  fib3  32806  fib4  32807  fib5  32808  fib6  32809
  Copyright terms: Public domain W3C validator