Step | Hyp | Ref
| Expression |
1 | | ioof 13420 |
. . . . 5
β’
(,):(β* Γ β*)βΆπ«
β |
2 | | uniioombl.1 |
. . . . . 6
β’ (π β πΉ:ββΆ( β€ β© (β
Γ β))) |
3 | | inss2 4228 |
. . . . . . 7
β’ ( β€
β© (β Γ β)) β (β Γ
β) |
4 | | rexpssxrxp 11255 |
. . . . . . 7
β’ (β
Γ β) β (β* Γ
β*) |
5 | 3, 4 | sstri 3990 |
. . . . . 6
β’ ( β€
β© (β Γ β)) β (β* Γ
β*) |
6 | | fss 6731 |
. . . . . 6
β’ ((πΉ:ββΆ( β€ β©
(β Γ β)) β§ ( β€ β© (β Γ β))
β (β* Γ β*)) β πΉ:ββΆ(β* Γ
β*)) |
7 | 2, 5, 6 | sylancl 587 |
. . . . 5
β’ (π β πΉ:ββΆ(β* Γ
β*)) |
8 | | fco 6738 |
. . . . 5
β’
(((,):(β* Γ β*)βΆπ«
β β§ πΉ:ββΆ(β* Γ
β*)) β ((,) β πΉ):ββΆπ«
β) |
9 | 1, 7, 8 | sylancr 588 |
. . . 4
β’ (π β ((,) β πΉ):ββΆπ«
β) |
10 | 9 | frnd 6722 |
. . 3
β’ (π β ran ((,) β πΉ) β π«
β) |
11 | | sspwuni 5102 |
. . 3
β’ (ran ((,)
β πΉ) β
π« β β βͺ ran ((,) β πΉ) β
β) |
12 | 10, 11 | sylib 217 |
. 2
β’ (π β βͺ ran ((,) β πΉ) β β) |
13 | | elpwi 4608 |
. . . . . . . . . 10
β’ (π§ β π« β β
π§ β
β) |
14 | 13 | ad2antrl 727 |
. . . . . . . . 9
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β π§ β
β) |
15 | | simprr 772 |
. . . . . . . . 9
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β (vol*βπ§) β β) |
16 | | rphalfcl 12997 |
. . . . . . . . . 10
β’ (π β β+
β (π / 2) β
β+) |
17 | 16 | rphalfcld 13024 |
. . . . . . . . 9
β’ (π β β+
β ((π / 2) / 2) β
β+) |
18 | | eqid 2733 |
. . . . . . . . . 10
β’ seq1( + ,
((abs β β ) β π)) = seq1( + , ((abs β β )
β π)) |
19 | 18 | ovolgelb 24979 |
. . . . . . . . 9
β’ ((π§ β β β§
(vol*βπ§) β
β β§ ((π / 2) / 2)
β β+) β βπ β (( β€ β© (β Γ
β)) βm β)(π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2)))) |
20 | 14, 15, 17, 19 | syl2an3an 1423 |
. . . . . . . 8
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β βπ β (( β€ β© (β Γ
β)) βm β)(π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2)))) |
21 | 2 | ad3antrrr 729 |
. . . . . . . . 9
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β πΉ:ββΆ( β€ β©
(β Γ β))) |
22 | | uniioombl.2 |
. . . . . . . . . 10
β’ (π β Disj π₯ β β
((,)β(πΉβπ₯))) |
23 | 22 | ad3antrrr 729 |
. . . . . . . . 9
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β
Disj π₯ β
β ((,)β(πΉβπ₯))) |
24 | | uniioombl.3 |
. . . . . . . . 9
β’ π = seq1( + , ((abs β
β ) β πΉ)) |
25 | | eqid 2733 |
. . . . . . . . 9
β’ βͺ ran ((,) β πΉ) = βͺ ran ((,)
β πΉ) |
26 | 15 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β (vol*βπ§) β β) |
27 | 26 | adantr 482 |
. . . . . . . . 9
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β
(vol*βπ§) β
β) |
28 | 16 | adantl 483 |
. . . . . . . . . . 11
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β (π / 2) β
β+) |
29 | 28 | adantr 482 |
. . . . . . . . . 10
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β (π / 2) β
β+) |
30 | 29 | rphalfcld 13024 |
. . . . . . . . 9
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β ((π / 2) / 2) β
β+) |
31 | | elmapi 8839 |
. . . . . . . . . 10
β’ (π β (( β€ β© (β
Γ β)) βm β) β π:ββΆ( β€ β© (β Γ
β))) |
32 | 31 | ad2antrl 727 |
. . . . . . . . 9
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β π:ββΆ( β€ β©
(β Γ β))) |
33 | | simprrl 780 |
. . . . . . . . 9
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β π§ β βͺ ran ((,) β π)) |
34 | | simprrr 781 |
. . . . . . . . 9
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β sup(ran
seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))) |
35 | 21, 23, 24, 25, 27, 30, 32, 33, 18, 34 | uniioombllem6 25087 |
. . . . . . . 8
β’ ((((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β§ (π β (( β€ β© (β Γ
β)) βm β) β§ (π§ β βͺ ran
((,) β π) β§
sup(ran seq1( + , ((abs β β ) β π)), β*, < ) β€
((vol*βπ§) + ((π / 2) / 2))))) β
((vol*β(π§ β© βͺ ran ((,) β πΉ))) + (vol*β(π§ β βͺ ran
((,) β πΉ)))) β€
((vol*βπ§) + (4
Β· ((π / 2) /
2)))) |
36 | 20, 35 | rexlimddv 3162 |
. . . . . . 7
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β ((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β€ ((vol*βπ§) + (4 Β· ((π / 2) / 2)))) |
37 | | rpcn 12980 |
. . . . . . . . . . . . 13
β’ (π β β+
β π β
β) |
38 | 37 | adantl 483 |
. . . . . . . . . . . 12
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β π β β) |
39 | | 2cnd 12286 |
. . . . . . . . . . . 12
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β 2 β β) |
40 | | 2ne0 12312 |
. . . . . . . . . . . . 13
β’ 2 β
0 |
41 | 40 | a1i 11 |
. . . . . . . . . . . 12
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β 2 β 0) |
42 | 38, 39, 39, 41, 41 | divdiv1d 12017 |
. . . . . . . . . . 11
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β ((π / 2) / 2) = (π / (2 Β· 2))) |
43 | | 2t2e4 12372 |
. . . . . . . . . . . 12
β’ (2
Β· 2) = 4 |
44 | 43 | oveq2i 7415 |
. . . . . . . . . . 11
β’ (π / (2 Β· 2)) = (π / 4) |
45 | 42, 44 | eqtrdi 2789 |
. . . . . . . . . 10
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β ((π / 2) / 2) = (π / 4)) |
46 | 45 | oveq2d 7420 |
. . . . . . . . 9
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β (4 Β· ((π / 2) / 2)) = (4 Β· (π / 4))) |
47 | | 4cn 12293 |
. . . . . . . . . . 11
β’ 4 β
β |
48 | 47 | a1i 11 |
. . . . . . . . . 10
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β 4 β β) |
49 | | 4ne0 12316 |
. . . . . . . . . . 11
β’ 4 β
0 |
50 | 49 | a1i 11 |
. . . . . . . . . 10
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β 4 β 0) |
51 | 38, 48, 50 | divcan2d 11988 |
. . . . . . . . 9
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β (4 Β· (π / 4)) = π) |
52 | 46, 51 | eqtrd 2773 |
. . . . . . . 8
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β (4 Β· ((π / 2) / 2)) = π) |
53 | 52 | oveq2d 7420 |
. . . . . . 7
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β ((vol*βπ§) + (4 Β· ((π / 2) / 2))) = ((vol*βπ§) + π)) |
54 | 36, 53 | breqtrd 5173 |
. . . . . 6
β’ (((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β§ π β
β+) β ((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β€ ((vol*βπ§) + π)) |
55 | 54 | ralrimiva 3147 |
. . . . 5
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β βπ
β β+ ((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β€ ((vol*βπ§) + π)) |
56 | | inss1 4227 |
. . . . . . . . 9
β’ (π§ β© βͺ ran ((,) β πΉ)) β π§ |
57 | 56 | a1i 11 |
. . . . . . . 8
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β (π§ β©
βͺ ran ((,) β πΉ)) β π§) |
58 | | ovolsscl 24985 |
. . . . . . . 8
β’ (((π§ β© βͺ ran ((,) β πΉ)) β π§ β§ π§ β β β§ (vol*βπ§) β β) β
(vol*β(π§ β© βͺ ran ((,) β πΉ))) β β) |
59 | 57, 14, 15, 58 | syl3anc 1372 |
. . . . . . 7
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β (vol*β(π§ β© βͺ ran ((,)
β πΉ))) β
β) |
60 | | difssd 4131 |
. . . . . . . 8
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β (π§ β
βͺ ran ((,) β πΉ)) β π§) |
61 | | ovolsscl 24985 |
. . . . . . . 8
β’ (((π§ β βͺ ran ((,) β πΉ)) β π§ β§ π§ β β β§ (vol*βπ§) β β) β
(vol*β(π§ β
βͺ ran ((,) β πΉ))) β β) |
62 | 60, 14, 15, 61 | syl3anc 1372 |
. . . . . . 7
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β (vol*β(π§ β βͺ ran
((,) β πΉ))) β
β) |
63 | 59, 62 | readdcld 11239 |
. . . . . 6
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β ((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β β) |
64 | | alrple 13181 |
. . . . . 6
β’
((((vol*β(π§
β© βͺ ran ((,) β πΉ))) + (vol*β(π§ β βͺ ran
((,) β πΉ)))) β
β β§ (vol*βπ§) β β) β (((vol*β(π§ β© βͺ ran ((,) β πΉ))) + (vol*β(π§ β βͺ ran
((,) β πΉ)))) β€
(vol*βπ§) β
βπ β
β+ ((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β€ ((vol*βπ§) + π))) |
65 | 63, 15, 64 | syl2anc 585 |
. . . . 5
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β (((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β€ (vol*βπ§) β βπ β β+
((vol*β(π§ β© βͺ ran ((,) β πΉ))) + (vol*β(π§ β βͺ ran
((,) β πΉ)))) β€
((vol*βπ§) + π))) |
66 | 55, 65 | mpbird 257 |
. . . 4
β’ ((π β§ (π§ β π« β β§
(vol*βπ§) β
β)) β ((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β€ (vol*βπ§)) |
67 | 66 | expr 458 |
. . 3
β’ ((π β§ π§ β π« β) β
((vol*βπ§) β
β β ((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β€ (vol*βπ§))) |
68 | 67 | ralrimiva 3147 |
. 2
β’ (π β βπ§ β π« β((vol*βπ§) β β β
((vol*β(π§ β© βͺ ran ((,) β πΉ))) + (vol*β(π§ β βͺ ran
((,) β πΉ)))) β€
(vol*βπ§))) |
69 | | ismbl2 25026 |
. 2
β’ (βͺ ran ((,) β πΉ) β dom vol β (βͺ ran ((,) β πΉ) β β β§ βπ§ β π«
β((vol*βπ§)
β β β ((vol*β(π§ β© βͺ ran ((,)
β πΉ))) +
(vol*β(π§ β
βͺ ran ((,) β πΉ)))) β€ (vol*βπ§)))) |
70 | 12, 68, 69 | sylanbrc 584 |
1
β’ (π β βͺ ran ((,) β πΉ) β dom vol) |