Metamath Proof Explorer


Theorem stirlinglem4

Description: Algebraic manipulation of ( ( B n ) - ( B ( n + 1 ) ) ) . It will be used in other theorems to show that B is decreasing. (Contributed by Glauco Siliprandi, 29-Jun-2017)

Ref Expression
Hypotheses stirlinglem4.1 ⊢ A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
stirlinglem4.2 ⊢ B = n ∈ ℕ ⟼ log ⁡ A ⁡ n
stirlinglem4.3 ⊢ J = n ∈ ℕ ⟼ 1 + 2 ⁢ n 2 ⁢ log ⁡ n + 1 n − 1
Assertion stirlinglem4 ⊢ N ∈ ℕ → B ⁡ N − B ⁡ N + 1 = J ⁡ N

Proof

Step Hyp Ref Expression
1 stirlinglem4.1 ⊢ A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
2 stirlinglem4.2 ⊢ B = n ∈ ℕ ⟼ log ⁡ A ⁡ n
3 stirlinglem4.3 ⊢ J = n ∈ ℕ ⟼ 1 + 2 ⁢ n 2 ⁢ log ⁡ n + 1 n − 1
4 nnre ⊢ N ∈ ℕ → N ∈ ℝ
5 nnnn0 ⊢ N ∈ ℕ → N ∈ ℕ 0
6 5 nn0ge0d ⊢ N ∈ ℕ → 0 ≤ N
7 4 6 ge0p1rpd ⊢ N ∈ ℕ → N + 1 ∈ ℝ +
8 nnrp ⊢ N ∈ ℕ → N ∈ ℝ +
9 7 8 rpdivcld ⊢ N ∈ ℕ → N + 1 N ∈ ℝ +
10 9 rpsqrtcld ⊢ N ∈ ℕ → N + 1 N ∈ ℝ +
11 nnz ⊢ N ∈ ℕ → N ∈ ℤ
12 9 11 rpexpcld ⊢ N ∈ ℕ → N + 1 N N ∈ ℝ +
13 10 12 rpmulcld ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 N N ∈ ℝ +
14 epr ⊢ e ∈ ℝ +
15 14 a1i ⊢ N ∈ ℕ → e ∈ ℝ +
16 13 15 relogdivd ⊢ N ∈ ℕ → log ⁡ N + 1 N ⁢ N + 1 N N e = log ⁡ N + 1 N ⁢ N + 1 N N − log ⁡ e
17 10 12 relogmuld ⊢ N ∈ ℕ → log ⁡ N + 1 N ⁢ N + 1 N N = log ⁡ N + 1 N + log ⁡ N + 1 N N
18 logsqrt ⊢ N + 1 N ∈ ℝ + → log ⁡ N + 1 N = log ⁡ N + 1 N 2
19 9 18 syl ⊢ N ∈ ℕ → log ⁡ N + 1 N = log ⁡ N + 1 N 2
20 relogexp ⊢ N + 1 N ∈ ℝ + ∧ N ∈ ℤ → log ⁡ N + 1 N N = N ⁢ log ⁡ N + 1 N
21 9 11 20 syl2anc ⊢ N ∈ ℕ → log ⁡ N + 1 N N = N ⁢ log ⁡ N + 1 N
22 19 21 oveq12d ⊢ N ∈ ℕ → log ⁡ N + 1 N + log ⁡ N + 1 N N = log ⁡ N + 1 N 2 + N ⁢ log ⁡ N + 1 N
23 17 22 eqtrd ⊢ N ∈ ℕ → log ⁡ N + 1 N ⁢ N + 1 N N = log ⁡ N + 1 N 2 + N ⁢ log ⁡ N + 1 N
24 peano2nn ⊢ N ∈ ℕ → N + 1 ∈ ℕ
25 24 nncnd ⊢ N ∈ ℕ → N + 1 ∈ ℂ
26 nncn ⊢ N ∈ ℕ → N ∈ ℂ
27 nnne0 ⊢ N ∈ ℕ → N ≠ 0
28 25 26 27 divcld ⊢ N ∈ ℕ → N + 1 N ∈ ℂ
29 24 nnne0d ⊢ N ∈ ℕ → N + 1 ≠ 0
30 25 26 29 27 divne0d ⊢ N ∈ ℕ → N + 1 N ≠ 0
31 28 30 logcld ⊢ N ∈ ℕ → log ⁡ N + 1 N ∈ ℂ
32 2cnd ⊢ N ∈ ℕ → 2 ∈ ℂ
33 2rp ⊢ 2 ∈ ℝ +
34 33 a1i ⊢ N ∈ ℕ → 2 ∈ ℝ +
35 34 rpne0d ⊢ N ∈ ℕ → 2 ≠ 0
36 31 32 35 divrec2d ⊢ N ∈ ℕ → log ⁡ N + 1 N 2 = 1 2 ⁢ log ⁡ N + 1 N
37 36 oveq1d ⊢ N ∈ ℕ → log ⁡ N + 1 N 2 + N ⁢ log ⁡ N + 1 N = 1 2 ⁢ log ⁡ N + 1 N + N ⁢ log ⁡ N + 1 N
38 1cnd ⊢ N ∈ ℕ → 1 ∈ ℂ
39 38 halfcld ⊢ N ∈ ℕ → 1 2 ∈ ℂ
40 39 26 31 adddird ⊢ N ∈ ℕ → 1 2 + N ⁢ log ⁡ N + 1 N = 1 2 ⁢ log ⁡ N + 1 N + N ⁢ log ⁡ N + 1 N
41 26 32 35 divcan4d ⊢ N ∈ ℕ → N ⋅ 2 2 = N
42 26 32 mulcomd ⊢ N ∈ ℕ → N ⋅ 2 = 2 ⋅ N
43 42 oveq1d ⊢ N ∈ ℕ → N ⋅ 2 2 = 2 ⋅ N 2
44 41 43 eqtr3d ⊢ N ∈ ℕ → N = 2 ⋅ N 2
45 44 oveq2d ⊢ N ∈ ℕ → 1 2 + N = 1 2 + 2 ⋅ N 2
46 32 26 mulcld ⊢ N ∈ ℕ → 2 ⋅ N ∈ ℂ
47 38 46 32 35 divdird ⊢ N ∈ ℕ → 1 + 2 ⋅ N 2 = 1 2 + 2 ⋅ N 2
48 45 47 eqtr4d ⊢ N ∈ ℕ → 1 2 + N = 1 + 2 ⋅ N 2
49 48 oveq1d ⊢ N ∈ ℕ → 1 2 + N ⁢ log ⁡ N + 1 N = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N
50 40 49 eqtr3d ⊢ N ∈ ℕ → 1 2 ⁢ log ⁡ N + 1 N + N ⁢ log ⁡ N + 1 N = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N
51 23 37 50 3eqtrd ⊢ N ∈ ℕ → log ⁡ N + 1 N ⁢ N + 1 N N = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N
52 loge ⊢ log ⁡ e = 1
53 52 a1i ⊢ N ∈ ℕ → log ⁡ e = 1
54 51 53 oveq12d ⊢ N ∈ ℕ → log ⁡ N + 1 N ⁢ N + 1 N N − log ⁡ e = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1
55 16 54 eqtrd ⊢ N ∈ ℕ → log ⁡ N + 1 N ⁢ N + 1 N N e = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1
56 1 stirlinglem2 ⊢ N ∈ ℕ → A ⁡ N ∈ ℝ +
57 56 relogcld ⊢ N ∈ ℕ → log ⁡ A ⁡ N ∈ ℝ
58 nfcv ⊢ Ⅎ _ n N
59 nfcv ⊢ Ⅎ _ n log
60 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
61 1 60 nfcxfr ⊢ Ⅎ _ n A
62 61 58 nffv ⊢ Ⅎ _ n A ⁡ N
63 59 62 nffv ⊢ Ⅎ _ n log ⁡ A ⁡ N
64 2fveq3 ⊢ n = N → log ⁡ A ⁡ n = log ⁡ A ⁡ N
65 58 63 64 2 fvmptf ⊢ N ∈ ℕ ∧ log ⁡ A ⁡ N ∈ ℝ → B ⁡ N = log ⁡ A ⁡ N
66 57 65 mpdan ⊢ N ∈ ℕ → B ⁡ N = log ⁡ A ⁡ N
67 nfcv ⊢ Ⅎ _ k log ⁡ A ⁡ n
68 nfcv ⊢ Ⅎ _ n k
69 61 68 nffv ⊢ Ⅎ _ n A ⁡ k
70 59 69 nffv ⊢ Ⅎ _ n log ⁡ A ⁡ k
71 2fveq3 ⊢ n = k → log ⁡ A ⁡ n = log ⁡ A ⁡ k
72 67 70 71 cbvmpt ⊢ n ∈ ℕ ⟼ log ⁡ A ⁡ n = k ∈ ℕ ⟼ log ⁡ A ⁡ k
73 2 72 eqtri ⊢ B = k ∈ ℕ ⟼ log ⁡ A ⁡ k
74 73 a1i ⊢ N ∈ ℕ → B = k ∈ ℕ ⟼ log ⁡ A ⁡ k
75 simpr ⊢ N ∈ ℕ ∧ k = N + 1 → k = N + 1
76 75 fveq2d ⊢ N ∈ ℕ ∧ k = N + 1 → A ⁡ k = A ⁡ N + 1
77 76 fveq2d ⊢ N ∈ ℕ ∧ k = N + 1 → log ⁡ A ⁡ k = log ⁡ A ⁡ N + 1
78 1 stirlinglem2 ⊢ N + 1 ∈ ℕ → A ⁡ N + 1 ∈ ℝ +
79 24 78 syl ⊢ N ∈ ℕ → A ⁡ N + 1 ∈ ℝ +
80 79 relogcld ⊢ N ∈ ℕ → log ⁡ A ⁡ N + 1 ∈ ℝ
81 74 77 24 80 fvmptd ⊢ N ∈ ℕ → B ⁡ N + 1 = log ⁡ A ⁡ N + 1
82 66 81 oveq12d ⊢ N ∈ ℕ → B ⁡ N − B ⁡ N + 1 = log ⁡ A ⁡ N − log ⁡ A ⁡ N + 1
83 56 79 relogdivd ⊢ N ∈ ℕ → log ⁡ A ⁡ N A ⁡ N + 1 = log ⁡ A ⁡ N − log ⁡ A ⁡ N + 1
84 faccl ⊢ N ∈ ℕ 0 → N ! ∈ ℕ
85 nnrp ⊢ N ! ∈ ℕ → N ! ∈ ℝ +
86 5 84 85 3syl ⊢ N ∈ ℕ → N ! ∈ ℝ +
87 34 8 rpmulcld ⊢ N ∈ ℕ → 2 ⋅ N ∈ ℝ +
88 87 rpsqrtcld ⊢ N ∈ ℕ → 2 ⋅ N ∈ ℝ +
89 8 15 rpdivcld ⊢ N ∈ ℕ → N e ∈ ℝ +
90 89 11 rpexpcld ⊢ N ∈ ℕ → N e N ∈ ℝ +
91 88 90 rpmulcld ⊢ N ∈ ℕ → 2 ⋅ N ⁢ N e N ∈ ℝ +
92 86 91 rpdivcld ⊢ N ∈ ℕ → N ! 2 ⋅ N ⁢ N e N ∈ ℝ +
93 1 a1i ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
94 simpr ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + ∧ n = N → n = N
95 94 fveq2d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + ∧ n = N → n ! = N !
96 94 oveq2d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + ∧ n = N → 2 ⁢ n = 2 ⋅ N
97 96 fveq2d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + ∧ n = N → 2 ⁢ n = 2 ⋅ N
98 94 oveq1d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + ∧ n = N → n e = N e
99 98 94 oveq12d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + ∧ n = N → n e n = N e N
100 97 99 oveq12d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + ∧ n = N → 2 ⁢ n ⁢ n e n = 2 ⋅ N ⁢ N e N
101 95 100 oveq12d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + ∧ n = N → n ! 2 ⁢ n ⁢ n e n = N ! 2 ⋅ N ⁢ N e N
102 simpl ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N ∈ ℕ
103 86 rpcnd ⊢ N ∈ ℕ → N ! ∈ ℂ
104 103 adantr ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N ! ∈ ℂ
105 2cnd ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → 2 ∈ ℂ
106 102 nncnd ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N ∈ ℂ
107 105 106 mulcld ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → 2 ⋅ N ∈ ℂ
108 107 sqrtcld ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → 2 ⋅ N ∈ ℂ
109 ere ⊢ e ∈ ℝ
110 109 recni ⊢ e ∈ ℂ
111 110 a1i ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → e ∈ ℂ
112 0re ⊢ 0 ∈ ℝ
113 epos ⊢ 0 < e
114 112 113 gtneii ⊢ e ≠ 0
115 114 a1i ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → e ≠ 0
116 106 111 115 divcld ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N e ∈ ℂ
117 102 nnnn0d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N ∈ ℕ 0
118 116 117 expcld ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N e N ∈ ℂ
119 108 118 mulcld ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → 2 ⋅ N ⁢ N e N ∈ ℂ
120 88 rpne0d ⊢ N ∈ ℕ → 2 ⋅ N ≠ 0
121 120 adantr ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → 2 ⋅ N ≠ 0
122 102 nnne0d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N ≠ 0
123 106 111 122 115 divne0d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N e ≠ 0
124 102 nnzd ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N ∈ ℤ
125 116 123 124 expne0d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N e N ≠ 0
126 108 118 121 125 mulne0d ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → 2 ⋅ N ⁢ N e N ≠ 0
127 104 119 126 divcld ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → N ! 2 ⋅ N ⁢ N e N ∈ ℂ
128 93 101 102 127 fvmptd ⊢ N ∈ ℕ ∧ N ! 2 ⋅ N ⁢ N e N ∈ ℝ + → A ⁡ N = N ! 2 ⋅ N ⁢ N e N
129 92 128 mpdan ⊢ N ∈ ℕ → A ⁡ N = N ! 2 ⋅ N ⁢ N e N
130 nfcv ⊢ Ⅎ _ k n ! 2 ⁢ n ⁢ n e n
131 nfcv ⊢ Ⅎ _ n k ! 2 ⁢ k ⁢ k e k
132 fveq2 ⊢ n = k → n ! = k !
133 oveq2 ⊢ n = k → 2 ⁢ n = 2 ⁢ k
134 133 fveq2d ⊢ n = k → 2 ⁢ n = 2 ⁢ k
135 oveq1 ⊢ n = k → n e = k e
136 id ⊢ n = k → n = k
137 135 136 oveq12d ⊢ n = k → n e n = k e k
138 134 137 oveq12d ⊢ n = k → 2 ⁢ n ⁢ n e n = 2 ⁢ k ⁢ k e k
139 132 138 oveq12d ⊢ n = k → n ! 2 ⁢ n ⁢ n e n = k ! 2 ⁢ k ⁢ k e k
140 130 131 139 cbvmpt ⊢ n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n = k ∈ ℕ ⟼ k ! 2 ⁢ k ⁢ k e k
141 1 140 eqtri ⊢ A = k ∈ ℕ ⟼ k ! 2 ⁢ k ⁢ k e k
142 141 a1i ⊢ N ∈ ℕ → A = k ∈ ℕ ⟼ k ! 2 ⁢ k ⁢ k e k
143 75 fveq2d ⊢ N ∈ ℕ ∧ k = N + 1 → k ! = N + 1 !
144 75 oveq2d ⊢ N ∈ ℕ ∧ k = N + 1 → 2 ⁢ k = 2 ⁢ N + 1
145 144 fveq2d ⊢ N ∈ ℕ ∧ k = N + 1 → 2 ⁢ k = 2 ⁢ N + 1
146 75 oveq1d ⊢ N ∈ ℕ ∧ k = N + 1 → k e = N + 1 e
147 146 75 oveq12d ⊢ N ∈ ℕ ∧ k = N + 1 → k e k = N + 1 e N + 1
148 145 147 oveq12d ⊢ N ∈ ℕ ∧ k = N + 1 → 2 ⁢ k ⁢ k e k = 2 ⁢ N + 1 ⁢ N + 1 e N + 1
149 143 148 oveq12d ⊢ N ∈ ℕ ∧ k = N + 1 → k ! 2 ⁢ k ⁢ k e k = N + 1 ! 2 ⁢ N + 1 ⁢ N + 1 e N + 1
150 24 nnnn0d ⊢ N ∈ ℕ → N + 1 ∈ ℕ 0
151 faccl ⊢ N + 1 ∈ ℕ 0 → N + 1 ! ∈ ℕ
152 nnrp ⊢ N + 1 ! ∈ ℕ → N + 1 ! ∈ ℝ +
153 150 151 152 3syl ⊢ N ∈ ℕ → N + 1 ! ∈ ℝ +
154 34 7 rpmulcld ⊢ N ∈ ℕ → 2 ⁢ N + 1 ∈ ℝ +
155 154 rpsqrtcld ⊢ N ∈ ℕ → 2 ⁢ N + 1 ∈ ℝ +
156 7 15 rpdivcld ⊢ N ∈ ℕ → N + 1 e ∈ ℝ +
157 11 peano2zd ⊢ N ∈ ℕ → N + 1 ∈ ℤ
158 156 157 rpexpcld ⊢ N ∈ ℕ → N + 1 e N + 1 ∈ ℝ +
159 155 158 rpmulcld ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 ∈ ℝ +
160 153 159 rpdivcld ⊢ N ∈ ℕ → N + 1 ! 2 ⁢ N + 1 ⁢ N + 1 e N + 1 ∈ ℝ +
161 142 149 24 160 fvmptd ⊢ N ∈ ℕ → A ⁡ N + 1 = N + 1 ! 2 ⁢ N + 1 ⁢ N + 1 e N + 1
162 129 161 oveq12d ⊢ N ∈ ℕ → A ⁡ N A ⁡ N + 1 = N ! 2 ⋅ N ⁢ N e N N + 1 ! 2 ⁢ N + 1 ⁢ N + 1 e N + 1
163 facp1 ⊢ N ∈ ℕ 0 → N + 1 ! = N ! ⁢ N + 1
164 5 163 syl ⊢ N ∈ ℕ → N + 1 ! = N ! ⁢ N + 1
165 164 oveq1d ⊢ N ∈ ℕ → N + 1 ! 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1
166 159 rpcnd ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 ∈ ℂ
167 159 rpne0d ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 ≠ 0
168 103 25 166 167 divassd ⊢ N ∈ ℕ → N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1
169 165 168 eqtrd ⊢ N ∈ ℕ → N + 1 ! 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1
170 169 oveq2d ⊢ N ∈ ℕ → N ! 2 ⋅ N ⁢ N e N N + 1 ! 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = N ! 2 ⋅ N ⁢ N e N N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1
171 91 rpcnd ⊢ N ∈ ℕ → 2 ⋅ N ⁢ N e N ∈ ℂ
172 25 166 167 divcld ⊢ N ∈ ℕ → N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 ∈ ℂ
173 103 172 mulcld ⊢ N ∈ ℕ → N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 ∈ ℂ
174 91 rpne0d ⊢ N ∈ ℕ → 2 ⋅ N ⁢ N e N ≠ 0
175 86 rpne0d ⊢ N ∈ ℕ → N ! ≠ 0
176 25 166 29 167 divne0d ⊢ N ∈ ℕ → N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 ≠ 0
177 103 172 175 176 mulne0d ⊢ N ∈ ℕ → N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 ≠ 0
178 103 171 173 174 177 divdiv32d ⊢ N ∈ ℕ → N ! 2 ⋅ N ⁢ N e N N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = N ! N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N ⁢ N e N
179 103 103 172 175 176 divdiv1d ⊢ N ∈ ℕ → N ! N ! N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = N ! N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1
180 179 eqcomd ⊢ N ∈ ℕ → N ! N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = N ! N ! N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1
181 180 oveq1d ⊢ N ∈ ℕ → N ! N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N ⁢ N e N = N ! N ! N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N ⁢ N e N
182 103 175 dividd ⊢ N ∈ ℕ → N ! N ! = 1
183 182 oveq1d ⊢ N ∈ ℕ → N ! N ! N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = 1 N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1
184 183 oveq1d ⊢ N ∈ ℕ → N ! N ! N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N ⁢ N e N = 1 N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N ⁢ N e N
185 25 166 29 167 recdivd ⊢ N ∈ ℕ → 1 N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1
186 185 oveq1d ⊢ N ∈ ℕ → 1 N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N ⁢ N e N = 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1 2 ⋅ N ⁢ N e N
187 166 25 29 divcld ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1 ∈ ℂ
188 88 rpcnd ⊢ N ∈ ℕ → 2 ⋅ N ∈ ℂ
189 90 rpcnd ⊢ N ∈ ℕ → N e N ∈ ℂ
190 90 rpne0d ⊢ N ∈ ℕ → N e N ≠ 0
191 187 188 189 120 190 divdiv1d ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1 2 ⋅ N N e N = 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1 2 ⋅ N ⁢ N e N
192 166 25 188 29 120 divdiv32d ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1 2 ⋅ N = 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N N + 1
193 155 rpcnd ⊢ N ∈ ℕ → 2 ⁢ N + 1 ∈ ℂ
194 158 rpcnd ⊢ N ∈ ℕ → N + 1 e N + 1 ∈ ℂ
195 193 194 188 120 div23d ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N = 2 ⁢ N + 1 2 ⋅ N ⁢ N + 1 e N + 1
196 34 rpred ⊢ N ∈ ℕ → 2 ∈ ℝ
197 34 rpge0d ⊢ N ∈ ℕ → 0 ≤ 2
198 24 nnred ⊢ N ∈ ℕ → N + 1 ∈ ℝ
199 150 nn0ge0d ⊢ N ∈ ℕ → 0 ≤ N + 1
200 196 197 198 199 sqrtmuld ⊢ N ∈ ℕ → 2 ⁢ N + 1 = 2 ⁢ N + 1
201 196 197 4 6 sqrtmuld ⊢ N ∈ ℕ → 2 ⋅ N = 2 ⁢ N
202 200 201 oveq12d ⊢ N ∈ ℕ → 2 ⁢ N + 1 2 ⋅ N = 2 ⁢ N + 1 2 ⁢ N
203 32 sqrtcld ⊢ N ∈ ℕ → 2 ∈ ℂ
204 25 sqrtcld ⊢ N ∈ ℕ → N + 1 ∈ ℂ
205 26 sqrtcld ⊢ N ∈ ℕ → N ∈ ℂ
206 34 rpsqrtcld ⊢ N ∈ ℕ → 2 ∈ ℝ +
207 206 rpne0d ⊢ N ∈ ℕ → 2 ≠ 0
208 8 rpsqrtcld ⊢ N ∈ ℕ → N ∈ ℝ +
209 208 rpne0d ⊢ N ∈ ℕ → N ≠ 0
210 203 203 204 205 207 209 divmuldivd ⊢ N ∈ ℕ → 2 2 ⁢ N + 1 N = 2 ⁢ N + 1 2 ⁢ N
211 203 207 dividd ⊢ N ∈ ℕ → 2 2 = 1
212 198 199 8 sqrtdivd ⊢ N ∈ ℕ → N + 1 N = N + 1 N
213 212 eqcomd ⊢ N ∈ ℕ → N + 1 N = N + 1 N
214 211 213 oveq12d ⊢ N ∈ ℕ → 2 2 ⁢ N + 1 N = 1 ⁢ N + 1 N
215 202 210 214 3eqtr2d ⊢ N ∈ ℕ → 2 ⁢ N + 1 2 ⋅ N = 1 ⁢ N + 1 N
216 215 oveq1d ⊢ N ∈ ℕ → 2 ⁢ N + 1 2 ⋅ N ⁢ N + 1 e N + 1 = 1 ⁢ N + 1 N ⁢ N + 1 e N + 1
217 28 sqrtcld ⊢ N ∈ ℕ → N + 1 N ∈ ℂ
218 217 mullidd ⊢ N ∈ ℕ → 1 ⁢ N + 1 N = N + 1 N
219 218 oveq1d ⊢ N ∈ ℕ → 1 ⁢ N + 1 N ⁢ N + 1 e N + 1 = N + 1 N ⁢ N + 1 e N + 1
220 195 216 219 3eqtrd ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N = N + 1 N ⁢ N + 1 e N + 1
221 220 oveq1d ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N N + 1 = N + 1 N ⁢ N + 1 e N + 1 N + 1
222 192 221 eqtrd ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1 2 ⋅ N = N + 1 N ⁢ N + 1 e N + 1 N + 1
223 222 oveq1d ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1 2 ⋅ N N e N = N + 1 N ⁢ N + 1 e N + 1 N + 1 N e N
224 191 223 eqtr3d ⊢ N ∈ ℕ → 2 ⁢ N + 1 ⁢ N + 1 e N + 1 N + 1 2 ⋅ N ⁢ N e N = N + 1 N ⁢ N + 1 e N + 1 N + 1 N e N
225 217 194 mulcld ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 e N + 1 ∈ ℂ
226 225 25 189 29 190 divdiv32d ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 e N + 1 N + 1 N e N = N + 1 N ⁢ N + 1 e N + 1 N e N N + 1
227 217 194 189 190 divassd ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 e N + 1 N e N = N + 1 N ⁢ N + 1 e N + 1 N e N
228 15 rpcnd ⊢ N ∈ ℕ → e ∈ ℂ
229 15 rpne0d ⊢ N ∈ ℕ → e ≠ 0
230 25 228 229 150 expdivd ⊢ N ∈ ℕ → N + 1 e N + 1 = N + 1 N + 1 e N + 1
231 26 228 229 5 expdivd ⊢ N ∈ ℕ → N e N = N N e N
232 230 231 oveq12d ⊢ N ∈ ℕ → N + 1 e N + 1 N e N = N + 1 N + 1 e N + 1 N N e N
233 232 oveq2d ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 e N + 1 N e N = N + 1 N ⁢ N + 1 N + 1 e N + 1 N N e N
234 25 150 expcld ⊢ N ∈ ℕ → N + 1 N + 1 ∈ ℂ
235 228 150 expcld ⊢ N ∈ ℕ → e N + 1 ∈ ℂ
236 26 5 expcld ⊢ N ∈ ℕ → N N ∈ ℂ
237 228 5 expcld ⊢ N ∈ ℕ → e N ∈ ℂ
238 228 229 157 expne0d ⊢ N ∈ ℕ → e N + 1 ≠ 0
239 228 229 11 expne0d ⊢ N ∈ ℕ → e N ≠ 0
240 26 27 11 expne0d ⊢ N ∈ ℕ → N N ≠ 0
241 234 235 236 237 238 239 240 divdivdivd ⊢ N ∈ ℕ → N + 1 N + 1 e N + 1 N N e N = N + 1 N + 1 ⁢ e N e N + 1 ⁢ N N
242 234 237 mulcomd ⊢ N ∈ ℕ → N + 1 N + 1 ⁢ e N = e N ⁢ N + 1 N + 1
243 242 oveq1d ⊢ N ∈ ℕ → N + 1 N + 1 ⁢ e N e N + 1 ⁢ N N = e N ⁢ N + 1 N + 1 e N + 1 ⁢ N N
244 237 235 234 236 238 240 divmuldivd ⊢ N ∈ ℕ → e N e N + 1 ⁢ N + 1 N + 1 N N = e N ⁢ N + 1 N + 1 e N + 1 ⁢ N N
245 228 5 expp1d ⊢ N ∈ ℕ → e N + 1 = e N ⁢ e
246 245 oveq2d ⊢ N ∈ ℕ → e N e N + 1 = e N e N ⁢ e
247 237 237 228 239 229 divdiv1d ⊢ N ∈ ℕ → e N e N e = e N e N ⁢ e
248 237 239 dividd ⊢ N ∈ ℕ → e N e N = 1
249 248 oveq1d ⊢ N ∈ ℕ → e N e N e = 1 e
250 246 247 249 3eqtr2d ⊢ N ∈ ℕ → e N e N + 1 = 1 e
251 250 oveq1d ⊢ N ∈ ℕ → e N e N + 1 ⁢ N + 1 N + 1 N N = 1 e ⁢ N + 1 N + 1 N N
252 244 251 eqtr3d ⊢ N ∈ ℕ → e N ⁢ N + 1 N + 1 e N + 1 ⁢ N N = 1 e ⁢ N + 1 N + 1 N N
253 241 243 252 3eqtrd ⊢ N ∈ ℕ → N + 1 N + 1 e N + 1 N N e N = 1 e ⁢ N + 1 N + 1 N N
254 253 oveq2d ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 N + 1 e N + 1 N N e N = N + 1 N ⁢ 1 e ⁢ N + 1 N + 1 N N
255 227 233 254 3eqtrd ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 e N + 1 N e N = N + 1 N ⁢ 1 e ⁢ N + 1 N + 1 N N
256 255 oveq1d ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 e N + 1 N e N N + 1 = N + 1 N ⁢ 1 e ⁢ N + 1 N + 1 N N N + 1
257 234 236 240 divcld ⊢ N ∈ ℕ → N + 1 N + 1 N N ∈ ℂ
258 38 228 257 229 div32d ⊢ N ∈ ℕ → 1 e ⁢ N + 1 N + 1 N N = 1 ⁢ N + 1 N + 1 N N e
259 257 228 229 divcld ⊢ N ∈ ℕ → N + 1 N + 1 N N e ∈ ℂ
260 259 mullidd ⊢ N ∈ ℕ → 1 ⁢ N + 1 N + 1 N N e = N + 1 N + 1 N N e
261 258 260 eqtrd ⊢ N ∈ ℕ → 1 e ⁢ N + 1 N + 1 N N = N + 1 N + 1 N N e
262 261 oveq2d ⊢ N ∈ ℕ → N + 1 N N + 1 ⁢ 1 e ⁢ N + 1 N + 1 N N = N + 1 N N + 1 ⁢ N + 1 N + 1 N N e
263 228 229 reccld ⊢ N ∈ ℕ → 1 e ∈ ℂ
264 263 257 mulcld ⊢ N ∈ ℕ → 1 e ⁢ N + 1 N + 1 N N ∈ ℂ
265 217 264 25 29 div23d ⊢ N ∈ ℕ → N + 1 N ⁢ 1 e ⁢ N + 1 N + 1 N N N + 1 = N + 1 N N + 1 ⁢ 1 e ⁢ N + 1 N + 1 N N
266 217 25 29 divcld ⊢ N ∈ ℕ → N + 1 N N + 1 ∈ ℂ
267 266 257 228 229 divassd ⊢ N ∈ ℕ → N + 1 N N + 1 ⁢ N + 1 N + 1 N N e = N + 1 N N + 1 ⁢ N + 1 N + 1 N N e
268 262 265 267 3eqtr4d ⊢ N ∈ ℕ → N + 1 N ⁢ 1 e ⁢ N + 1 N + 1 N N N + 1 = N + 1 N N + 1 ⁢ N + 1 N + 1 N N e
269 226 256 268 3eqtrd ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 e N + 1 N + 1 N e N = N + 1 N N + 1 ⁢ N + 1 N + 1 N N e
270 186 224 269 3eqtrd ⊢ N ∈ ℕ → 1 N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N ⁢ N e N = N + 1 N N + 1 ⁢ N + 1 N + 1 N N e
271 181 184 270 3eqtrd ⊢ N ∈ ℕ → N ! N ! ⁢ N + 1 2 ⁢ N + 1 ⁢ N + 1 e N + 1 2 ⋅ N ⁢ N e N = N + 1 N N + 1 ⁢ N + 1 N + 1 N N e
272 170 178 271 3eqtrd ⊢ N ∈ ℕ → N ! 2 ⋅ N ⁢ N e N N + 1 ! 2 ⁢ N + 1 ⁢ N + 1 e N + 1 = N + 1 N N + 1 ⁢ N + 1 N + 1 N N e
273 217 25 257 29 div32d ⊢ N ∈ ℕ → N + 1 N N + 1 ⁢ N + 1 N + 1 N N = N + 1 N ⁢ N + 1 N + 1 N N N + 1
274 25 5 expp1d ⊢ N ∈ ℕ → N + 1 N + 1 = N + 1 N ⁢ N + 1
275 274 oveq1d ⊢ N ∈ ℕ → N + 1 N + 1 N + 1 = N + 1 N ⁢ N + 1 N + 1
276 25 5 expcld ⊢ N ∈ ℕ → N + 1 N ∈ ℂ
277 276 25 29 divcan4d ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 N + 1 = N + 1 N
278 275 277 eqtrd ⊢ N ∈ ℕ → N + 1 N + 1 N + 1 = N + 1 N
279 278 oveq1d ⊢ N ∈ ℕ → N + 1 N + 1 N + 1 N N = N + 1 N N N
280 234 236 25 240 29 divdiv32d ⊢ N ∈ ℕ → N + 1 N + 1 N N N + 1 = N + 1 N + 1 N + 1 N N
281 25 26 27 5 expdivd ⊢ N ∈ ℕ → N + 1 N N = N + 1 N N N
282 279 280 281 3eqtr4d ⊢ N ∈ ℕ → N + 1 N + 1 N N N + 1 = N + 1 N N
283 282 oveq2d ⊢ N ∈ ℕ → N + 1 N ⁢ N + 1 N + 1 N N N + 1 = N + 1 N ⁢ N + 1 N N
284 273 283 eqtrd ⊢ N ∈ ℕ → N + 1 N N + 1 ⁢ N + 1 N + 1 N N = N + 1 N ⁢ N + 1 N N
285 284 oveq1d ⊢ N ∈ ℕ → N + 1 N N + 1 ⁢ N + 1 N + 1 N N e = N + 1 N ⁢ N + 1 N N e
286 162 272 285 3eqtrd ⊢ N ∈ ℕ → A ⁡ N A ⁡ N + 1 = N + 1 N ⁢ N + 1 N N e
287 286 fveq2d ⊢ N ∈ ℕ → log ⁡ A ⁡ N A ⁡ N + 1 = log ⁡ N + 1 N ⁢ N + 1 N N e
288 82 83 287 3eqtr2d ⊢ N ∈ ℕ → B ⁡ N − B ⁡ N + 1 = log ⁡ N + 1 N ⁢ N + 1 N N e
289 38 46 addcld ⊢ N ∈ ℕ → 1 + 2 ⋅ N ∈ ℂ
290 289 halfcld ⊢ N ∈ ℕ → 1 + 2 ⋅ N 2 ∈ ℂ
291 290 31 mulcld ⊢ N ∈ ℕ → 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N ∈ ℂ
292 291 38 subcld ⊢ N ∈ ℕ → 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ
293 3 a1i ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ → J = n ∈ ℕ ⟼ 1 + 2 ⁢ n 2 ⁢ log ⁡ n + 1 n − 1
294 simpr ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → n = N
295 294 oveq2d ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → 2 ⁢ n = 2 ⋅ N
296 295 oveq2d ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → 1 + 2 ⁢ n = 1 + 2 ⋅ N
297 296 oveq1d ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → 1 + 2 ⁢ n 2 = 1 + 2 ⋅ N 2
298 294 oveq1d ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → n + 1 = N + 1
299 298 294 oveq12d ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → n + 1 n = N + 1 N
300 299 fveq2d ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → log ⁡ n + 1 n = log ⁡ N + 1 N
301 297 300 oveq12d ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → 1 + 2 ⁢ n 2 ⁢ log ⁡ n + 1 n = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N
302 301 oveq1d ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ ∧ n = N → 1 + 2 ⁢ n 2 ⁢ log ⁡ n + 1 n − 1 = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1
303 simpl ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ → N ∈ ℕ
304 simpr ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ → 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ
305 293 302 303 304 fvmptd ⊢ N ∈ ℕ ∧ 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1 ∈ ℂ → J ⁡ N = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1
306 292 305 mpdan ⊢ N ∈ ℕ → J ⁡ N = 1 + 2 ⋅ N 2 ⁢ log ⁡ N + 1 N − 1
307 55 288 306 3eqtr4d ⊢ N ∈ ℕ → B ⁡ N − B ⁡ N + 1 = J ⁡ N