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

Theorem itg2cnlem2 25049
Description: Lemma for itgcn 25131. (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 12898 . . 3 (πœ‘ β†’ (𝐢 / 2) ∈ ℝ+)
3 itg2cn.5 . . . 4 (πœ‘ β†’ 𝑀 ∈ β„•)
43nnrpd 12884 . . 3 (πœ‘ β†’ 𝑀 ∈ ℝ+)
52, 4rpdivcld 12903 . 2 (πœ‘ β†’ ((𝐢 / 2) / 𝑀) ∈ ℝ+)
6 simprl 770 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑒 ∈ dom vol)
7 itg2cn.2 . . . . . . . . . 10 (πœ‘ β†’ 𝐹 ∈ MblFn)
87adantr 482 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹 ∈ MblFn)
9 itg2cn.1 . . . . . . . . . . 11 (πœ‘ β†’ 𝐹:β„βŸΆ(0[,)+∞))
10 rge0ssre 13302 . . . . . . . . . . 11 (0[,)+∞) βŠ† ℝ
11 fss 6681 . . . . . . . . . . 11 ((𝐹:β„βŸΆ(0[,)+∞) ∧ (0[,)+∞) βŠ† ℝ) β†’ 𝐹:β„βŸΆβ„)
129, 10, 11sylancl 587 . . . . . . . . . 10 (πœ‘ β†’ 𝐹:β„βŸΆβ„)
1312adantr 482 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹:β„βŸΆβ„)
14 mbfima 24916 . . . . . . . . 9 ((𝐹 ∈ MblFn ∧ 𝐹:β„βŸΆβ„) β†’ (◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol)
158, 13, 14syl2anc 585 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol)
16 inmbl 24828 . . . . . . . 8 ((𝑒 ∈ dom vol ∧ (◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol) β†’ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
176, 15, 16syl2anc 585 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
18 difmbl 24829 . . . . . . . 8 ((𝑒 ∈ dom vol ∧ (◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol) β†’ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
196, 15, 18syl2anc 585 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
20 inass 4178 . . . . . . . . . . 11 ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = (𝑒 ∩ ((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))))
21 disjdif 4430 . . . . . . . . . . . 12 ((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = βˆ…
2221ineq2i 4168 . . . . . . . . . . 11 (𝑒 ∩ ((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = (𝑒 ∩ βˆ…)
23 in0 4350 . . . . . . . . . . 11 (𝑒 ∩ βˆ…) = βˆ…
2420, 22, 233eqtri 2770 . . . . . . . . . 10 ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = βˆ…
2524fveq2i 6841 . . . . . . . . 9 (vol*β€˜((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = (vol*β€˜βˆ…)
26 ovol0 24779 . . . . . . . . 9 (vol*β€˜βˆ…) = 0
2725, 26eqtri 2766 . . . . . . . 8 (vol*β€˜((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = 0
2827a1i 11 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) ∩ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = 0)
29 inundif 4437 . . . . . . . . 9 ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) βˆͺ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = 𝑒
3029eqcomi 2747 . . . . . . . 8 𝑒 = ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) βˆͺ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))
3130a1i 11 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑒 = ((𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) βˆͺ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))))
32 mblss 24817 . . . . . . . . . 10 (𝑒 ∈ dom vol β†’ 𝑒 βŠ† ℝ)
336, 32syl 17 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑒 βŠ† ℝ)
3433sselda 3943 . . . . . . . 8 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ 𝑒) β†’ π‘₯ ∈ ℝ)
359adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹:β„βŸΆ(0[,)+∞))
3635ffvelcdmda 7030 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ∈ (0[,)+∞))
37 elrege0 13300 . . . . . . . . . . . 12 ((πΉβ€˜π‘₯) ∈ (0[,)+∞) ↔ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 0 ≀ (πΉβ€˜π‘₯)))
3836, 37sylib 217 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 0 ≀ (πΉβ€˜π‘₯)))
3938simpld 496 . . . . . . . . . 10 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ∈ ℝ)
4039rexrd 11139 . . . . . . . . 9 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ∈ ℝ*)
4138simprd 497 . . . . . . . . 9 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 0 ≀ (πΉβ€˜π‘₯))
42 elxrge0 13303 . . . . . . . . 9 ((πΉβ€˜π‘₯) ∈ (0[,]+∞) ↔ ((πΉβ€˜π‘₯) ∈ ℝ* ∧ 0 ≀ (πΉβ€˜π‘₯)))
4340, 41, 42sylanbrc 584 . . . . . . . 8 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ∈ (0[,]+∞))
4434, 43syldan 592 . . . . . . 7 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ 𝑒) β†’ (πΉβ€˜π‘₯) ∈ (0[,]+∞))
45 eqid 2738 . . . . . . 7 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))
46 eqid 2738 . . . . . . 7 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))
47 eqid 2738 . . . . . . 7 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))
48 0e0iccpnf 13305 . . . . . . . . . 10 0 ∈ (0[,]+∞)
49 ifcl 4530 . . . . . . . . . 10 (((πΉβ€˜π‘₯) ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
5043, 48, 49sylancl 587 . . . . . . . . 9 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
5150fmpttd 7058 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞))
52 itg2cn.3 . . . . . . . . 9 (πœ‘ β†’ (∫2β€˜πΉ) ∈ ℝ)
5352adantr 482 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜πΉ) ∈ ℝ)
54 icossicc 13282 . . . . . . . . . 10 (0[,)+∞) βŠ† (0[,]+∞)
55 fss 6681 . . . . . . . . . 10 ((𝐹:β„βŸΆ(0[,)+∞) ∧ (0[,)+∞) βŠ† (0[,]+∞)) β†’ 𝐹:β„βŸΆ(0[,]+∞))
5635, 54, 55sylancl 587 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹:β„βŸΆ(0[,]+∞))
5739leidd 11655 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯))
58 breq1 5107 . . . . . . . . . . . . 13 ((πΉβ€˜π‘₯) = if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ ((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
59 breq1 5107 . . . . . . . . . . . . 13 (0 = if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ (0 ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
6058, 59ifboth 4524 . . . . . . . . . . . 12 (((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ∧ 0 ≀ (πΉβ€˜π‘₯)) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
6157, 41, 60syl2anc 585 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
6261ralrimiva 3142 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
63 reex 11076 . . . . . . . . . . . 12 ℝ ∈ V
6463a1i 11 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ℝ ∈ V)
65 eqidd 2739 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))
6635feqmptd 6906 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐹 = (π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯)))
6764, 50, 39, 65, 66ofrfval2 7629 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹 ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
6862, 67mpbird 257 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹)
69 itg2le 25026 . . . . . . . . 9 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ 𝐹:β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
7051, 56, 68, 69syl3anc 1372 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
71 itg2lecl 25025 . . . . . . . 8 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (∫2β€˜πΉ) ∈ ℝ ∧ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
7251, 53, 70, 71syl3anc 1372 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
73 ifcl 4530 . . . . . . . . . 10 (((πΉβ€˜π‘₯) ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
7443, 48, 73sylancl 587 . . . . . . . . 9 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
7574fmpttd 7058 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞))
76 breq1 5107 . . . . . . . . . . . . 13 ((πΉβ€˜π‘₯) = if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ ((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
77 breq1 5107 . . . . . . . . . . . . 13 (0 = if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ (0 ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
7876, 77ifboth 4524 . . . . . . . . . . . 12 (((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ∧ 0 ≀ (πΉβ€˜π‘₯)) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
7957, 41, 78syl2anc 585 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
8079ralrimiva 3142 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
81 eqidd 2739 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))
8264, 74, 39, 81, 66ofrfval2 7629 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹 ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
8380, 82mpbird 257 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹)
84 itg2le 25026 . . . . . . . . 9 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ 𝐹:β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
8575, 56, 83, 84syl3anc 1372 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
86 itg2lecl 25025 . . . . . . . 8 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (∫2β€˜πΉ) ∈ ℝ ∧ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
8775, 53, 85, 86syl3anc 1372 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
8817, 19, 28, 31, 44, 45, 46, 47, 72, 87itg2split 25036 . . . . . 6 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) = ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
891adantr 482 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐢 ∈ ℝ+)
9089rphalfcld 12898 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝐢 / 2) ∈ ℝ+)
9190rpred 12886 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝐢 / 2) ∈ ℝ)
92 ifcl 4530 . . . . . . . . . . 11 (((πΉβ€˜π‘₯) ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
9343, 48, 92sylancl 587 . . . . . . . . . 10 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
9493fmpttd 7058 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞))
95 breq1 5107 . . . . . . . . . . . . . 14 ((πΉβ€˜π‘₯) = if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) β†’ ((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
96 breq1 5107 . . . . . . . . . . . . . 14 (0 = if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) β†’ (0 ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
9795, 96ifboth 4524 . . . . . . . . . . . . 13 (((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ∧ 0 ≀ (πΉβ€˜π‘₯)) β†’ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
9857, 41, 97syl2anc 585 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
9998ralrimiva 3142 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
100 eqidd 2739 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)))
10164, 93, 43, 100, 66ofrfval2 7629 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹 ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
10299, 101mpbird 257 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹)
103 itg2le 25026 . . . . . . . . . 10 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ 𝐹:β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
10494, 56, 102, 103syl3anc 1372 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
105 itg2lecl 25025 . . . . . . . . 9 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (∫2β€˜πΉ) ∈ ℝ ∧ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
10694, 53, 104, 105syl3anc 1372 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
107 0red 11092 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 0 ∈ ℝ)
108 elinel2 4155 . . . . . . . . . . . . 13 (π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) β†’ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)))
109108a1i 11 . . . . . . . . . . . 12 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) β†’ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
110 ifle 13045 . . . . . . . . . . . 12 ((((πΉβ€˜π‘₯) ∈ ℝ ∧ 0 ∈ ℝ ∧ 0 ≀ (πΉβ€˜π‘₯)) ∧ (π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))) β†’ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))
11139, 107, 41, 109, 110syl31anc 1374 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))
112111ralrimiva 3142 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))
11364, 50, 93, 65, 100ofrfval2 7629 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)))
114112, 113mpbird 257 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)))
115 itg2le 25026 . . . . . . . . 9 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))))
11651, 94, 114, 115syl3anc 1372 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))))
11766fveq2d 6842 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜πΉ) = (∫2β€˜(π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯))))
118 cmmbl 24820 . . . . . . . . . . . . 13 ((◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol β†’ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
11915, 118syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ∈ dom vol)
120 disjdif 4430 . . . . . . . . . . . . . . 15 ((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = βˆ…
121120fveq2i 6841 . . . . . . . . . . . . . 14 (vol*β€˜((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = (vol*β€˜βˆ…)
122121, 26eqtri 2766 . . . . . . . . . . . . 13 (vol*β€˜((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = 0
123122a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜((◑𝐹 β€œ (𝑀(,)+∞)) ∩ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))))) = 0)
124 undif2 4435 . . . . . . . . . . . . 13 ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) = ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ ℝ)
125 mblss 24817 . . . . . . . . . . . . . . 15 ((◑𝐹 β€œ (𝑀(,)+∞)) ∈ dom vol β†’ (◑𝐹 β€œ (𝑀(,)+∞)) βŠ† ℝ)
12615, 125syl 17 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (◑𝐹 β€œ (𝑀(,)+∞)) βŠ† ℝ)
127 ssequn1 4139 . . . . . . . . . . . . . 14 ((◑𝐹 β€œ (𝑀(,)+∞)) βŠ† ℝ ↔ ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ ℝ) = ℝ)
128126, 127sylib 217 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ ℝ) = ℝ)
129124, 128eqtr2id 2791 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ℝ = ((◑𝐹 β€œ (𝑀(,)+∞)) βˆͺ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))))
130 eqid 2738 . . . . . . . . . . . 12 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))
131 eqid 2738 . . . . . . . . . . . 12 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))
132 iftrue 4491 . . . . . . . . . . . . . 14 (π‘₯ ∈ ℝ β†’ if(π‘₯ ∈ ℝ, (πΉβ€˜π‘₯), 0) = (πΉβ€˜π‘₯))
133132mpteq2ia 5207 . . . . . . . . . . . . 13 (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ ℝ, (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯))
134133eqcomi 2747 . . . . . . . . . . . 12 (π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ ℝ, (πΉβ€˜π‘₯), 0))
135 ifcl 4530 . . . . . . . . . . . . . . 15 (((πΉβ€˜π‘₯) ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
13643, 48, 135sylancl 587 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ∈ (0[,]+∞))
137136fmpttd 7058 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞))
138 breq1 5107 . . . . . . . . . . . . . . . . . 18 ((πΉβ€˜π‘₯) = if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ ((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
139 breq1 5107 . . . . . . . . . . . . . . . . . 18 (0 = if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) β†’ (0 ≀ (πΉβ€˜π‘₯) ↔ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
140138, 139ifboth 4524 . . . . . . . . . . . . . . . . 17 (((πΉβ€˜π‘₯) ≀ (πΉβ€˜π‘₯) ∧ 0 ≀ (πΉβ€˜π‘₯)) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
14157, 41, 140syl2anc 585 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
142141ralrimiva 3142 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯))
143 eqidd 2739 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))
14464, 136, 43, 143, 66ofrfval2 7629 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹 ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ (πΉβ€˜π‘₯)))
145142, 144mpbird 257 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹)
146 itg2le 25026 . . . . . . . . . . . . . 14 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ 𝐹:β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ 𝐹) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
147137, 56, 145, 146syl3anc 1372 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ))
148 itg2lecl 25025 . . . . . . . . . . . . 13 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (∫2β€˜πΉ) ∈ ℝ ∧ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜πΉ)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
149137, 53, 147, 148syl3anc 1372 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ∈ ℝ)
15015, 119, 123, 129, 43, 130, 131, 134, 106, 149itg2split 25036 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ (πΉβ€˜π‘₯))) = ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
151117, 150eqtrd 2778 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜πΉ) = ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
152 eldif 3919 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ↔ (π‘₯ ∈ ℝ ∧ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
153152baib 537 . . . . . . . . . . . . . . . . . 18 (π‘₯ ∈ ℝ β†’ (π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ↔ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
154153adantl 483 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ↔ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
1559ffnd 6665 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐹 Fn ℝ)
156155ad2antrr 725 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 𝐹 Fn ℝ)
157 elpreima 7004 . . . . . . . . . . . . . . . . . . . 20 (𝐹 Fn ℝ β†’ (π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)) ↔ (π‘₯ ∈ ℝ ∧ (πΉβ€˜π‘₯) ∈ (𝑀(,)+∞))))
158156, 157syl 17 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)) ↔ (π‘₯ ∈ ℝ ∧ (πΉβ€˜π‘₯) ∈ (𝑀(,)+∞))))
15939biantrurd 534 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (𝑀 < (πΉβ€˜π‘₯) ↔ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 𝑀 < (πΉβ€˜π‘₯))))
1603nnred 12102 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ 𝑀 ∈ ℝ)
161160ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 𝑀 ∈ ℝ)
162161rexrd 11139 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ 𝑀 ∈ ℝ*)
163 elioopnf 13289 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ ℝ* β†’ ((πΉβ€˜π‘₯) ∈ (𝑀(,)+∞) ↔ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 𝑀 < (πΉβ€˜π‘₯))))
164162, 163syl 17 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ ((πΉβ€˜π‘₯) ∈ (𝑀(,)+∞) ↔ ((πΉβ€˜π‘₯) ∈ ℝ ∧ 𝑀 < (πΉβ€˜π‘₯))))
165 simpr 486 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ π‘₯ ∈ ℝ)
166165biantrurd 534 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ ((πΉβ€˜π‘₯) ∈ (𝑀(,)+∞) ↔ (π‘₯ ∈ ℝ ∧ (πΉβ€˜π‘₯) ∈ (𝑀(,)+∞))))
167159, 164, 1663bitr2d 307 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (𝑀 < (πΉβ€˜π‘₯) ↔ (π‘₯ ∈ ℝ ∧ (πΉβ€˜π‘₯) ∈ (𝑀(,)+∞))))
168161, 39ltnled 11236 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (𝑀 < (πΉβ€˜π‘₯) ↔ Β¬ (πΉβ€˜π‘₯) ≀ 𝑀))
169158, 167, 1683bitr2rd 308 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (Β¬ (πΉβ€˜π‘₯) ≀ 𝑀 ↔ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
170169con1bid 356 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)) ↔ (πΉβ€˜π‘₯) ≀ 𝑀))
171154, 170bitrd 279 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) ↔ (πΉβ€˜π‘₯) ≀ 𝑀))
172171ifbid 4508 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))
173172mpteq2dva 5204 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) = (π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0)))
174173fveq2d 6842 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) = (∫2β€˜(π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))))
175 itg2cn.6 . . . . . . . . . . . . . 14 (πœ‘ β†’ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)))
176175adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if((πΉβ€˜π‘₯) ≀ 𝑀, (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)))
177174, 176eqnbrtrd 5122 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)))
17853, 91resubcld 11517 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)) ∈ ℝ)
179178, 149ltnled 11236 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (((∫2β€˜πΉ) βˆ’ (𝐢 / 2)) < (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ↔ Β¬ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2))))
180177, 179mpbird 257 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜πΉ) βˆ’ (𝐢 / 2)) < (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))))
18153, 91, 149ltsubadd2d 11687 . . . . . . . . . . 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 5128 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))) < ((𝐢 / 2) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))))
184106, 91, 149ltadd1d 11682 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) < (𝐢 / 2) ↔ ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))) < ((𝐢 / 2) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (ℝ βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))))))
185183, 184mpbird 257 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)), (πΉβ€˜π‘₯), 0))) < (𝐢 / 2))
18672, 106, 91, 116, 185lelttrd 11247 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) < (𝐢 / 2))
187160adantr 482 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ ℝ)
188 mblvol 24816 . . . . . . . . . . 11 (𝑒 ∈ dom vol β†’ (volβ€˜π‘’) = (vol*β€˜π‘’))
1896, 188syl 17 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (volβ€˜π‘’) = (vol*β€˜π‘’))
1905rpred 12886 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐢 / 2) / 𝑀) ∈ ℝ)
191190adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((𝐢 / 2) / 𝑀) ∈ ℝ)
192 ovolcl 24764 . . . . . . . . . . . . 13 (𝑒 βŠ† ℝ β†’ (vol*β€˜π‘’) ∈ ℝ*)
19333, 192syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜π‘’) ∈ ℝ*)
194191rexrd 11139 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((𝐢 / 2) / 𝑀) ∈ ℝ*)
195 simprr 772 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))
196189, 195eqbrtrrd 5128 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜π‘’) < ((𝐢 / 2) / 𝑀))
197193, 194, 196xrltled 12998 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜π‘’) ≀ ((𝐢 / 2) / 𝑀))
198 ovollecl 24769 . . . . . . . . . . 11 ((𝑒 βŠ† ℝ ∧ ((𝐢 / 2) / 𝑀) ∈ ℝ ∧ (vol*β€˜π‘’) ≀ ((𝐢 / 2) / 𝑀)) β†’ (vol*β€˜π‘’) ∈ ℝ)
19933, 191, 197, 198syl3anc 1372 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (vol*β€˜π‘’) ∈ ℝ)
200189, 199eqeltrd 2839 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (volβ€˜π‘’) ∈ ℝ)
201187, 200remulcld 11119 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑀 Β· (volβ€˜π‘’)) ∈ ℝ)
202187rexrd 11139 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ ℝ*)
2033adantr 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ β„•)
204203nnnn0d 12407 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ β„•0)
205204nn0ge0d 12410 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 0 ≀ 𝑀)
206 elxrge0 13303 . . . . . . . . . . . . . 14 (𝑀 ∈ (0[,]+∞) ↔ (𝑀 ∈ ℝ* ∧ 0 ≀ 𝑀))
207202, 205, 206sylanbrc 584 . . . . . . . . . . . . 13 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ (0[,]+∞))
208 ifcl 4530 . . . . . . . . . . . . 13 ((𝑀 ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) β†’ if(π‘₯ ∈ 𝑒, 𝑀, 0) ∈ (0[,]+∞))
209207, 48, 208sylancl 587 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ if(π‘₯ ∈ 𝑒, 𝑀, 0) ∈ (0[,]+∞))
210209adantr 482 . . . . . . . . . . 11 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ ℝ) β†’ if(π‘₯ ∈ 𝑒, 𝑀, 0) ∈ (0[,]+∞))
211210fmpttd 7058 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)):β„βŸΆ(0[,]+∞))
212 eldifn 4086 . . . . . . . . . . . . . . . 16 (π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) β†’ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)))
213212adantl 483 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)))
214 difssd 4091 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) βŠ† 𝑒)
215214sselda 3943 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ π‘₯ ∈ 𝑒)
21634, 169syldan 592 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ 𝑒) β†’ (Β¬ (πΉβ€˜π‘₯) ≀ 𝑀 ↔ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
217215, 216syldan 592 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ (Β¬ (πΉβ€˜π‘₯) ≀ 𝑀 ↔ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞))))
218217con1bid 356 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ (Β¬ π‘₯ ∈ (◑𝐹 β€œ (𝑀(,)+∞)) ↔ (πΉβ€˜π‘₯) ≀ 𝑀))
219213, 218mpbid 231 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ (πΉβ€˜π‘₯) ≀ 𝑀)
220 iftrue 4491 . . . . . . . . . . . . . . 15 (π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = (πΉβ€˜π‘₯))
221220adantl 483 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = (πΉβ€˜π‘₯))
222215iftrued 4493 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ 𝑒, 𝑀, 0) = 𝑀)
223219, 221, 2223brtr4d 5136 . . . . . . . . . . . . 13 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
224 iffalse 4494 . . . . . . . . . . . . . . 15 (Β¬ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = 0)
225224adantl 483 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ Β¬ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) = 0)
226 0le0 12188 . . . . . . . . . . . . . . . 16 0 ≀ 0
227 breq2 5108 . . . . . . . . . . . . . . . . 17 (𝑀 = if(π‘₯ ∈ 𝑒, 𝑀, 0) β†’ (0 ≀ 𝑀 ↔ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
228 breq2 5108 . . . . . . . . . . . . . . . . 17 (0 = if(π‘₯ ∈ 𝑒, 𝑀, 0) β†’ (0 ≀ 0 ↔ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
229227, 228ifboth 4524 . . . . . . . . . . . . . . . 16 ((0 ≀ 𝑀 ∧ 0 ≀ 0) β†’ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
230205, 226, 229sylancl 587 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
231230adantr 482 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ Β¬ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ 0 ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
232225, 231eqbrtrd 5126 . . . . . . . . . . . . 13 (((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) ∧ Β¬ π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞)))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
233223, 232pm2.61dan 812 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
234233ralrimivw 3146 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0))
235 eqidd 2739 . . . . . . . . . . . 12 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)) = (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
23664, 74, 210, 81, 235ofrfval2 7629 . . . . . . . . . . 11 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)) ↔ βˆ€π‘₯ ∈ ℝ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0) ≀ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
237234, 236mpbird 257 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)))
238 itg2le 25026 . . . . . . . . . 10 (((π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)):β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0)):β„βŸΆ(0[,]+∞) ∧ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)) ∘r ≀ (π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))))
23975, 211, 237, 238syl3anc 1372 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))))
240 elrege0 13300 . . . . . . . . . . 11 (𝑀 ∈ (0[,)+∞) ↔ (𝑀 ∈ ℝ ∧ 0 ≀ 𝑀))
241187, 205, 240sylanbrc 584 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝑀 ∈ (0[,)+∞))
242 itg2const 25027 . . . . . . . . . 10 ((𝑒 ∈ dom vol ∧ (volβ€˜π‘’) ∈ ℝ ∧ 𝑀 ∈ (0[,)+∞)) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))) = (𝑀 Β· (volβ€˜π‘’)))
2436, 200, 241, 242syl3anc 1372 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, 𝑀, 0))) = (𝑀 Β· (volβ€˜π‘’)))
244239, 243breqtrd 5130 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) ≀ (𝑀 Β· (volβ€˜π‘’)))
245203nngt0d 12136 . . . . . . . . . 10 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 0 < 𝑀)
246 ltmuldiv2 11963 . . . . . . . . . 10 (((volβ€˜π‘’) ∈ ℝ ∧ (𝐢 / 2) ∈ ℝ ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀)) β†’ ((𝑀 Β· (volβ€˜π‘’)) < (𝐢 / 2) ↔ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀)))
247200, 91, 187, 245, 246syl112anc 1375 . . . . . . . . 9 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((𝑀 Β· (volβ€˜π‘’)) < (𝐢 / 2) ↔ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀)))
248195, 247mpbird 257 . . . . . . . 8 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (𝑀 Β· (volβ€˜π‘’)) < (𝐢 / 2))
24987, 201, 91, 244, 248lelttrd 11247 . . . . . . 7 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) < (𝐢 / 2))
25072, 87, 91, 91, 186, 249lt2addd 11712 . . . . . 6 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 ∩ (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0))) + (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ (𝑒 βˆ– (◑𝐹 β€œ (𝑀(,)+∞))), (πΉβ€˜π‘₯), 0)))) < ((𝐢 / 2) + (𝐢 / 2)))
25188, 250eqbrtrd 5126 . . . . 5 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < ((𝐢 / 2) + (𝐢 / 2)))
25289rpcnd 12888 . . . . . 6 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ 𝐢 ∈ β„‚)
2532522halvesd 12333 . . . . 5 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ ((𝐢 / 2) + (𝐢 / 2)) = 𝐢)
254251, 253breqtrd 5130 . . . 4 ((πœ‘ ∧ (𝑒 ∈ dom vol ∧ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀))) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢)
255254expr 458 . . 3 ((πœ‘ ∧ 𝑒 ∈ dom vol) β†’ ((volβ€˜π‘’) < ((𝐢 / 2) / 𝑀) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
256255ralrimiva 3142 . 2 (πœ‘ β†’ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < ((𝐢 / 2) / 𝑀) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
257 breq2 5108 . . 3 (𝑑 = ((𝐢 / 2) / 𝑀) β†’ ((volβ€˜π‘’) < 𝑑 ↔ (volβ€˜π‘’) < ((𝐢 / 2) / 𝑀)))
258257rspceaimv 3584 . 2 ((((𝐢 / 2) / 𝑀) ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < ((𝐢 / 2) / 𝑀) β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢)) β†’ βˆƒπ‘‘ ∈ ℝ+ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < 𝑑 β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
2595, 256, 258syl2anc 585 1 (πœ‘ β†’ βˆƒπ‘‘ ∈ ℝ+ βˆ€π‘’ ∈ dom vol((volβ€˜π‘’) < 𝑑 β†’ (∫2β€˜(π‘₯ ∈ ℝ ↦ if(π‘₯ ∈ 𝑒, (πΉβ€˜π‘₯), 0))) < 𝐢))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542   ∈ wcel 2107  βˆ€wral 3063  βˆƒwrex 3072  Vcvv 3444   βˆ– cdif 3906   βˆͺ cun 3907   ∩ cin 3908   βŠ† wss 3909  βˆ…c0 4281  ifcif 4485   class class class wbr 5104   ↦ cmpt 5187  β—‘ccnv 5630  dom cdm 5631   β€œ cima 5634   Fn wfn 6487  βŸΆwf 6488  β€˜cfv 6492  (class class class)co 7350   ∘r cofr 7607  β„cr 10984  0cc0 10985   + caddc 10988   Β· cmul 10990  +∞cpnf 11120  β„*cxr 11122   < clt 11123   ≀ cle 11124   βˆ’ cmin 11319   / cdiv 11746  β„•cn 12087  2c2 12142  β„+crp 12844  (,)cioo 13193  [,)cico 13195  [,]cicc 13196  vol*covol 24748  volcvol 24749  MblFncmbf 24900  βˆ«2citg2 24902
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2709  ax-rep 5241  ax-sep 5255  ax-nul 5262  ax-pow 5319  ax-pr 5383  ax-un 7663  ax-inf2 9511  ax-cnex 11041  ax-resscn 11042  ax-1cn 11043  ax-icn 11044  ax-addcl 11045  ax-addrcl 11046  ax-mulcl 11047  ax-mulrcl 11048  ax-mulcom 11049  ax-addass 11050  ax-mulass 11051  ax-distr 11052  ax-i2m1 11053  ax-1ne0 11054  ax-1rid 11055  ax-rnegex 11056  ax-rrecex 11057  ax-cnre 11058  ax-pre-lttri 11059  ax-pre-lttrn 11060  ax-pre-ltadd 11061  ax-pre-mulgt0 11062  ax-pre-sup 11063  ax-addf 11064
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3064  df-rex 3073  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-pss 3928  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4865  df-int 4907  df-iun 4955  df-disj 5070  df-br 5105  df-opab 5167  df-mpt 5188  df-tr 5222  df-id 5529  df-eprel 5535  df-po 5543  df-so 5544  df-fr 5586  df-se 5587  df-we 5588  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6250  df-ord 6317  df-on 6318  df-lim 6319  df-suc 6320  df-iota 6444  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7306  df-ov 7353  df-oprab 7354  df-mpo 7355  df-of 7608  df-ofr 7609  df-om 7794  df-1st 7912  df-2nd 7913  df-frecs 8180  df-wrecs 8211  df-recs 8285  df-rdg 8324  df-1o 8380  df-2o 8381  df-er 8582  df-map 8701  df-pm 8702  df-en 8818  df-dom 8819  df-sdom 8820  df-fin 8821  df-fi 9281  df-sup 9312  df-inf 9313  df-oi 9380  df-dju 9771  df-card 9809  df-pnf 11125  df-mnf 11126  df-xr 11127  df-ltxr 11128  df-le 11129  df-sub 11321  df-neg 11322  df-div 11747  df-nn 12088  df-2 12150  df-3 12151  df-n0 12348  df-z 12434  df-uz 12697  df-q 12803  df-rp 12845  df-xneg 12962  df-xadd 12963  df-xmul 12964  df-ioo 13197  df-ico 13199  df-icc 13200  df-fz 13354  df-fzo 13497  df-fl 13626  df-seq 13836  df-exp 13897  df-hash 14159  df-cj 14918  df-re 14919  df-im 14920  df-sqrt 15054  df-abs 15055  df-clim 15305  df-sum 15506  df-rest 17239  df-topgen 17260  df-psmet 20711  df-xmet 20712  df-met 20713  df-bl 20714  df-mopn 20715  df-top 22165  df-topon 22182  df-bases 22218  df-cmp 22660  df-ovol 24750  df-vol 24751  df-mbf 24905  df-itg1 24906  df-itg2 24907  df-0p 24956
This theorem is referenced by:  itg2cn  25050
  Copyright terms: Public domain W3C validator