Metamath Proof Explorer


Theorem trireciplem

Description: Lemma for trirecip . Show that the sum converges. (Contributed by Scott Fenton, 22-Apr-2014) (Revised by Mario Carneiro, 22-May-2014)

Ref Expression
Hypothesis trireciplem.1 ⊢ F = n ∈ ℕ ⟼ 1 n ⁢ n + 1
Assertion trireciplem ⊢ seq 1 + F ⇝ 1

Proof

Step Hyp Ref Expression
1 trireciplem.1 ⊢ F = n ∈ ℕ ⟼ 1 n ⁢ n + 1
2 nnuz ⊢ ℕ = ℤ ≥ 1
3 1zzd ⊢ ⊤ → 1 ∈ ℤ
4 1cnd ⊢ ⊤ → 1 ∈ ℂ
5 nnex ⊢ ℕ ∈ V
6 5 mptex ⊢ n ∈ ℕ ⟼ 1 n + 1 ∈ V
7 6 a1i ⊢ ⊤ → n ∈ ℕ ⟼ 1 n + 1 ∈ V
8 oveq1 ⊢ n = k → n + 1 = k + 1
9 8 oveq2d ⊢ n = k → 1 n + 1 = 1 k + 1
10 eqid ⊢ n ∈ ℕ ⟼ 1 n + 1 = n ∈ ℕ ⟼ 1 n + 1
11 ovex ⊢ 1 k + 1 ∈ V
12 9 10 11 fvmpt ⊢ k ∈ ℕ → n ∈ ℕ ⟼ 1 n + 1 ⁡ k = 1 k + 1
13 12 adantl ⊢ ⊤ ∧ k ∈ ℕ → n ∈ ℕ ⟼ 1 n + 1 ⁡ k = 1 k + 1
14 2 3 4 3 7 13 divcnvshft ⊢ ⊤ → n ∈ ℕ ⟼ 1 n + 1 ⇝ 0
15 seqex ⊢ seq 1 + F ∈ V
16 15 a1i ⊢ ⊤ → seq 1 + F ∈ V
17 peano2nn ⊢ k ∈ ℕ → k + 1 ∈ ℕ
18 17 adantl ⊢ ⊤ ∧ k ∈ ℕ → k + 1 ∈ ℕ
19 18 nnrecred ⊢ ⊤ ∧ k ∈ ℕ → 1 k + 1 ∈ ℝ
20 19 recnd ⊢ ⊤ ∧ k ∈ ℕ → 1 k + 1 ∈ ℂ
21 13 20 eqeltrd ⊢ ⊤ ∧ k ∈ ℕ → n ∈ ℕ ⟼ 1 n + 1 ⁡ k ∈ ℂ
22 13 oveq2d ⊢ ⊤ ∧ k ∈ ℕ → 1 − n ∈ ℕ ⟼ 1 n + 1 ⁡ k = 1 − 1 k + 1
23 elfznn ⊢ j ∈ 1 … k → j ∈ ℕ
24 23 adantl ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ∈ ℕ
25 24 nncnd ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ∈ ℂ
26 peano2cn ⊢ j ∈ ℂ → j + 1 ∈ ℂ
27 25 26 syl ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 ∈ ℂ
28 peano2nn ⊢ j ∈ ℕ → j + 1 ∈ ℕ
29 24 28 syl ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 ∈ ℕ
30 24 29 nnmulcld ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ⁢ j + 1 ∈ ℕ
31 30 nncnd ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ⁢ j + 1 ∈ ℂ
32 30 nnne0d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ⁢ j + 1 ≠ 0
33 27 25 31 32 divsubdird ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 - j j ⁢ j + 1 = j + 1 j ⁢ j + 1 − j j ⁢ j + 1
34 ax-1cn ⊢ 1 ∈ ℂ
35 pncan2 ⊢ j ∈ ℂ ∧ 1 ∈ ℂ → j + 1 - j = 1
36 25 34 35 sylancl ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 - j = 1
37 36 oveq1d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 - j j ⁢ j + 1 = 1 j ⁢ j + 1
38 27 mulridd ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 ⋅ 1 = j + 1
39 27 25 mulcomd ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 ⁢ j = j ⁢ j + 1
40 38 39 oveq12d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 ⋅ 1 j + 1 ⁢ j = j + 1 j ⁢ j + 1
41 1cnd ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → 1 ∈ ℂ
42 24 nnne0d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ≠ 0
43 29 nnne0d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 ≠ 0
44 41 25 27 42 43 divcan5d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 ⋅ 1 j + 1 ⁢ j = 1 j
45 40 44 eqtr3d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 j ⁢ j + 1 = 1 j
46 25 mulridd ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ⋅ 1 = j
47 46 oveq1d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ⋅ 1 j ⁢ j + 1 = j j ⁢ j + 1
48 41 27 25 43 42 divcan5d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j ⋅ 1 j ⁢ j + 1 = 1 j + 1
49 47 48 eqtr3d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j j ⁢ j + 1 = 1 j + 1
50 45 49 oveq12d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → j + 1 j ⁢ j + 1 − j j ⁢ j + 1 = 1 j − 1 j + 1
51 33 37 50 3eqtr3d ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → 1 j ⁢ j + 1 = 1 j − 1 j + 1
52 51 sumeq2dv ⊢ ⊤ ∧ k ∈ ℕ → ∑ j = 1 k 1 j ⁢ j + 1 = ∑ j = 1 k 1 j − 1 j + 1
53 oveq2 ⊢ n = j → 1 n = 1 j
54 oveq2 ⊢ n = j + 1 → 1 n = 1 j + 1
55 oveq2 ⊢ n = 1 → 1 n = 1 1
56 1div1e1 ⊢ 1 1 = 1
57 55 56 eqtrdi ⊢ n = 1 → 1 n = 1
58 oveq2 ⊢ n = k + 1 → 1 n = 1 k + 1
59 nnz ⊢ k ∈ ℕ → k ∈ ℤ
60 59 adantl ⊢ ⊤ ∧ k ∈ ℕ → k ∈ ℤ
61 18 2 eleqtrdi ⊢ ⊤ ∧ k ∈ ℕ → k + 1 ∈ ℤ ≥ 1
62 elfznn ⊢ n ∈ 1 … k + 1 → n ∈ ℕ
63 62 adantl ⊢ ⊤ ∧ k ∈ ℕ ∧ n ∈ 1 … k + 1 → n ∈ ℕ
64 63 nnrecred ⊢ ⊤ ∧ k ∈ ℕ ∧ n ∈ 1 … k + 1 → 1 n ∈ ℝ
65 64 recnd ⊢ ⊤ ∧ k ∈ ℕ ∧ n ∈ 1 … k + 1 → 1 n ∈ ℂ
66 53 54 57 58 60 61 65 telfsum ⊢ ⊤ ∧ k ∈ ℕ → ∑ j = 1 k 1 j − 1 j + 1 = 1 − 1 k + 1
67 52 66 eqtrd ⊢ ⊤ ∧ k ∈ ℕ → ∑ j = 1 k 1 j ⁢ j + 1 = 1 − 1 k + 1
68 id ⊢ n = j → n = j
69 oveq1 ⊢ n = j → n + 1 = j + 1
70 68 69 oveq12d ⊢ n = j → n ⁢ n + 1 = j ⁢ j + 1
71 70 oveq2d ⊢ n = j → 1 n ⁢ n + 1 = 1 j ⁢ j + 1
72 ovex ⊢ 1 j ⁢ j + 1 ∈ V
73 71 1 72 fvmpt ⊢ j ∈ ℕ → F ⁡ j = 1 j ⁢ j + 1
74 24 73 syl ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → F ⁡ j = 1 j ⁢ j + 1
75 simpr ⊢ ⊤ ∧ k ∈ ℕ → k ∈ ℕ
76 75 2 eleqtrdi ⊢ ⊤ ∧ k ∈ ℕ → k ∈ ℤ ≥ 1
77 30 nnrecred ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → 1 j ⁢ j + 1 ∈ ℝ
78 77 recnd ⊢ ⊤ ∧ k ∈ ℕ ∧ j ∈ 1 … k → 1 j ⁢ j + 1 ∈ ℂ
79 74 76 78 fsumser ⊢ ⊤ ∧ k ∈ ℕ → ∑ j = 1 k 1 j ⁢ j + 1 = seq 1 + F ⁡ k
80 22 67 79 3eqtr2rd ⊢ ⊤ ∧ k ∈ ℕ → seq 1 + F ⁡ k = 1 − n ∈ ℕ ⟼ 1 n + 1 ⁡ k
81 2 3 14 4 16 21 80 climsubc2 ⊢ ⊤ → seq 1 + F ⇝ 1 − 0
82 81 mptru ⊢ seq 1 + F ⇝ 1 − 0
83 1m0e1 ⊢ 1 − 0 = 1
84 82 83 breqtri ⊢ seq 1 + F ⇝ 1