Theorem fibp1 34585

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 34581	. . . 4 ⊢ Fibci = (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1)))))
2	1	fveq1i 6828	. . 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 12434	. . . 4 ⊢ ℕ0 ∈ V
5	4	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → ℕ0 ∈ V)
6		0nn0 12443	. . . . 5 ⊢ 0 ∈ ℕ0
7	6	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → 0 ∈ ℕ0)
8		1nn0 12444	. . . . 5 ⊢ 1 ∈ ℕ0
9	8	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℕ0)
10	7, 9	s2cld 14824	. . 3 ⊢ (𝑁 ∈ ℕ → ⟨“01”⟩ ∈ Word ℕ0)
11		eqid 2739	. . 3 ⊢ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩)))) = (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘(♯‘⟨“01”⟩))))
12		fiblem 34582	. . . 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 12807	. . . . 5 ⊢ (𝑁 ∈ (ℤ≥‘1) → (𝑁 + 1) ∈ (ℤ≥‘(1 + 1)))
15		nnuz 12818	. . . . 5 ⊢ ℕ = (ℤ≥‘1)
16	14, 15	eleq2s 2857	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘(1 + 1)))
17		s2len 14842	. . . . . 6 ⊢ (♯‘⟨“01”⟩) = 2
18		1p1e2 12292	. . . . . 6 ⊢ (1 + 1) = 2
19	17, 18	eqtr4i 2765	. . . . 5 ⊢ (♯‘⟨“01”⟩) = (1 + 1)
20	19	fveq2i 6830	. . . 4 ⊢ (ℤ≥‘(♯‘⟨“01”⟩)) = (ℤ≥‘(1 + 1))
21	16, 20	eleqtrrdi 2850	. . 3 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘(♯‘⟨“01”⟩)))
22	5, 10, 11, 13, 21	sseqp1 34579	. 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 6827	. . . . . . . 8 ⊢ (𝑤 = 𝑡 → (♯‘𝑤) = (♯‘𝑡))
25	24	oveq1d 7371	. . . . . . 7 ⊢ (𝑤 = 𝑡 → ((♯‘𝑤) − 2) = ((♯‘𝑡) − 2))
26	23, 25	fveq12d 6834	. . . . . 6 ⊢ (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 2)) = (𝑡‘((♯‘𝑡) − 2)))
27	24	oveq1d 7371	. . . . . . 7 ⊢ (𝑤 = 𝑡 → ((♯‘𝑤) − 1) = ((♯‘𝑡) − 1))
28	23, 27	fveq12d 6834	. . . . . 6 ⊢ (𝑤 = 𝑡 → (𝑤‘((♯‘𝑤) − 1)) = (𝑡‘((♯‘𝑡) − 1)))
29	26, 28	oveq12d 7374	. . . . 5 ⊢ (𝑤 = 𝑡 → ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))) = ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))))
30	29	cbvmptv 5176	. . . 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 485	. . . . 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 5930	. . . . 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 2777	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
36		simpr 485	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑡 = (Fibci ↾ (0..^(𝑁 + 1))))
37	36	fveq2d 6831	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (♯‘(Fibci ↾ (0..^(𝑁 + 1)))))
38	5, 10, 11, 13	sseqf 34576	. . . . . . . . . . . . 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 6637	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (Fibci:ℕ0⟶ℕ0 ↔ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))):ℕ0⟶ℕ0))
41	38, 40	mpbird 258	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → Fibci:ℕ0⟶ℕ0)
42		nnnn0 12435	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
43	42, 9	nn0addcld 12493	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ0)
44	5, 41, 43	subiwrdlen 34570	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
45	44	adantr 481	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) = (𝑁 + 1))
46	37, 45	eqtrd 2774	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (♯‘𝑡) = (𝑁 + 1))
47	46	oveq1d 7371	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = ((𝑁 + 1) − 2))
48		nncn 12173	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
49		1cnd 11130	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
50		2cnd 12250	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
51	48, 49, 50	addsubassd 11516	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 + (1 − 2)))
52	48, 50, 49	subsub2d 11525	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 + (1 − 2)))
53		2m1e1 12293	. . . . . . . . . . . 12 ⊢ (2 − 1) = 1
54	53	oveq2i 7367	. . . . . . . . . . 11 ⊢ (𝑁 − (2 − 1)) = (𝑁 − 1)
55	54	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − (2 − 1)) = (𝑁 − 1))
56	51, 52, 55	3eqtr2d 2780	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 2) = (𝑁 − 1))
57	56	adantr 481	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 2) = (𝑁 − 1))
58	47, 57	eqtrd 2774	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 2) = (𝑁 − 1))
59	58	fveq2d 6831	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (𝑡‘(𝑁 − 1)))
60	36	fveq1d 6829	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘(𝑁 − 1)) = ((Fibci ↾ (0..^(𝑁 + 1)))‘(𝑁 − 1)))
61		nnm1nn0 12469	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
62		peano2nn 12177	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
63		nnre 12172	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
64		2re 12246	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
65	64	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ)
66	63, 65	readdcld 11165	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 + 2) ∈ ℝ)
67		1red 11136	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
68		2rp 12938	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ+
69	68	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ+)
70	63, 69	ltaddrpd 13010	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 < (𝑁 + 2))
71	63, 66, 67, 70	ltsub1dd 11753	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) < ((𝑁 + 2) − 1))
72	48, 50, 49	addsubassd 11516	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + (2 − 1)))
73	53	oveq2i 7367	. . . . . . . . . . 11 ⊢ (𝑁 + (2 − 1)) = (𝑁 + 1)
74	72, 73	eqtrdi 2790	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 2) − 1) = (𝑁 + 1))
75	71, 74	breqtrd 5098	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) < (𝑁 + 1))
76		elfzo0 13646	. . . . . . . . 9 ⊢ ((𝑁 − 1) ∈ (0..^(𝑁 + 1)) ↔ ((𝑁 − 1) ∈ ℕ0 ∧ (𝑁 + 1) ∈ ℕ ∧ (𝑁 − 1) < (𝑁 + 1)))
77	61, 62, 75, 76	syl3anbrc 1350	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
78	77	adantr 481	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑁 − 1) ∈ (0..^(𝑁 + 1)))
79		fvres 6846	. . . . . . 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 2778	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 2)) = (Fibci‘(𝑁 − 1)))
82	46	oveq1d 7371	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = ((𝑁 + 1) − 1))
83		simpl 483	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℕ)
84	83	nncnd 12181	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ ℂ)
85		1cnd 11130	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 1 ∈ ℂ)
86	84, 85	pncand 11497	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑁 + 1) − 1) = 𝑁)
87	82, 86	eqtrd 2774	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((♯‘𝑡) − 1) = 𝑁)
88	87	fveq2d 6831	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (𝑡‘𝑁))
89	36	fveq1d 6829	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘𝑁) = ((Fibci ↾ (0..^(𝑁 + 1)))‘𝑁))
90		nn0fz0 13570	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ0 ↔ 𝑁 ∈ (0...𝑁))
91	42, 90	sylib 219	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0...𝑁))
92		nnz 12536	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
93		fzval3 13680	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℤ → (0...𝑁) = (0..^(𝑁 + 1)))
94	92, 93	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (0...𝑁) = (0..^(𝑁 + 1)))
95	91, 94	eleqtrd 2841	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0..^(𝑁 + 1)))
96	95	adantr 481	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → 𝑁 ∈ (0..^(𝑁 + 1)))
97		fvres 6846	. . . . . . 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 2778	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → (𝑡‘((♯‘𝑡) − 1)) = (Fibci‘𝑁))
100	81, 99	oveq12d 7374	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = (Fibci ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
101	35, 100	syldan 597	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ 𝑡 = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) → ((𝑡‘((♯‘𝑡) − 2)) + (𝑡‘((♯‘𝑡) − 1))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
102	39	reseq1d 5930	. . . 4 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) = ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))))
103	5, 41, 43	subiwrd 34569	. . . . 5 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ Word ℕ0)
104		ovex 7389	. . . . . . . . 9 ⊢ (⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ∈ V
105	1, 104	eqeltri 2835	. . . . . . . 8 ⊢ Fibci ∈ V
106	105	resex 5981	. . . . . . 7 ⊢ (Fibci ↾ (0..^(𝑁 + 1))) ∈ V
107	106	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ V)
108	18	fveq2i 6830	. . . . . . . 8 ⊢ (ℤ≥‘(1 + 1)) = (ℤ≥‘2)
109	16, 108	eleqtrdi 2849	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (ℤ≥‘2))
110	44, 109	eqeltrd 2839	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (♯‘(Fibci ↾ (0..^(𝑁 + 1)))) ∈ (ℤ≥‘2))
111		hashf 14291	. . . . . . 7 ⊢ ♯:V⟶(ℕ0 ∪ {+∞})
112		ffn 6655	. . . . . . 7 ⊢ (♯:V⟶(ℕ0 ∪ {+∞}) → ♯ Fn V)
113		elpreima 6999	. . . . . . 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 589	. . . . 5 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (◡♯ “ (ℤ≥‘2)))
116	103, 115	elind 4129	. . . 4 ⊢ (𝑁 ∈ ℕ → (Fibci ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))))
117	102, 116	eqeltrrd 2840	. . 3 ⊢ (𝑁 ∈ ℕ → ((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1))) ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))))
118		ovex 7389	. . . 4 ⊢ ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V
119	118	a1i 11	. . 3 ⊢ (𝑁 ∈ ℕ → ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)) ∈ V)
120	31, 101, 117, 119	fvmptd 6943	. 2 ⊢ (𝑁 ∈ ℕ → ((𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))‘((⟨“01”⟩seqstr(𝑤 ∈ (Word ℕ0 ∩ (◡♯ “ (ℤ≥‘2))) ↦ ((𝑤‘((♯‘𝑤) − 2)) + (𝑤‘((♯‘𝑤) − 1))))) ↾ (0..^(𝑁 + 1)))) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))
121	3, 22, 120	3eqtrd 2778	1 ⊢ (𝑁 ∈ ℕ → (Fibci‘(𝑁 + 1)) = ((Fibci‘(𝑁 − 1)) + (Fibci‘𝑁)))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119  Vcvv 3431   ∪ cun 3881   ∩ cin 3882  {csn 4555   class class class wbr 5072   ↦ cmpt 5153  ^◡ccnv 5617   ↾ cres 5620   “ cima 5621   Fn wfn 6480  ⟶wf 6481  ‘cfv 6485  (class class class)co 7356  ℝcr 11028  0cc0 11029  1c1 11030   + caddc 11032  +∞cpnf 11167   < clt 11170   − cmin 11368  ℕcn 12165  2c2 12227  ℕ₀cn0 12428  ℤcz 12515  ℤ_≥cuz 12779  ℝ⁺crp 12933  ...cfz 13452  ..^cfzo 13599  ♯chash 14283  Word cword 14466  ⟨“cs2 14794  seq_strcsseq 34567  Fibcicfib 34580

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-inf2 9553  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-er 8633  df-map 8765  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-card 9854  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-nn 12166  df-2 12235  df-n0 12429  df-xnn0 12502  df-z 12516  df-uz 12780  df-rp 12934  df-fz 13453  df-fzo 13600  df-seq 13955  df-hash 14284  df-word 14467  df-lsw 14516  df-concat 14524  df-s1 14550  df-substr 14595  df-pfx 14625  df-s2 14801  df-sseq 34568  df-fib 34581

This theorem is referenced by:  fib2  34586  fib3  34587  fib4  34588  fib5  34589  fib6  34590