Theorem fibp1 35086

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 35082	. . . 4 ⊢ Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))))
2	1	fveq1i 6894	. . 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 12622	. . . 4 ⊢ ℕ0 ∈ V
5	4	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → ℕ0 ∈ V)
6		0nn0 12631	. . . . 5 ⊢ 0 ∈ ℕ0
7	6	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → 0 ∈ ℕ0)
8		1nn0 12632	. . . . 5 ⊢ 1 ∈ ℕ0
9	8	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℕ0)
10	7, 9	s2cld 15033	. . 3 ⊢ (𝑁 ∈ ℕ → ⟨“01”⟩ ∈ Word ℕ0)
11		eqid 2763	. . 3 ⊢ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩)))) = (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩))))
12		fiblem 35083	. . . 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 13003	. . . . 5 ⊢ (𝑁 ∈ (ℤ≥‘1) → (𝑁 + 1) ∈ (ℤ≥‘(1 + 1)))
15		nnuz 13014	. . . . 5 ⊢ ℕ = (ℤ≥‘1)
16	14, 15	eleq2s 2881	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘(1 + 1)))
17		s2len 15051	. . . . . 6 ⊢ (♯‘⟨“01”⟩) = 2
18		1p1e2 12476	. . . . . 6 ⊢ (1 + 1) = 2
19	17, 18	eqtr4i 2789	. . . . 5 ⊢ (♯‘⟨“01”⟩) = (1 + 1)
20	19	fveq2i 6896	. . . 4 ⊢ (ℤ≥‘(♯‘⟨“01”⟩)) = (ℤ≥‘(1 + 1))
21	16, 20	eleqtrrdi 2874	. . 3 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘(♯‘⟨“01”⟩)))
22	5, 10, 11, 13, 21	sseqp1 35080	. 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 6893	. . . . . . . 8 ⊢ (𝑤 = 𝑡 → (♯‘𝑤) = (♯‘𝑡))
25	24	oveq1d 7442	. . . . . . 7 ⊢ (𝑤 = 𝑡 → ((♯‘𝑤) − 2) = ((♯‘𝑡) − 2))
26	23, 25	fveq12d 6900	. . . . . 6 ⊢ (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 2)) = (𝑡‘((♯‘𝑡) − 2)))
27	24	oveq1d 7442	. . . . . . 7 ⊢ (𝑤 = 𝑡 → ((♯‘𝑤) − 1) = ((♯‘𝑡) − 1))
28	23, 27	fveq12d 6900	. . . . . 6 ⊢ (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 1)) = (𝑡‘((♯‘𝑡) − 1)))
29	26, 28	oveq12d 7445	. . . . 5 ⊢ (𝑤 = 𝑡 → ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))) = ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))))
30	29	cbvmptv 5211	. . . 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 5973	. . . . 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 2801	. . . 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 6897	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (♯‘(Fibci ↾ (0..^(𝑁 + 1)))))
38	5, 10, 11, 13	sseqf 35077	. . . . . . . . . . . . 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 6699	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (Fibci:ℕ0⟶ℕ0 ↔ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))):ℕ0⟶ℕ0))
41	38, 40	mpbird 260	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → Fibci:ℕ0⟶ℕ0)
42		nnnn0 12623	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
43	42, 9	nn0addcld 12681	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ0)
44	5, 41, 43	subiwrdlen 35071	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
45	44	adantr 486	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
46	37, 45	eqtrd 2798	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (𝑁 + 1))
47	46	oveq1d 7442	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = ((𝑁 + 1) − 2))
48		nncn 12353	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
49		1cnd 11312	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
50		2cnd 12431	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
51	48, 49, 50	addsubassd 11699	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 + (1 − 2)))
52	48, 50, 49	subsub2d 11708	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 + (1 − 2)))
53		2m1e1 12477	. . . . . . . . . . . 12 ⊢ (2 − 1) = 1
54	53	oveq2i 7438	. . . . . . . . . . 11 ⊢ (𝑁 − (2 − 1)) = (𝑁 − 1)
55	54	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 − 1))
56	51, 52, 55	3eqtr2d 2804	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 − 1))
57	56	adantr 486	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 2) = (𝑁 − 1))
58	47, 57	eqtrd 2798	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = (𝑁 − 1))
59	58	fveq2d 6897	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (𝑡‘(𝑁 − 1)))
60	36	fveq1d 6895	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘(𝑁 − 1)) = ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)))
61		nnm1nn0 12657	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
62		peano2nn 12357	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
63		nnre 12352	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
64		2re 12427	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
65	64	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ)
66	63, 65	readdcld 11348	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 + 2) ∈ ℝ)
67		1red 11319	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
68		2rp 13135	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ+
69	68	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ+)
70	63, 69	ltaddrpd 13207	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 < (𝑁 + 2))
71	63, 66, 67, 70	ltsub1dd 11938	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) < ((𝑁 + 2) − 1))
72	48, 50, 49	addsubassd 11699	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + (2 − 1)))
73	53	oveq2i 7438	. . . . . . . . . . 11 ⊢ (𝑁 + (2 − 1)) = (𝑁 + 1)
74	72, 73	eqtrdi 2814	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + 1))
75	71, 74	breqtrd 5133	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) < (𝑁 + 1))
76		elfzo0 13845	. . . . . . . . 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 6912	. . . . . . 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 2802	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (Fibci‘(𝑁 − 1)))
82	46	oveq1d 7442	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = ((𝑁 + 1) − 1))
83		simpl 488	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℕ)
84	83	nncnd 12361	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℂ)
85		1cnd 11312	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 1 ∈ ℂ)
86	84, 85	pncand 11680	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 1) = 𝑁)
87	82, 86	eqtrd 2798	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = 𝑁)
88	87	fveq2d 6897	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (𝑡‘𝑁))
89	36	fveq1d 6895	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘𝑁) = ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁))
90		nn0fz0 13769	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ0 ↔ 𝑁 ∈ (0...𝑁))
91	42, 90	sylib 221	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0...𝑁))
92		nnz 12724	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
93		fzval3 13879	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℤ → (0...𝑁) = (0..^(𝑁 + 1)))
94	92, 93	syl 18	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (0...𝑁) = (0..^(𝑁 + 1)))
95	91, 94	eleqtrd 2865	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0..^(𝑁 + 1)))
96	95	adantr 486	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ (0..^(𝑁 + 1)))
97		fvres 6912	. . . . . . 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 2802	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (Fibci‘𝑁))
100	81, 99	oveq12d 7445	. . . 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 5973	. . . 4 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
103	5, 41, 43	subiwrd 35070	. . . . 5 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ Word ℕ0)
104		ovex 7460	. . . . . . . . 9 ⊢ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ∈ V
105	1, 104	eqeltri 2859	. . . . . . . 8 ⊢ Fibci ∈ V
106	105	resex 6023	. . . . . . 7 ⊢ (Fibci ↾ (0..^(𝑁 + 1))) ∈ V
107	106	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ V)
108	18	fveq2i 6896	. . . . . . . 8 ⊢ (ℤ≥‘(1 + 1)) = (ℤ≥‘2)
109	16, 108	eleqtrdi 2873	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘2))
110	44, 109	eqeltrd 2863	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ≥‘2))
111		hashf 14492	. . . . . . 7 ⊢ ♯:V⟶(ℕ0 ∪ {+∞})
112		ffn 6717	. . . . . . 7 ⊢ (♯:V⟶(ℕ0 ∪ {+∞}) → ♯ Fn V)
113		elpreima 7065	. . . . . . 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 4099	. . . 4 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))))
117	102, 116	eqeltrrd 2864	. . 3 ⊢ (𝑁 ∈ ℕ → ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))))
118		ovex 7460	. . . 4 ⊢ ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V
119	118	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V)
120	31, 101, 117, 119	fvmptd 7009	. 2 ⊢ (𝑁 ∈ ℕ → ((𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))‘((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
121	3, 22, 120	3eqtrd 2802	1 ⊢ (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1569   ∈ wcel 2146  Vcvv 3453   ∩ cin 4091   ∪ cun 4151  {csn 4587   class class class wbr 5105   ↦ cmpt 5188  ^◡ccnv 5653   ↾ cres 5656   “ cima 5657   Fn wfn 6541  ⟶wf 6542  ‘cfv 6546  (class class class)co 7427  ℝcr 11209  0cc0 11210  1c1 11211   + caddc 11213  +∞cpnf 11350   < clt 11353   − cmin 11551  ℕcn 12345  2c2 12407  ℕ₀cn0 12616  ℤcz 12703  ℤ_≥cuz 12975  ℝ⁺crp 13130  ...cfz 13649  ..^cfzo 13798  ♯chash 14484  Word cword 14668  ⟨“cs2 15003  seq_strcsseq 35068  Fibcicfib 35081

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-rep 5234  ax-sep 5251  ax-nul 5262  ax-pow 5330  ax-pr 5394  ax-un 7758  ax-inf2 9652  ax-cnex 11266  ax-resscn 11267  ax-1cn 11268  ax-icn 11269  ax-addcl 11270  ax-addrcl 11271  ax-mulcl 11272  ax-mulrcl 11273  ax-mulcom 11274  ax-addass 11275  ax-mulass 11276  ax-distr 11277  ax-i2m1 11278  ax-1ne0 11279  ax-1rid 11280  ax-rnegex 11281  ax-rrecex 11282  ax-cnre 11283  ax-pre-lttri 11284  ax-pre-lttrn 11285  ax-pre-ltadd 11286  ax-pre-mulgt0 11287

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-reu 3369  df-rab 3416  df-v 3455  df-sbc 3742  df-csb 3851  df-ss 3900  df-pss 4016  df-dif 4049  df-in 4093  df-un 4153  df-nul 4281  df-if 4485  df-pw 4561  df-sn 4588  df-pr 4590  df-op 4838  df-uni 4870  df-int 4910  df-iun 4955  df-br 5106  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5549  df-eprel 5554  df-po 5562  df-so 5563  df-fr 5607  df-we 5609  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6310  df-ord 6371  df-on 6372  df-lim 6373  df-suc 6374  df-iota 6500  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554  df-riota 7384  df-ov 7430  df-oprab 7431  df-mpo 7432  df-om 7885  df-1st 8008  df-2nd 8009  df-frecs 8310  df-wrecs 8341  df-recs 8390  df-rdg 8429  df-1o 8487  df-er 8728  df-map 8860  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-card 10030  df-pnf 11355  df-mnf 11356  df-xr 11357  df-ltxr 11358  df-le 11359  df-sub 11553  df-neg 11554  df-nn 12346  df-2 12415  df-n0 12617  df-xnn0 12690  df-z 12704  df-uz 12976  df-rp 13131  df-fz 13650  df-fzo 13799  df-seq 14155  df-hash 14485  df-word 14669  df-lsw 14718  df-concat 14726  df-s1 14753  df-substr 14800  df-pfx 14832  df-s2 15010  df-sseq 35069  df-fib 35082

This theorem is used by:  fib2  35087  fib3  35088  fib4  35089  fib5  35090  fib6  35091