MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  itg2cnlem2 Structured version   Visualization version   GIF version

Theorem itg2cnlem2 25512
Description: Lemma for itgcn 25594. (Contributed by Mario Carneiro, 31-Aug-2014.)
Hypotheses
Ref Expression
itg2cn.1 (πœ‘ β†’ 𝐹:β„βŸΆ(0[,)+∞))
itg2cn.2 (πœ‘ β†’ 𝐹 ∈ MblFn)
itg2cn.3 (πœ‘ β†’ (∫2β€˜πΉ) ∈ ℝ)
itg2cn.4 (πœ‘ β†’ 𝐢 ∈ ℝ+)
itg2cn.5 (πœ‘ β†’ 𝑀 ∈ β„•)
itg2cn.6 (πœ‘ β†’ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)))
Assertion
Ref Expression
itg2cnlem2 (πœ‘ β†’ βˆƒπ‘‘ ∈ ℝ+ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < 𝑑 β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
Distinct variable groups:   𝑒,𝑑,π‘₯,𝐢   𝐹,𝑑,𝑒,π‘₯   πœ‘,𝑒,π‘₯   𝑀,𝑑,𝑒,π‘₯
Allowed substitution hint:   πœ‘(𝑑)

Proof of Theorem itg2cnlem2
StepHypRef Expression
1 itg2cn.4 . . . 4 (πœ‘ β†’ 𝐢 ∈ ℝ+)
21rphalfcld 13032 . . 3 (πœ‘ β†’ (𝐢 / 2) ∈ ℝ+)
3 itg2cn.5 . . . 4 (πœ‘ β†’ 𝑀 ∈ β„•)
43nnrpd 13018 . . 3 (πœ‘ β†’ 𝑀 ∈ ℝ+)
52, 4rpdivcld 13037 . 2 (πœ‘ β†’ ((𝐢 / 2) / 𝑀) ∈ ℝ+)
6 simprl 767 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑒 ∈ dom vol)
7 itg2cn.2 . . . . . . . . . 10 (πœ‘ β†’ 𝐹 ∈ MblFn)
87adantr 479 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹 ∈ MblFn)
9 itg2cn.1 . . . . . . . . . . 11 (πœ‘ β†’ 𝐹:β„βŸΆ(0[,)+∞))
10 rge0ssre 13437 . . . . . . . . . . 11 (0[,)+∞) βŠ† ℝ
11 fss 6733 . . . . . . . . . . 11 ((𝐹:β„βŸΆ(0[,)+∞) ∧ (0[,)+∞) βŠ† ℝ) β†’ 𝐹:β„βŸΆβ„)
129, 10, 11sylancl 584 . . . . . . . . . 10 (πœ‘ β†’ 𝐹:β„βŸΆβ„)
1312adantr 479 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹:β„βŸΆβ„)
14 mbfima 25379 . . . . . . . . 9 ((𝐹 ∈ MblFn ∧ 𝐹:β„βŸΆβ„) β†’ (◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol)
158, 13, 14syl2anc 582 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol)
16 inmbl 25291 . . . . . . . 8 ((𝑒 ∈ dom vol ∧ (◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol) β†’ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
176, 15, 16syl2anc 582 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
18 difmbl 25292 . . . . . . . 8 ((𝑒 ∈ dom vol ∧ (◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol) β†’ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
196, 15, 18syl2anc 582 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
20 inass 4218 . . . . . . . . . . 11 ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = (𝑒 ∩ ((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))))
21 disjdif 4470 . . . . . . . . . . . 12 ((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = βˆ…
2221ineq2i 4208 . . . . . . . . . . 11 (𝑒 ∩ ((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = (𝑒 ∩ βˆ…)
23 in0 4390 . . . . . . . . . . 11 (𝑒 ∩ βˆ…) = βˆ…
2420, 22, 233eqtri 2762 . . . . . . . . . 10 ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = βˆ…
2524fveq2i 6893 . . . . . . . . 9 (vol*β€˜((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = (vol*β€˜βˆ…)
26 ovol0 25242 . . . . . . . . 9 (vol*β€˜βˆ…) = 0
2725, 26eqtri 2758 . . . . . . . 8 (vol*β€˜((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = 0
2827a1i 11 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = 0)
29 inundif 4477 . . . . . . . . 9 ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) βˆͺ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = 𝑒
3029eqcomi 2739 . . . . . . . 8 𝑒 = ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) βˆͺ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))
3130a1i 11 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑒 = ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) βˆͺ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))))
32 mblss 25280 . . . . . . . . . 10 (𝑒 ∈ dom vol β†’ 𝑒 βŠ† ℝ)
336, 32syl 17 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑒 βŠ† ℝ)
3433sselda 3981 . . . . . . . 8 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ 𝑒) β†’ π‘₯ ∈ ℝ)
359adantr 479 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹:β„βŸΆ(0[,)+∞))
3635ffvelcdmda 7085 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ∈ (0[,)+∞))
37 elrege0 13435 . . . . . . . . . . . 12 ((πΉβ€˜π‘₯) ∈ (0[,)+∞) ↔ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 0 ≀ (πΉβ€˜π‘₯)))
3836, 37sylib 217 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 0 ≀ (πΉβ€˜π‘₯)))
3938simpld 493 . . . . . . . . . 10 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ∈ ℝ)
4039rexrd 11268 . . . . . . . . 9 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ∈ ℝ*)
4138simprd 494 . . . . . . . . 9 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 0 ≀ (πΉβ€˜π‘₯))
42 elxrge0 13438 . . . . . . . . 9 ((πΉβ€˜π‘₯) ∈ (0[,]+∞) ↔ ((πΉβ€˜π‘₯) ∈ ℝ* ∧ 0 ≀ (πΉβ€˜π‘₯)))
4340, 41, 42sylanbrc 581 . . . . . . . 8 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ∈ (0[,]+∞))
4434, 43syldan 589 . . . . . . 7 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ 𝑒) β†’ (πΉβ€˜π‘₯) ∈ (0[,]+∞))
45 eqid 2730 . . . . . . 7 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))
46 eqid 2730 . . . . . . 7 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))
47 eqid 2730 . . . . . . 7 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))
48 0e0iccpnf 13440 . . . . . . . . . 10 0 ∈ (0[,]+∞)
49 ifcl 4572 . . . . . . . . . 10 (((πΉβ€˜π‘₯) ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
5043, 48, 49sylancl 584 . . . . . . . . 9 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
5150fmpttd 7115 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞))
52 itg2cn.3 . . . . . . . . 9 (πœ‘ β†’ (∫2β€˜πΉ) ∈ ℝ)
5352adantr 479 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜πΉ) ∈ ℝ)
54 icossicc 13417 . . . . . . . . . 10 (0[,)+∞) βŠ† (0[,]+∞)
55 fss 6733 . . . . . . . . . 10 ((𝐹:β„βŸΆ(0[,)+∞) ∧ (0[,)+∞) βŠ† (0[,]+∞)) β†’ 𝐹:β„βŸΆ(0[,]+∞))
5635, 54, 55sylancl 584 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹:β„βŸΆ(0[,]+∞))
5739leidd 11784 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯))
58 breq1 5150 . . . . . . . . . . . . 13 ((πΉβ€˜π‘₯) = if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ ((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
59 breq1 5150 . . . . . . . . . . . . 13 (0 = if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ (0 ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
6058, 59ifboth 4566 . . . . . . . . . . . 12 (((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ∧ 0 ≀ (πΉβ€˜π‘₯)) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
6157, 41, 60syl2anc 582 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
6261ralrimiva 3144 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
63 reex 11203 . . . . . . . . . . . 12 ℝ ∈ V
6463a1i 11 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ℝ ∈ V)
65 eqidd 2731 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))
6635feqmptd 6959 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹 = (π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯)))
6764, 50, 39, 65, 66ofrfval2 7693 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹 ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
6862, 67mpbird 256 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹)
69 itg2le 25489 . . . . . . . . 9 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ 𝐹:β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
7051, 56, 68, 69syl3anc 1369 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
71 itg2lecl 25488 . . . . . . . 8 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (∫2β€˜πΉ) ∈ ℝ ∧ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
7251, 53, 70, 71syl3anc 1369 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
73 ifcl 4572 . . . . . . . . . 10 (((πΉβ€˜π‘₯) ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
7443, 48, 73sylancl 584 . . . . . . . . 9 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
7574fmpttd 7115 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞))
76 breq1 5150 . . . . . . . . . . . . 13 ((πΉβ€˜π‘₯) = if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ ((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
77 breq1 5150 . . . . . . . . . . . . 13 (0 = if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ (0 ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
7876, 77ifboth 4566 . . . . . . . . . . . 12 (((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ∧ 0 ≀ (πΉβ€˜π‘₯)) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
7957, 41, 78syl2anc 582 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
8079ralrimiva 3144 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
81 eqidd 2731 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))
8264, 74, 39, 81, 66ofrfval2 7693 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹 ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
8380, 82mpbird 256 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹)
84 itg2le 25489 . . . . . . . . 9 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ 𝐹:β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
8575, 56, 83, 84syl3anc 1369 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
86 itg2lecl 25488 . . . . . . . 8 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (∫2β€˜πΉ) ∈ ℝ ∧ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
8775, 53, 85, 86syl3anc 1369 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
8817, 19, 28, 31, 44, 45, 46, 47, 72, 87itg2split 25499 . . . . . 6 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) = ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
891adantr 479 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐢 ∈ ℝ+)
9089rphalfcld 13032 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝐢 / 2) ∈ ℝ+)
9190rpred 13020 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝐢 / 2) ∈ ℝ)
92 ifcl 4572 . . . . . . . . . . 11 (((πΉβ€˜π‘₯) ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
9343, 48, 92sylancl 584 . . . . . . . . . 10 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
9493fmpttd 7115 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞))
95 breq1 5150 . . . . . . . . . . . . . 14 ((πΉβ€˜π‘₯) = if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) β†’ ((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
96 breq1 5150 . . . . . . . . . . . . . 14 (0 = if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) β†’ (0 ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
9795, 96ifboth 4566 . . . . . . . . . . . . 13 (((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ∧ 0 ≀ (πΉβ€˜π‘₯)) β†’ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
9857, 41, 97syl2anc 582 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
9998ralrimiva 3144 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
100 eqidd 2731 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)))
10164, 93, 43, 100, 66ofrfval2 7693 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹 ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
10299, 101mpbird 256 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹)
103 itg2le 25489 . . . . . . . . . 10 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ 𝐹:β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
10494, 56, 102, 103syl3anc 1369 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
105 itg2lecl 25488 . . . . . . . . 9 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (∫2β€˜πΉ) ∈ ℝ ∧ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
10694, 53, 104, 105syl3anc 1369 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
107 0red 11221 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 0 ∈ ℝ)
108 elinel2 4195 . . . . . . . . . . . . 13 (π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) β†’ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)))
109108a1i 11 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) β†’ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
110 ifle 13180 . . . . . . . . . . . 12 ((((πΉβ€˜π‘₯) ∈ ℝ ∧ 0 ∈ ℝ ∧ 0 ≀ (πΉβ€˜π‘₯)) ∧ (π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) β†’ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))
11139, 107, 41, 109, 110syl31anc 1371 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))
112111ralrimiva 3144 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))
11364, 50, 93, 65, 100ofrfval2 7693 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)))
114112, 113mpbird 256 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)))
115 itg2le 25489 . . . . . . . . 9 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))))
11651, 94, 114, 115syl3anc 1369 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))))
11766fveq2d 6894 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜πΉ) = (∫2β€˜(π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯))))
118 cmmbl 25283 . . . . . . . . . . . . 13 ((◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol β†’ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
11915, 118syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
120 disjdif 4470 . . . . . . . . . . . . . . 15 ((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = βˆ…
121120fveq2i 6893 . . . . . . . . . . . . . 14 (vol*β€˜((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = (vol*β€˜βˆ…)
122121, 26eqtri 2758 . . . . . . . . . . . . 13 (vol*β€˜((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = 0
123122a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = 0)
124 undif2 4475 . . . . . . . . . . . . 13 ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ ℝ)
125 mblss 25280 . . . . . . . . . . . . . . 15 ((◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol β†’ (◑𝐹 β€œ (𝑀(,)+∞)) βŠ† ℝ)
12615, 125syl 17 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (◑𝐹 β€œ (𝑀(,)+∞)) βŠ† ℝ)
127 ssequn1 4179 . . . . . . . . . . . . . 14 ((◑𝐹 β€œ (𝑀(,)+∞)) βŠ† ℝ ↔ ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ ℝ) = ℝ)
128126, 127sylib 217 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ ℝ) = ℝ)
129124, 128eqtr2id 2783 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ℝ = ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))))
130 eqid 2730 . . . . . . . . . . . 12 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))
131 eqid 2730 . . . . . . . . . . . 12 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))
132 iftrue 4533 . . . . . . . . . . . . . 14 (π‘₯ ∈ ℝ β†’ if(π‘₯ ∈ ℝ, (πΉβ€˜π‘₯), 0) = (πΉβ€˜π‘₯))
133132mpteq2ia 5250 . . . . . . . . . . . . 13 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ ℝ, (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯))
134133eqcomi 2739 . . . . . . . . . . . 12 (π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ ℝ, (πΉβ€˜π‘₯), 0))
135 ifcl 4572 . . . . . . . . . . . . . . 15 (((πΉβ€˜π‘₯) ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
13643, 48, 135sylancl 584 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
137136fmpttd 7115 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞))
138 breq1 5150 . . . . . . . . . . . . . . . . . 18 ((πΉβ€˜π‘₯) = if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ ((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
139 breq1 5150 . . . . . . . . . . . . . . . . . 18 (0 = if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ (0 ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
140138, 139ifboth 4566 . . . . . . . . . . . . . . . . 17 (((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ∧ 0 ≀ (πΉβ€˜π‘₯)) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
14157, 41, 140syl2anc 582 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
142141ralrimiva 3144 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
143 eqidd 2731 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))
14464, 136, 43, 143, 66ofrfval2 7693 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹 ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
145142, 144mpbird 256 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹)
146 itg2le 25489 . . . . . . . . . . . . . 14 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ 𝐹:β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
147137, 56, 145, 146syl3anc 1369 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
148 itg2lecl 25488 . . . . . . . . . . . . 13 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (∫2β€˜πΉ) ∈ ℝ ∧ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
149137, 53, 147, 148syl3anc 1369 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
15015, 119, 123, 129, 43, 130, 131, 134, 106, 149itg2split 25499 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯))) = ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
151117, 150eqtrd 2770 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜πΉ) = ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
152 eldif 3957 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ↔ (π‘₯ ∈ ℝ ∧ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
153152baib 534 . . . . . . . . . . . . . . . . . 18 (π‘₯ ∈ ℝ β†’ (π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ↔ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
154153adantl 480 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ↔ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
1559ffnd 6717 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐹 Fn ℝ)
156155ad2antrr 722 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 𝐹 Fn ℝ)
157 elpreima 7058 . . . . . . . . . . . . . . . . . . . 20 (𝐹 Fn ℝ β†’ (π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)) ↔ (π‘₯ ∈ ℝ ∧ (πΉβ€˜π‘₯) ∈ (𝑀(,)+∞))))
158156, 157syl 17 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)) ↔ (π‘₯ ∈ ℝ ∧ (πΉβ€˜π‘₯) ∈ (𝑀(,)+∞))))
15939biantrurd 531 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (𝑀 < (πΉβ€˜π‘₯) ↔ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 𝑀 < (πΉβ€˜π‘₯))))
1603nnred 12231 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ 𝑀 ∈ ℝ)
161160ad2antrr 722 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 𝑀 ∈ ℝ)
162161rexrd 11268 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 𝑀 ∈ ℝ*)
163 elioopnf 13424 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ ℝ* β†’ ((πΉβ€˜π‘₯) ∈ (𝑀(,)+∞) ↔ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 𝑀 < (πΉβ€˜π‘₯))))
164162, 163syl 17 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ ((πΉβ€˜π‘₯) ∈ (𝑀(,)+∞) ↔ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 𝑀 < (πΉβ€˜π‘₯))))
165 simpr 483 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ π‘₯ ∈ ℝ)
166165biantrurd 531 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ ((πΉβ€˜π‘₯) ∈ (𝑀(,)+∞) ↔ (π‘₯ ∈ ℝ ∧ (πΉβ€˜π‘₯) ∈ (𝑀(,)+∞))))
167159, 164, 1663bitr2d 306 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (𝑀 < (πΉβ€˜π‘₯) ↔ (π‘₯ ∈ ℝ ∧ (πΉβ€˜π‘₯) ∈ (𝑀(,)+∞))))
168161, 39ltnled 11365 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (𝑀 < (πΉβ€˜π‘₯) ↔ Β¬ (πΉβ€˜π‘₯) ≀ 𝑀))
169158, 167, 1683bitr2rd 307 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (Β¬ (πΉβ€˜π‘₯) ≀ 𝑀 ↔ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
170169con1bid 354 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)) ↔ (πΉβ€˜π‘₯) ≀ 𝑀))
171154, 170bitrd 278 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ↔ (πΉβ€˜π‘₯) ≀ 𝑀))
172171ifbid 4550 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))
173172mpteq2dva 5247 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0)))
174173fveq2d 6894 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) = (∫2β€˜(π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))))
175 itg2cn.6 . . . . . . . . . . . . . 14 (πœ‘ β†’ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)))
176175adantr 479 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)))
177174, 176eqnbrtrd 5165 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)))
17853, 91resubcld 11646 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)) ∈ ℝ)
179178, 149ltnled 11365 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (((∫2β€˜πΉ) βˆ’ (𝐢 / 2)) < (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ↔ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2))))
180177, 179mpbird 256 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)) < (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))))
18153, 91, 149ltsubadd2d 11816 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (((∫2β€˜πΉ) βˆ’ (𝐢 / 2)) < (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ↔ (∫2β€˜πΉ) < ((𝐢 / 2) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))))))
182180, 181mpbid 231 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜πΉ) < ((𝐢 / 2) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
183151, 182eqbrtrrd 5171 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))) < ((𝐢 / 2) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
184106, 91, 149ltadd1d 11811 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) < (𝐢 / 2) ↔ ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))) < ((𝐢 / 2) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))))))
185183, 184mpbird 256 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) < (𝐢 / 2))
18672, 106, 91, 116, 185lelttrd 11376 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) < (𝐢 / 2))
187160adantr 479 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ ℝ)
188 mblvol 25279 . . . . . . . . . . 11 (𝑒 ∈ dom vol β†’ (volβ€˜π‘’) = (vol*β€˜π‘’))
1896, 188syl 17 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (volβ€˜π‘’) = (vol*β€˜π‘’))
1905rpred 13020 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐢 / 2) / 𝑀) ∈ ℝ)
191190adantr 479 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((𝐢 / 2) / 𝑀) ∈ ℝ)
192 ovolcl 25227 . . . . . . . . . . . . 13 (𝑒 βŠ† ℝ β†’ (vol*β€˜π‘’) ∈ ℝ*)
19333, 192syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜π‘’) ∈ ℝ*)
194191rexrd 11268 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((𝐢 / 2) / 𝑀) ∈ ℝ*)
195 simprr 769 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))
196189, 195eqbrtrrd 5171 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜π‘’) < ((𝐢 / 2) / 𝑀))
197193, 194, 196xrltled 13133 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜π‘’) ≀ ((𝐢 / 2) / 𝑀))
198 ovollecl 25232 . . . . . . . . . . 11 ((𝑒 βŠ† ℝ ∧ ((𝐢 / 2) / 𝑀) ∈ ℝ ∧ (vol*β€˜π‘’) ≀ ((𝐢 / 2) / 𝑀)) β†’ (vol*β€˜π‘’) ∈ ℝ)
19933, 191, 197, 198syl3anc 1369 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜π‘’) ∈ ℝ)
200189, 199eqeltrd 2831 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (volβ€˜π‘’) ∈ ℝ)
201187, 200remulcld 11248 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑀 Β· (volβ€˜π‘’)) ∈ ℝ)
202187rexrd 11268 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ ℝ*)
2033adantr 479 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ β„•)
204203nnnn0d 12536 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ β„•0)
205204nn0ge0d 12539 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 0 ≀ 𝑀)
206 elxrge0 13438 . . . . . . . . . . . . . 14 (𝑀 ∈ (0[,]+∞) ↔ (𝑀 ∈ ℝ* ∧ 0 ≀ 𝑀))
207202, 205, 206sylanbrc 581 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ (0[,]+∞))
208 ifcl 4572 . . . . . . . . . . . . 13 ((𝑀 ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ 𝑒, 𝑀, 0) ∈ (0[,]+∞))
209207, 48, 208sylancl 584 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ if(π‘₯ ∈ 𝑒, 𝑀, 0) ∈ (0[,]+∞))
210209adantr 479 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ 𝑒, 𝑀, 0) ∈ (0[,]+∞))
211210fmpttd 7115 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)):β„βŸΆ(0[,]+∞))
212 eldifn 4126 . . . . . . . . . . . . . . . 16 (π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) β†’ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)))
213212adantl 480 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)))
214 difssd 4131 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) βŠ† 𝑒)
215214sselda 3981 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ π‘₯ ∈ 𝑒)
21634, 169syldan 589 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ 𝑒) β†’ (Β¬ (πΉβ€˜π‘₯) ≀ 𝑀 ↔ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
217215, 216syldan 589 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ (Β¬ (πΉβ€˜π‘₯) ≀ 𝑀 ↔ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
218217con1bid 354 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ (Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)) ↔ (πΉβ€˜π‘₯) ≀ 𝑀))
219213, 218mpbid 231 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ (πΉβ€˜π‘₯) ≀ 𝑀)
220 iftrue 4533 . . . . . . . . . . . . . . 15 (π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = (πΉβ€˜π‘₯))
221220adantl 480 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = (πΉβ€˜π‘₯))
222215iftrued 4535 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ 𝑒, 𝑀, 0) = 𝑀)
223219, 221, 2223brtr4d 5179 . . . . . . . . . . . . 13 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
224 iffalse 4536 . . . . . . . . . . . . . . 15 (Β¬ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = 0)
225224adantl 480 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ Β¬ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = 0)
226 0le0 12317 . . . . . . . . . . . . . . . 16 0 ≀ 0
227 breq2 5151 . . . . . . . . . . . . . . . . 17 (𝑀 = if(π‘₯ ∈ 𝑒, 𝑀, 0) β†’ (0 ≀ 𝑀 ↔ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
228 breq2 5151 . . . . . . . . . . . . . . . . 17 (0 = if(π‘₯ ∈ 𝑒, 𝑀, 0) β†’ (0 ≀ 0 ↔ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
229227, 228ifboth 4566 . . . . . . . . . . . . . . . 16 ((0 ≀ 𝑀 ∧ 0 ≀ 0) β†’ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
230205, 226, 229sylancl 584 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
231230adantr 479 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ Β¬ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
232225, 231eqbrtrd 5169 . . . . . . . . . . . . 13 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ Β¬ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
233223, 232pm2.61dan 809 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
234233ralrimivw 3148 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
235 eqidd 2731 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
23664, 74, 210, 81, 235ofrfval2 7693 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)) ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
237234, 236mpbird 256 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
238 itg2le 25489 . . . . . . . . . 10 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)):β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))))
23975, 211, 237, 238syl3anc 1369 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))))
240 elrege0 13435 . . . . . . . . . . 11 (𝑀 ∈ (0[,)+∞) ↔ (𝑀 ∈ ℝ ∧ 0 ≀ 𝑀))
241187, 205, 240sylanbrc 581 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ (0[,)+∞))
242 itg2const 25490 . . . . . . . . . 10 ((𝑒 ∈ dom vol ∧ (volβ€˜π‘’) ∈ ℝ ∧ 𝑀 ∈ (0[,)+∞)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))) = (𝑀 Β· (volβ€˜π‘’)))
2436, 200, 241, 242syl3anc 1369 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))) = (𝑀 Β· (volβ€˜π‘’)))
244239, 243breqtrd 5173 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (𝑀 Β· (volβ€˜π‘’)))
245203nngt0d 12265 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 0 < 𝑀)
246 ltmuldiv2 12092 . . . . . . . . . 10 (((volβ€˜π‘’) ∈ ℝ ∧ (𝐢 / 2) ∈ ℝ ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀)) β†’ ((𝑀 Β· (volβ€˜π‘’)) < (𝐢 / 2) ↔ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀)))
247200, 91, 187, 245, 246syl112anc 1372 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((𝑀 Β· (volβ€˜π‘’)) < (𝐢 / 2) ↔ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀)))
248195, 247mpbird 256 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑀 Β· (volβ€˜π‘’)) < (𝐢 / 2))
24987, 201, 91, 244, 248lelttrd 11376 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) < (𝐢 / 2))
25072, 87, 91, 91, 186, 249lt2addd 11841 . . . . . 6 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))) < ((𝐢 / 2) + (𝐢 / 2)))
25188, 250eqbrtrd 5169 . . . . 5 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < ((𝐢 / 2) + (𝐢 / 2)))
25289rpcnd 13022 . . . . . 6 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐢 ∈ β„‚)
2532522halvesd 12462 . . . . 5 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((𝐢 / 2) + (𝐢 / 2)) = 𝐢)
254251, 253breqtrd 5173 . . . 4 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢)
255254expr 455 . . 3 ((πœ‘ ∧ 𝑒 ∈ dom vol) β†’ ((volβ€˜π‘’) < ((𝐢 / 2) / 𝑀) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
256255ralrimiva 3144 . 2 (πœ‘ β†’ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < ((𝐢 / 2) / 𝑀) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
257 breq2 5151 . . 3 (𝑑 = ((𝐢 / 2) / 𝑀) β†’ ((volβ€˜π‘’) < 𝑑 ↔ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀)))
258257rspceaimv 3616 . 2 ((((𝐢 / 2) / 𝑀) ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < ((𝐢 / 2) / 𝑀) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢)) β†’ βˆƒπ‘‘ ∈ ℝ+ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < 𝑑 β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
2595, 256, 258syl2anc 582 1 (πœ‘ β†’ βˆƒπ‘‘ ∈ ℝ+ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < 𝑑 β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 394   = wceq 1539   ∈ wcel 2104  βˆ€wral 3059  βˆƒwrex 3068  Vcvv 3472   βˆ– cdif 3944   βˆͺ cun 3945   ∩ cin 3946   βŠ† wss 3947  βˆ…c0 4321  ifcif 4527   class class class wbr 5147   ↦ cmpt 5230  β—‘ccnv 5674  dom cdm 5675   β€œ cima 5678   Fn wfn 6537  βŸΆwf 6538  β€˜cfv 6542  (class class class)co 7411   ∘r cofr 7671  β„cr 11111  0cc0 11112   + caddc 11115   Β· cmul 11117  +∞cpnf 11249  β„*cxr 11251   < clt 11252   ≀ cle 11253   βˆ’ cmin 11448   / cdiv 11875  β„•cn 12216  2c2 12271  β„+crp 12978  (,)cioo 13328  [,)cico 13330  [,]cicc 13331  vol*covol 25211  volcvol 25212  MblFncmbf 25363  βˆ«2citg2 25365
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7727  ax-inf2 9638  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189  ax-pre-sup 11190  ax-addf 11191
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-rmo 3374  df-reu 3375  df-rab 3431  df-v 3474  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-disj 5113  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6299  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-isom 6551  df-riota 7367  df-ov 7414  df-oprab 7415  df-mpo 7416  df-of 7672  df-ofr 7673  df-om 7858  df-1st 7977  df-2nd 7978  df-frecs 8268  df-wrecs 8299  df-recs 8373  df-rdg 8412  df-1o 8468  df-2o 8469  df-er 8705  df-map 8824  df-pm 8825  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-fi 9408  df-sup 9439  df-inf 9440  df-oi 9507  df-dju 9898  df-card 9936  df-pnf 11254  df-mnf 11255  df-xr 11256  df-ltxr 11257  df-le 11258  df-sub 11450  df-neg 11451  df-div 11876  df-nn 12217  df-2 12279  df-3 12280  df-n0 12477  df-z 12563  df-uz 12827  df-q 12937  df-rp 12979  df-xneg 13096  df-xadd 13097  df-xmul 13098  df-ioo 13332  df-ico 13334  df-icc 13335  df-fz 13489  df-fzo 13632  df-fl 13761  df-seq 13971  df-exp 14032  df-hash 14295  df-cj 15050  df-re 15051  df-im 15052  df-sqrt 15186  df-abs 15187  df-clim 15436  df-sum 15637  df-rest 17372  df-topgen 17393  df-psmet 21136  df-xmet 21137  df-met 21138  df-bl 21139  df-mopn 21140  df-top 22616  df-topon 22633  df-bases 22669  df-cmp 23111  df-ovol 25213  df-vol 25214  df-mbf 25368  df-itg1 25369  df-itg2 25370  df-0p 25419
This theorem is referenced by:  itg2cn  25513
  Copyright terms: Public domain W3C validator