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 mulid1d φ 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