Theorem fibp1 34858

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.

Step	Hyp	Ref	Expression
1		df-fib 34854	. . . 4 ⊢ Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))))
2	1	fveq1i 6886	. . 3 ⊢ (Fibci‘(𝑁 + 1)) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))))‘(𝑁 + 1))
3	2	a1i 11	. 2 ⊢ (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))))‘(𝑁 + 1)))
4		nn0ex 12527	. . . 4 ⊢ ℕ0 ∈ V
5	4	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → ℕ0 ∈ V)
6		0nn0 12536	. . . . 5 ⊢ 0 ∈ ℕ0
7	6	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → 0 ∈ ℕ0)
8		1nn0 12537	. . . . 5 ⊢ 1 ∈ ℕ0
9	8	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℕ0)
10	7, 9	s2cld 14934	. . 3 ⊢ (𝑁 ∈ ℕ → ⟨“01”⟩ ∈ Word ℕ0)
11		eqid 2765	. . 3 ⊢ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩)))) = (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩))))
12		fiblem 34855	. . . 4 ⊢ (𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))):(Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩))))⟶ℕ0
13	12	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → (𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))):(Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩))))⟶ℕ0)
14		eluzp1p1 12908	. . . . 5 ⊢ (𝑁 ∈ (ℤ≥‘1) → (𝑁 + 1) ∈ (ℤ≥‘(1 + 1)))
15		nnuz 12919	. . . . 5 ⊢ ℕ = (ℤ≥‘1)
16	14, 15	eleq2s 2883	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘(1 + 1)))
17		s2len 14952	. . . . . 6 ⊢ (♯‘⟨“01”⟩) = 2
18		1p1e2 12381	. . . . . 6 ⊢ (1 + 1) = 2
19	17, 18	eqtr4i 2791	. . . . 5 ⊢ (♯‘⟨“01”⟩) = (1 + 1)
20	19	fveq2i 6888	. . . 4 ⊢ (ℤ≥‘(♯‘⟨“01”⟩)) = (ℤ≥‘(1 + 1))
21	16, 20	eleqtrrdi 2876	. . 3 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘(♯‘⟨“01”⟩)))
22	5, 10, 11, 13, 21	sseqp1 34852	. 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 23	. . . . . . 7 ⊢ (𝑤 = 𝑡 → 𝑤 = 𝑡)
24		fveq2 6885	. . . . . . . 8 ⊢ (𝑤 = 𝑡 → (♯‘𝑤) = (♯‘𝑡))
25	24	oveq1d 7434	. . . . . . 7 ⊢ (𝑤 = 𝑡 → ((♯‘𝑤) − 2) = ((♯‘𝑡) − 2))
26	23, 25	fveq12d 6892	. . . . . 6 ⊢ (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 2)) = (𝑡‘((♯‘𝑡) − 2)))
27	24	oveq1d 7434	. . . . . . 7 ⊢ (𝑤 = 𝑡 → ((♯‘𝑤) − 1) = ((♯‘𝑡) − 1))
28	23, 27	fveq12d 6892	. . . . . 6 ⊢ (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 1)) = (𝑡‘((♯‘𝑡) − 1)))
29	26, 28	oveq12d 7437	. . . . 5 ⊢ (𝑤 = 𝑡 → ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))) = ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))))
30	29	cbvmptv 5217	. . . 4 ⊢ (𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))) = (𝑡 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))))
31	30	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → (𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))) = (𝑡 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1)))))
32		simpr 490	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
33	1	a1i 11	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))))
34	33	reseq1d 5979	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
35	32, 34	eqtr4d 2803	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
36		simpr 490	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
37	36	fveq2d 6889	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (♯‘(Fibci ↾ (0..^(𝑁 + 1)))))
38	5, 10, 11, 13	sseqf 34849	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))):ℕ0⟶ℕ0)
39	1	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))))
40	39	feq1d 6691	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (Fibci:ℕ0⟶ℕ0 ↔ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))):ℕ0⟶ℕ0))
41	38, 40	mpbird 260	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → Fibci:ℕ0⟶ℕ0)
42		nnnn0 12528	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
43	42, 9	nn0addcld 12586	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ0)
44	5, 41, 43	subiwrdlen 34843	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
45	44	adantr 486	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
46	37, 45	eqtrd 2800	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (𝑁 + 1))
47	46	oveq1d 7434	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = ((𝑁 + 1) − 2))
48		nncn 12258	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
49		1cnd 11219	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
50		2cnd 12336	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
51	48, 49, 50	addsubassd 11606	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 + (1 − 2)))
52	48, 50, 49	subsub2d 11615	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 + (1 − 2)))
53		2m1e1 12382	. . . . . . . . . . . 12 ⊢ (2 − 1) = 1
54	53	oveq2i 7430	. . . . . . . . . . 11 ⊢ (𝑁 − (2 − 1)) = (𝑁 − 1)
55	54	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 − 1))
56	51, 52, 55	3eqtr2d 2806	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 − 1))
57	56	adantr 486	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 2) = (𝑁 − 1))
58	47, 57	eqtrd 2800	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = (𝑁 − 1))
59	58	fveq2d 6889	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (𝑡‘(𝑁 − 1)))
60	36	fveq1d 6887	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘(𝑁 − 1)) = ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)))
61		nnm1nn0 12562	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
62		peano2nn 12262	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
63		nnre 12257	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
64		2re 12332	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
65	64	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ)
66	63, 65	readdcld 11255	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 + 2) ∈ ℝ)
67		1red 11226	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
68		2rp 13039	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ+
69	68	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ+)
70	63, 69	ltaddrpd 13111	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 < (𝑁 + 2))
71	63, 66, 67, 70	ltsub1dd 11843	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) < ((𝑁 + 2) − 1))
72	48, 50, 49	addsubassd 11606	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + (2 − 1)))
73	53	oveq2i 7430	. . . . . . . . . . 11 ⊢ (𝑁 + (2 − 1)) = (𝑁 + 1)
74	72, 73	eqtrdi 2816	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + 1))
75	71, 74	breqtrd 5139	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) < (𝑁 + 1))
76		elfzo0 13748	. . . . . . . . 9 ⊢ ((𝑁 − 1) ∈ (0..^(𝑁 + 1)) ↔ ((𝑁 − 1) ∈ ℕ0 ∧ (𝑁 + 1) ∈ ℕ ∧ (𝑁 − 1) < (𝑁 + 1)))
77	61, 62, 75, 76	syl3anbrc 1362	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
78	77	adantr 486	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
79		fvres 6904	. . . . . . 7 ⊢ ((𝑁 − 1) ∈ (0..^(𝑁 + 1)) → ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)) = (Fibci‘(𝑁 − 1)))
80	78, 79	syl 18	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)) = (Fibci‘(𝑁 − 1)))
81	59, 60, 80	3eqtrd 2804	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (Fibci‘(𝑁 − 1)))
82	46	oveq1d 7434	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = ((𝑁 + 1) − 1))
83		simpl 488	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℕ)
84	83	nncnd 12266	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℂ)
85		1cnd 11219	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 1 ∈ ℂ)
86	84, 85	pncand 11587	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 1) = 𝑁)
87	82, 86	eqtrd 2800	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = 𝑁)
88	87	fveq2d 6889	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (𝑡‘𝑁))
89	36	fveq1d 6887	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘𝑁) = ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁))
90		nn0fz0 13672	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ0 ↔ 𝑁 ∈ (0...𝑁))
91	42, 90	sylib 221	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0...𝑁))
92		nnz 12629	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
93		fzval3 13782	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℤ → (0...𝑁) = (0..^(𝑁 + 1)))
94	92, 93	syl 18	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (0...𝑁) = (0..^(𝑁 + 1)))
95	91, 94	eleqtrd 2867	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0..^(𝑁 + 1)))
96	95	adantr 486	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ (0..^(𝑁 + 1)))
97		fvres 6904	. . . . . . 7 ⊢ (𝑁 ∈ (0..^(𝑁 + 1)) → ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁) = (Fibci‘𝑁))
98	96, 97	syl 18	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁) = (Fibci‘𝑁))
99	88, 89, 98	3eqtrd 2804	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (Fibci‘𝑁))
100	81, 99	oveq12d 7437	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
101	35, 100	syldan 603	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
102	39	reseq1d 5979	. . . 4 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
103	5, 41, 43	subiwrd 34842	. . . . 5 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ Word ℕ0)
104		ovex 7452	. . . . . . . . 9 ⊢ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ∈ V
105	1, 104	eqeltri 2861	. . . . . . . 8 ⊢ Fibci ∈ V
106	105	resex 6030	. . . . . . 7 ⊢ (Fibci ↾ (0..^(𝑁 + 1))) ∈ V
107	106	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ V)
108	18	fveq2i 6888	. . . . . . . 8 ⊢ (ℤ≥‘(1 + 1)) = (ℤ≥‘2)
109	16, 108	eleqtrdi 2875	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘2))
110	44, 109	eqeltrd 2865	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ≥‘2))
111		hashf 14394	. . . . . . 7 ⊢ ♯:V⟶(ℕ0 ∪ {+∞})
112		ffn 6709	. . . . . . 7 ⊢ (♯:V⟶(ℕ0 ∪ {+∞}) → ♯ Fn V)
113		elpreima 7057	. . . . . . 7 ⊢ (♯ Fn V → ((Fibci ↾ (0..^(𝑁 + 1))) ∈ (◡♯ “ (ℤ≥‘2)) ↔ ((Fibci ↾ (0..^(𝑁 + 1))) ∈ V ∧ (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ≥‘2))))
114	111, 112, 113	mp2b 10	. . . . . 6 ⊢ ((Fibci ↾ (0..^(𝑁 + 1))) ∈ (◡♯ “ (ℤ≥‘2)) ↔ ((Fibci ↾ (0..^(𝑁 + 1))) ∈ V ∧ (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ≥‘2)))
115	107, 110, 114	sylanbrc 595	. . . . 5 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (◡♯ “ (ℤ≥‘2)))
116	103, 115	elind 4153	. . . 4 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))))
117	102, 116	eqeltrrd 2866	. . 3 ⊢ (𝑁 ∈ ℕ → ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))))
118		ovex 7452	. . . 4 ⊢ ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V
119	118	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V)
120	31, 101, 117, 119	fvmptd 7001	. 2 ⊢ (𝑁 ∈ ℕ → ((𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))‘((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
121	3, 22, 120	3eqtrd 2804	1 ⊢ (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146  Vcvv 3457   ∪ cun 3904   ∩ cin 3905  {csn 4591   class class class wbr 5111   ↦ cmpt 5194  ^◡ccnv 5662   ↾ cres 5665   “ cima 5666   Fn wfn 6535  ⟶wf 6536  ‘cfv 6540  (class class class)co 7419  ℝcr 11116  0cc0 11117  1c1 11118   + caddc 11120  +∞cpnf 11257   < clt 11260   − cmin 11458  ℕcn 12250  2c2 12312  ℕ₀cn0 12521  ℤcz 12608  ℤ_≥cuz 12880  ℝ⁺crp 13034  ...cfz 13553  ..^cfzo 13701  ♯chash 14386  Word cword 14570  ⟨“cs2 14904  seq_strcsseq 34840  Fibcicfib 34853

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-inf2 9617  ax-cnex 11173  ax-resscn 11174  ax-1cn 11175  ax-icn 11176  ax-addcl 11177  ax-addrcl 11178  ax-mulcl 11179  ax-mulrcl 11180  ax-mulcom 11181  ax-addass 11182  ax-mulass 11183  ax-distr 11184  ax-i2m1 11185  ax-1ne0 11186  ax-1rid 11187  ax-rnegex 11188  ax-rrecex 11189  ax-cnre 11190  ax-pre-lttri 11191  ax-pre-lttrn 11192  ax-pre-ltadd 11193  ax-pre-mulgt0 11194

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-int 4915  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-map 8832  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-card 9941  df-pnf 11262  df-mnf 11263  df-xr 11264  df-ltxr 11265  df-le 11266  df-sub 11460  df-neg 11461  df-nn 12251  df-2 12320  df-n0 12522  df-xnn0 12595  df-z 12609  df-uz 12881  df-rp 13035  df-fz 13554  df-fzo 13702  df-seq 14058  df-hash 14387  df-word 14571  df-lsw 14620  df-concat 14628  df-s1 14655  df-substr 14701  df-pfx 14733  df-s2 14911  df-sseq 34841  df-fib 34854

This theorem is used by:  fib2  34859  fib3  34860  fib4  34861  fib5  34862  fib6  34863