Theorem fibp1 34438

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 34434	. . . 4 ⊢ Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))))
2	1	fveq1i 6882	. . 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 12512	. . . 4 ⊢ ℕ0 ∈ V
5	4	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → ℕ0 ∈ V)
6		0nn0 12521	. . . . 5 ⊢ 0 ∈ ℕ0
7	6	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → 0 ∈ ℕ0)
8		1nn0 12522	. . . . 5 ⊢ 1 ∈ ℕ0
9	8	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℕ0)
10	7, 9	s2cld 14895	. . 3 ⊢ (𝑁 ∈ ℕ → ⟨“01”⟩ ∈ Word ℕ0)
11		eqid 2736	. . 3 ⊢ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩)))) = (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩))))
12		fiblem 34435	. . . 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 12885	. . . . 5 ⊢ (𝑁 ∈ (ℤ≥‘1) → (𝑁 + 1) ∈ (ℤ≥‘(1 + 1)))
15		nnuz 12900	. . . . 5 ⊢ ℕ = (ℤ≥‘1)
16	14, 15	eleq2s 2853	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘(1 + 1)))
17		s2len 14913	. . . . . 6 ⊢ (♯‘⟨“01”⟩) = 2
18		1p1e2 12370	. . . . . 6 ⊢ (1 + 1) = 2
19	17, 18	eqtr4i 2762	. . . . 5 ⊢ (♯‘⟨“01”⟩) = (1 + 1)
20	19	fveq2i 6884	. . . 4 ⊢ (ℤ≥‘(♯‘⟨“01”⟩)) = (ℤ≥‘(1 + 1))
21	16, 20	eleqtrrdi 2846	. . 3 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘(♯‘⟨“01”⟩)))
22	5, 10, 11, 13, 21	sseqp1 34432	. 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 6881	. . . . . . . 8 ⊢ (𝑤 = 𝑡 → (♯‘𝑤) = (♯‘𝑡))
25	24	oveq1d 7425	. . . . . . 7 ⊢ (𝑤 = 𝑡 → ((♯‘𝑤) − 2) = ((♯‘𝑡) − 2))
26	23, 25	fveq12d 6888	. . . . . 6 ⊢ (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 2)) = (𝑡‘((♯‘𝑡) − 2)))
27	24	oveq1d 7425	. . . . . . 7 ⊢ (𝑤 = 𝑡 → ((♯‘𝑤) − 1) = ((♯‘𝑡) − 1))
28	23, 27	fveq12d 6888	. . . . . 6 ⊢ (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 1)) = (𝑡‘((♯‘𝑡) − 1)))
29	26, 28	oveq12d 7428	. . . . 5 ⊢ (𝑤 = 𝑡 → ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))) = ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))))
30	29	cbvmptv 5230	. . . 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 484	. . . . 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 5970	. . . . 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 2774	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
36		simpr 484	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
37	36	fveq2d 6885	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (♯‘(Fibci ↾ (0..^(𝑁 + 1)))))
38	5, 10, 11, 13	sseqf 34429	. . . . . . . . . . . . 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 6695	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (Fibci:ℕ0⟶ℕ0 ↔ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))):ℕ0⟶ℕ0))
41	38, 40	mpbird 257	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → Fibci:ℕ0⟶ℕ0)
42		nnnn0 12513	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
43	42, 9	nn0addcld 12571	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ0)
44	5, 41, 43	subiwrdlen 34423	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
45	44	adantr 480	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
46	37, 45	eqtrd 2771	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (𝑁 + 1))
47	46	oveq1d 7425	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = ((𝑁 + 1) − 2))
48		nncn 12253	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
49		1cnd 11235	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
50		2cnd 12323	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
51	48, 49, 50	addsubassd 11619	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 + (1 − 2)))
52	48, 50, 49	subsub2d 11628	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 + (1 − 2)))
53		2m1e1 12371	. . . . . . . . . . . 12 ⊢ (2 − 1) = 1
54	53	oveq2i 7421	. . . . . . . . . . 11 ⊢ (𝑁 − (2 − 1)) = (𝑁 − 1)
55	54	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 − 1))
56	51, 52, 55	3eqtr2d 2777	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 − 1))
57	56	adantr 480	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 2) = (𝑁 − 1))
58	47, 57	eqtrd 2771	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = (𝑁 − 1))
59	58	fveq2d 6885	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (𝑡‘(𝑁 − 1)))
60	36	fveq1d 6883	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘(𝑁 − 1)) = ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)))
61		nnm1nn0 12547	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
62		peano2nn 12257	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
63		nnre 12252	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
64		2re 12319	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
65	64	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ)
66	63, 65	readdcld 11269	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 + 2) ∈ ℝ)
67		1red 11241	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
68		2rp 13018	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ+
69	68	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ+)
70	63, 69	ltaddrpd 13089	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 < (𝑁 + 2))
71	63, 66, 67, 70	ltsub1dd 11854	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) < ((𝑁 + 2) − 1))
72	48, 50, 49	addsubassd 11619	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + (2 − 1)))
73	53	oveq2i 7421	. . . . . . . . . . 11 ⊢ (𝑁 + (2 − 1)) = (𝑁 + 1)
74	72, 73	eqtrdi 2787	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + 1))
75	71, 74	breqtrd 5150	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) < (𝑁 + 1))
76		elfzo0 13722	. . . . . . . . 9 ⊢ ((𝑁 − 1) ∈ (0..^(𝑁 + 1)) ↔ ((𝑁 − 1) ∈ ℕ0 ∧ (𝑁 + 1) ∈ ℕ ∧ (𝑁 − 1) < (𝑁 + 1)))
77	61, 62, 75, 76	syl3anbrc 1344	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
78	77	adantr 480	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
79		fvres 6900	. . . . . . 7 ⊢ ((𝑁 − 1) ∈ (0..^(𝑁 + 1)) → ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)) = (Fibci‘(𝑁 − 1)))
80	78, 79	syl 17	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)) = (Fibci‘(𝑁 − 1)))
81	59, 60, 80	3eqtrd 2775	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (Fibci‘(𝑁 − 1)))
82	46	oveq1d 7425	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = ((𝑁 + 1) − 1))
83		simpl 482	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℕ)
84	83	nncnd 12261	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℂ)
85		1cnd 11235	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 1 ∈ ℂ)
86	84, 85	pncand 11600	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 1) = 𝑁)
87	82, 86	eqtrd 2771	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = 𝑁)
88	87	fveq2d 6885	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (𝑡‘𝑁))
89	36	fveq1d 6883	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘𝑁) = ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁))
90		nn0fz0 13647	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ0 ↔ 𝑁 ∈ (0...𝑁))
91	42, 90	sylib 218	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0...𝑁))
92		nnz 12614	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
93		fzval3 13755	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℤ → (0...𝑁) = (0..^(𝑁 + 1)))
94	92, 93	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (0...𝑁) = (0..^(𝑁 + 1)))
95	91, 94	eleqtrd 2837	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0..^(𝑁 + 1)))
96	95	adantr 480	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ (0..^(𝑁 + 1)))
97		fvres 6900	. . . . . . 7 ⊢ (𝑁 ∈ (0..^(𝑁 + 1)) → ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁) = (Fibci‘𝑁))
98	96, 97	syl 17	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁) = (Fibci‘𝑁))
99	88, 89, 98	3eqtrd 2775	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (Fibci‘𝑁))
100	81, 99	oveq12d 7428	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
101	35, 100	syldan 591	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
102	39	reseq1d 5970	. . . 4 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
103	5, 41, 43	subiwrd 34422	. . . . 5 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ Word ℕ0)
104		ovex 7443	. . . . . . . . 9 ⊢ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ∈ V
105	1, 104	eqeltri 2831	. . . . . . . 8 ⊢ Fibci ∈ V
106	105	resex 6021	. . . . . . 7 ⊢ (Fibci ↾ (0..^(𝑁 + 1))) ∈ V
107	106	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ V)
108	18	fveq2i 6884	. . . . . . . 8 ⊢ (ℤ≥‘(1 + 1)) = (ℤ≥‘2)
109	16, 108	eleqtrdi 2845	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘2))
110	44, 109	eqeltrd 2835	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ≥‘2))
111		hashf 14361	. . . . . . 7 ⊢ ♯:V⟶(ℕ0 ∪ {+∞})
112		ffn 6711	. . . . . . 7 ⊢ (♯:V⟶(ℕ0 ∪ {+∞}) → ♯ Fn V)
113		elpreima 7053	. . . . . . 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 583	. . . . 5 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (◡♯ “ (ℤ≥‘2)))
116	103, 115	elind 4180	. . . 4 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))))
117	102, 116	eqeltrrd 2836	. . 3 ⊢ (𝑁 ∈ ℕ → ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))))
118		ovex 7443	. . . 4 ⊢ ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V
119	118	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V)
120	31, 101, 117, 119	fvmptd 6998	. 2 ⊢ (𝑁 ∈ ℕ → ((𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))‘((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
121	3, 22, 120	3eqtrd 2775	1 ⊢ (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109  Vcvv 3464   ∪ cun 3929   ∩ cin 3930  {csn 4606   class class class wbr 5124   ↦ cmpt 5206  ^◡ccnv 5658   ↾ cres 5661   “ cima 5662   Fn wfn 6531  ⟶wf 6532  ‘cfv 6536  (class class class)co 7410  ℝcr 11133  0cc0 11134  1c1 11135   + caddc 11137  +∞cpnf 11271   < clt 11274   − cmin 11471  ℕcn 12245  2c2 12300  ℕ₀cn0 12506  ℤcz 12593  ℤ_≥cuz 12857  ℝ⁺crp 13013  ...cfz 13529  ..^cfzo 13676  ♯chash 14353  Word cword 14536  ⟨“cs2 14865  seq_strcsseq 34420  Fibcicfib 34433

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2708  ax-rep 5254  ax-sep 5271  ax-nul 5281  ax-pow 5340  ax-pr 5407  ax-un 7734  ax-inf2 9660  ax-cnex 11190  ax-resscn 11191  ax-1cn 11192  ax-icn 11193  ax-addcl 11194  ax-addrcl 11195  ax-mulcl 11196  ax-mulrcl 11197  ax-mulcom 11198  ax-addass 11199  ax-mulass 11200  ax-distr 11201  ax-i2m1 11202  ax-1ne0 11203  ax-1rid 11204  ax-rnegex 11205  ax-rrecex 11206  ax-cnre 11207  ax-pre-lttri 11208  ax-pre-lttrn 11209  ax-pre-ltadd 11210  ax-pre-mulgt0 11211

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2810  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3062  df-reu 3365  df-rab 3421  df-v 3466  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-op 4613  df-uni 4889  df-int 4928  df-iun 4974  df-br 5125  df-opab 5187  df-mpt 5207  df-tr 5235  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-we 5613  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 6295  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7867  df-1st 7993  df-2nd 7994  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-er 8724  df-map 8847  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-card 9958  df-pnf 11276  df-mnf 11277  df-xr 11278  df-ltxr 11279  df-le 11280  df-sub 11473  df-neg 11474  df-nn 12246  df-2 12308  df-n0 12507  df-xnn0 12580  df-z 12594  df-uz 12858  df-rp 13014  df-fz 13530  df-fzo 13677  df-seq 14025  df-hash 14354  df-word 14537  df-lsw 14586  df-concat 14594  df-s1 14619  df-substr 14664  df-pfx 14694  df-s2 14872  df-sseq 34421  df-fib 34434

This theorem is referenced by:  fib2  34439  fib3  34440  fib4  34441  fib5  34442  fib6  34443