Step | Hyp | Ref
| Expression |
1 | | 0xr 11258 |
. . . . . 6
β’ 0 β
β* |
2 | | 1xr 11270 |
. . . . . 6
β’ 1 β
β* |
3 | | 0le1 11734 |
. . . . . 6
β’ 0 β€
1 |
4 | | snunioc 13454 |
. . . . . 6
β’ ((0
β β* β§ 1 β β* β§ 0 β€ 1)
β ({0} βͺ (0(,]1)) = (0[,]1)) |
5 | 1, 2, 3, 4 | mp3an 1462 |
. . . . 5
β’ ({0}
βͺ (0(,]1)) = (0[,]1) |
6 | 5 | eleq2i 2826 |
. . . 4
β’ (π β ({0} βͺ (0(,]1))
β π β
(0[,]1)) |
7 | | elun 4148 |
. . . 4
β’ (π β ({0} βͺ (0(,]1))
β (π β {0} β¨
π β
(0(,]1))) |
8 | 6, 7 | bitr3i 277 |
. . 3
β’ (π β (0[,]1) β (π β {0} β¨ π β
(0(,]1))) |
9 | | elsni 4645 |
. . . 4
β’ (π β {0} β π = 0) |
10 | 9 | orim1i 909 |
. . 3
β’ ((π β {0} β¨ π β (0(,]1)) β (π = 0 β¨ π β (0(,]1))) |
11 | 8, 10 | sylbi 216 |
. 2
β’ (π β (0[,]1) β (π = 0 β¨ π β (0(,]1))) |
12 | | 0elunit 13443 |
. . . . . . . 8
β’ 0 β
(0[,]1) |
13 | | iftrue 4534 |
. . . . . . . . 9
β’ (π₯ = 0 β if(π₯ = 0, +β,
-(logβπ₯)) =
+β) |
14 | | xrge0iifhmeo.1 |
. . . . . . . . 9
β’ πΉ = (π₯ β (0[,]1) β¦ if(π₯ = 0, +β, -(logβπ₯))) |
15 | | pnfex 11264 |
. . . . . . . . 9
β’ +β
β V |
16 | 13, 14, 15 | fvmpt 6996 |
. . . . . . . 8
β’ (0 β
(0[,]1) β (πΉβ0)
= +β) |
17 | 12, 16 | ax-mp 5 |
. . . . . . 7
β’ (πΉβ0) =
+β |
18 | 17 | oveq2i 7417 |
. . . . . 6
β’ ((πΉβπ) +π (πΉβ0)) = ((πΉβπ) +π
+β) |
19 | | eqeq1 2737 |
. . . . . . . . . . 11
β’ (π₯ = π β (π₯ = 0 β π = 0)) |
20 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π₯ = π β (logβπ₯) = (logβπ)) |
21 | 20 | negeqd 11451 |
. . . . . . . . . . 11
β’ (π₯ = π β -(logβπ₯) = -(logβπ)) |
22 | 19, 21 | ifbieq2d 4554 |
. . . . . . . . . 10
β’ (π₯ = π β if(π₯ = 0, +β, -(logβπ₯)) = if(π = 0, +β, -(logβπ))) |
23 | | negex 11455 |
. . . . . . . . . . 11
β’
-(logβπ)
β V |
24 | 15, 23 | ifex 4578 |
. . . . . . . . . 10
β’ if(π = 0, +β,
-(logβπ)) β
V |
25 | 22, 14, 24 | fvmpt 6996 |
. . . . . . . . 9
β’ (π β (0[,]1) β (πΉβπ) = if(π = 0, +β, -(logβπ))) |
26 | | pnfxr 11265 |
. . . . . . . . . . 11
β’ +β
β β* |
27 | 26 | a1i 11 |
. . . . . . . . . 10
β’ ((π β (0[,]1) β§ π = 0) β +β β
β*) |
28 | | elunitrn 13441 |
. . . . . . . . . . . . . . 15
β’ (π β (0[,]1) β π β
β) |
29 | 28 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β (0[,]1) β§ Β¬
π = 0) β π β
β) |
30 | | elunitge0 32868 |
. . . . . . . . . . . . . . . 16
β’ (π β (0[,]1) β 0 β€
π) |
31 | 30 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π β (0[,]1) β§ Β¬
π = 0) β 0 β€ π) |
32 | | simpr 486 |
. . . . . . . . . . . . . . . 16
β’ ((π β (0[,]1) β§ Β¬
π = 0) β Β¬ π = 0) |
33 | 32 | neqned 2948 |
. . . . . . . . . . . . . . 15
β’ ((π β (0[,]1) β§ Β¬
π = 0) β π β 0) |
34 | 29, 31, 33 | ne0gt0d 11348 |
. . . . . . . . . . . . . 14
β’ ((π β (0[,]1) β§ Β¬
π = 0) β 0 < π) |
35 | 29, 34 | elrpd 13010 |
. . . . . . . . . . . . 13
β’ ((π β (0[,]1) β§ Β¬
π = 0) β π β
β+) |
36 | 35 | relogcld 26123 |
. . . . . . . . . . . 12
β’ ((π β (0[,]1) β§ Β¬
π = 0) β
(logβπ) β
β) |
37 | 36 | renegcld 11638 |
. . . . . . . . . . 11
β’ ((π β (0[,]1) β§ Β¬
π = 0) β
-(logβπ) β
β) |
38 | 37 | rexrd 11261 |
. . . . . . . . . 10
β’ ((π β (0[,]1) β§ Β¬
π = 0) β
-(logβπ) β
β*) |
39 | 27, 38 | ifclda 4563 |
. . . . . . . . 9
β’ (π β (0[,]1) β if(π = 0, +β,
-(logβπ)) β
β*) |
40 | 25, 39 | eqeltrd 2834 |
. . . . . . . 8
β’ (π β (0[,]1) β (πΉβπ) β
β*) |
41 | 40 | adantr 482 |
. . . . . . 7
β’ ((π β (0[,]1) β§ π = 0) β (πΉβπ) β
β*) |
42 | | neeq1 3004 |
. . . . . . . . . 10
β’ (+β
= if(π = 0, +β,
-(logβπ)) β
(+β β -β β if(π = 0, +β, -(logβπ)) β
-β)) |
43 | | neeq1 3004 |
. . . . . . . . . 10
β’
(-(logβπ) =
if(π = 0, +β,
-(logβπ)) β
(-(logβπ) β
-β β if(π = 0,
+β, -(logβπ))
β -β)) |
44 | | pnfnemnf 11266 |
. . . . . . . . . . 11
β’ +β
β -β |
45 | 44 | a1i 11 |
. . . . . . . . . 10
β’ ((π β (0[,]1) β§ π = 0) β +β β
-β) |
46 | 37 | renemnfd 11263 |
. . . . . . . . . 10
β’ ((π β (0[,]1) β§ Β¬
π = 0) β
-(logβπ) β
-β) |
47 | 42, 43, 45, 46 | ifbothda 4566 |
. . . . . . . . 9
β’ (π β (0[,]1) β if(π = 0, +β,
-(logβπ)) β
-β) |
48 | 25, 47 | eqnetrd 3009 |
. . . . . . . 8
β’ (π β (0[,]1) β (πΉβπ) β -β) |
49 | 48 | adantr 482 |
. . . . . . 7
β’ ((π β (0[,]1) β§ π = 0) β (πΉβπ) β -β) |
50 | | xaddpnf1 13202 |
. . . . . . 7
β’ (((πΉβπ) β β* β§ (πΉβπ) β -β) β ((πΉβπ) +π +β) =
+β) |
51 | 41, 49, 50 | syl2anc 585 |
. . . . . 6
β’ ((π β (0[,]1) β§ π = 0) β ((πΉβπ) +π +β) =
+β) |
52 | 18, 51 | eqtrid 2785 |
. . . . 5
β’ ((π β (0[,]1) β§ π = 0) β ((πΉβπ) +π (πΉβ0)) = +β) |
53 | | unitsscn 13474 |
. . . . . . . . 9
β’ (0[,]1)
β β |
54 | | simpl 484 |
. . . . . . . . 9
β’ ((π β (0[,]1) β§ π = 0) β π β (0[,]1)) |
55 | 53, 54 | sselid 3980 |
. . . . . . . 8
β’ ((π β (0[,]1) β§ π = 0) β π β β) |
56 | 55 | mul01d 11410 |
. . . . . . 7
β’ ((π β (0[,]1) β§ π = 0) β (π Β· 0) = 0) |
57 | 56 | fveq2d 6893 |
. . . . . 6
β’ ((π β (0[,]1) β§ π = 0) β (πΉβ(π Β· 0)) = (πΉβ0)) |
58 | 57, 17 | eqtrdi 2789 |
. . . . 5
β’ ((π β (0[,]1) β§ π = 0) β (πΉβ(π Β· 0)) = +β) |
59 | 52, 58 | eqtr4d 2776 |
. . . 4
β’ ((π β (0[,]1) β§ π = 0) β ((πΉβπ) +π (πΉβ0)) = (πΉβ(π Β· 0))) |
60 | | simpr 486 |
. . . . . 6
β’ ((π β (0[,]1) β§ π = 0) β π = 0) |
61 | 60 | fveq2d 6893 |
. . . . 5
β’ ((π β (0[,]1) β§ π = 0) β (πΉβπ) = (πΉβ0)) |
62 | 61 | oveq2d 7422 |
. . . 4
β’ ((π β (0[,]1) β§ π = 0) β ((πΉβπ) +π (πΉβπ)) = ((πΉβπ) +π (πΉβ0))) |
63 | 60 | oveq2d 7422 |
. . . . 5
β’ ((π β (0[,]1) β§ π = 0) β (π Β· π) = (π Β· 0)) |
64 | 63 | fveq2d 6893 |
. . . 4
β’ ((π β (0[,]1) β§ π = 0) β (πΉβ(π Β· π)) = (πΉβ(π Β· 0))) |
65 | 59, 62, 64 | 3eqtr4rd 2784 |
. . 3
β’ ((π β (0[,]1) β§ π = 0) β (πΉβ(π Β· π)) = ((πΉβπ) +π (πΉβπ))) |
66 | 5 | eleq2i 2826 |
. . . . . 6
β’ (π β ({0} βͺ (0(,]1))
β π β
(0[,]1)) |
67 | | elun 4148 |
. . . . . 6
β’ (π β ({0} βͺ (0(,]1))
β (π β {0} β¨
π β
(0(,]1))) |
68 | 66, 67 | bitr3i 277 |
. . . . 5
β’ (π β (0[,]1) β (π β {0} β¨ π β
(0(,]1))) |
69 | | elsni 4645 |
. . . . . 6
β’ (π β {0} β π = 0) |
70 | 69 | orim1i 909 |
. . . . 5
β’ ((π β {0} β¨ π β (0(,]1)) β (π = 0 β¨ π β (0(,]1))) |
71 | 68, 70 | sylbi 216 |
. . . 4
β’ (π β (0[,]1) β (π = 0 β¨ π β (0(,]1))) |
72 | 17 | oveq1i 7416 |
. . . . . . . 8
β’ ((πΉβ0) +π
(πΉβπ)) = (+β +π (πΉβπ)) |
73 | | simpr 486 |
. . . . . . . . . 10
β’ ((π = 0 β§ π β (0(,]1)) β π β (0(,]1)) |
74 | 14 | xrge0iifcv 32903 |
. . . . . . . . . . . 12
β’ (π β (0(,]1) β (πΉβπ) = -(logβπ)) |
75 | | 0le0 12310 |
. . . . . . . . . . . . . . . . 17
β’ 0 β€
0 |
76 | | 1re 11211 |
. . . . . . . . . . . . . . . . . 18
β’ 1 β
β |
77 | | ltpnf 13097 |
. . . . . . . . . . . . . . . . . 18
β’ (1 β
β β 1 < +β) |
78 | 76, 77 | ax-mp 5 |
. . . . . . . . . . . . . . . . 17
β’ 1 <
+β |
79 | | iocssioo 13413 |
. . . . . . . . . . . . . . . . 17
β’ (((0
β β* β§ +β β β*) β§ (0
β€ 0 β§ 1 < +β)) β (0(,]1) β
(0(,)+β)) |
80 | 1, 26, 75, 78, 79 | mp4an 692 |
. . . . . . . . . . . . . . . 16
β’ (0(,]1)
β (0(,)+β) |
81 | | ioorp 13399 |
. . . . . . . . . . . . . . . 16
β’
(0(,)+β) = β+ |
82 | 80, 81 | sseqtri 4018 |
. . . . . . . . . . . . . . 15
β’ (0(,]1)
β β+ |
83 | 82 | sseli 3978 |
. . . . . . . . . . . . . 14
β’ (π β (0(,]1) β π β
β+) |
84 | 83 | relogcld 26123 |
. . . . . . . . . . . . 13
β’ (π β (0(,]1) β
(logβπ) β
β) |
85 | 84 | renegcld 11638 |
. . . . . . . . . . . 12
β’ (π β (0(,]1) β
-(logβπ) β
β) |
86 | 74, 85 | eqeltrd 2834 |
. . . . . . . . . . 11
β’ (π β (0(,]1) β (πΉβπ) β β) |
87 | 86 | rexrd 11261 |
. . . . . . . . . 10
β’ (π β (0(,]1) β (πΉβπ) β
β*) |
88 | 73, 87 | syl 17 |
. . . . . . . . 9
β’ ((π = 0 β§ π β (0(,]1)) β (πΉβπ) β
β*) |
89 | 86 | renemnfd 11263 |
. . . . . . . . . 10
β’ (π β (0(,]1) β (πΉβπ) β -β) |
90 | 73, 89 | syl 17 |
. . . . . . . . 9
β’ ((π = 0 β§ π β (0(,]1)) β (πΉβπ) β -β) |
91 | | xaddpnf2 13203 |
. . . . . . . . 9
β’ (((πΉβπ) β β* β§ (πΉβπ) β -β) β (+β
+π (πΉβπ)) = +β) |
92 | 88, 90, 91 | syl2anc 585 |
. . . . . . . 8
β’ ((π = 0 β§ π β (0(,]1)) β (+β
+π (πΉβπ)) = +β) |
93 | 72, 92 | eqtrid 2785 |
. . . . . . 7
β’ ((π = 0 β§ π β (0(,]1)) β ((πΉβ0) +π (πΉβπ)) = +β) |
94 | | rpssre 12978 |
. . . . . . . . . . . . 13
β’
β+ β β |
95 | 82, 94 | sstri 3991 |
. . . . . . . . . . . 12
β’ (0(,]1)
β β |
96 | | ax-resscn 11164 |
. . . . . . . . . . . 12
β’ β
β β |
97 | 95, 96 | sstri 3991 |
. . . . . . . . . . 11
β’ (0(,]1)
β β |
98 | 97, 73 | sselid 3980 |
. . . . . . . . . 10
β’ ((π = 0 β§ π β (0(,]1)) β π β β) |
99 | 98 | mul02d 11409 |
. . . . . . . . 9
β’ ((π = 0 β§ π β (0(,]1)) β (0 Β· π) = 0) |
100 | 99 | fveq2d 6893 |
. . . . . . . 8
β’ ((π = 0 β§ π β (0(,]1)) β (πΉβ(0 Β· π)) = (πΉβ0)) |
101 | 100, 17 | eqtrdi 2789 |
. . . . . . 7
β’ ((π = 0 β§ π β (0(,]1)) β (πΉβ(0 Β· π)) = +β) |
102 | 93, 101 | eqtr4d 2776 |
. . . . . 6
β’ ((π = 0 β§ π β (0(,]1)) β ((πΉβ0) +π (πΉβπ)) = (πΉβ(0 Β· π))) |
103 | | simpl 484 |
. . . . . . . 8
β’ ((π = 0 β§ π β (0(,]1)) β π = 0) |
104 | 103 | fveq2d 6893 |
. . . . . . 7
β’ ((π = 0 β§ π β (0(,]1)) β (πΉβπ) = (πΉβ0)) |
105 | 104 | oveq1d 7421 |
. . . . . 6
β’ ((π = 0 β§ π β (0(,]1)) β ((πΉβπ) +π (πΉβπ)) = ((πΉβ0) +π (πΉβπ))) |
106 | 103 | fvoveq1d 7428 |
. . . . . 6
β’ ((π = 0 β§ π β (0(,]1)) β (πΉβ(π Β· π)) = (πΉβ(0 Β· π))) |
107 | 102, 105,
106 | 3eqtr4rd 2784 |
. . . . 5
β’ ((π = 0 β§ π β (0(,]1)) β (πΉβ(π Β· π)) = ((πΉβπ) +π (πΉβπ))) |
108 | | simpl 484 |
. . . . . . . . . 10
β’ ((π β (0(,]1) β§ π β (0(,]1)) β π β
(0(,]1)) |
109 | 82, 108 | sselid 3980 |
. . . . . . . . 9
β’ ((π β (0(,]1) β§ π β (0(,]1)) β π β
β+) |
110 | 109 | relogcld 26123 |
. . . . . . . 8
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
(logβπ) β
β) |
111 | 110 | renegcld 11638 |
. . . . . . 7
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
-(logβπ) β
β) |
112 | | simpr 486 |
. . . . . . . . . 10
β’ ((π β (0(,]1) β§ π β (0(,]1)) β π β
(0(,]1)) |
113 | 82, 112 | sselid 3980 |
. . . . . . . . 9
β’ ((π β (0(,]1) β§ π β (0(,]1)) β π β
β+) |
114 | 113 | relogcld 26123 |
. . . . . . . 8
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
(logβπ) β
β) |
115 | 114 | renegcld 11638 |
. . . . . . 7
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
-(logβπ) β
β) |
116 | | rexadd 13208 |
. . . . . . 7
β’
((-(logβπ)
β β β§ -(logβπ) β β) β (-(logβπ) +π
-(logβπ)) =
(-(logβπ) +
-(logβπ))) |
117 | 111, 115,
116 | syl2anc 585 |
. . . . . 6
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
(-(logβπ)
+π -(logβπ)) = (-(logβπ) + -(logβπ))) |
118 | 14 | xrge0iifcv 32903 |
. . . . . . 7
β’ (π β (0(,]1) β (πΉβπ) = -(logβπ)) |
119 | 118, 74 | oveqan12d 7425 |
. . . . . 6
β’ ((π β (0(,]1) β§ π β (0(,]1)) β ((πΉβπ) +π (πΉβπ)) = (-(logβπ) +π -(logβπ))) |
120 | 109 | rpred 13013 |
. . . . . . . . . 10
β’ ((π β (0(,]1) β§ π β (0(,]1)) β π β
β) |
121 | 113 | rpred 13013 |
. . . . . . . . . 10
β’ ((π β (0(,]1) β§ π β (0(,]1)) β π β
β) |
122 | 120, 121 | remulcld 11241 |
. . . . . . . . 9
β’ ((π β (0(,]1) β§ π β (0(,]1)) β (π Β· π) β β) |
123 | 109 | rpgt0d 13016 |
. . . . . . . . . 10
β’ ((π β (0(,]1) β§ π β (0(,]1)) β 0 <
π) |
124 | 113 | rpgt0d 13016 |
. . . . . . . . . 10
β’ ((π β (0(,]1) β§ π β (0(,]1)) β 0 <
π) |
125 | 120, 121,
123, 124 | mulgt0d 11366 |
. . . . . . . . 9
β’ ((π β (0(,]1) β§ π β (0(,]1)) β 0 <
(π Β· π)) |
126 | | iocssicc 13411 |
. . . . . . . . . . . 12
β’ (0(,]1)
β (0[,]1) |
127 | 126, 108 | sselid 3980 |
. . . . . . . . . . 11
β’ ((π β (0(,]1) β§ π β (0(,]1)) β π β
(0[,]1)) |
128 | 126, 112 | sselid 3980 |
. . . . . . . . . . 11
β’ ((π β (0(,]1) β§ π β (0(,]1)) β π β
(0[,]1)) |
129 | | iimulcl 24445 |
. . . . . . . . . . 11
β’ ((π β (0[,]1) β§ π β (0[,]1)) β (π Β· π) β (0[,]1)) |
130 | 127, 128,
129 | syl2anc 585 |
. . . . . . . . . 10
β’ ((π β (0(,]1) β§ π β (0(,]1)) β (π Β· π) β (0[,]1)) |
131 | | elicc01 13440 |
. . . . . . . . . . 11
β’ ((π Β· π) β (0[,]1) β ((π Β· π) β β β§ 0 β€ (π Β· π) β§ (π Β· π) β€ 1)) |
132 | 131 | simp3bi 1148 |
. . . . . . . . . 10
β’ ((π Β· π) β (0[,]1) β (π Β· π) β€ 1) |
133 | 130, 132 | syl 17 |
. . . . . . . . 9
β’ ((π β (0(,]1) β§ π β (0(,]1)) β (π Β· π) β€ 1) |
134 | | elioc2 13384 |
. . . . . . . . . 10
β’ ((0
β β* β§ 1 β β) β ((π Β· π) β (0(,]1) β ((π Β· π) β β β§ 0 < (π Β· π) β§ (π Β· π) β€ 1))) |
135 | 1, 76, 134 | mp2an 691 |
. . . . . . . . 9
β’ ((π Β· π) β (0(,]1) β ((π Β· π) β β β§ 0 < (π Β· π) β§ (π Β· π) β€ 1)) |
136 | 122, 125,
133, 135 | syl3anbrc 1344 |
. . . . . . . 8
β’ ((π β (0(,]1) β§ π β (0(,]1)) β (π Β· π) β (0(,]1)) |
137 | 14 | xrge0iifcv 32903 |
. . . . . . . 8
β’ ((π Β· π) β (0(,]1) β (πΉβ(π Β· π)) = -(logβ(π Β· π))) |
138 | 136, 137 | syl 17 |
. . . . . . 7
β’ ((π β (0(,]1) β§ π β (0(,]1)) β (πΉβ(π Β· π)) = -(logβ(π Β· π))) |
139 | 109, 113 | relogmuld 26125 |
. . . . . . . 8
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
(logβ(π Β·
π)) = ((logβπ) + (logβπ))) |
140 | 139 | negeqd 11451 |
. . . . . . 7
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
-(logβ(π Β·
π)) = -((logβπ) + (logβπ))) |
141 | 110 | recnd 11239 |
. . . . . . . 8
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
(logβπ) β
β) |
142 | 114 | recnd 11239 |
. . . . . . . 8
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
(logβπ) β
β) |
143 | 141, 142 | negdid 11581 |
. . . . . . 7
β’ ((π β (0(,]1) β§ π β (0(,]1)) β
-((logβπ) +
(logβπ)) =
(-(logβπ) +
-(logβπ))) |
144 | 138, 140,
143 | 3eqtrd 2777 |
. . . . . 6
β’ ((π β (0(,]1) β§ π β (0(,]1)) β (πΉβ(π Β· π)) = (-(logβπ) + -(logβπ))) |
145 | 117, 119,
144 | 3eqtr4rd 2784 |
. . . . 5
β’ ((π β (0(,]1) β§ π β (0(,]1)) β (πΉβ(π Β· π)) = ((πΉβπ) +π (πΉβπ))) |
146 | 107, 145 | jaoian 956 |
. . . 4
β’ (((π = 0 β¨ π β (0(,]1)) β§ π β (0(,]1)) β (πΉβ(π Β· π)) = ((πΉβπ) +π (πΉβπ))) |
147 | 71, 146 | sylan 581 |
. . 3
β’ ((π β (0[,]1) β§ π β (0(,]1)) β (πΉβ(π Β· π)) = ((πΉβπ) +π (πΉβπ))) |
148 | 65, 147 | jaodan 957 |
. 2
β’ ((π β (0[,]1) β§ (π = 0 β¨ π β (0(,]1))) β (πΉβ(π Β· π)) = ((πΉβπ) +π (πΉβπ))) |
149 | 11, 148 | sylan2 594 |
1
β’ ((π β (0[,]1) β§ π β (0[,]1)) β (πΉβ(π Β· π)) = ((πΉβπ) +π (πΉβπ))) |