Step | Hyp | Ref
| Expression |
1 | | logcnlem.a |
. . . . . . . 8
β’ (π β π΄ β π·) |
2 | | logcn.d |
. . . . . . . . . 10
β’ π· = (β β
(-β(,]0)) |
3 | 2 | ellogdm 26138 |
. . . . . . . . 9
β’ (π΄ β π· β (π΄ β β β§ (π΄ β β β π΄ β
β+))) |
4 | 3 | simplbi 498 |
. . . . . . . 8
β’ (π΄ β π· β π΄ β β) |
5 | 1, 4 | syl 17 |
. . . . . . 7
β’ (π β π΄ β β) |
6 | 2 | logdmn0 26139 |
. . . . . . . 8
β’ (π΄ β π· β π΄ β 0) |
7 | 1, 6 | syl 17 |
. . . . . . 7
β’ (π β π΄ β 0) |
8 | 5, 7 | logcld 26070 |
. . . . . 6
β’ (π β (logβπ΄) β
β) |
9 | 8 | imcld 15138 |
. . . . 5
β’ (π β
(ββ(logβπ΄)) β β) |
10 | 9 | recnd 11238 |
. . . 4
β’ (π β
(ββ(logβπ΄)) β β) |
11 | | logcnlem.b |
. . . . . . . 8
β’ (π β π΅ β π·) |
12 | 2 | ellogdm 26138 |
. . . . . . . . 9
β’ (π΅ β π· β (π΅ β β β§ (π΅ β β β π΅ β
β+))) |
13 | 12 | simplbi 498 |
. . . . . . . 8
β’ (π΅ β π· β π΅ β β) |
14 | 11, 13 | syl 17 |
. . . . . . 7
β’ (π β π΅ β β) |
15 | 2 | logdmn0 26139 |
. . . . . . . 8
β’ (π΅ β π· β π΅ β 0) |
16 | 11, 15 | syl 17 |
. . . . . . 7
β’ (π β π΅ β 0) |
17 | 14, 16 | logcld 26070 |
. . . . . 6
β’ (π β (logβπ΅) β
β) |
18 | 17 | imcld 15138 |
. . . . 5
β’ (π β
(ββ(logβπ΅)) β β) |
19 | 18 | recnd 11238 |
. . . 4
β’ (π β
(ββ(logβπ΅)) β β) |
20 | 10, 19 | abssubd 15396 |
. . 3
β’ (π β
(absβ((ββ(logβπ΄)) β (ββ(logβπ΅)))) =
(absβ((ββ(logβπ΅)) β (ββ(logβπ΄))))) |
21 | 17, 8 | imsubd 15160 |
. . . . 5
β’ (π β
(ββ((logβπ΅) β (logβπ΄))) = ((ββ(logβπ΅)) β
(ββ(logβπ΄)))) |
22 | | efsub 16039 |
. . . . . . . . . 10
β’
(((logβπ΅)
β β β§ (logβπ΄) β β) β
(expβ((logβπ΅)
β (logβπ΄))) =
((expβ(logβπ΅))
/ (expβ(logβπ΄)))) |
23 | 17, 8, 22 | syl2anc 584 |
. . . . . . . . 9
β’ (π β
(expβ((logβπ΅)
β (logβπ΄))) =
((expβ(logβπ΅))
/ (expβ(logβπ΄)))) |
24 | | eflog 26076 |
. . . . . . . . . . 11
β’ ((π΅ β β β§ π΅ β 0) β
(expβ(logβπ΅)) =
π΅) |
25 | 14, 16, 24 | syl2anc 584 |
. . . . . . . . . 10
β’ (π β
(expβ(logβπ΅)) =
π΅) |
26 | | eflog 26076 |
. . . . . . . . . . 11
β’ ((π΄ β β β§ π΄ β 0) β
(expβ(logβπ΄)) =
π΄) |
27 | 5, 7, 26 | syl2anc 584 |
. . . . . . . . . 10
β’ (π β
(expβ(logβπ΄)) =
π΄) |
28 | 25, 27 | oveq12d 7423 |
. . . . . . . . 9
β’ (π β
((expβ(logβπ΅))
/ (expβ(logβπ΄))) = (π΅ / π΄)) |
29 | 23, 28 | eqtrd 2772 |
. . . . . . . 8
β’ (π β
(expβ((logβπ΅)
β (logβπ΄))) =
(π΅ / π΄)) |
30 | 14, 5, 7 | divcld 11986 |
. . . . . . . . 9
β’ (π β (π΅ / π΄) β β) |
31 | 14, 5, 16, 7 | divne0d 12002 |
. . . . . . . . 9
β’ (π β (π΅ / π΄) β 0) |
32 | 17, 8 | subcld 11567 |
. . . . . . . . . 10
β’ (π β ((logβπ΅) β (logβπ΄)) β
β) |
33 | | logcnlem.s |
. . . . . . . . . . . . 13
β’ π = if(π΄ β β+, π΄,
(absβ(ββπ΄))) |
34 | | logcnlem.t |
. . . . . . . . . . . . 13
β’ π = ((absβπ΄) Β· (π
/ (1 + π
))) |
35 | | logcnlem.r |
. . . . . . . . . . . . 13
β’ (π β π
β
β+) |
36 | | logcnlem.l |
. . . . . . . . . . . . 13
β’ (π β (absβ(π΄ β π΅)) < if(π β€ π, π, π)) |
37 | 2, 33, 34, 1, 35, 11, 36 | logcnlem3 26143 |
. . . . . . . . . . . 12
β’ (π β (-Ο <
((ββ(logβπ΅)) β (ββ(logβπ΄))) β§
((ββ(logβπ΅)) β (ββ(logβπ΄))) β€ Ο)) |
38 | 37 | simpld 495 |
. . . . . . . . . . 11
β’ (π β -Ο <
((ββ(logβπ΅)) β (ββ(logβπ΄)))) |
39 | 38, 21 | breqtrrd 5175 |
. . . . . . . . . 10
β’ (π β -Ο <
(ββ((logβπ΅) β (logβπ΄)))) |
40 | 37 | simprd 496 |
. . . . . . . . . . 11
β’ (π β
((ββ(logβπ΅)) β (ββ(logβπ΄))) β€ Ο) |
41 | 21, 40 | eqbrtrd 5169 |
. . . . . . . . . 10
β’ (π β
(ββ((logβπ΅) β (logβπ΄))) β€ Ο) |
42 | | ellogrn 26059 |
. . . . . . . . . 10
β’
(((logβπ΅)
β (logβπ΄))
β ran log β (((logβπ΅) β (logβπ΄)) β β β§ -Ο <
(ββ((logβπ΅) β (logβπ΄))) β§ (ββ((logβπ΅) β (logβπ΄))) β€ Ο)) |
43 | 32, 39, 41, 42 | syl3anbrc 1343 |
. . . . . . . . 9
β’ (π β ((logβπ΅) β (logβπ΄)) β ran
log) |
44 | | logeftb 26083 |
. . . . . . . . 9
β’ (((π΅ / π΄) β β β§ (π΅ / π΄) β 0 β§ ((logβπ΅) β (logβπ΄)) β ran log) β ((logβ(π΅ / π΄)) = ((logβπ΅) β (logβπ΄)) β (expβ((logβπ΅) β (logβπ΄))) = (π΅ / π΄))) |
45 | 30, 31, 43, 44 | syl3anc 1371 |
. . . . . . . 8
β’ (π β ((logβ(π΅ / π΄)) = ((logβπ΅) β (logβπ΄)) β (expβ((logβπ΅) β (logβπ΄))) = (π΅ / π΄))) |
46 | 29, 45 | mpbird 256 |
. . . . . . 7
β’ (π β (logβ(π΅ / π΄)) = ((logβπ΅) β (logβπ΄))) |
47 | 46 | eqcomd 2738 |
. . . . . 6
β’ (π β ((logβπ΅) β (logβπ΄)) = (logβ(π΅ / π΄))) |
48 | 47 | fveq2d 6892 |
. . . . 5
β’ (π β
(ββ((logβπ΅) β (logβπ΄))) = (ββ(logβ(π΅ / π΄)))) |
49 | 21, 48 | eqtr3d 2774 |
. . . 4
β’ (π β
((ββ(logβπ΅)) β (ββ(logβπ΄))) =
(ββ(logβ(π΅ / π΄)))) |
50 | 49 | fveq2d 6892 |
. . 3
β’ (π β
(absβ((ββ(logβπ΅)) β (ββ(logβπ΄)))) =
(absβ(ββ(logβ(π΅ / π΄))))) |
51 | 20, 50 | eqtrd 2772 |
. 2
β’ (π β
(absβ((ββ(logβπ΄)) β (ββ(logβπ΅)))) =
(absβ(ββ(logβ(π΅ / π΄))))) |
52 | 30, 31 | logcld 26070 |
. . . . . 6
β’ (π β (logβ(π΅ / π΄)) β β) |
53 | 52 | imcld 15138 |
. . . . 5
β’ (π β
(ββ(logβ(π΅ / π΄))) β β) |
54 | 53 | recnd 11238 |
. . . 4
β’ (π β
(ββ(logβ(π΅ / π΄))) β β) |
55 | 54 | abscld 15379 |
. . 3
β’ (π β
(absβ(ββ(logβ(π΅ / π΄)))) β β) |
56 | | 0red 11213 |
. . . . . . . . . 10
β’ (π β 0 β
β) |
57 | | 1re 11210 |
. . . . . . . . . . 11
β’ 1 β
β |
58 | 5, 14 | subcld 11567 |
. . . . . . . . . . . . 13
β’ (π β (π΄ β π΅) β β) |
59 | 58 | abscld 15379 |
. . . . . . . . . . . 12
β’ (π β (absβ(π΄ β π΅)) β β) |
60 | 5, 7 | absrpcld 15391 |
. . . . . . . . . . . 12
β’ (π β (absβπ΄) β
β+) |
61 | 59, 60 | rerpdivcld 13043 |
. . . . . . . . . . 11
β’ (π β ((absβ(π΄ β π΅)) / (absβπ΄)) β β) |
62 | | resubcl 11520 |
. . . . . . . . . . 11
β’ ((1
β β β§ ((absβ(π΄ β π΅)) / (absβπ΄)) β β) β (1 β
((absβ(π΄ β
π΅)) / (absβπ΄))) β
β) |
63 | 57, 61, 62 | sylancr 587 |
. . . . . . . . . 10
β’ (π β (1 β
((absβ(π΄ β
π΅)) / (absβπ΄))) β
β) |
64 | 30 | recld 15137 |
. . . . . . . . . 10
β’ (π β (ββ(π΅ / π΄)) β β) |
65 | 5 | abscld 15379 |
. . . . . . . . . . . . . . . 16
β’ (π β (absβπ΄) β
β) |
66 | 35 | rpred 13012 |
. . . . . . . . . . . . . . . . 17
β’ (π β π
β β) |
67 | | 1rp 12974 |
. . . . . . . . . . . . . . . . . 18
β’ 1 β
β+ |
68 | | rpaddcl 12992 |
. . . . . . . . . . . . . . . . . 18
β’ ((1
β β+ β§ π
β β+) β (1 +
π
) β
β+) |
69 | 67, 35, 68 | sylancr 587 |
. . . . . . . . . . . . . . . . 17
β’ (π β (1 + π
) β
β+) |
70 | 66, 69 | rerpdivcld 13043 |
. . . . . . . . . . . . . . . 16
β’ (π β (π
/ (1 + π
)) β β) |
71 | 65, 70 | remulcld 11240 |
. . . . . . . . . . . . . . 15
β’ (π β ((absβπ΄) Β· (π
/ (1 + π
))) β β) |
72 | 34, 71 | eqeltrid 2837 |
. . . . . . . . . . . . . 14
β’ (π β π β β) |
73 | | rpre 12978 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π΄ β β+
β π΄ β
β) |
74 | 73 | adantl 482 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π΄ β β+) β π΄ β
β) |
75 | 5 | imcld 15138 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (ββπ΄) β
β) |
76 | 75 | recnd 11238 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (ββπ΄) β
β) |
77 | 76 | abscld 15379 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β
(absβ(ββπ΄)) β β) |
78 | 77 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ Β¬ π΄ β β+) β
(absβ(ββπ΄)) β β) |
79 | 74, 78 | ifclda 4562 |
. . . . . . . . . . . . . . . . . 18
β’ (π β if(π΄ β β+, π΄,
(absβ(ββπ΄))) β β) |
80 | 33, 79 | eqeltrid 2837 |
. . . . . . . . . . . . . . . . 17
β’ (π β π β β) |
81 | | ltmin 13169 |
. . . . . . . . . . . . . . . . 17
β’
(((absβ(π΄
β π΅)) β β
β§ π β β
β§ π β β)
β ((absβ(π΄
β π΅)) < if(π β€ π, π, π) β ((absβ(π΄ β π΅)) < π β§ (absβ(π΄ β π΅)) < π))) |
82 | 59, 80, 72, 81 | syl3anc 1371 |
. . . . . . . . . . . . . . . 16
β’ (π β ((absβ(π΄ β π΅)) < if(π β€ π, π, π) β ((absβ(π΄ β π΅)) < π β§ (absβ(π΄ β π΅)) < π))) |
83 | 36, 82 | mpbid 231 |
. . . . . . . . . . . . . . 15
β’ (π β ((absβ(π΄ β π΅)) < π β§ (absβ(π΄ β π΅)) < π)) |
84 | 83 | simprd 496 |
. . . . . . . . . . . . . 14
β’ (π β (absβ(π΄ β π΅)) < π) |
85 | 69 | rpred 13012 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (1 + π
) β β) |
86 | 66 | ltp1d 12140 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β π
< (π
+ 1)) |
87 | 66 | recnd 11238 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β π
β β) |
88 | | ax-1cn 11164 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ 1 β
β |
89 | | addcom 11396 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π
β β β§ 1 β
β) β (π
+ 1) =
(1 + π
)) |
90 | 87, 88, 89 | sylancl 586 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (π
+ 1) = (1 + π
)) |
91 | 86, 90 | breqtrd 5173 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β π
< (1 + π
)) |
92 | 66, 85, 91 | ltled 11358 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β π
β€ (1 + π
)) |
93 | 85 | recnd 11238 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (1 + π
) β β) |
94 | 93 | mulridd 11227 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β ((1 + π
) Β· 1) = (1 + π
)) |
95 | 92, 94 | breqtrrd 5175 |
. . . . . . . . . . . . . . . . . 18
β’ (π β π
β€ ((1 + π
) Β· 1)) |
96 | 57 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β 1 β
β) |
97 | 66, 96, 69 | ledivmuld 13065 |
. . . . . . . . . . . . . . . . . 18
β’ (π β ((π
/ (1 + π
)) β€ 1 β π
β€ ((1 + π
) Β· 1))) |
98 | 95, 97 | mpbird 256 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π
/ (1 + π
)) β€ 1) |
99 | 70, 96, 60 | lemul2d 13056 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((π
/ (1 + π
)) β€ 1 β ((absβπ΄) Β· (π
/ (1 + π
))) β€ ((absβπ΄) Β· 1))) |
100 | 98, 99 | mpbid 231 |
. . . . . . . . . . . . . . . 16
β’ (π β ((absβπ΄) Β· (π
/ (1 + π
))) β€ ((absβπ΄) Β· 1)) |
101 | 65 | recnd 11238 |
. . . . . . . . . . . . . . . . 17
β’ (π β (absβπ΄) β
β) |
102 | 101 | mulridd 11227 |
. . . . . . . . . . . . . . . 16
β’ (π β ((absβπ΄) Β· 1) = (absβπ΄)) |
103 | 100, 102 | breqtrd 5173 |
. . . . . . . . . . . . . . 15
β’ (π β ((absβπ΄) Β· (π
/ (1 + π
))) β€ (absβπ΄)) |
104 | 34, 103 | eqbrtrid 5182 |
. . . . . . . . . . . . . 14
β’ (π β π β€ (absβπ΄)) |
105 | 59, 72, 65, 84, 104 | ltletrd 11370 |
. . . . . . . . . . . . 13
β’ (π β (absβ(π΄ β π΅)) < (absβπ΄)) |
106 | 105, 102 | breqtrrd 5175 |
. . . . . . . . . . . 12
β’ (π β (absβ(π΄ β π΅)) < ((absβπ΄) Β· 1)) |
107 | 59, 96, 60 | ltdivmuld 13063 |
. . . . . . . . . . . 12
β’ (π β (((absβ(π΄ β π΅)) / (absβπ΄)) < 1 β (absβ(π΄ β π΅)) < ((absβπ΄) Β· 1))) |
108 | 106, 107 | mpbird 256 |
. . . . . . . . . . 11
β’ (π β ((absβ(π΄ β π΅)) / (absβπ΄)) < 1) |
109 | | posdif 11703 |
. . . . . . . . . . . 12
β’
((((absβ(π΄
β π΅)) /
(absβπ΄)) β
β β§ 1 β β) β (((absβ(π΄ β π΅)) / (absβπ΄)) < 1 β 0 < (1 β
((absβ(π΄ β
π΅)) / (absβπ΄))))) |
110 | 61, 57, 109 | sylancl 586 |
. . . . . . . . . . 11
β’ (π β (((absβ(π΄ β π΅)) / (absβπ΄)) < 1 β 0 < (1 β
((absβ(π΄ β
π΅)) / (absβπ΄))))) |
111 | 108, 110 | mpbid 231 |
. . . . . . . . . 10
β’ (π β 0 < (1 β
((absβ(π΄ β
π΅)) / (absβπ΄)))) |
112 | 58, 5, 7 | divcld 11986 |
. . . . . . . . . . . . 13
β’ (π β ((π΄ β π΅) / π΄) β β) |
113 | 112 | releabsd 15394 |
. . . . . . . . . . . 12
β’ (π β (ββ((π΄ β π΅) / π΄)) β€ (absβ((π΄ β π΅) / π΄))) |
114 | 5, 14, 5, 7 | divsubdird 12025 |
. . . . . . . . . . . . . . . 16
β’ (π β ((π΄ β π΅) / π΄) = ((π΄ / π΄) β (π΅ / π΄))) |
115 | 5, 7 | dividd 11984 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π΄ / π΄) = 1) |
116 | 115 | oveq1d 7420 |
. . . . . . . . . . . . . . . 16
β’ (π β ((π΄ / π΄) β (π΅ / π΄)) = (1 β (π΅ / π΄))) |
117 | 114, 116 | eqtrd 2772 |
. . . . . . . . . . . . . . 15
β’ (π β ((π΄ β π΅) / π΄) = (1 β (π΅ / π΄))) |
118 | 117 | fveq2d 6892 |
. . . . . . . . . . . . . 14
β’ (π β (ββ((π΄ β π΅) / π΄)) = (ββ(1 β (π΅ / π΄)))) |
119 | | resub 15070 |
. . . . . . . . . . . . . . 15
β’ ((1
β β β§ (π΅ /
π΄) β β) β
(ββ(1 β (π΅
/ π΄))) = ((ββ1)
β (ββ(π΅ /
π΄)))) |
120 | 88, 30, 119 | sylancr 587 |
. . . . . . . . . . . . . 14
β’ (π β (ββ(1 β
(π΅ / π΄))) = ((ββ1) β
(ββ(π΅ / π΄)))) |
121 | 118, 120 | eqtrd 2772 |
. . . . . . . . . . . . 13
β’ (π β (ββ((π΄ β π΅) / π΄)) = ((ββ1) β
(ββ(π΅ / π΄)))) |
122 | | re1 15097 |
. . . . . . . . . . . . . 14
β’
(ββ1) = 1 |
123 | 122 | oveq1i 7415 |
. . . . . . . . . . . . 13
β’
((ββ1) β (ββ(π΅ / π΄))) = (1 β (ββ(π΅ / π΄))) |
124 | 121, 123 | eqtrdi 2788 |
. . . . . . . . . . . 12
β’ (π β (ββ((π΄ β π΅) / π΄)) = (1 β (ββ(π΅ / π΄)))) |
125 | 58, 5, 7 | absdivd 15398 |
. . . . . . . . . . . 12
β’ (π β (absβ((π΄ β π΅) / π΄)) = ((absβ(π΄ β π΅)) / (absβπ΄))) |
126 | 113, 124,
125 | 3brtr3d 5178 |
. . . . . . . . . . 11
β’ (π β (1 β
(ββ(π΅ / π΄))) β€ ((absβ(π΄ β π΅)) / (absβπ΄))) |
127 | 96, 64, 61, 126 | subled 11813 |
. . . . . . . . . 10
β’ (π β (1 β
((absβ(π΄ β
π΅)) / (absβπ΄))) β€ (ββ(π΅ / π΄))) |
128 | 56, 63, 64, 111, 127 | ltletrd 11370 |
. . . . . . . . 9
β’ (π β 0 <
(ββ(π΅ / π΄))) |
129 | | argregt0 26109 |
. . . . . . . . 9
β’ (((π΅ / π΄) β β β§ 0 <
(ββ(π΅ / π΄))) β
(ββ(logβ(π΅ / π΄))) β (-(Ο / 2)(,)(Ο /
2))) |
130 | 30, 128, 129 | syl2anc 584 |
. . . . . . . 8
β’ (π β
(ββ(logβ(π΅ / π΄))) β (-(Ο / 2)(,)(Ο /
2))) |
131 | | cosq14gt0 26011 |
. . . . . . . 8
β’
((ββ(logβ(π΅ / π΄))) β (-(Ο / 2)(,)(Ο / 2)) β
0 < (cosβ(ββ(logβ(π΅ / π΄))))) |
132 | 130, 131 | syl 17 |
. . . . . . 7
β’ (π β 0 <
(cosβ(ββ(logβ(π΅ / π΄))))) |
133 | 132 | gt0ne0d 11774 |
. . . . . 6
β’ (π β
(cosβ(ββ(logβ(π΅ / π΄)))) β 0) |
134 | 53, 133 | retancld 16084 |
. . . . 5
β’ (π β
(tanβ(ββ(logβ(π΅ / π΄)))) β β) |
135 | 134 | recnd 11238 |
. . . 4
β’ (π β
(tanβ(ββ(logβ(π΅ / π΄)))) β β) |
136 | 135 | abscld 15379 |
. . 3
β’ (π β
(absβ(tanβ(ββ(logβ(π΅ / π΄))))) β β) |
137 | | tanabsge 26007 |
. . . 4
β’
((ββ(logβ(π΅ / π΄))) β (-(Ο / 2)(,)(Ο / 2)) β
(absβ(ββ(logβ(π΅ / π΄)))) β€
(absβ(tanβ(ββ(logβ(π΅ / π΄)))))) |
138 | 130, 137 | syl 17 |
. . 3
β’ (π β
(absβ(ββ(logβ(π΅ / π΄)))) β€
(absβ(tanβ(ββ(logβ(π΅ / π΄)))))) |
139 | 128 | gt0ne0d 11774 |
. . . . . . 7
β’ (π β (ββ(π΅ / π΄)) β 0) |
140 | | tanarg 26118 |
. . . . . . 7
β’ (((π΅ / π΄) β β β§ (ββ(π΅ / π΄)) β 0) β
(tanβ(ββ(logβ(π΅ / π΄)))) = ((ββ(π΅ / π΄)) / (ββ(π΅ / π΄)))) |
141 | 30, 139, 140 | syl2anc 584 |
. . . . . 6
β’ (π β
(tanβ(ββ(logβ(π΅ / π΄)))) = ((ββ(π΅ / π΄)) / (ββ(π΅ / π΄)))) |
142 | 141 | fveq2d 6892 |
. . . . 5
β’ (π β
(absβ(tanβ(ββ(logβ(π΅ / π΄))))) = (absβ((ββ(π΅ / π΄)) / (ββ(π΅ / π΄))))) |
143 | 30 | imcld 15138 |
. . . . . . 7
β’ (π β (ββ(π΅ / π΄)) β β) |
144 | 143 | recnd 11238 |
. . . . . 6
β’ (π β (ββ(π΅ / π΄)) β β) |
145 | 64 | recnd 11238 |
. . . . . 6
β’ (π β (ββ(π΅ / π΄)) β β) |
146 | 144, 145,
139 | absdivd 15398 |
. . . . 5
β’ (π β
(absβ((ββ(π΅ / π΄)) / (ββ(π΅ / π΄)))) = ((absβ(ββ(π΅ / π΄))) / (absβ(ββ(π΅ / π΄))))) |
147 | 56, 64, 128 | ltled 11358 |
. . . . . . 7
β’ (π β 0 β€
(ββ(π΅ / π΄))) |
148 | 64, 147 | absidd 15365 |
. . . . . 6
β’ (π β
(absβ(ββ(π΅
/ π΄))) =
(ββ(π΅ / π΄))) |
149 | 148 | oveq2d 7421 |
. . . . 5
β’ (π β
((absβ(ββ(π΅ / π΄))) / (absβ(ββ(π΅ / π΄)))) = ((absβ(ββ(π΅ / π΄))) / (ββ(π΅ / π΄)))) |
150 | 142, 146,
149 | 3eqtrd 2776 |
. . . 4
β’ (π β
(absβ(tanβ(ββ(logβ(π΅ / π΄))))) = ((absβ(ββ(π΅ / π΄))) / (ββ(π΅ / π΄)))) |
151 | 144 | abscld 15379 |
. . . . . 6
β’ (π β
(absβ(ββ(π΅ / π΄))) β β) |
152 | 64, 66 | remulcld 11240 |
. . . . . 6
β’ (π β ((ββ(π΅ / π΄)) Β· π
) β β) |
153 | 14, 5 | subcld 11567 |
. . . . . . . . 9
β’ (π β (π΅ β π΄) β β) |
154 | 153, 5, 7 | divcld 11986 |
. . . . . . . 8
β’ (π β ((π΅ β π΄) / π΄) β β) |
155 | | absimle 15252 |
. . . . . . . 8
β’ (((π΅ β π΄) / π΄) β β β
(absβ(ββ((π΅ β π΄) / π΄))) β€ (absβ((π΅ β π΄) / π΄))) |
156 | 154, 155 | syl 17 |
. . . . . . 7
β’ (π β
(absβ(ββ((π΅ β π΄) / π΄))) β€ (absβ((π΅ β π΄) / π΄))) |
157 | 14, 5, 5, 7 | divsubdird 12025 |
. . . . . . . . . . 11
β’ (π β ((π΅ β π΄) / π΄) = ((π΅ / π΄) β (π΄ / π΄))) |
158 | 115 | oveq2d 7421 |
. . . . . . . . . . 11
β’ (π β ((π΅ / π΄) β (π΄ / π΄)) = ((π΅ / π΄) β 1)) |
159 | 157, 158 | eqtrd 2772 |
. . . . . . . . . 10
β’ (π β ((π΅ β π΄) / π΄) = ((π΅ / π΄) β 1)) |
160 | 159 | fveq2d 6892 |
. . . . . . . . 9
β’ (π β (ββ((π΅ β π΄) / π΄)) = (ββ((π΅ / π΄) β 1))) |
161 | | imsub 15078 |
. . . . . . . . . . 11
β’ (((π΅ / π΄) β β β§ 1 β β)
β (ββ((π΅ /
π΄) β 1)) =
((ββ(π΅ / π΄)) β
(ββ1))) |
162 | 30, 88, 161 | sylancl 586 |
. . . . . . . . . 10
β’ (π β (ββ((π΅ / π΄) β 1)) = ((ββ(π΅ / π΄)) β
(ββ1))) |
163 | | im1 15098 |
. . . . . . . . . . 11
β’
(ββ1) = 0 |
164 | 163 | oveq2i 7416 |
. . . . . . . . . 10
β’
((ββ(π΅ /
π΄)) β
(ββ1)) = ((ββ(π΅ / π΄)) β 0) |
165 | 162, 164 | eqtrdi 2788 |
. . . . . . . . 9
β’ (π β (ββ((π΅ / π΄) β 1)) = ((ββ(π΅ / π΄)) β 0)) |
166 | 144 | subid1d 11556 |
. . . . . . . . 9
β’ (π β ((ββ(π΅ / π΄)) β 0) = (ββ(π΅ / π΄))) |
167 | 160, 165,
166 | 3eqtrrd 2777 |
. . . . . . . 8
β’ (π β (ββ(π΅ / π΄)) = (ββ((π΅ β π΄) / π΄))) |
168 | 167 | fveq2d 6892 |
. . . . . . 7
β’ (π β
(absβ(ββ(π΅ / π΄))) = (absβ(ββ((π΅ β π΄) / π΄)))) |
169 | 5, 14 | abssubd 15396 |
. . . . . . . . 9
β’ (π β (absβ(π΄ β π΅)) = (absβ(π΅ β π΄))) |
170 | 169 | oveq1d 7420 |
. . . . . . . 8
β’ (π β ((absβ(π΄ β π΅)) / (absβπ΄)) = ((absβ(π΅ β π΄)) / (absβπ΄))) |
171 | 153, 5, 7 | absdivd 15398 |
. . . . . . . 8
β’ (π β (absβ((π΅ β π΄) / π΄)) = ((absβ(π΅ β π΄)) / (absβπ΄))) |
172 | 170, 171 | eqtr4d 2775 |
. . . . . . 7
β’ (π β ((absβ(π΄ β π΅)) / (absβπ΄)) = (absβ((π΅ β π΄) / π΄))) |
173 | 156, 168,
172 | 3brtr4d 5179 |
. . . . . 6
β’ (π β
(absβ(ββ(π΅ / π΄))) β€ ((absβ(π΄ β π΅)) / (absβπ΄))) |
174 | 65, 59 | resubcld 11638 |
. . . . . . . . 9
β’ (π β ((absβπ΄) β (absβ(π΄ β π΅))) β β) |
175 | 174, 66 | remulcld 11240 |
. . . . . . . 8
β’ (π β (((absβπ΄) β (absβ(π΄ β π΅))) Β· π
) β β) |
176 | 65, 152 | remulcld 11240 |
. . . . . . . 8
β’ (π β ((absβπ΄) Β· ((ββ(π΅ / π΄)) Β· π
)) β β) |
177 | 59 | recnd 11238 |
. . . . . . . . . . . . 13
β’ (π β (absβ(π΄ β π΅)) β β) |
178 | 88 | a1i 11 |
. . . . . . . . . . . . 13
β’ (π β 1 β
β) |
179 | 177, 178,
87 | adddid 11234 |
. . . . . . . . . . . 12
β’ (π β ((absβ(π΄ β π΅)) Β· (1 + π
)) = (((absβ(π΄ β π΅)) Β· 1) + ((absβ(π΄ β π΅)) Β· π
))) |
180 | 177 | mulridd 11227 |
. . . . . . . . . . . . 13
β’ (π β ((absβ(π΄ β π΅)) Β· 1) = (absβ(π΄ β π΅))) |
181 | 180 | oveq1d 7420 |
. . . . . . . . . . . 12
β’ (π β (((absβ(π΄ β π΅)) Β· 1) + ((absβ(π΄ β π΅)) Β· π
)) = ((absβ(π΄ β π΅)) + ((absβ(π΄ β π΅)) Β· π
))) |
182 | 179, 181 | eqtrd 2772 |
. . . . . . . . . . 11
β’ (π β ((absβ(π΄ β π΅)) Β· (1 + π
)) = ((absβ(π΄ β π΅)) + ((absβ(π΄ β π΅)) Β· π
))) |
183 | 69 | rpne0d 13017 |
. . . . . . . . . . . . . . 15
β’ (π β (1 + π
) β 0) |
184 | 101, 87, 93, 183 | divassd 12021 |
. . . . . . . . . . . . . 14
β’ (π β (((absβπ΄) Β· π
) / (1 + π
)) = ((absβπ΄) Β· (π
/ (1 + π
)))) |
185 | 184, 34 | eqtr4di 2790 |
. . . . . . . . . . . . 13
β’ (π β (((absβπ΄) Β· π
) / (1 + π
)) = π) |
186 | 84, 185 | breqtrrd 5175 |
. . . . . . . . . . . 12
β’ (π β (absβ(π΄ β π΅)) < (((absβπ΄) Β· π
) / (1 + π
))) |
187 | 65, 66 | remulcld 11240 |
. . . . . . . . . . . . 13
β’ (π β ((absβπ΄) Β· π
) β β) |
188 | 59, 187, 69 | ltmuldivd 13059 |
. . . . . . . . . . . 12
β’ (π β (((absβ(π΄ β π΅)) Β· (1 + π
)) < ((absβπ΄) Β· π
) β (absβ(π΄ β π΅)) < (((absβπ΄) Β· π
) / (1 + π
)))) |
189 | 186, 188 | mpbird 256 |
. . . . . . . . . . 11
β’ (π β ((absβ(π΄ β π΅)) Β· (1 + π
)) < ((absβπ΄) Β· π
)) |
190 | 182, 189 | eqbrtrrd 5171 |
. . . . . . . . . 10
β’ (π β ((absβ(π΄ β π΅)) + ((absβ(π΄ β π΅)) Β· π
)) < ((absβπ΄) Β· π
)) |
191 | 59, 66 | remulcld 11240 |
. . . . . . . . . . 11
β’ (π β ((absβ(π΄ β π΅)) Β· π
) β β) |
192 | 59, 191, 187 | ltaddsubd 11810 |
. . . . . . . . . 10
β’ (π β (((absβ(π΄ β π΅)) + ((absβ(π΄ β π΅)) Β· π
)) < ((absβπ΄) Β· π
) β (absβ(π΄ β π΅)) < (((absβπ΄) Β· π
) β ((absβ(π΄ β π΅)) Β· π
)))) |
193 | 190, 192 | mpbid 231 |
. . . . . . . . 9
β’ (π β (absβ(π΄ β π΅)) < (((absβπ΄) Β· π
) β ((absβ(π΄ β π΅)) Β· π
))) |
194 | 101, 177,
87 | subdird 11667 |
. . . . . . . . 9
β’ (π β (((absβπ΄) β (absβ(π΄ β π΅))) Β· π
) = (((absβπ΄) Β· π
) β ((absβ(π΄ β π΅)) Β· π
))) |
195 | 193, 194 | breqtrrd 5175 |
. . . . . . . 8
β’ (π β (absβ(π΄ β π΅)) < (((absβπ΄) β (absβ(π΄ β π΅))) Β· π
)) |
196 | 60 | rpne0d 13017 |
. . . . . . . . . . . . . 14
β’ (π β (absβπ΄) β 0) |
197 | 101, 177,
101, 196 | divsubdird 12025 |
. . . . . . . . . . . . 13
β’ (π β (((absβπ΄) β (absβ(π΄ β π΅))) / (absβπ΄)) = (((absβπ΄) / (absβπ΄)) β ((absβ(π΄ β π΅)) / (absβπ΄)))) |
198 | 101, 196 | dividd 11984 |
. . . . . . . . . . . . . 14
β’ (π β ((absβπ΄) / (absβπ΄)) = 1) |
199 | 198 | oveq1d 7420 |
. . . . . . . . . . . . 13
β’ (π β (((absβπ΄) / (absβπ΄)) β ((absβ(π΄ β π΅)) / (absβπ΄))) = (1 β ((absβ(π΄ β π΅)) / (absβπ΄)))) |
200 | 197, 199 | eqtrd 2772 |
. . . . . . . . . . . 12
β’ (π β (((absβπ΄) β (absβ(π΄ β π΅))) / (absβπ΄)) = (1 β ((absβ(π΄ β π΅)) / (absβπ΄)))) |
201 | 200, 127 | eqbrtrd 5169 |
. . . . . . . . . . 11
β’ (π β (((absβπ΄) β (absβ(π΄ β π΅))) / (absβπ΄)) β€ (ββ(π΅ / π΄))) |
202 | 174, 64, 60 | ledivmuld 13065 |
. . . . . . . . . . 11
β’ (π β ((((absβπ΄) β (absβ(π΄ β π΅))) / (absβπ΄)) β€ (ββ(π΅ / π΄)) β ((absβπ΄) β (absβ(π΄ β π΅))) β€ ((absβπ΄) Β· (ββ(π΅ / π΄))))) |
203 | 201, 202 | mpbid 231 |
. . . . . . . . . 10
β’ (π β ((absβπ΄) β (absβ(π΄ β π΅))) β€ ((absβπ΄) Β· (ββ(π΅ / π΄)))) |
204 | 65, 64 | remulcld 11240 |
. . . . . . . . . . 11
β’ (π β ((absβπ΄) Β· (ββ(π΅ / π΄))) β β) |
205 | 174, 204,
35 | lemul1d 13055 |
. . . . . . . . . 10
β’ (π β (((absβπ΄) β (absβ(π΄ β π΅))) β€ ((absβπ΄) Β· (ββ(π΅ / π΄))) β (((absβπ΄) β (absβ(π΄ β π΅))) Β· π
) β€ (((absβπ΄) Β· (ββ(π΅ / π΄))) Β· π
))) |
206 | 203, 205 | mpbid 231 |
. . . . . . . . 9
β’ (π β (((absβπ΄) β (absβ(π΄ β π΅))) Β· π
) β€ (((absβπ΄) Β· (ββ(π΅ / π΄))) Β· π
)) |
207 | 101, 145,
87 | mulassd 11233 |
. . . . . . . . 9
β’ (π β (((absβπ΄) Β· (ββ(π΅ / π΄))) Β· π
) = ((absβπ΄) Β· ((ββ(π΅ / π΄)) Β· π
))) |
208 | 206, 207 | breqtrd 5173 |
. . . . . . . 8
β’ (π β (((absβπ΄) β (absβ(π΄ β π΅))) Β· π
) β€ ((absβπ΄) Β· ((ββ(π΅ / π΄)) Β· π
))) |
209 | 59, 175, 176, 195, 208 | ltletrd 11370 |
. . . . . . 7
β’ (π β (absβ(π΄ β π΅)) < ((absβπ΄) Β· ((ββ(π΅ / π΄)) Β· π
))) |
210 | 59, 152, 60 | ltdivmuld 13063 |
. . . . . . 7
β’ (π β (((absβ(π΄ β π΅)) / (absβπ΄)) < ((ββ(π΅ / π΄)) Β· π
) β (absβ(π΄ β π΅)) < ((absβπ΄) Β· ((ββ(π΅ / π΄)) Β· π
)))) |
211 | 209, 210 | mpbird 256 |
. . . . . 6
β’ (π β ((absβ(π΄ β π΅)) / (absβπ΄)) < ((ββ(π΅ / π΄)) Β· π
)) |
212 | 151, 61, 152, 173, 211 | lelttrd 11368 |
. . . . 5
β’ (π β
(absβ(ββ(π΅ / π΄))) < ((ββ(π΅ / π΄)) Β· π
)) |
213 | | ltdivmul 12085 |
. . . . . 6
β’
(((absβ(ββ(π΅ / π΄))) β β β§ π
β β β§ ((ββ(π΅ / π΄)) β β β§ 0 <
(ββ(π΅ / π΄)))) β
(((absβ(ββ(π΅ / π΄))) / (ββ(π΅ / π΄))) < π
β (absβ(ββ(π΅ / π΄))) < ((ββ(π΅ / π΄)) Β· π
))) |
214 | 151, 66, 64, 128, 213 | syl112anc 1374 |
. . . . 5
β’ (π β
(((absβ(ββ(π΅ / π΄))) / (ββ(π΅ / π΄))) < π
β (absβ(ββ(π΅ / π΄))) < ((ββ(π΅ / π΄)) Β· π
))) |
215 | 212, 214 | mpbird 256 |
. . . 4
β’ (π β
((absβ(ββ(π΅ / π΄))) / (ββ(π΅ / π΄))) < π
) |
216 | 150, 215 | eqbrtrd 5169 |
. . 3
β’ (π β
(absβ(tanβ(ββ(logβ(π΅ / π΄))))) < π
) |
217 | 55, 136, 66, 138, 216 | lelttrd 11368 |
. 2
β’ (π β
(absβ(ββ(logβ(π΅ / π΄)))) < π
) |
218 | 51, 217 | eqbrtrd 5169 |
1
β’ (π β
(absβ((ββ(logβπ΄)) β (ββ(logβπ΅)))) < π
) |