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

Theorem itg2const2 25777
Description: When the base set of a constant function has infinite volume, the integral is also infinite and vice-versa. (Contributed by Mario Carneiro, 30-Aug-2014.)
Assertion
Ref Expression
itg2const2 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → ((vol‘𝐴) ∈ ℝ ↔ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵

Proof of Theorem itg2const2
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 simpll 766 . . . 4 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (vol‘𝐴) ∈ ℝ) → 𝐴 ∈ dom vol)
2 simpr 484 . . . 4 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (vol‘𝐴) ∈ ℝ) → (vol‘𝐴) ∈ ℝ)
3 rpre 13044 . . . . . 6 (𝐵 ∈ ℝ+𝐵 ∈ ℝ)
43ad2antlr 727 . . . . 5 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (vol‘𝐴) ∈ ℝ) → 𝐵 ∈ ℝ)
5 rpge0 13049 . . . . . 6 (𝐵 ∈ ℝ+ → 0 ≤ 𝐵)
65ad2antlr 727 . . . . 5 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (vol‘𝐴) ∈ ℝ) → 0 ≤ 𝐵)
7 elrege0 13495 . . . . 5 (𝐵 ∈ (0[,)+∞) ↔ (𝐵 ∈ ℝ ∧ 0 ≤ 𝐵))
84, 6, 7sylanbrc 583 . . . 4 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (vol‘𝐴) ∈ ℝ) → 𝐵 ∈ (0[,)+∞))
9 itg2const 25776 . . . 4 ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ (0[,)+∞)) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) = (𝐵 · (vol‘𝐴)))
101, 2, 8, 9syl3anc 1372 . . 3 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (vol‘𝐴) ∈ ℝ) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) = (𝐵 · (vol‘𝐴)))
114, 2remulcld 11292 . . 3 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (vol‘𝐴) ∈ ℝ) → (𝐵 · (vol‘𝐴)) ∈ ℝ)
1210, 11eqeltrd 2840 . 2 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (vol‘𝐴) ∈ ℝ) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ)
13 mblvol 25566 . . . 4 (𝐴 ∈ dom vol → (vol‘𝐴) = (vol*‘𝐴))
1413ad2antrr 726 . . 3 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (vol‘𝐴) = (vol*‘𝐴))
15 mblss 25567 . . . . . 6 (𝐴 ∈ dom vol → 𝐴 ⊆ ℝ)
1615ad3antrrr 730 . . . . 5 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (vol*‘𝐴) ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)) → 𝐴 ⊆ ℝ)
17 peano2re 11435 . . . . . . . 8 ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ → ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ∈ ℝ)
1817adantl 481 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ∈ ℝ)
19 simplr 768 . . . . . . 7 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → 𝐵 ∈ ℝ+)
2018, 19rerpdivcld 13109 . . . . . 6 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ)
2120adantr 480 . . . . 5 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (vol*‘𝐴) ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ)
22 simpr 484 . . . . 5 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (vol*‘𝐴) ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)) → (vol*‘𝐴) ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵))
23 ovollecl 25519 . . . . 5 ((𝐴 ⊆ ℝ ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ ∧ (vol*‘𝐴) ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)) → (vol*‘𝐴) ∈ ℝ)
2416, 21, 22, 23syl3anc 1372 . . . 4 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (vol*‘𝐴) ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)) → (vol*‘𝐴) ∈ ℝ)
25 simplll 774 . . . . . . . 8 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → 𝐴 ∈ dom vol)
2620adantr 480 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ)
2726rexrd 11312 . . . . . . . . 9 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ*)
28 simpr 484 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ)
293ad2antlr 727 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → 𝐵 ∈ ℝ)
3029rexrd 11312 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → 𝐵 ∈ ℝ*)
315ad2antlr 727 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → 0 ≤ 𝐵)
32 elxrge0 13498 . . . . . . . . . . . . . . . . . 18 (𝐵 ∈ (0[,]+∞) ↔ (𝐵 ∈ ℝ* ∧ 0 ≤ 𝐵))
3330, 31, 32sylanbrc 583 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → 𝐵 ∈ (0[,]+∞))
34 0e0iccpnf 13500 . . . . . . . . . . . . . . . . 17 0 ∈ (0[,]+∞)
35 ifcl 4570 . . . . . . . . . . . . . . . . 17 ((𝐵 ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) → if(𝑥𝐴, 𝐵, 0) ∈ (0[,]+∞))
3633, 34, 35sylancl 586 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → if(𝑥𝐴, 𝐵, 0) ∈ (0[,]+∞))
3736fmpttd 7134 . . . . . . . . . . . . . . 15 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)):ℝ⟶(0[,]+∞))
3837adantr 480 . . . . . . . . . . . . . 14 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)):ℝ⟶(0[,]+∞))
39 itg2ge0 25771 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)):ℝ⟶(0[,]+∞) → 0 ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))))
4038, 39syl 17 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → 0 ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))))
4128, 40ge0p1rpd 13108 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ∈ ℝ+)
4241, 19rpdivcld 13095 . . . . . . . . . . 11 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ+)
4342rpge0d 13082 . . . . . . . . . 10 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → 0 ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵))
4443adantr 480 . . . . . . . . 9 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → 0 ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵))
4514breq2d 5154 . . . . . . . . . 10 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → ((((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol‘𝐴) ↔ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)))
4645biimpar 477 . . . . . . . . 9 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol‘𝐴))
47 0xr 11309 . . . . . . . . . 10 0 ∈ ℝ*
48 iccssxr 13471 . . . . . . . . . . . 12 (0[,]+∞) ⊆ ℝ*
49 volf 25565 . . . . . . . . . . . . 13 vol:dom vol⟶(0[,]+∞)
5049ffvelcdmi 7102 . . . . . . . . . . . 12 (𝐴 ∈ dom vol → (vol‘𝐴) ∈ (0[,]+∞))
5148, 50sselid 3980 . . . . . . . . . . 11 (𝐴 ∈ dom vol → (vol‘𝐴) ∈ ℝ*)
5225, 51syl 17 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → (vol‘𝐴) ∈ ℝ*)
53 elicc1 13432 . . . . . . . . . 10 ((0 ∈ ℝ* ∧ (vol‘𝐴) ∈ ℝ*) → ((((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ (0[,](vol‘𝐴)) ↔ ((((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ* ∧ 0 ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol‘𝐴))))
5447, 52, 53sylancr 587 . . . . . . . . 9 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → ((((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ (0[,](vol‘𝐴)) ↔ ((((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ* ∧ 0 ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol‘𝐴))))
5527, 44, 46, 54mpbir3and 1342 . . . . . . . 8 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ (0[,](vol‘𝐴)))
56 volivth 25643 . . . . . . . 8 ((𝐴 ∈ dom vol ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ (0[,](vol‘𝐴))) → ∃𝑧 ∈ dom vol(𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))
5725, 55, 56syl2anc 584 . . . . . . 7 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → ∃𝑧 ∈ dom vol(𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))
5857ex 412 . . . . . 6 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → ((((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴) → ∃𝑧 ∈ dom vol(𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵))))
59 simprl 770 . . . . . . . . . . 11 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → 𝑧 ∈ dom vol)
60 simprrr 781 . . . . . . . . . . . 12 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵))
6120adantr 480 . . . . . . . . . . . 12 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ)
6260, 61eqeltrd 2840 . . . . . . . . . . 11 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (vol‘𝑧) ∈ ℝ)
633ad2antlr 727 . . . . . . . . . . . . 13 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → 𝐵 ∈ ℝ)
6463adantr 480 . . . . . . . . . . . 12 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → 𝐵 ∈ ℝ)
6519adantr 480 . . . . . . . . . . . . 13 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → 𝐵 ∈ ℝ+)
6665rpge0d 13082 . . . . . . . . . . . 12 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → 0 ≤ 𝐵)
6764, 66, 7sylanbrc 583 . . . . . . . . . . 11 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → 𝐵 ∈ (0[,)+∞))
68 itg2const 25776 . . . . . . . . . . 11 ((𝑧 ∈ dom vol ∧ (vol‘𝑧) ∈ ℝ ∧ 𝐵 ∈ (0[,)+∞)) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0))) = (𝐵 · (vol‘𝑧)))
6959, 62, 67, 68syl3anc 1372 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0))) = (𝐵 · (vol‘𝑧)))
7060oveq2d 7448 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (𝐵 · (vol‘𝑧)) = (𝐵 · (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))
7118recnd 11290 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ∈ ℂ)
7263recnd 11290 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → 𝐵 ∈ ℂ)
73 rpne0 13052 . . . . . . . . . . . . 13 (𝐵 ∈ ℝ+𝐵 ≠ 0)
7473ad2antlr 727 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → 𝐵 ≠ 0)
7571, 72, 74divcan2d 12046 . . . . . . . . . . 11 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (𝐵 · (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)) = ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1))
7675adantr 480 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (𝐵 · (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)) = ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1))
7769, 70, 763eqtrd 2780 . . . . . . . . 9 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0))) = ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1))
783adantl 481 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → 𝐵 ∈ ℝ)
7978rexrd 11312 . . . . . . . . . . . . . . 15 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → 𝐵 ∈ ℝ*)
805adantl 481 . . . . . . . . . . . . . . 15 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → 0 ≤ 𝐵)
8179, 80, 32sylanbrc 583 . . . . . . . . . . . . . 14 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → 𝐵 ∈ (0[,]+∞))
82 ifcl 4570 . . . . . . . . . . . . . 14 ((𝐵 ∈ (0[,]+∞) ∧ 0 ∈ (0[,]+∞)) → if(𝑥𝑧, 𝐵, 0) ∈ (0[,]+∞))
8381, 34, 82sylancl 586 . . . . . . . . . . . . 13 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → if(𝑥𝑧, 𝐵, 0) ∈ (0[,]+∞))
8483adantr 480 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑥 ∈ ℝ) → if(𝑥𝑧, 𝐵, 0) ∈ (0[,]+∞))
8584fmpttd 7134 . . . . . . . . . . 11 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → (𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)):ℝ⟶(0[,]+∞))
8685ad2antrr 726 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)):ℝ⟶(0[,]+∞))
8738adantr 480 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)):ℝ⟶(0[,]+∞))
88 simpl 482 . . . . . . . . . . 11 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+))
89 simprl 770 . . . . . . . . . . 11 ((𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵))) → 𝑧𝐴)
9078ad3antrrr 730 . . . . . . . . . . . . . . . 16 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ 𝑥𝑧) → 𝐵 ∈ ℝ)
9190leidd 11830 . . . . . . . . . . . . . . 15 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ 𝑥𝑧) → 𝐵𝐵)
92 iftrue 4530 . . . . . . . . . . . . . . . 16 (𝑥𝑧 → if(𝑥𝑧, 𝐵, 0) = 𝐵)
9392adantl 481 . . . . . . . . . . . . . . 15 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ 𝑥𝑧) → if(𝑥𝑧, 𝐵, 0) = 𝐵)
94 simplr 768 . . . . . . . . . . . . . . . . 17 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) → 𝑧𝐴)
9594sselda 3982 . . . . . . . . . . . . . . . 16 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ 𝑥𝑧) → 𝑥𝐴)
9695iftrued 4532 . . . . . . . . . . . . . . 15 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ 𝑥𝑧) → if(𝑥𝐴, 𝐵, 0) = 𝐵)
9791, 93, 963brtr4d 5174 . . . . . . . . . . . . . 14 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ 𝑥𝑧) → if(𝑥𝑧, 𝐵, 0) ≤ if(𝑥𝐴, 𝐵, 0))
98 iffalse 4533 . . . . . . . . . . . . . . . 16 𝑥𝑧 → if(𝑥𝑧, 𝐵, 0) = 0)
9998adantl 481 . . . . . . . . . . . . . . 15 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ ¬ 𝑥𝑧) → if(𝑥𝑧, 𝐵, 0) = 0)
100 0le0 12368 . . . . . . . . . . . . . . . . 17 0 ≤ 0
101 breq2 5146 . . . . . . . . . . . . . . . . . 18 (𝐵 = if(𝑥𝐴, 𝐵, 0) → (0 ≤ 𝐵 ↔ 0 ≤ if(𝑥𝐴, 𝐵, 0)))
102 breq2 5146 . . . . . . . . . . . . . . . . . 18 (0 = if(𝑥𝐴, 𝐵, 0) → (0 ≤ 0 ↔ 0 ≤ if(𝑥𝐴, 𝐵, 0)))
103101, 102ifboth 4564 . . . . . . . . . . . . . . . . 17 ((0 ≤ 𝐵 ∧ 0 ≤ 0) → 0 ≤ if(𝑥𝐴, 𝐵, 0))
10480, 100, 103sylancl 586 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → 0 ≤ if(𝑥𝐴, 𝐵, 0))
105104ad3antrrr 730 . . . . . . . . . . . . . . 15 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ ¬ 𝑥𝑧) → 0 ≤ if(𝑥𝐴, 𝐵, 0))
10699, 105eqbrtrd 5164 . . . . . . . . . . . . . 14 (((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) ∧ ¬ 𝑥𝑧) → if(𝑥𝑧, 𝐵, 0) ≤ if(𝑥𝐴, 𝐵, 0))
10797, 106pm2.61dan 812 . . . . . . . . . . . . 13 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) ∧ 𝑥 ∈ ℝ) → if(𝑥𝑧, 𝐵, 0) ≤ if(𝑥𝐴, 𝐵, 0))
108107ralrimiva 3145 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) → ∀𝑥 ∈ ℝ if(𝑥𝑧, 𝐵, 0) ≤ if(𝑥𝐴, 𝐵, 0))
109 reex 11247 . . . . . . . . . . . . . . 15 ℝ ∈ V
110109a1i 11 . . . . . . . . . . . . . 14 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → ℝ ∈ V)
111 eqidd 2737 . . . . . . . . . . . . . 14 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → (𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)))
112 eqidd 2737 . . . . . . . . . . . . . 14 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)))
113110, 84, 36, 111, 112ofrfval2 7719 . . . . . . . . . . . . 13 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → ((𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)) ∘r ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)) ↔ ∀𝑥 ∈ ℝ if(𝑥𝑧, 𝐵, 0) ≤ if(𝑥𝐴, 𝐵, 0)))
114113biimpar 477 . . . . . . . . . . . 12 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ ∀𝑥 ∈ ℝ if(𝑥𝑧, 𝐵, 0) ≤ if(𝑥𝐴, 𝐵, 0)) → (𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)) ∘r ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)))
115108, 114syldan 591 . . . . . . . . . . 11 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ 𝑧𝐴) → (𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)) ∘r ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)))
11688, 89, 115syl2an 596 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)) ∘r ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)))
117 itg2le 25775 . . . . . . . . . 10 (((𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0)) ∘r ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))))
11886, 87, 116, 117syl3anc 1372 . . . . . . . . 9 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝑧, 𝐵, 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))))
11977, 118eqbrtrrd 5166 . . . . . . . 8 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))))
120 ltp1 12108 . . . . . . . . . 10 ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) < ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1))
121120ad2antlr 727 . . . . . . . . 9 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) < ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1))
122 simplr 768 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ)
12317ad2antlr 727 . . . . . . . . . 10 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ∈ ℝ)
124122, 123ltnled 11409 . . . . . . . . 9 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) < ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ↔ ¬ ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0)))))
125121, 124mpbid 232 . . . . . . . 8 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → ¬ ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))))
126119, 125pm2.21dd 195 . . . . . . 7 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (𝑧 ∈ dom vol ∧ (𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)))) → (vol*‘𝐴) ∈ ℝ)
127126rexlimdvaa 3155 . . . . . 6 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (∃𝑧 ∈ dom vol(𝑧𝐴 ∧ (vol‘𝑧) = (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵)) → (vol*‘𝐴) ∈ ℝ))
12858, 127syld 47 . . . . 5 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → ((((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴) → (vol*‘𝐴) ∈ ℝ))
129128imp 406 . . . 4 ((((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)) → (vol*‘𝐴) ∈ ℝ)
13051ad2antrr 726 . . . . . 6 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (vol‘𝐴) ∈ ℝ*)
13114, 130eqeltrrd 2841 . . . . 5 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (vol*‘𝐴) ∈ ℝ*)
13220rexrd 11312 . . . . 5 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ*)
133 xrletri 13196 . . . . 5 (((vol*‘𝐴) ∈ ℝ* ∧ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∈ ℝ*) → ((vol*‘𝐴) ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∨ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)))
134131, 132, 133syl2anc 584 . . . 4 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → ((vol*‘𝐴) ≤ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ∨ (((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) + 1) / 𝐵) ≤ (vol*‘𝐴)))
13524, 129, 134mpjaodan 960 . . 3 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (vol*‘𝐴) ∈ ℝ)
13614, 135eqeltrd 2840 . 2 (((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ) → (vol‘𝐴) ∈ ℝ)
13712, 136impbida 800 1 ((𝐴 ∈ dom vol ∧ 𝐵 ∈ ℝ+) → ((vol‘𝐴) ∈ ℝ ↔ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, 𝐵, 0))) ∈ ℝ))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 847  w3a 1086   = wceq 1539  wcel 2107  wne 2939  wral 3060  wrex 3069  Vcvv 3479  wss 3950  ifcif 4524   class class class wbr 5142  cmpt 5224  dom cdm 5684  wf 6556  cfv 6560  (class class class)co 7432  r cofr 7697  cr 11155  0cc0 11156  1c1 11157   + caddc 11159   · cmul 11161  +∞cpnf 11293  *cxr 11295   < clt 11296  cle 11297   / cdiv 11921  +crp 13035  [,)cico 13390  [,]cicc 13391  vol*covol 25498  volcvol 25499  2citg2 25652
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2707  ax-rep 5278  ax-sep 5295  ax-nul 5305  ax-pow 5364  ax-pr 5431  ax-un 7756  ax-inf2 9682  ax-cc 10476  ax-cnex 11212  ax-resscn 11213  ax-1cn 11214  ax-icn 11215  ax-addcl 11216  ax-addrcl 11217  ax-mulcl 11218  ax-mulrcl 11219  ax-mulcom 11220  ax-addass 11221  ax-mulass 11222  ax-distr 11223  ax-i2m1 11224  ax-1ne0 11225  ax-1rid 11226  ax-rnegex 11227  ax-rrecex 11228  ax-cnre 11229  ax-pre-lttri 11230  ax-pre-lttrn 11231  ax-pre-ltadd 11232  ax-pre-mulgt0 11233  ax-pre-sup 11234  ax-addf 11235
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2728  df-clel 2815  df-nfc 2891  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3379  df-reu 3380  df-rab 3436  df-v 3481  df-sbc 3788  df-csb 3899  df-dif 3953  df-un 3955  df-in 3957  df-ss 3967  df-pss 3970  df-nul 4333  df-if 4525  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4907  df-int 4946  df-iun 4992  df-disj 5110  df-br 5143  df-opab 5205  df-mpt 5225  df-tr 5259  df-id 5577  df-eprel 5583  df-po 5591  df-so 5592  df-fr 5636  df-se 5637  df-we 5638  df-xp 5690  df-rel 5691  df-cnv 5692  df-co 5693  df-dm 5694  df-rn 5695  df-res 5696  df-ima 5697  df-pred 6320  df-ord 6386  df-on 6387  df-lim 6388  df-suc 6389  df-iota 6513  df-fun 6562  df-fn 6563  df-f 6564  df-f1 6565  df-fo 6566  df-f1o 6567  df-fv 6568  df-isom 6569  df-riota 7389  df-ov 7435  df-oprab 7436  df-mpo 7437  df-of 7698  df-ofr 7699  df-om 7889  df-1st 8015  df-2nd 8016  df-frecs 8307  df-wrecs 8338  df-recs 8412  df-rdg 8451  df-1o 8507  df-2o 8508  df-er 8746  df-map 8869  df-pm 8870  df-en 8987  df-dom 8988  df-sdom 8989  df-fin 8990  df-fi 9452  df-sup 9483  df-inf 9484  df-oi 9551  df-dju 9942  df-card 9980  df-pnf 11298  df-mnf 11299  df-xr 11300  df-ltxr 11301  df-le 11302  df-sub 11495  df-neg 11496  df-div 11922  df-nn 12268  df-2 12330  df-3 12331  df-n0 12529  df-z 12616  df-uz 12880  df-q 12992  df-rp 13036  df-xneg 13155  df-xadd 13156  df-xmul 13157  df-ioo 13392  df-ico 13394  df-icc 13395  df-fz 13549  df-fzo 13696  df-fl 13833  df-seq 14044  df-exp 14104  df-hash 14371  df-cj 15139  df-re 15140  df-im 15141  df-sqrt 15275  df-abs 15276  df-clim 15525  df-rlim 15526  df-sum 15724  df-rest 17468  df-topgen 17489  df-psmet 21357  df-xmet 21358  df-met 21359  df-bl 21360  df-mopn 21361  df-top 22901  df-topon 22918  df-bases 22954  df-cmp 23396  df-cncf 24905  df-ovol 25500  df-vol 25501  df-mbf 25655  df-itg1 25656  df-itg2 25657  df-0p 25706
This theorem is referenced by:  itg2gt0  25796
  Copyright terms: Public domain W3C validator