Metamath Proof Explorer


Theorem itg2splitlem

Description: Lemma for itg2split . (Contributed by Mario Carneiro, 11-Aug-2014)

Ref Expression
Hypotheses itg2split.a φ A dom vol
itg2split.b φ B dom vol
itg2split.i φ vol * A B = 0
itg2split.u φ U = A B
itg2split.c φ x U C 0 +∞
itg2split.f F = x if x A C 0
itg2split.g G = x if x B C 0
itg2split.h H = x if x U C 0
itg2split.sf φ 2 F
itg2split.sg φ 2 G
Assertion itg2splitlem φ 2 H 2 F + 2 G

Proof

Step Hyp Ref Expression
1 itg2split.a φ A dom vol
2 itg2split.b φ B dom vol
3 itg2split.i φ vol * A B = 0
4 itg2split.u φ U = A B
5 itg2split.c φ x U C 0 +∞
6 itg2split.f F = x if x A C 0
7 itg2split.g G = x if x B C 0
8 itg2split.h H = x if x U C 0
9 itg2split.sf φ 2 F
10 itg2split.sg φ 2 G
11 simprl φ f dom 1 f f H f dom 1
12 itg1cl f dom 1 1 f
13 11 12 syl φ f dom 1 f f H 1 f
14 1 adantr φ f dom 1 f f H A dom vol
15 eqid x if x A f x 0 = x if x A f x 0
16 15 i1fres f dom 1 A dom vol x if x A f x 0 dom 1
17 11 14 16 syl2anc φ f dom 1 f f H x if x A f x 0 dom 1
18 itg1cl x if x A f x 0 dom 1 1 x if x A f x 0
19 17 18 syl φ f dom 1 f f H 1 x if x A f x 0
20 2 adantr φ f dom 1 f f H B dom vol
21 eqid x if x B f x 0 = x if x B f x 0
22 21 i1fres f dom 1 B dom vol x if x B f x 0 dom 1
23 11 20 22 syl2anc φ f dom 1 f f H x if x B f x 0 dom 1
24 itg1cl x if x B f x 0 dom 1 1 x if x B f x 0
25 23 24 syl φ f dom 1 f f H 1 x if x B f x 0
26 19 25 readdcld φ f dom 1 f f H 1 x if x A f x 0 + 1 x if x B f x 0
27 9 10 readdcld φ 2 F + 2 G
28 27 adantr φ f dom 1 f f H 2 F + 2 G
29 inss1 A B A
30 mblss A dom vol A
31 1 30 syl φ A
32 29 31 sstrid φ A B
33 32 adantr φ f dom 1 f f H A B
34 3 adantr φ f dom 1 f f H vol * A B = 0
35 reex V
36 35 a1i φ V
37 fvex f x V
38 c0ex 0 V
39 37 38 ifex if x A f x 0 V
40 39 a1i φ x if x A f x 0 V
41 37 38 ifex if x B f x 0 V
42 41 a1i φ x if x B f x 0 V
43 eqidd φ x if x A f x 0 = x if x A f x 0
44 eqidd φ x if x B f x 0 = x if x B f x 0
45 36 40 42 43 44 offval2 φ x if x A f x 0 + f x if x B f x 0 = x if x A f x 0 + if x B f x 0
46 45 adantr φ f dom 1 f f H x if x A f x 0 + f x if x B f x 0 = x if x A f x 0 + if x B f x 0
47 17 23 i1fadd φ f dom 1 f f H x if x A f x 0 + f x if x B f x 0 dom 1
48 46 47 eqeltrrd φ f dom 1 f f H x if x A f x 0 + if x B f x 0 dom 1
49 i1ff f dom 1 f :
50 11 49 syl φ f dom 1 f f H f :
51 eldifi y A B y
52 ffvelrn f : y f y
53 50 51 52 syl2an φ f dom 1 f f H y A B f y
54 53 leidd φ f dom 1 f f H y A B f y f y
55 54 adantr φ f dom 1 f f H y A B y A f y f y
56 iftrue y A if y A f y 0 = f y
57 56 adantl φ f dom 1 f f H y A B y A if y A f y 0 = f y
58 eldifn y A B ¬ y A B
59 58 adantl φ f dom 1 f f H y A B ¬ y A B
60 elin y A B y A y B
61 59 60 sylnib φ f dom 1 f f H y A B ¬ y A y B
62 imnan y A ¬ y B ¬ y A y B
63 61 62 sylibr φ f dom 1 f f H y A B y A ¬ y B
64 63 imp φ f dom 1 f f H y A B y A ¬ y B
65 iffalse ¬ y B if y B f y 0 = 0
66 64 65 syl φ f dom 1 f f H y A B y A if y B f y 0 = 0
67 57 66 oveq12d φ f dom 1 f f H y A B y A if y A f y 0 + if y B f y 0 = f y + 0
68 53 recnd φ f dom 1 f f H y A B f y
69 68 adantr φ f dom 1 f f H y A B y A f y
70 69 addid1d φ f dom 1 f f H y A B y A f y + 0 = f y
71 67 70 eqtrd φ f dom 1 f f H y A B y A if y A f y 0 + if y B f y 0 = f y
72 55 71 breqtrrd φ f dom 1 f f H y A B y A f y if y A f y 0 + if y B f y 0
73 54 ad2antrr φ f dom 1 f f H y A B ¬ y A y B f y f y
74 iftrue y B if y B f y 0 = f y
75 74 adantl φ f dom 1 f f H y A B ¬ y A y B if y B f y 0 = f y
76 73 75 breqtrrd φ f dom 1 f f H y A B ¬ y A y B f y if y B f y 0
77 4 ad2antrr φ f dom 1 f f H y A B U = A B
78 77 eleq2d φ f dom 1 f f H y A B y U y A B
79 elun y A B y A y B
80 78 79 bitrdi φ f dom 1 f f H y A B y U y A y B
81 80 notbid φ f dom 1 f f H y A B ¬ y U ¬ y A y B
82 ioran ¬ y A y B ¬ y A ¬ y B
83 81 82 bitrdi φ f dom 1 f f H y A B ¬ y U ¬ y A ¬ y B
84 83 biimpar φ f dom 1 f f H y A B ¬ y A ¬ y B ¬ y U
85 simprr φ f dom 1 f f H f f H
86 50 ffnd φ f dom 1 f f H f Fn
87 5 adantlr φ x x U C 0 +∞
88 0e0iccpnf 0 0 +∞
89 88 a1i φ x ¬ x U 0 0 +∞
90 87 89 ifclda φ x if x U C 0 0 +∞
91 90 8 fmptd φ H : 0 +∞
92 91 ffnd φ H Fn
93 92 adantr φ f dom 1 f f H H Fn
94 35 a1i φ f dom 1 f f H V
95 inidm =
96 eqidd φ f dom 1 f f H y f y = f y
97 eqidd φ f dom 1 f f H y H y = H y
98 86 93 94 94 95 96 97 ofrfval φ f dom 1 f f H f f H y f y H y
99 85 98 mpbid φ f dom 1 f f H y f y H y
100 99 r19.21bi φ f dom 1 f f H y f y H y
101 51 100 sylan2 φ f dom 1 f f H y A B f y H y
102 101 adantr φ f dom 1 f f H y A B ¬ y U f y H y
103 51 adantl φ f dom 1 f f H y A B y
104 eldif y U y ¬ y U
105 nfcv _ x y
106 nfmpt1 _ x x if x U C 0
107 8 106 nfcxfr _ x H
108 107 105 nffv _ x H y
109 108 nfeq1 x H y = 0
110 fveqeq2 x = y H x = 0 H y = 0
111 eldif x U x ¬ x U
112 8 fvmpt2i x H x = I if x U C 0
113 iffalse ¬ x U if x U C 0 = 0
114 113 fveq2d ¬ x U I if x U C 0 = I 0
115 0cn 0
116 fvi 0 I 0 = 0
117 115 116 ax-mp I 0 = 0
118 114 117 eqtrdi ¬ x U I if x U C 0 = 0
119 112 118 sylan9eq x ¬ x U H x = 0
120 111 119 sylbi x U H x = 0
121 105 109 110 120 vtoclgaf y U H y = 0
122 104 121 sylbir y ¬ y U H y = 0
123 103 122 sylan φ f dom 1 f f H y A B ¬ y U H y = 0
124 102 123 breqtrd φ f dom 1 f f H y A B ¬ y U f y 0
125 84 124 syldan φ f dom 1 f f H y A B ¬ y A ¬ y B f y 0
126 125 anassrs φ f dom 1 f f H y A B ¬ y A ¬ y B f y 0
127 65 adantl φ f dom 1 f f H y A B ¬ y A ¬ y B if y B f y 0 = 0
128 126 127 breqtrrd φ f dom 1 f f H y A B ¬ y A ¬ y B f y if y B f y 0
129 76 128 pm2.61dan φ f dom 1 f f H y A B ¬ y A f y if y B f y 0
130 iffalse ¬ y A if y A f y 0 = 0
131 130 adantl φ f dom 1 f f H y A B ¬ y A if y A f y 0 = 0
132 131 oveq1d φ f dom 1 f f H y A B ¬ y A if y A f y 0 + if y B f y 0 = 0 + if y B f y 0
133 0re 0
134 ifcl f y 0 if y B f y 0
135 53 133 134 sylancl φ f dom 1 f f H y A B if y B f y 0
136 135 recnd φ f dom 1 f f H y A B if y B f y 0
137 136 adantr φ f dom 1 f f H y A B ¬ y A if y B f y 0
138 137 addid2d φ f dom 1 f f H y A B ¬ y A 0 + if y B f y 0 = if y B f y 0
139 132 138 eqtrd φ f dom 1 f f H y A B ¬ y A if y A f y 0 + if y B f y 0 = if y B f y 0
140 129 139 breqtrrd φ f dom 1 f f H y A B ¬ y A f y if y A f y 0 + if y B f y 0
141 72 140 pm2.61dan φ f dom 1 f f H y A B f y if y A f y 0 + if y B f y 0
142 eleq1w x = y x A y A
143 fveq2 x = y f x = f y
144 142 143 ifbieq1d x = y if x A f x 0 = if y A f y 0
145 eleq1w x = y x B y B
146 145 143 ifbieq1d x = y if x B f x 0 = if y B f y 0
147 144 146 oveq12d x = y if x A f x 0 + if x B f x 0 = if y A f y 0 + if y B f y 0
148 eqid x if x A f x 0 + if x B f x 0 = x if x A f x 0 + if x B f x 0
149 ovex if y A f y 0 + if y B f y 0 V
150 147 148 149 fvmpt y x if x A f x 0 + if x B f x 0 y = if y A f y 0 + if y B f y 0
151 103 150 syl φ f dom 1 f f H y A B x if x A f x 0 + if x B f x 0 y = if y A f y 0 + if y B f y 0
152 141 151 breqtrrd φ f dom 1 f f H y A B f y x if x A f x 0 + if x B f x 0 y
153 11 33 34 48 152 itg1lea φ f dom 1 f f H 1 f 1 x if x A f x 0 + if x B f x 0
154 46 fveq2d φ f dom 1 f f H 1 x if x A f x 0 + f x if x B f x 0 = 1 x if x A f x 0 + if x B f x 0
155 17 23 itg1add φ f dom 1 f f H 1 x if x A f x 0 + f x if x B f x 0 = 1 x if x A f x 0 + 1 x if x B f x 0
156 154 155 eqtr3d φ f dom 1 f f H 1 x if x A f x 0 + if x B f x 0 = 1 x if x A f x 0 + 1 x if x B f x 0
157 153 156 breqtrd φ f dom 1 f f H 1 f 1 x if x A f x 0 + 1 x if x B f x 0
158 9 adantr φ f dom 1 f f H 2 F
159 10 adantr φ f dom 1 f f H 2 G
160 ssun1 A A B
161 160 4 sseqtrrid φ A U
162 161 sselda φ x A x U
163 162 adantlr φ x x A x U
164 163 87 syldan φ x x A C 0 +∞
165 88 a1i φ x ¬ x A 0 0 +∞
166 164 165 ifclda φ x if x A C 0 0 +∞
167 166 6 fmptd φ F : 0 +∞
168 167 adantr φ f dom 1 f f H F : 0 +∞
169 nfv x φ
170 nfv x f dom 1
171 nfcv _ x f
172 nfcv _ x r
173 171 172 107 nfbr x f f H
174 170 173 nfan x f dom 1 f f H
175 169 174 nfan x φ f dom 1 f f H
176 14 30 syl φ f dom 1 f f H A
177 176 sselda φ f dom 1 f f H x A x
178 35 a1i φ f dom 1 V
179 37 a1i φ f dom 1 x f x V
180 90 adantlr φ f dom 1 x if x U C 0 0 +∞
181 49 adantl φ f dom 1 f :
182 181 feqmptd φ f dom 1 f = x f x
183 8 a1i φ f dom 1 H = x if x U C 0
184 178 179 180 182 183 ofrfval2 φ f dom 1 f f H x f x if x U C 0
185 184 biimpd φ f dom 1 f f H x f x if x U C 0
186 185 impr φ f dom 1 f f H x f x if x U C 0
187 186 r19.21bi φ f dom 1 f f H x f x if x U C 0
188 177 187 syldan φ f dom 1 f f H x A f x if x U C 0
189 162 adantlr φ f dom 1 f f H x A x U
190 189 iftrued φ f dom 1 f f H x A if x U C 0 = C
191 188 190 breqtrd φ f dom 1 f f H x A f x C
192 iftrue x A if x A f x 0 = f x
193 192 adantl φ f dom 1 f f H x A if x A f x 0 = f x
194 iftrue x A if x A C 0 = C
195 194 adantl φ f dom 1 f f H x A if x A C 0 = C
196 191 193 195 3brtr4d φ f dom 1 f f H x A if x A f x 0 if x A C 0
197 0le0 0 0
198 197 a1i ¬ x A 0 0
199 iffalse ¬ x A if x A f x 0 = 0
200 iffalse ¬ x A if x A C 0 = 0
201 198 199 200 3brtr4d ¬ x A if x A f x 0 if x A C 0
202 201 adantl φ f dom 1 f f H ¬ x A if x A f x 0 if x A C 0
203 196 202 pm2.61dan φ f dom 1 f f H if x A f x 0 if x A C 0
204 203 a1d φ f dom 1 f f H x if x A f x 0 if x A C 0
205 175 204 ralrimi φ f dom 1 f f H x if x A f x 0 if x A C 0
206 6 a1i φ F = x if x A C 0
207 36 40 166 43 206 ofrfval2 φ x if x A f x 0 f F x if x A f x 0 if x A C 0
208 207 adantr φ f dom 1 f f H x if x A f x 0 f F x if x A f x 0 if x A C 0
209 205 208 mpbird φ f dom 1 f f H x if x A f x 0 f F
210 itg2ub F : 0 +∞ x if x A f x 0 dom 1 x if x A f x 0 f F 1 x if x A f x 0 2 F
211 168 17 209 210 syl3anc φ f dom 1 f f H 1 x if x A f x 0 2 F
212 ssun2 B A B
213 212 4 sseqtrrid φ B U
214 213 sselda φ x B x U
215 214 adantlr φ x x B x U
216 215 87 syldan φ x x B C 0 +∞
217 88 a1i φ x ¬ x B 0 0 +∞
218 216 217 ifclda φ x if x B C 0 0 +∞
219 218 7 fmptd φ G : 0 +∞
220 219 adantr φ f dom 1 f f H G : 0 +∞
221 mblss B dom vol B
222 20 221 syl φ f dom 1 f f H B
223 222 sselda φ f dom 1 f f H x B x
224 223 187 syldan φ f dom 1 f f H x B f x if x U C 0
225 214 adantlr φ f dom 1 f f H x B x U
226 225 iftrued φ f dom 1 f f H x B if x U C 0 = C
227 224 226 breqtrd φ f dom 1 f f H x B f x C
228 iftrue x B if x B f x 0 = f x
229 228 adantl φ f dom 1 f f H x B if x B f x 0 = f x
230 iftrue x B if x B C 0 = C
231 230 adantl φ f dom 1 f f H x B if x B C 0 = C
232 227 229 231 3brtr4d φ f dom 1 f f H x B if x B f x 0 if x B C 0
233 197 a1i ¬ x B 0 0
234 iffalse ¬ x B if x B f x 0 = 0
235 iffalse ¬ x B if x B C 0 = 0
236 233 234 235 3brtr4d ¬ x B if x B f x 0 if x B C 0
237 236 adantl φ f dom 1 f f H ¬ x B if x B f x 0 if x B C 0
238 232 237 pm2.61dan φ f dom 1 f f H if x B f x 0 if x B C 0
239 238 a1d φ f dom 1 f f H x if x B f x 0 if x B C 0
240 175 239 ralrimi φ f dom 1 f f H x if x B f x 0 if x B C 0
241 7 a1i φ G = x if x B C 0
242 36 42 218 44 241 ofrfval2 φ x if x B f x 0 f G x if x B f x 0 if x B C 0
243 242 adantr φ f dom 1 f f H x if x B f x 0 f G x if x B f x 0 if x B C 0
244 240 243 mpbird φ f dom 1 f f H x if x B f x 0 f G
245 itg2ub G : 0 +∞ x if x B f x 0 dom 1 x if x B f x 0 f G 1 x if x B f x 0 2 G
246 220 23 244 245 syl3anc φ f dom 1 f f H 1 x if x B f x 0 2 G
247 19 25 158 159 211 246 le2addd φ f dom 1 f f H 1 x if x A f x 0 + 1 x if x B f x 0 2 F + 2 G
248 13 26 28 157 247 letrd φ f dom 1 f f H 1 f 2 F + 2 G
249 248 expr φ f dom 1 f f H 1 f 2 F + 2 G
250 249 ralrimiva φ f dom 1 f f H 1 f 2 F + 2 G
251 27 rexrd φ 2 F + 2 G *
252 itg2leub H : 0 +∞ 2 F + 2 G * 2 H 2 F + 2 G f dom 1 f f H 1 f 2 F + 2 G
253 91 251 252 syl2anc φ 2 H 2 F + 2 G f dom 1 f f H 1 f 2 F + 2 G
254 250 253 mpbird φ 2 H 2 F + 2 G