Step | Hyp | Ref
| Expression |
1 | | nnre 12215 |
. . . . . . . . . . . 12
β’ (π β β β π β
β) |
2 | 1 | ad2antlr 725 |
. . . . . . . . . . 11
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ (β«2βπΉ) = +β) β π β β) |
3 | 2 | ltpnfd 13097 |
. . . . . . . . . 10
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ (β«2βπΉ) = +β) β π < +β) |
4 | | iftrue 4533 |
. . . . . . . . . . 11
β’
((β«2βπΉ) = +β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) = π) |
5 | 4 | adantl 482 |
. . . . . . . . . 10
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ (β«2βπΉ) = +β) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) = π) |
6 | | simpr 485 |
. . . . . . . . . 10
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ (β«2βπΉ) = +β) β
(β«2βπΉ)
= +β) |
7 | 3, 5, 6 | 3brtr4d 5179 |
. . . . . . . . 9
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ (β«2βπΉ) = +β) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«2βπΉ)) |
8 | | iffalse 4536 |
. . . . . . . . . . 11
β’ (Β¬
(β«2βπΉ)
= +β β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) = ((β«2βπΉ) β (1 / π))) |
9 | 8 | adantl 482 |
. . . . . . . . . 10
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ Β¬ (β«2βπΉ) = +β) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) = ((β«2βπΉ) β (1 / π))) |
10 | | itg2cl 25241 |
. . . . . . . . . . . . . . 15
β’ (πΉ:ββΆ(0[,]+β)
β (β«2βπΉ) β
β*) |
11 | | xrrebnd 13143 |
. . . . . . . . . . . . . . 15
β’
((β«2βπΉ) β β* β
((β«2βπΉ) β β β (-β <
(β«2βπΉ)
β§ (β«2βπΉ) < +β))) |
12 | 10, 11 | syl 17 |
. . . . . . . . . . . . . 14
β’ (πΉ:ββΆ(0[,]+β)
β ((β«2βπΉ) β β β (-β <
(β«2βπΉ)
β§ (β«2βπΉ) < +β))) |
13 | | itg2ge0 25244 |
. . . . . . . . . . . . . . . 16
β’ (πΉ:ββΆ(0[,]+β)
β 0 β€ (β«2βπΉ)) |
14 | | mnflt0 13101 |
. . . . . . . . . . . . . . . . 17
β’ -β
< 0 |
15 | | mnfxr 11267 |
. . . . . . . . . . . . . . . . . 18
β’ -β
β β* |
16 | | 0xr 11257 |
. . . . . . . . . . . . . . . . . 18
β’ 0 β
β* |
17 | | xrltletr 13132 |
. . . . . . . . . . . . . . . . . 18
β’
((-β β β* β§ 0 β β*
β§ (β«2βπΉ) β β*) β
((-β < 0 β§ 0 β€ (β«2βπΉ)) β -β <
(β«2βπΉ))) |
18 | 15, 16, 10, 17 | mp3an12i 1465 |
. . . . . . . . . . . . . . . . 17
β’ (πΉ:ββΆ(0[,]+β)
β ((-β < 0 β§ 0 β€ (β«2βπΉ)) β -β <
(β«2βπΉ))) |
19 | 14, 18 | mpani 694 |
. . . . . . . . . . . . . . . 16
β’ (πΉ:ββΆ(0[,]+β)
β (0 β€ (β«2βπΉ) β -β <
(β«2βπΉ))) |
20 | 13, 19 | mpd 15 |
. . . . . . . . . . . . . . 15
β’ (πΉ:ββΆ(0[,]+β)
β -β < (β«2βπΉ)) |
21 | 20 | biantrurd 533 |
. . . . . . . . . . . . . 14
β’ (πΉ:ββΆ(0[,]+β)
β ((β«2βπΉ) < +β β (-β <
(β«2βπΉ)
β§ (β«2βπΉ) < +β))) |
22 | | nltpnft 13139 |
. . . . . . . . . . . . . . . 16
β’
((β«2βπΉ) β β* β
((β«2βπΉ) = +β β Β¬
(β«2βπΉ)
< +β)) |
23 | 10, 22 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (πΉ:ββΆ(0[,]+β)
β ((β«2βπΉ) = +β β Β¬
(β«2βπΉ)
< +β)) |
24 | 23 | con2bid 354 |
. . . . . . . . . . . . . 14
β’ (πΉ:ββΆ(0[,]+β)
β ((β«2βπΉ) < +β β Β¬
(β«2βπΉ)
= +β)) |
25 | 12, 21, 24 | 3bitr2rd 307 |
. . . . . . . . . . . . 13
β’ (πΉ:ββΆ(0[,]+β)
β (Β¬ (β«2βπΉ) = +β β
(β«2βπΉ)
β β)) |
26 | 25 | biimpa 477 |
. . . . . . . . . . . 12
β’ ((πΉ:ββΆ(0[,]+β)
β§ Β¬ (β«2βπΉ) = +β) β
(β«2βπΉ)
β β) |
27 | 26 | adantlr 713 |
. . . . . . . . . . 11
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ Β¬ (β«2βπΉ) = +β) β
(β«2βπΉ)
β β) |
28 | | nnrp 12981 |
. . . . . . . . . . . . 13
β’ (π β β β π β
β+) |
29 | 28 | rpreccld 13022 |
. . . . . . . . . . . 12
β’ (π β β β (1 /
π) β
β+) |
30 | 29 | ad2antlr 725 |
. . . . . . . . . . 11
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ Β¬ (β«2βπΉ) = +β) β (1 / π) β
β+) |
31 | 27, 30 | ltsubrpd 13044 |
. . . . . . . . . 10
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ Β¬ (β«2βπΉ) = +β) β
((β«2βπΉ) β (1 / π)) < (β«2βπΉ)) |
32 | 9, 31 | eqbrtrd 5169 |
. . . . . . . . 9
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ Β¬ (β«2βπΉ) = +β) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«2βπΉ)) |
33 | 7, 32 | pm2.61dan 811 |
. . . . . . . 8
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«2βπΉ)) |
34 | | nnrecre 12250 |
. . . . . . . . . . . . 13
β’ (π β β β (1 /
π) β
β) |
35 | 34 | ad2antlr 725 |
. . . . . . . . . . . 12
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ Β¬ (β«2βπΉ) = +β) β (1 / π) β β) |
36 | 27, 35 | resubcld 11638 |
. . . . . . . . . . 11
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ Β¬ (β«2βπΉ) = +β) β
((β«2βπΉ) β (1 / π)) β β) |
37 | 2, 36 | ifclda 4562 |
. . . . . . . . . 10
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β) |
38 | 37 | rexrd 11260 |
. . . . . . . . 9
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β
β*) |
39 | 10 | adantr 481 |
. . . . . . . . 9
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β (β«2βπΉ) β
β*) |
40 | | xrltnle 11277 |
. . . . . . . . 9
β’
((if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β* β§
(β«2βπΉ)
β β*) β (if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«2βπΉ) β Β¬
(β«2βπΉ)
β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
41 | 38, 39, 40 | syl2anc 584 |
. . . . . . . 8
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β (if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«2βπΉ) β Β¬
(β«2βπΉ)
β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
42 | 33, 41 | mpbid 231 |
. . . . . . 7
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β Β¬ (β«2βπΉ) β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))) |
43 | | itg2leub 25243 |
. . . . . . . 8
β’ ((πΉ:ββΆ(0[,]+β)
β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β*) β
((β«2βπΉ) β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β βπ β dom β«1(π βr β€ πΉ β
(β«1βπ)
β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))))) |
44 | 38, 43 | syldan 591 |
. . . . . . 7
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β ((β«2βπΉ) β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β βπ β dom β«1(π βr β€ πΉ β
(β«1βπ)
β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))))) |
45 | 42, 44 | mtbid 323 |
. . . . . 6
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β Β¬ βπ
β dom β«1(π βr β€ πΉ β (β«1βπ) β€
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
46 | | rexanali 3102 |
. . . . . 6
β’
(βπ β dom
β«1(π
βr β€ πΉ
β§ Β¬ (β«1βπ) β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))) β Β¬ βπ β dom β«1(π βr β€ πΉ β
(β«1βπ)
β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
47 | 45, 46 | sylibr 233 |
. . . . 5
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β βπ β dom
β«1(π
βr β€ πΉ
β§ Β¬ (β«1βπ) β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
48 | | itg1cl 25193 |
. . . . . . . 8
β’ (π β dom β«1
β (β«1βπ) β β) |
49 | | ltnle 11289 |
. . . . . . . 8
β’
((if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β β§
(β«1βπ)
β β) β (if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ) β Β¬
(β«1βπ)
β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
50 | 37, 48, 49 | syl2an 596 |
. . . . . . 7
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ π β dom
β«1) β (if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ) β Β¬
(β«1βπ)
β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
51 | 50 | anbi2d 629 |
. . . . . 6
β’ (((πΉ:ββΆ(0[,]+β)
β§ π β β)
β§ π β dom
β«1) β ((π βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ)) β (π βr β€ πΉ β§ Β¬ (β«1βπ) β€
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))))) |
52 | 51 | rexbidva 3176 |
. . . . 5
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β (βπ β dom
β«1(π
βr β€ πΉ
β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ)) β βπ β dom
β«1(π
βr β€ πΉ
β§ Β¬ (β«1βπ) β€ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))))) |
53 | 47, 52 | mpbird 256 |
. . . 4
β’ ((πΉ:ββΆ(0[,]+β)
β§ π β β)
β βπ β dom
β«1(π
βr β€ πΉ
β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ))) |
54 | 53 | ralrimiva 3146 |
. . 3
β’ (πΉ:ββΆ(0[,]+β)
β βπ β
β βπ β dom
β«1(π
βr β€ πΉ
β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ))) |
55 | | ovex 7438 |
. . . . 5
β’ (β
βm β) β V |
56 | | i1ff 25184 |
. . . . . . 7
β’ (π₯ β dom β«1
β π₯:ββΆβ) |
57 | | reex 11197 |
. . . . . . . 8
β’ β
β V |
58 | 57, 57 | elmap 8861 |
. . . . . . 7
β’ (π₯ β (β
βm β) β π₯:ββΆβ) |
59 | 56, 58 | sylibr 233 |
. . . . . 6
β’ (π₯ β dom β«1
β π₯ β (β
βm β)) |
60 | 59 | ssriv 3985 |
. . . . 5
β’ dom
β«1 β (β βm β) |
61 | 55, 60 | ssexi 5321 |
. . . 4
β’ dom
β«1 β V |
62 | | nnenom 13941 |
. . . 4
β’ β
β Ο |
63 | | breq1 5150 |
. . . . 5
β’ (π = (πβπ) β (π βr β€ πΉ β (πβπ) βr β€ πΉ)) |
64 | | fveq2 6888 |
. . . . . 6
β’ (π = (πβπ) β (β«1βπ) =
(β«1β(πβπ))) |
65 | 64 | breq2d 5159 |
. . . . 5
β’ (π = (πβπ) β (if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ)))) |
66 | 63, 65 | anbi12d 631 |
. . . 4
β’ (π = (πβπ) β ((π βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ)) β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) |
67 | 61, 62, 66 | axcc4 10430 |
. . 3
β’
(βπ β
β βπ β dom
β«1(π
βr β€ πΉ
β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1βπ)) β βπ(π:ββΆdom β«1 β§
βπ β β
((πβπ) βr β€ πΉ β§
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) |
68 | 54, 67 | syl 17 |
. 2
β’ (πΉ:ββΆ(0[,]+β)
β βπ(π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) |
69 | | simprl 769 |
. . . . 5
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β π:ββΆdom
β«1) |
70 | | simpl 483 |
. . . . . . 7
β’ (((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))) β (πβπ) βr β€ πΉ) |
71 | 70 | ralimi 3083 |
. . . . . 6
β’
(βπ β
β ((πβπ) βr β€ πΉ β§
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))) β βπ β β (πβπ) βr β€ πΉ) |
72 | 71 | ad2antll 727 |
. . . . 5
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β βπ β β (πβπ) βr β€ πΉ) |
73 | 10 | adantr 481 |
. . . . . 6
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (β«2βπΉ) β
β*) |
74 | | ffvelcdm 7080 |
. . . . . . . . . . . 12
β’ ((π:ββΆdom
β«1 β§ π
β β) β (πβπ) β dom
β«1) |
75 | | itg1cl 25193 |
. . . . . . . . . . . 12
β’ ((πβπ) β dom β«1 β
(β«1β(πβπ)) β β) |
76 | 74, 75 | syl 17 |
. . . . . . . . . . 11
β’ ((π:ββΆdom
β«1 β§ π
β β) β (β«1β(πβπ)) β β) |
77 | 76 | fmpttd 7111 |
. . . . . . . . . 10
β’ (π:ββΆdom
β«1 β (π
β β β¦ (β«1β(πβπ))):ββΆβ) |
78 | 77 | ad2antrl 726 |
. . . . . . . . 9
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (π β β β¦
(β«1β(πβπ))):ββΆβ) |
79 | 78 | frnd 6722 |
. . . . . . . 8
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β ran (π β β β¦
(β«1β(πβπ))) β β) |
80 | | ressxr 11254 |
. . . . . . . 8
β’ β
β β* |
81 | 79, 80 | sstrdi 3993 |
. . . . . . 7
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β ran (π β β β¦
(β«1β(πβπ))) β
β*) |
82 | | supxrcl 13290 |
. . . . . . 7
β’ (ran
(π β β β¦
(β«1β(πβπ))) β β* β
sup(ran (π β β
β¦ (β«1β(πβπ))), β*, < ) β
β*) |
83 | 81, 82 | syl 17 |
. . . . . 6
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
β*) |
84 | 38 | adantlr 713 |
. . . . . . . . . . . . 13
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β
β*) |
85 | 76 | adantll 712 |
. . . . . . . . . . . . . 14
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (β«1β(πβπ)) β β) |
86 | 85 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (β«1β(πβπ)) β
β*) |
87 | | xrltle 13124 |
. . . . . . . . . . . . 13
β’
((if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β* β§
(β«1β(πβπ)) β β*) β
(if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ)) β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ (β«1β(πβπ)))) |
88 | 84, 86, 87 | syl2anc 584 |
. . . . . . . . . . . 12
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ)) β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ (β«1β(πβπ)))) |
89 | | 2fveq3 6893 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β (β«1β(πβπ)) = (β«1β(πβπ))) |
90 | 89 | cbvmptv 5260 |
. . . . . . . . . . . . . . . 16
β’ (π β β β¦
(β«1β(πβπ))) = (π β β β¦
(β«1β(πβπ))) |
91 | 90 | rneqi 5934 |
. . . . . . . . . . . . . . 15
β’ ran
(π β β β¦
(β«1β(πβπ))) = ran (π β β β¦
(β«1β(πβπ))) |
92 | 77 | adantl 482 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β (π β β β¦
(β«1β(πβπ))):ββΆβ) |
93 | 92 | frnd 6722 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β ran (π β β β¦
(β«1β(πβπ))) β β) |
94 | 93, 80 | sstrdi 3993 |
. . . . . . . . . . . . . . . 16
β’ ((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β ran (π β β β¦
(β«1β(πβπ))) β
β*) |
95 | 94 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β ran (π β β β¦
(β«1β(πβπ))) β
β*) |
96 | 91, 95 | eqsstrrid 4030 |
. . . . . . . . . . . . . 14
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β ran (π β β β¦
(β«1β(πβπ))) β
β*) |
97 | | 2fveq3 6893 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β (β«1β(πβπ)) = (β«1β(πβπ))) |
98 | | eqid 2732 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β¦
(β«1β(πβπ))) = (π β β β¦
(β«1β(πβπ))) |
99 | | fvex 6901 |
. . . . . . . . . . . . . . . . 17
β’
(β«1β(πβπ)) β V |
100 | 97, 98, 99 | fvmpt 6995 |
. . . . . . . . . . . . . . . 16
β’ (π β β β ((π β β β¦
(β«1β(πβπ)))βπ) = (β«1β(πβπ))) |
101 | | fvex 6901 |
. . . . . . . . . . . . . . . . . 18
β’
(β«1β(πβπ)) β V |
102 | 101, 98 | fnmpti 6690 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β¦
(β«1β(πβπ))) Fn β |
103 | | fnfvelrn 7079 |
. . . . . . . . . . . . . . . . 17
β’ (((π β β β¦
(β«1β(πβπ))) Fn β β§ π β β) β ((π β β β¦
(β«1β(πβπ)))βπ) β ran (π β β β¦
(β«1β(πβπ)))) |
104 | 102, 103 | mpan 688 |
. . . . . . . . . . . . . . . 16
β’ (π β β β ((π β β β¦
(β«1β(πβπ)))βπ) β ran (π β β β¦
(β«1β(πβπ)))) |
105 | 100, 104 | eqeltrrd 2834 |
. . . . . . . . . . . . . . 15
β’ (π β β β
(β«1β(πβπ)) β ran (π β β β¦
(β«1β(πβπ)))) |
106 | 105 | adantl 482 |
. . . . . . . . . . . . . 14
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (β«1β(πβπ)) β ran (π β β β¦
(β«1β(πβπ)))) |
107 | | supxrub 13299 |
. . . . . . . . . . . . . 14
β’ ((ran
(π β β β¦
(β«1β(πβπ))) β β* β§
(β«1β(πβπ)) β ran (π β β β¦
(β«1β(πβπ)))) β (β«1β(πβπ)) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
)) |
108 | 96, 106, 107 | syl2anc 584 |
. . . . . . . . . . . . 13
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (β«1β(πβπ)) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
)) |
109 | 91 | supeq1i 9438 |
. . . . . . . . . . . . . . 15
β’ sup(ran
(π β β β¦
(β«1β(πβπ))), β*, < ) = sup(ran
(π β β β¦
(β«1β(πβπ))), β*, <
) |
110 | 95, 82 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
β*) |
111 | 109, 110 | eqeltrrid 2838 |
. . . . . . . . . . . . . 14
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
β*) |
112 | | xrletr 13133 |
. . . . . . . . . . . . . 14
β’
((if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β* β§
(β«1β(πβπ)) β β* β§ sup(ran
(π β β β¦
(β«1β(πβπ))), β*, < ) β
β*) β ((if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ (β«1β(πβπ)) β§ (β«1β(πβπ)) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, < )) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
113 | 84, 86, 111, 112 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β ((if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ (β«1β(πβπ)) β§ (β«1β(πβπ)) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, < )) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
114 | 108, 113 | mpan2d 692 |
. . . . . . . . . . . 12
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ (β«1β(πβπ)) β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
115 | 88, 114 | syld 47 |
. . . . . . . . . . 11
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ)) β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
116 | 115 | adantld 491 |
. . . . . . . . . 10
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))) β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
117 | 116 | ralimdva 3167 |
. . . . . . . . 9
β’ ((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β (βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))) β βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
118 | 117 | impr 455 |
. . . . . . . 8
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
)) |
119 | | breq2 5151 |
. . . . . . . . . . 11
β’ (π₯ = sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
(if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
120 | 119 | ralbidv 3177 |
. . . . . . . . . 10
β’ (π₯ = sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
(βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
121 | | breq2 5151 |
. . . . . . . . . 10
β’ (π₯ = sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
((β«2βπΉ) β€ π₯ β (β«2βπΉ) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
122 | 120, 121 | imbi12d 344 |
. . . . . . . . 9
β’ (π₯ = sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
((βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯) β (βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
(β«2βπΉ)
β€ sup(ran (π β
β β¦ (β«1β(πβπ))), β*, <
)))) |
123 | | elxr 13092 |
. . . . . . . . . . . 12
β’ (π₯ β β*
β (π₯ β β
β¨ π₯ = +β β¨
π₯ =
-β)) |
124 | | simplrl 775 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ (β«2βπΉ) = +β) β π₯ β
β) |
125 | | arch 12465 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β β β
βπ β β
π₯ < π) |
126 | 124, 125 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ (β«2βπΉ) = +β) β
βπ β β
π₯ < π) |
127 | 4 | adantl 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ (β«2βπΉ) = +β) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) = π) |
128 | 127 | breq2d 5159 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ (β«2βπΉ) = +β) β (π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β π₯ < π)) |
129 | 128 | rexbidv 3178 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ (β«2βπΉ) = +β) β
(βπ β β
π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β βπ β β π₯ < π)) |
130 | 126, 129 | mpbird 256 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ (β«2βπΉ) = +β) β
βπ β β
π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))) |
131 | 26 | adantlr 713 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β (β«2βπΉ) β β) |
132 | | simplrl 775 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β π₯ β
β) |
133 | 131, 132 | resubcld 11638 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β ((β«2βπΉ) β π₯) β β) |
134 | | simplrr 776 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β π₯ <
(β«2βπΉ)) |
135 | 132, 131 | posdifd 11797 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β (π₯ <
(β«2βπΉ)
β 0 < ((β«2βπΉ) β π₯))) |
136 | 134, 135 | mpbid 231 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β 0 < ((β«2βπΉ) β π₯)) |
137 | | nnrecl 12466 |
. . . . . . . . . . . . . . . . . . 19
β’
((((β«2βπΉ) β π₯) β β β§ 0 <
((β«2βπΉ) β π₯)) β βπ β β (1 / π) < ((β«2βπΉ) β π₯)) |
138 | 133, 136,
137 | syl2anc 584 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β βπ
β β (1 / π) <
((β«2βπΉ) β π₯)) |
139 | 34 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β§ π β
β) β (1 / π)
β β) |
140 | 131 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β§ π β
β) β (β«2βπΉ) β β) |
141 | 132 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β§ π β
β) β π₯ β
β) |
142 | | ltsub13 11691 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((1 /
π) β β β§
(β«2βπΉ)
β β β§ π₯
β β) β ((1 / π) < ((β«2βπΉ) β π₯) β π₯ < ((β«2βπΉ) β (1 / π)))) |
143 | 139, 140,
141, 142 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β§ π β
β) β ((1 / π)
< ((β«2βπΉ) β π₯) β π₯ < ((β«2βπΉ) β (1 / π)))) |
144 | 8 | ad2antlr 725 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β§ π β
β) β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) = ((β«2βπΉ) β (1 / π))) |
145 | 144 | breq2d 5159 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β§ π β
β) β (π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β π₯ < ((β«2βπΉ) β (1 / π)))) |
146 | 143, 145 | bitr4d 281 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β§ π β
β) β ((1 / π)
< ((β«2βπΉ) β π₯) β π₯ < if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
147 | 146 | rexbidva 3176 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β (βπ β β (1 / π) < ((β«2βπΉ) β π₯) β βπ β β π₯ < if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
148 | 138, 147 | mpbid 231 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β§ Β¬
(β«2βπΉ)
= +β) β βπ
β β π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))) |
149 | 130, 148 | pm2.61dan 811 |
. . . . . . . . . . . . . . . 16
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β§ π₯ <
(β«2βπΉ))) β βπ β β π₯ < if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))) |
150 | 149 | expr 457 |
. . . . . . . . . . . . . . 15
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β (π₯ <
(β«2βπΉ)
β βπ β
β π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))))) |
151 | | rexr 11256 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β β β π₯ β
β*) |
152 | | xrltnle 11277 |
. . . . . . . . . . . . . . . 16
β’ ((π₯ β β*
β§ (β«2βπΉ) β β*) β (π₯ <
(β«2βπΉ)
β Β¬ (β«2βπΉ) β€ π₯)) |
153 | 151, 10, 152 | syl2anr 597 |
. . . . . . . . . . . . . . 15
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β (π₯ <
(β«2βπΉ)
β Β¬ (β«2βπΉ) β€ π₯)) |
154 | 151 | ad2antlr 725 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β§ π β β)
β π₯ β
β*) |
155 | 38 | adantlr 713 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β§ π β β)
β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β
β*) |
156 | | xrltnle 11277 |
. . . . . . . . . . . . . . . . . 18
β’ ((π₯ β β*
β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β*) β (π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β Β¬
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯)) |
157 | 154, 155,
156 | syl2anc 584 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β§ π β β)
β (π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β Β¬
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯)) |
158 | 157 | rexbidva 3176 |
. . . . . . . . . . . . . . . 16
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β (βπ β
β π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β βπ β β Β¬
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯)) |
159 | | rexnal 3100 |
. . . . . . . . . . . . . . . 16
β’
(βπ β
β Β¬ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β Β¬ βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯) |
160 | 158, 159 | bitrdi 286 |
. . . . . . . . . . . . . . 15
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β (βπ β
β π₯ <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β Β¬ βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯)) |
161 | 150, 153,
160 | 3imtr3d 292 |
. . . . . . . . . . . . . 14
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β (Β¬ (β«2βπΉ) β€ π₯ β Β¬ βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯)) |
162 | 161 | con4d 115 |
. . . . . . . . . . . . 13
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ β β)
β (βπ β
β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯)) |
163 | 10 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ = +β) β
(β«2βπΉ)
β β*) |
164 | | pnfge 13106 |
. . . . . . . . . . . . . . . 16
β’
((β«2βπΉ) β β* β
(β«2βπΉ)
β€ +β) |
165 | 163, 164 | syl 17 |
. . . . . . . . . . . . . . 15
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ = +β) β
(β«2βπΉ)
β€ +β) |
166 | | simpr 485 |
. . . . . . . . . . . . . . 15
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ = +β) β
π₯ =
+β) |
167 | 165, 166 | breqtrrd 5175 |
. . . . . . . . . . . . . 14
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ = +β) β
(β«2βπΉ)
β€ π₯) |
168 | 167 | a1d 25 |
. . . . . . . . . . . . 13
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ = +β) β
(βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯)) |
169 | | 1nn 12219 |
. . . . . . . . . . . . . . . 16
β’ 1 β
β |
170 | 169 | ne0ii 4336 |
. . . . . . . . . . . . . . 15
β’ β
β β
|
171 | | r19.2z 4493 |
. . . . . . . . . . . . . . 15
β’ ((β
β β
β§ βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯) β βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯) |
172 | 170, 171 | mpan 688 |
. . . . . . . . . . . . . 14
β’
(βπ β
β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯) |
173 | 37 | adantlr 713 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ:ββΆ(0[,]+β)
β§ π₯ = -β) β§
π β β) β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β) |
174 | | mnflt 13099 |
. . . . . . . . . . . . . . . . . . 19
β’
(if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β β -β <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π)))) |
175 | | rexr 11256 |
. . . . . . . . . . . . . . . . . . . 20
β’
(if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β
β*) |
176 | | xrltnle 11277 |
. . . . . . . . . . . . . . . . . . . 20
β’
((-β β β* β§
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β*) β
(-β < if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β Β¬
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ -β)) |
177 | 15, 175, 176 | sylancr 587 |
. . . . . . . . . . . . . . . . . . 19
β’
(if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β β (-β <
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β Β¬
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ -β)) |
178 | 174, 177 | mpbid 231 |
. . . . . . . . . . . . . . . . . 18
β’
(if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β β β Β¬
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ -β) |
179 | 173, 178 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉ:ββΆ(0[,]+β)
β§ π₯ = -β) β§
π β β) β
Β¬ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ -β) |
180 | | simplr 767 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ:ββΆ(0[,]+β)
β§ π₯ = -β) β§
π β β) β
π₯ =
-β) |
181 | 180 | breq2d 5159 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉ:ββΆ(0[,]+β)
β§ π₯ = -β) β§
π β β) β
(if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ -β)) |
182 | 179, 181 | mtbird 324 |
. . . . . . . . . . . . . . . 16
β’ (((πΉ:ββΆ(0[,]+β)
β§ π₯ = -β) β§
π β β) β
Β¬ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯) |
183 | 182 | nrexdv 3149 |
. . . . . . . . . . . . . . 15
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ = -β) β
Β¬ βπ β
β if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯) |
184 | 183 | pm2.21d 121 |
. . . . . . . . . . . . . 14
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ = -β) β
(βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯)) |
185 | 172, 184 | syl5 34 |
. . . . . . . . . . . . 13
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ = -β) β
(βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯)) |
186 | 162, 168,
185 | 3jaodan 1430 |
. . . . . . . . . . . 12
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π₯ β β
β¨ π₯ = +β β¨
π₯ = -β)) β
(βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯)) |
187 | 123, 186 | sylan2b 594 |
. . . . . . . . . . 11
β’ ((πΉ:ββΆ(0[,]+β)
β§ π₯ β
β*) β (βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯)) |
188 | 187 | ralrimiva 3146 |
. . . . . . . . . 10
β’ (πΉ:ββΆ(0[,]+β)
β βπ₯ β
β* (βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯)) |
189 | 188 | adantr 481 |
. . . . . . . . 9
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β βπ₯ β β* (βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ π₯ β (β«2βπΉ) β€ π₯)) |
190 | 109, 83 | eqeltrrid 2838 |
. . . . . . . . 9
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
β*) |
191 | 122, 189,
190 | rspcdva 3613 |
. . . . . . . 8
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (βπ β β
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β
(β«2βπΉ)
β€ sup(ran (π β
β β¦ (β«1β(πβπ))), β*, <
))) |
192 | 118, 191 | mpd 15 |
. . . . . . 7
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (β«2βπΉ) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
)) |
193 | 192, 109 | breqtrrdi 5189 |
. . . . . 6
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (β«2βπΉ) β€ sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
)) |
194 | | itg2ub 25242 |
. . . . . . . . . . . . . . 15
β’ ((πΉ:ββΆ(0[,]+β)
β§ (πβπ) β dom β«1
β§ (πβπ) βr β€ πΉ) β
(β«1β(πβπ)) β€ (β«2βπΉ)) |
195 | 194 | 3expia 1121 |
. . . . . . . . . . . . . 14
β’ ((πΉ:ββΆ(0[,]+β)
β§ (πβπ) β dom β«1)
β ((πβπ) βr β€ πΉ β
(β«1β(πβπ)) β€ (β«2βπΉ))) |
196 | 74, 195 | sylan2 593 |
. . . . . . . . . . . . 13
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ π
β β)) β ((πβπ) βr β€ πΉ β (β«1β(πβπ)) β€ (β«2βπΉ))) |
197 | 196 | anassrs 468 |
. . . . . . . . . . . 12
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β ((πβπ) βr β€ πΉ β (β«1β(πβπ)) β€ (β«2βπΉ))) |
198 | 197 | adantrd 492 |
. . . . . . . . . . 11
β’ (((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β§ π
β β) β (((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))) β (β«1β(πβπ)) β€ (β«2βπΉ))) |
199 | 198 | ralimdva 3167 |
. . . . . . . . . 10
β’ ((πΉ:ββΆ(0[,]+β)
β§ π:ββΆdom
β«1) β (βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))) β βπ β β
(β«1β(πβπ)) β€ (β«2βπΉ))) |
200 | 199 | impr 455 |
. . . . . . . . 9
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β βπ β β
(β«1β(πβπ)) β€ (β«2βπΉ)) |
201 | | eqid 2732 |
. . . . . . . . . . . . 13
β’ (π β β β¦
(β«1β(πβπ))) = (π β β β¦
(β«1β(πβπ))) |
202 | 89, 201, 101 | fvmpt 6995 |
. . . . . . . . . . . 12
β’ (π β β β ((π β β β¦
(β«1β(πβπ)))βπ) = (β«1β(πβπ))) |
203 | 202 | breq1d 5157 |
. . . . . . . . . . 11
β’ (π β β β (((π β β β¦
(β«1β(πβπ)))βπ) β€ (β«2βπΉ) β
(β«1β(πβπ)) β€ (β«2βπΉ))) |
204 | 203 | ralbiia 3091 |
. . . . . . . . . 10
β’
(βπ β
β ((π β β
β¦ (β«1β(πβπ)))βπ) β€ (β«2βπΉ) β βπ β β
(β«1β(πβπ)) β€ (β«2βπΉ)) |
205 | 89 | breq1d 5157 |
. . . . . . . . . . 11
β’ (π = π β ((β«1β(πβπ)) β€ (β«2βπΉ) β
(β«1β(πβπ)) β€ (β«2βπΉ))) |
206 | 205 | cbvralvw 3234 |
. . . . . . . . . 10
β’
(βπ β
β (β«1β(πβπ)) β€ (β«2βπΉ) β βπ β β
(β«1β(πβπ)) β€ (β«2βπΉ)) |
207 | 204, 206 | bitr4i 277 |
. . . . . . . . 9
β’
(βπ β
β ((π β β
β¦ (β«1β(πβπ)))βπ) β€ (β«2βπΉ) β βπ β β
(β«1β(πβπ)) β€ (β«2βπΉ)) |
208 | 200, 207 | sylibr 233 |
. . . . . . . 8
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β βπ β β ((π β β β¦
(β«1β(πβπ)))βπ) β€ (β«2βπΉ)) |
209 | | ffn 6714 |
. . . . . . . . 9
β’ ((π β β β¦
(β«1β(πβπ))):ββΆβ β (π β β β¦
(β«1β(πβπ))) Fn β) |
210 | | breq1 5150 |
. . . . . . . . . 10
β’ (π§ = ((π β β β¦
(β«1β(πβπ)))βπ) β (π§ β€ (β«2βπΉ) β ((π β β β¦
(β«1β(πβπ)))βπ) β€ (β«2βπΉ))) |
211 | 210 | ralrn 7086 |
. . . . . . . . 9
β’ ((π β β β¦
(β«1β(πβπ))) Fn β β (βπ§ β ran (π β β β¦
(β«1β(πβπ)))π§ β€ (β«2βπΉ) β βπ β β ((π β β β¦
(β«1β(πβπ)))βπ) β€ (β«2βπΉ))) |
212 | 78, 209, 211 | 3syl 18 |
. . . . . . . 8
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (βπ§ β ran (π β β β¦
(β«1β(πβπ)))π§ β€ (β«2βπΉ) β βπ β β ((π β β β¦
(β«1β(πβπ)))βπ) β€ (β«2βπΉ))) |
213 | 208, 212 | mpbird 256 |
. . . . . . 7
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β βπ§ β ran (π β β β¦
(β«1β(πβπ)))π§ β€ (β«2βπΉ)) |
214 | | supxrleub 13301 |
. . . . . . . 8
β’ ((ran
(π β β β¦
(β«1β(πβπ))) β β* β§
(β«2βπΉ)
β β*) β (sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β€
(β«2βπΉ)
β βπ§ β ran
(π β β β¦
(β«1β(πβπ)))π§ β€ (β«2βπΉ))) |
215 | 81, 73, 214 | syl2anc 584 |
. . . . . . 7
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β€
(β«2βπΉ)
β βπ§ β ran
(π β β β¦
(β«1β(πβπ)))π§ β€ (β«2βπΉ))) |
216 | 213, 215 | mpbird 256 |
. . . . . 6
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β sup(ran (π β β β¦
(β«1β(πβπ))), β*, < ) β€
(β«2βπΉ)) |
217 | 73, 83, 193, 216 | xrletrid 13130 |
. . . . 5
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (β«2βπΉ) = sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
)) |
218 | 69, 72, 217 | 3jca 1128 |
. . . 4
β’ ((πΉ:ββΆ(0[,]+β)
β§ (π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ))))) β (π:ββΆdom β«1 β§
βπ β β
(πβπ) βr β€ πΉ β§ (β«2βπΉ) = sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |
219 | 218 | ex 413 |
. . 3
β’ (πΉ:ββΆ(0[,]+β)
β ((π:ββΆdom β«1 β§
βπ β β
((πβπ) βr β€ πΉ β§
if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ)))) β (π:ββΆdom β«1 β§
βπ β β
(πβπ) βr β€ πΉ β§ (β«2βπΉ) = sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
)))) |
220 | 219 | eximdv 1920 |
. 2
β’ (πΉ:ββΆ(0[,]+β)
β (βπ(π:ββΆdom
β«1 β§ βπ β β ((πβπ) βr β€ πΉ β§ if((β«2βπΉ) = +β, π, ((β«2βπΉ) β (1 / π))) < (β«1β(πβπ)))) β βπ(π:ββΆdom β«1 β§
βπ β β
(πβπ) βr β€ πΉ β§ (β«2βπΉ) = sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
)))) |
221 | 68, 220 | mpd 15 |
1
β’ (πΉ:ββΆ(0[,]+β)
β βπ(π:ββΆdom
β«1 β§ βπ β β (πβπ) βr β€ πΉ β§ (β«2βπΉ) = sup(ran (π β β β¦
(β«1β(πβπ))), β*, <
))) |