Metamath Proof Explorer


Theorem fourierdlem47

Description: For r large enough, the final expression is less than the given positive E . (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses fourierdlem47.ibl ⊢ φ → x ∈ I ⟼ F ∈ 𝐿 1
fourierdlem47.iblmul ⊢ φ ∧ r ∈ ℝ → x ∈ I ⟼ F ⁢ − G ∈ 𝐿 1
fourierdlem47.f ⊢ φ ∧ x ∈ I → F ∈ ℂ
fourierdlem47.g ⊢ φ ∧ x ∈ I ∧ r ∈ ℂ → G ∈ ℂ
fourierdlem47.absg ⊢ φ ∧ x ∈ I ∧ r ∈ ℝ → G ≤ 1
fourierdlem47.a ⊢ φ → A ∈ ℂ
fourierdlem47.x ⊢ X = A
fourierdlem47.c ⊢ φ → C ∈ ℂ
fourierdlem47.y ⊢ Y = C
fourierdlem47.z ⊢ Z = ∫ I F dx
fourierdlem47.e ⊢ φ → E ∈ ℝ +
fourierdlem47.b ⊢ φ ∧ r ∈ ℂ → B ∈ ℂ
fourierdlem47.absb ⊢ φ ∧ r ∈ ℝ → B ≤ 1
fourierdlem47.d ⊢ φ ∧ r ∈ ℂ → D ∈ ℂ
fourierdlem47.absd ⊢ φ ∧ r ∈ ℝ → D ≤ 1
fourierdlem47.m ⊢ M = X + Y + Z E + 1 + 1
Assertion fourierdlem47 ⊢ φ → ∃ m ∈ ℕ ∀ r ∈ m +∞ A ⁢ − B r - C ⁢ − D r - ∫ I F ⁢ − G r dx < E

Proof

Step Hyp Ref Expression
1 fourierdlem47.ibl ⊢ φ → x ∈ I ⟼ F ∈ 𝐿 1
2 fourierdlem47.iblmul ⊢ φ ∧ r ∈ ℝ → x ∈ I ⟼ F ⁢ − G ∈ 𝐿 1
3 fourierdlem47.f ⊢ φ ∧ x ∈ I → F ∈ ℂ
4 fourierdlem47.g ⊢ φ ∧ x ∈ I ∧ r ∈ ℂ → G ∈ ℂ
5 fourierdlem47.absg ⊢ φ ∧ x ∈ I ∧ r ∈ ℝ → G ≤ 1
6 fourierdlem47.a ⊢ φ → A ∈ ℂ
7 fourierdlem47.x ⊢ X = A
8 fourierdlem47.c ⊢ φ → C ∈ ℂ
9 fourierdlem47.y ⊢ Y = C
10 fourierdlem47.z ⊢ Z = ∫ I F dx
11 fourierdlem47.e ⊢ φ → E ∈ ℝ +
12 fourierdlem47.b ⊢ φ ∧ r ∈ ℂ → B ∈ ℂ
13 fourierdlem47.absb ⊢ φ ∧ r ∈ ℝ → B ≤ 1
14 fourierdlem47.d ⊢ φ ∧ r ∈ ℂ → D ∈ ℂ
15 fourierdlem47.absd ⊢ φ ∧ r ∈ ℝ → D ≤ 1
16 fourierdlem47.m ⊢ M = X + Y + Z E + 1 + 1
17 6 abscld ⊢ φ → A ∈ ℝ
18 7 17 eqeltrid ⊢ φ → X ∈ ℝ
19 8 abscld ⊢ φ → C ∈ ℝ
20 9 19 eqeltrid ⊢ φ → Y ∈ ℝ
21 18 20 readdcld ⊢ φ → X + Y ∈ ℝ
22 3 abscld ⊢ φ ∧ x ∈ I → F ∈ ℝ
23 3 1 iblabs ⊢ φ → x ∈ I ⟼ F ∈ 𝐿 1
24 22 23 itgrecl ⊢ φ → ∫ I F dx ∈ ℝ
25 10 24 eqeltrid ⊢ φ → Z ∈ ℝ
26 21 25 readdcld ⊢ φ → X + Y + Z ∈ ℝ
27 11 rpred ⊢ φ → E ∈ ℝ
28 11 rpne0d ⊢ φ → E ≠ 0
29 26 27 28 redivcld ⊢ φ → X + Y + Z E ∈ ℝ
30 1red ⊢ φ → 1 ∈ ℝ
31 29 30 readdcld ⊢ φ → X + Y + Z E + 1 ∈ ℝ
32 31 flcld ⊢ φ → X + Y + Z E + 1 ∈ ℤ
33 0red ⊢ φ → 0 ∈ ℝ
34 reflcl ⊢ X + Y + Z E + 1 ∈ ℝ → X + Y + Z E + 1 ∈ ℝ
35 31 34 syl ⊢ φ → X + Y + Z E + 1 ∈ ℝ
36 0lt1 ⊢ 0 < 1
37 36 a1i ⊢ φ → 0 < 1
38 6 absge0d ⊢ φ → 0 ≤ A
39 38 7 breqtrrdi ⊢ φ → 0 ≤ X
40 8 absge0d ⊢ φ → 0 ≤ C
41 40 9 breqtrrdi ⊢ φ → 0 ≤ Y
42 18 20 39 41 addge0d ⊢ φ → 0 ≤ X + Y
43 3 absge0d ⊢ φ ∧ x ∈ I → 0 ≤ F
44 23 22 43 itgge0 ⊢ φ → 0 ≤ ∫ I F dx
45 44 10 breqtrrdi ⊢ φ → 0 ≤ Z
46 21 25 42 45 addge0d ⊢ φ → 0 ≤ X + Y + Z
47 26 11 46 divge0d ⊢ φ → 0 ≤ X + Y + Z E
48 flge0nn0 ⊢ X + Y + Z E ∈ ℝ ∧ 0 ≤ X + Y + Z E → X + Y + Z E ∈ ℕ 0
49 29 47 48 syl2anc ⊢ φ → X + Y + Z E ∈ ℕ 0
50 nn0addge1 ⊢ 1 ∈ ℝ ∧ X + Y + Z E ∈ ℕ 0 → 1 ≤ 1 + X + Y + Z E
51 30 49 50 syl2anc ⊢ φ → 1 ≤ 1 + X + Y + Z E
52 1z ⊢ 1 ∈ ℤ
53 fladdz ⊢ X + Y + Z E ∈ ℝ ∧ 1 ∈ ℤ → X + Y + Z E + 1 = X + Y + Z E + 1
54 29 52 53 sylancl ⊢ φ → X + Y + Z E + 1 = X + Y + Z E + 1
55 49 nn0cnd ⊢ φ → X + Y + Z E ∈ ℂ
56 30 recnd ⊢ φ → 1 ∈ ℂ
57 55 56 addcomd ⊢ φ → X + Y + Z E + 1 = 1 + X + Y + Z E
58 54 57 eqtr2d ⊢ φ → 1 + X + Y + Z E = X + Y + Z E + 1
59 51 58 breqtrd ⊢ φ → 1 ≤ X + Y + Z E + 1
60 33 30 35 37 59 ltletrd ⊢ φ → 0 < X + Y + Z E + 1
61 elnnz ⊢ X + Y + Z E + 1 ∈ ℕ ↔ X + Y + Z E + 1 ∈ ℤ ∧ 0 < X + Y + Z E + 1
62 32 60 61 sylanbrc ⊢ φ → X + Y + Z E + 1 ∈ ℕ
63 62 peano2nnd ⊢ φ → X + Y + Z E + 1 + 1 ∈ ℕ
64 16 63 eqeltrid ⊢ φ → M ∈ ℕ
65 elioore ⊢ r ∈ M +∞ → r ∈ ℝ
66 65 2 sylan2 ⊢ φ ∧ r ∈ M +∞ → x ∈ I ⟼ F ⁢ − G ∈ 𝐿 1
67 3 adantlr ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ∈ ℂ
68 simpll ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → φ
69 simpr ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → x ∈ I
70 65 ad2antlr ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → r ∈ ℝ
71 70 recnd ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → r ∈ ℂ
72 68 69 71 4 syl21anc ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → G ∈ ℂ
73 6 adantr ⊢ φ ∧ r ∈ M +∞ → A ∈ ℂ
74 8 adantr ⊢ φ ∧ r ∈ M +∞ → C ∈ ℂ
75 eqid ⊢ ∫ I F ⁢ − G dx = ∫ I F ⁢ − G dx
76 11 adantr ⊢ φ ∧ r ∈ M +∞ → E ∈ ℝ +
77 65 adantl ⊢ φ ∧ r ∈ M +∞ → r ∈ ℝ
78 7 eqcomi ⊢ A = X
79 9 eqcomi ⊢ C = Y
80 78 79 oveq12i ⊢ A + C = X + Y
81 80 oveq1i ⊢ A + C + ∫ I F ⁢ − G dx = X + Y + ∫ I F ⁢ − G dx
82 17 adantr ⊢ φ ∧ r ∈ M +∞ → A ∈ ℝ
83 19 adantr ⊢ φ ∧ r ∈ M +∞ → C ∈ ℝ
84 82 83 readdcld ⊢ φ ∧ r ∈ M +∞ → A + C ∈ ℝ
85 72 negcld ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → − G ∈ ℂ
86 67 85 mulcld ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ⁢ − G ∈ ℂ
87 86 66 itgcl ⊢ φ ∧ r ∈ M +∞ → ∫ I F ⁢ − G dx ∈ ℂ
88 87 abscld ⊢ φ ∧ r ∈ M +∞ → ∫ I F ⁢ − G dx ∈ ℝ
89 84 88 readdcld ⊢ φ ∧ r ∈ M +∞ → A + C + ∫ I F ⁢ − G dx ∈ ℝ
90 81 89 eqeltrrid ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx ∈ ℝ
91 27 adantr ⊢ φ ∧ r ∈ M +∞ → E ∈ ℝ
92 28 adantr ⊢ φ ∧ r ∈ M +∞ → E ≠ 0
93 90 91 92 redivcld ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx E ∈ ℝ
94 1red ⊢ φ ∧ r ∈ M +∞ → 1 ∈ ℝ
95 93 94 readdcld ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx E + 1 ∈ ℝ
96 7 82 eqeltrid ⊢ φ ∧ r ∈ M +∞ → X ∈ ℝ
97 9 83 eqeltrid ⊢ φ ∧ r ∈ M +∞ → Y ∈ ℝ
98 96 97 readdcld ⊢ φ ∧ r ∈ M +∞ → X + Y ∈ ℝ
99 25 adantr ⊢ φ ∧ r ∈ M +∞ → Z ∈ ℝ
100 98 99 readdcld ⊢ φ ∧ r ∈ M +∞ → X + Y + Z ∈ ℝ
101 100 91 92 redivcld ⊢ φ ∧ r ∈ M +∞ → X + Y + Z E ∈ ℝ
102 101 94 readdcld ⊢ φ ∧ r ∈ M +∞ → X + Y + Z E + 1 ∈ ℝ
103 102 34 syl ⊢ φ ∧ r ∈ M +∞ → X + Y + Z E + 1 ∈ ℝ
104 103 94 readdcld ⊢ φ ∧ r ∈ M +∞ → X + Y + Z E + 1 + 1 ∈ ℝ
105 16 104 eqeltrid ⊢ φ ∧ r ∈ M +∞ → M ∈ ℝ
106 86 abscld ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ⁢ − G ∈ ℝ
107 86 66 iblabs ⊢ φ ∧ r ∈ M +∞ → x ∈ I ⟼ F ⁢ − G ∈ 𝐿 1
108 106 107 itgrecl ⊢ φ ∧ r ∈ M +∞ → ∫ I F ⁢ − G dx ∈ ℝ
109 86 66 itgabs ⊢ φ ∧ r ∈ M +∞ → ∫ I F ⁢ − G dx ≤ ∫ I F ⁢ − G dx
110 23 adantr ⊢ φ ∧ r ∈ M +∞ → x ∈ I ⟼ F ∈ 𝐿 1
111 67 abscld ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ∈ ℝ
112 67 85 absmuld ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ⁢ − G = F ⁢ − G
113 85 abscld ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → − G ∈ ℝ
114 1red ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → 1 ∈ ℝ
115 67 absge0d ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → 0 ≤ F
116 recn ⊢ r ∈ ℝ → r ∈ ℂ
117 116 4 sylan2 ⊢ φ ∧ x ∈ I ∧ r ∈ ℝ → G ∈ ℂ
118 117 absnegd ⊢ φ ∧ x ∈ I ∧ r ∈ ℝ → − G = G
119 118 5 eqbrtrd ⊢ φ ∧ x ∈ I ∧ r ∈ ℝ → − G ≤ 1
120 68 69 70 119 syl21anc ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → − G ≤ 1
121 113 114 111 115 120 lemul2ad ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ⁢ − G ≤ F ⋅ 1
122 111 recnd ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ∈ ℂ
123 122 mulridd ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ⋅ 1 = F
124 121 123 breqtrd ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ⁢ − G ≤ F
125 112 124 eqbrtrd ⊢ φ ∧ r ∈ M +∞ ∧ x ∈ I → F ⁢ − G ≤ F
126 107 110 106 111 125 itgle ⊢ φ ∧ r ∈ M +∞ → ∫ I F ⁢ − G dx ≤ ∫ I F dx
127 126 10 breqtrrdi ⊢ φ ∧ r ∈ M +∞ → ∫ I F ⁢ − G dx ≤ Z
128 88 108 99 109 127 letrd ⊢ φ ∧ r ∈ M +∞ → ∫ I F ⁢ − G dx ≤ Z
129 88 99 98 128 leadd2dd ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx ≤ X + Y + Z
130 90 100 76 129 lediv1dd ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx E ≤ X + Y + Z E
131 flltp1 ⊢ X + Y + Z E ∈ ℝ → X + Y + Z E < X + Y + Z E + 1
132 101 131 syl ⊢ φ ∧ r ∈ M +∞ → X + Y + Z E < X + Y + Z E + 1
133 101 52 53 sylancl ⊢ φ ∧ r ∈ M +∞ → X + Y + Z E + 1 = X + Y + Z E + 1
134 132 133 breqtrrd ⊢ φ ∧ r ∈ M +∞ → X + Y + Z E < X + Y + Z E + 1
135 93 101 103 130 134 lelttrd ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx E < X + Y + Z E + 1
136 93 103 94 135 ltadd1dd ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx E + 1 < X + Y + Z E + 1 + 1
137 136 16 breqtrrdi ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx E + 1 < M
138 105 rexrd ⊢ φ ∧ r ∈ M +∞ → M ∈ ℝ *
139 pnfxr ⊢ +∞ ∈ ℝ *
140 139 a1i ⊢ φ ∧ r ∈ M +∞ → +∞ ∈ ℝ *
141 simpr ⊢ φ ∧ r ∈ M +∞ → r ∈ M +∞
142 ioogtlb ⊢ M ∈ ℝ * ∧ +∞ ∈ ℝ * ∧ r ∈ M +∞ → M < r
143 138 140 141 142 syl3anc ⊢ φ ∧ r ∈ M +∞ → M < r
144 95 105 77 137 143 lttrd ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx E + 1 < r
145 95 77 144 ltled ⊢ φ ∧ r ∈ M +∞ → X + Y + ∫ I F ⁢ − G dx E + 1 ≤ r
146 77 recnd ⊢ φ ∧ r ∈ M +∞ → r ∈ ℂ
147 146 12 syldan ⊢ φ ∧ r ∈ M +∞ → B ∈ ℂ
148 65 13 sylan2 ⊢ φ ∧ r ∈ M +∞ → B ≤ 1
149 146 14 syldan ⊢ φ ∧ r ∈ M +∞ → D ∈ ℂ
150 65 15 sylan2 ⊢ φ ∧ r ∈ M +∞ → D ≤ 1
151 66 67 72 73 7 74 9 75 76 77 145 147 148 149 150 fourierdlem30 ⊢ φ ∧ r ∈ M +∞ → A ⁢ − B r - C ⁢ − D r - ∫ I F ⁢ − G r dx < E
152 151 ralrimiva ⊢ φ → ∀ r ∈ M +∞ A ⁢ − B r - C ⁢ − D r - ∫ I F ⁢ − G r dx < E
153 oveq1 ⊢ m = M → m +∞ = M +∞
154 153 raleqdv ⊢ m = M → ∀ r ∈ m +∞ A ⁢ − B r - C ⁢ − D r - ∫ I F ⁢ − G r dx < E ↔ ∀ r ∈ M +∞ A ⁢ − B r - C ⁢ − D r - ∫ I F ⁢ − G r dx < E
155 154 rspcev ⊢ M ∈ ℕ ∧ ∀ r ∈ M +∞ A ⁢ − B r - C ⁢ − D r - ∫ I F ⁢ − G r dx < E → ∃ m ∈ ℕ ∀ r ∈ m +∞ A ⁢ − B r - C ⁢ − D r - ∫ I F ⁢ − G r dx < E
156 64 152 155 syl2anc ⊢ φ → ∃ m ∈ ℕ ∀ r ∈ m +∞ A ⁢ − B r - C ⁢ − D r - ∫ I F ⁢ − G r dx < E