Metamath Proof Explorer


Theorem stirlinglem8

Description: If A converges to C , then F converges to C^2 . (Contributed by Glauco Siliprandi, 29-Jun-2017)

Ref Expression
Hypotheses stirlinglem8.1 ⊢ Ⅎ n φ
stirlinglem8.2 ⊢ Ⅎ _ n A
stirlinglem8.3 ⊢ Ⅎ _ n D
stirlinglem8.4 ⊢ D = n ∈ ℕ ⟼ A ⁡ 2 ⁢ n
stirlinglem8.5 ⊢ φ → A : ℕ ⟶ ℝ +
stirlinglem8.6 ⊢ F = n ∈ ℕ ⟼ A ⁡ n 4 D ⁡ n 2
stirlinglem8.7 ⊢ L = n ∈ ℕ ⟼ A ⁡ n 4
stirlinglem8.8 ⊢ M = n ∈ ℕ ⟼ D ⁡ n 2
stirlinglem8.9 ⊢ φ ∧ n ∈ ℕ → D ⁡ n ∈ ℝ +
stirlinglem8.10 ⊢ φ → C ∈ ℝ +
stirlinglem8.11 ⊢ φ → A ⇝ C
Assertion stirlinglem8 ⊢ φ → F ⇝ C 2

Proof

Step Hyp Ref Expression
1 stirlinglem8.1 ⊢ Ⅎ n φ
2 stirlinglem8.2 ⊢ Ⅎ _ n A
3 stirlinglem8.3 ⊢ Ⅎ _ n D
4 stirlinglem8.4 ⊢ D = n ∈ ℕ ⟼ A ⁡ 2 ⁢ n
5 stirlinglem8.5 ⊢ φ → A : ℕ ⟶ ℝ +
6 stirlinglem8.6 ⊢ F = n ∈ ℕ ⟼ A ⁡ n 4 D ⁡ n 2
7 stirlinglem8.7 ⊢ L = n ∈ ℕ ⟼ A ⁡ n 4
8 stirlinglem8.8 ⊢ M = n ∈ ℕ ⟼ D ⁡ n 2
9 stirlinglem8.9 ⊢ φ ∧ n ∈ ℕ → D ⁡ n ∈ ℝ +
10 stirlinglem8.10 ⊢ φ → C ∈ ℝ +
11 stirlinglem8.11 ⊢ φ → A ⇝ C
12 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ A ⁡ n 4
13 7 12 nfcxfr ⊢ Ⅎ _ n L
14 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ D ⁡ n 2
15 8 14 nfcxfr ⊢ Ⅎ _ n M
16 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ A ⁡ n 4 D ⁡ n 2
17 6 16 nfcxfr ⊢ Ⅎ _ n F
18 nnuz ⊢ ℕ = ℤ ≥ 1
19 1zzd ⊢ φ → 1 ∈ ℤ
20 rrpsscn ⊢ ℝ + ⊆ ℂ
21 fss ⊢ A : ℕ ⟶ ℝ + ∧ ℝ + ⊆ ℂ → A : ℕ ⟶ ℂ
22 5 20 21 sylancl ⊢ φ → A : ℕ ⟶ ℂ
23 4nn0 ⊢ 4 ∈ ℕ 0
24 23 a1i ⊢ φ → 4 ∈ ℕ 0
25 nnex ⊢ ℕ ∈ V
26 25 mptex ⊢ n ∈ ℕ ⟼ A ⁡ n 4 ∈ V
27 7 26 eqeltri ⊢ L ∈ V
28 27 a1i ⊢ φ → L ∈ V
29 simpr ⊢ φ ∧ n ∈ ℕ → n ∈ ℕ
30 5 ffvelcdmda ⊢ φ ∧ n ∈ ℕ → A ⁡ n ∈ ℝ +
31 30 rpcnd ⊢ φ ∧ n ∈ ℕ → A ⁡ n ∈ ℂ
32 23 a1i ⊢ φ ∧ n ∈ ℕ → 4 ∈ ℕ 0
33 31 32 expcld ⊢ φ ∧ n ∈ ℕ → A ⁡ n 4 ∈ ℂ
34 7 fvmpt2 ⊢ n ∈ ℕ ∧ A ⁡ n 4 ∈ ℂ → L ⁡ n = A ⁡ n 4
35 29 33 34 syl2anc ⊢ φ ∧ n ∈ ℕ → L ⁡ n = A ⁡ n 4
36 1 2 13 18 19 22 11 24 28 35 climexp ⊢ φ → L ⇝ C 4
37 25 mptex ⊢ n ∈ ℕ ⟼ A ⁡ n 4 D ⁡ n 2 ∈ V
38 6 37 eqeltri ⊢ F ∈ V
39 38 a1i ⊢ φ → F ∈ V
40 22 adantr ⊢ φ ∧ n ∈ ℕ → A : ℕ ⟶ ℂ
41 2nn ⊢ 2 ∈ ℕ
42 41 a1i ⊢ n ∈ ℕ → 2 ∈ ℕ
43 id ⊢ n ∈ ℕ → n ∈ ℕ
44 42 43 nnmulcld ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℕ
45 44 adantl ⊢ φ ∧ n ∈ ℕ → 2 ⁢ n ∈ ℕ
46 40 45 ffvelcdmd ⊢ φ ∧ n ∈ ℕ → A ⁡ 2 ⁢ n ∈ ℂ
47 1 46 4 fmptdf ⊢ φ → D : ℕ ⟶ ℂ
48 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ 2 ⁢ n
49 fex ⊢ A : ℕ ⟶ ℂ ∧ ℕ ∈ V → A ∈ V
50 22 25 49 sylancl ⊢ φ → A ∈ V
51 1nn ⊢ 1 ∈ ℕ
52 2cnd ⊢ φ → 2 ∈ ℂ
53 1cnd ⊢ φ → 1 ∈ ℂ
54 52 53 mulcld ⊢ φ → 2 ⋅ 1 ∈ ℂ
55 oveq2 ⊢ n = 1 → 2 ⁢ n = 2 ⋅ 1
56 eqid ⊢ n ∈ ℕ ⟼ 2 ⁢ n = n ∈ ℕ ⟼ 2 ⁢ n
57 55 56 fvmptg ⊢ 1 ∈ ℕ ∧ 2 ⋅ 1 ∈ ℂ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ 1 = 2 ⋅ 1
58 51 54 57 sylancr ⊢ φ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ 1 = 2 ⋅ 1
59 41 a1i ⊢ φ → 2 ∈ ℕ
60 51 a1i ⊢ φ → 1 ∈ ℕ
61 59 60 nnmulcld ⊢ φ → 2 ⋅ 1 ∈ ℕ
62 58 61 eqeltrd ⊢ φ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ 1 ∈ ℕ
63 1red ⊢ n ∈ ℕ → 1 ∈ ℝ
64 42 nnred ⊢ n ∈ ℕ → 2 ∈ ℝ
65 44 nnred ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℝ
66 42 nnge1d ⊢ n ∈ ℕ → 1 ≤ 2
67 63 64 65 66 leadd2dd ⊢ n ∈ ℕ → 2 ⁢ n + 1 ≤ 2 ⁢ n + 2
68 56 fvmpt2 ⊢ n ∈ ℕ ∧ 2 ⁢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n = 2 ⁢ n
69 44 68 mpdan ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n = 2 ⁢ n
70 69 oveq1d ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 = 2 ⁢ n + 1
71 oveq2 ⊢ n = k → 2 ⁢ n = 2 ⁢ k
72 71 cbvmptv ⊢ n ∈ ℕ ⟼ 2 ⁢ n = k ∈ ℕ ⟼ 2 ⁢ k
73 72 a1i ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n = k ∈ ℕ ⟼ 2 ⁢ k
74 simpr ⊢ n ∈ ℕ ∧ k = n + 1 → k = n + 1
75 74 oveq2d ⊢ n ∈ ℕ ∧ k = n + 1 → 2 ⁢ k = 2 ⁢ n + 1
76 peano2nn ⊢ n ∈ ℕ → n + 1 ∈ ℕ
77 42 76 nnmulcld ⊢ n ∈ ℕ → 2 ⁢ n + 1 ∈ ℕ
78 73 75 76 77 fvmptd ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 = 2 ⁢ n + 1
79 2cnd ⊢ n ∈ ℕ → 2 ∈ ℂ
80 nncn ⊢ n ∈ ℕ → n ∈ ℂ
81 1cnd ⊢ n ∈ ℕ → 1 ∈ ℂ
82 79 80 81 adddid ⊢ n ∈ ℕ → 2 ⁢ n + 1 = 2 ⁢ n + 2 ⋅ 1
83 79 mulridd ⊢ n ∈ ℕ → 2 ⋅ 1 = 2
84 83 oveq2d ⊢ n ∈ ℕ → 2 ⁢ n + 2 ⋅ 1 = 2 ⁢ n + 2
85 78 82 84 3eqtrd ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 = 2 ⁢ n + 2
86 67 70 85 3brtr4d ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ≤ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1
87 44 nnzd ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℤ
88 69 87 eqeltrd ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n ∈ ℤ
89 88 peano2zd ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ∈ ℤ
90 77 nnzd ⊢ n ∈ ℕ → 2 ⁢ n + 1 ∈ ℤ
91 78 90 eqeltrd ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ∈ ℤ
92 eluz ⊢ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ∈ ℤ ∧ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ∈ ℤ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ∈ ℤ ≥ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ↔ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ≤ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1
93 89 91 92 syl2anc ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ∈ ℤ ≥ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ↔ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ≤ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1
94 86 93 mpbird ⊢ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ∈ ℤ ≥ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1
95 94 adantl ⊢ φ ∧ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1 ∈ ℤ ≥ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n + 1
96 25 mptex ⊢ n ∈ ℕ ⟼ A ⁡ 2 ⁢ n ∈ V
97 4 96 eqeltri ⊢ D ∈ V
98 97 a1i ⊢ φ → D ∈ V
99 4 fvmpt2 ⊢ n ∈ ℕ ∧ A ⁡ 2 ⁢ n ∈ ℂ → D ⁡ n = A ⁡ 2 ⁢ n
100 29 46 99 syl2anc ⊢ φ ∧ n ∈ ℕ → D ⁡ n = A ⁡ 2 ⁢ n
101 69 adantl ⊢ φ ∧ n ∈ ℕ → n ∈ ℕ ⟼ 2 ⁢ n ⁡ n = 2 ⁢ n
102 101 eqcomd ⊢ φ ∧ n ∈ ℕ → 2 ⁢ n = n ∈ ℕ ⟼ 2 ⁢ n ⁡ n
103 102 fveq2d ⊢ φ ∧ n ∈ ℕ → A ⁡ 2 ⁢ n = A ⁡ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n
104 100 103 eqtrd ⊢ φ ∧ n ∈ ℕ → D ⁡ n = A ⁡ n ∈ ℕ ⟼ 2 ⁢ n ⁡ n
105 1 2 3 48 18 19 50 31 11 62 95 98 104 climsuse ⊢ φ → D ⇝ C
106 2nn0 ⊢ 2 ∈ ℕ 0
107 106 a1i ⊢ φ → 2 ∈ ℕ 0
108 25 mptex ⊢ n ∈ ℕ ⟼ D ⁡ n 2 ∈ V
109 8 108 eqeltri ⊢ M ∈ V
110 109 a1i ⊢ φ → M ∈ V
111 9 rpcnd ⊢ φ ∧ n ∈ ℕ → D ⁡ n ∈ ℂ
112 111 sqcld ⊢ φ ∧ n ∈ ℕ → D ⁡ n 2 ∈ ℂ
113 8 fvmpt2 ⊢ n ∈ ℕ ∧ D ⁡ n 2 ∈ ℂ → M ⁡ n = D ⁡ n 2
114 29 112 113 syl2anc ⊢ φ ∧ n ∈ ℕ → M ⁡ n = D ⁡ n 2
115 1 3 15 18 19 47 105 107 110 114 climexp ⊢ φ → M ⇝ C 2
116 10 rpcnd ⊢ φ → C ∈ ℂ
117 10 rpne0d ⊢ φ → C ≠ 0
118 2z ⊢ 2 ∈ ℤ
119 118 a1i ⊢ φ → 2 ∈ ℤ
120 116 117 119 expne0d ⊢ φ → C 2 ≠ 0
121 1 33 7 fmptdf ⊢ φ → L : ℕ ⟶ ℂ
122 121 ffvelcdmda ⊢ φ ∧ n ∈ ℕ → L ⁡ n ∈ ℂ
123 114 112 eqeltrd ⊢ φ ∧ n ∈ ℕ → M ⁡ n ∈ ℂ
124 100 oveq1d ⊢ φ ∧ n ∈ ℕ → D ⁡ n 2 = A ⁡ 2 ⁢ n 2
125 114 124 eqtrd ⊢ φ ∧ n ∈ ℕ → M ⁡ n = A ⁡ 2 ⁢ n 2
126 100 9 eqeltrrd ⊢ φ ∧ n ∈ ℕ → A ⁡ 2 ⁢ n ∈ ℝ +
127 118 a1i ⊢ φ ∧ n ∈ ℕ → 2 ∈ ℤ
128 126 127 rpexpcld ⊢ φ ∧ n ∈ ℕ → A ⁡ 2 ⁢ n 2 ∈ ℝ +
129 125 128 eqeltrd ⊢ φ ∧ n ∈ ℕ → M ⁡ n ∈ ℝ +
130 129 rpne0d ⊢ φ ∧ n ∈ ℕ → M ⁡ n ≠ 0
131 130 neneqd ⊢ φ ∧ n ∈ ℕ → ¬ M ⁡ n = 0
132 0cn ⊢ 0 ∈ ℂ
133 elsn2g ⊢ 0 ∈ ℂ → M ⁡ n ∈ 0 ↔ M ⁡ n = 0
134 132 133 ax-mp ⊢ M ⁡ n ∈ 0 ↔ M ⁡ n = 0
135 131 134 sylnibr ⊢ φ ∧ n ∈ ℕ → ¬ M ⁡ n ∈ 0
136 123 135 eldifd ⊢ φ ∧ n ∈ ℕ → M ⁡ n ∈ ℂ ∖ 0
137 32 nn0zd ⊢ φ ∧ n ∈ ℕ → 4 ∈ ℤ
138 30 137 rpexpcld ⊢ φ ∧ n ∈ ℕ → A ⁡ n 4 ∈ ℝ +
139 9 127 rpexpcld ⊢ φ ∧ n ∈ ℕ → D ⁡ n 2 ∈ ℝ +
140 138 139 rpdivcld ⊢ φ ∧ n ∈ ℕ → A ⁡ n 4 D ⁡ n 2 ∈ ℝ +
141 6 fvmpt2 ⊢ n ∈ ℕ ∧ A ⁡ n 4 D ⁡ n 2 ∈ ℝ + → F ⁡ n = A ⁡ n 4 D ⁡ n 2
142 29 140 141 syl2anc ⊢ φ ∧ n ∈ ℕ → F ⁡ n = A ⁡ n 4 D ⁡ n 2
143 7 fvmpt2 ⊢ n ∈ ℕ ∧ A ⁡ n 4 ∈ ℝ + → L ⁡ n = A ⁡ n 4
144 29 138 143 syl2anc ⊢ φ ∧ n ∈ ℕ → L ⁡ n = A ⁡ n 4
145 144 114 oveq12d ⊢ φ ∧ n ∈ ℕ → L ⁡ n M ⁡ n = A ⁡ n 4 D ⁡ n 2
146 142 145 eqtr4d ⊢ φ ∧ n ∈ ℕ → F ⁡ n = L ⁡ n M ⁡ n
147 1 13 15 17 18 19 36 39 115 120 122 136 146 climdivf ⊢ φ → F ⇝ C 4 C 2
148 2cn ⊢ 2 ∈ ℂ
149 2p2e4 ⊢ 2 + 2 = 4
150 148 148 149 mvlladdi ⊢ 2 = 4 − 2
151 150 a1i ⊢ φ → 2 = 4 − 2
152 151 oveq2d ⊢ φ → C 2 = C 4 − 2
153 24 nn0zd ⊢ φ → 4 ∈ ℤ
154 116 117 119 153 expsubd ⊢ φ → C 4 − 2 = C 4 C 2
155 152 154 eqtrd ⊢ φ → C 2 = C 4 C 2
156 147 155 breqtrrd ⊢ φ → F ⇝ C 2