Step | Hyp | Ref
| Expression |
1 | | smfmullem1.h |
. . . . . . . 8
β’ (π β π» β (π(,)π
)) |
2 | 1 | elioored 44197 |
. . . . . . 7
β’ (π β π» β β) |
3 | 2 | recnd 11238 |
. . . . . 6
β’ (π β π» β β) |
4 | | smfmullem1.u |
. . . . . . 7
β’ (π β π β β) |
5 | 4 | recnd 11238 |
. . . . . 6
β’ (π β π β β) |
6 | | smfmullem1.i |
. . . . . . . 8
β’ (π β πΌ β (π(,)π)) |
7 | 6 | elioored 44197 |
. . . . . . 7
β’ (π β πΌ β β) |
8 | 7 | recnd 11238 |
. . . . . 6
β’ (π β πΌ β β) |
9 | | smfmullem1.v |
. . . . . . 7
β’ (π β π β β) |
10 | 9 | recnd 11238 |
. . . . . 6
β’ (π β π β β) |
11 | 3, 5, 8, 10 | mulsubd 11669 |
. . . . 5
β’ (π β ((π» β π) Β· (πΌ β π)) = (((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π)))) |
12 | 3, 5, 10 | subdird 11667 |
. . . . . . 7
β’ (π β ((π» β π) Β· π) = ((π» Β· π) β (π Β· π))) |
13 | 5, 8, 10 | subdid 11666 |
. . . . . . 7
β’ (π β (π Β· (πΌ β π)) = ((π Β· πΌ) β (π Β· π))) |
14 | 12, 13 | oveq12d 7422 |
. . . . . 6
β’ (π β (((π» β π) Β· π) + (π Β· (πΌ β π))) = (((π» Β· π) β (π Β· π)) + ((π Β· πΌ) β (π Β· π)))) |
15 | 3, 10 | mulcld 11230 |
. . . . . . . 8
β’ (π β (π» Β· π) β β) |
16 | 5, 8 | mulcld 11230 |
. . . . . . . 8
β’ (π β (π Β· πΌ) β β) |
17 | 5, 10 | mulcld 11230 |
. . . . . . . 8
β’ (π β (π Β· π) β β) |
18 | 15, 16, 17, 17 | addsub4d 11614 |
. . . . . . 7
β’ (π β (((π» Β· π) + (π Β· πΌ)) β ((π Β· π) + (π Β· π))) = (((π» Β· π) β (π Β· π)) + ((π Β· πΌ) β (π Β· π)))) |
19 | 18 | eqcomd 2739 |
. . . . . 6
β’ (π β (((π» Β· π) β (π Β· π)) + ((π Β· πΌ) β (π Β· π))) = (((π» Β· π) + (π Β· πΌ)) β ((π Β· π) + (π Β· π)))) |
20 | 5, 8 | mulcomd 11231 |
. . . . . . . 8
β’ (π β (π Β· πΌ) = (πΌ Β· π)) |
21 | 20 | oveq2d 7420 |
. . . . . . 7
β’ (π β ((π» Β· π) + (π Β· πΌ)) = ((π» Β· π) + (πΌ Β· π))) |
22 | 21 | oveq1d 7419 |
. . . . . 6
β’ (π β (((π» Β· π) + (π Β· πΌ)) β ((π Β· π) + (π Β· π))) = (((π» Β· π) + (πΌ Β· π)) β ((π Β· π) + (π Β· π)))) |
23 | 14, 19, 22 | 3eqtrd 2777 |
. . . . 5
β’ (π β (((π» β π) Β· π) + (π Β· (πΌ β π))) = (((π» Β· π) + (πΌ Β· π)) β ((π Β· π) + (π Β· π)))) |
24 | 11, 23 | oveq12d 7422 |
. . . 4
β’ (π β (((π» β π) Β· (πΌ β π)) + (((π» β π) Β· π) + (π Β· (πΌ β π)))) = ((((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) + (((π» Β· π) + (πΌ Β· π)) β ((π Β· π) + (π Β· π))))) |
25 | 3, 8 | mulcld 11230 |
. . . . . . . . . 10
β’ (π β (π» Β· πΌ) β β) |
26 | 10, 5 | mulcld 11230 |
. . . . . . . . . 10
β’ (π β (π Β· π) β β) |
27 | 25, 26 | addcld 11229 |
. . . . . . . . 9
β’ (π β ((π» Β· πΌ) + (π Β· π)) β β) |
28 | 8, 5 | mulcld 11230 |
. . . . . . . . . 10
β’ (π β (πΌ Β· π) β β) |
29 | 15, 28 | addcld 11229 |
. . . . . . . . 9
β’ (π β ((π» Β· π) + (πΌ Β· π)) β β) |
30 | 27, 29 | npcand 11571 |
. . . . . . . 8
β’ (π β ((((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) + ((π» Β· π) + (πΌ Β· π))) = ((π» Β· πΌ) + (π Β· π))) |
31 | 10, 5 | mulcomd 11231 |
. . . . . . . . 9
β’ (π β (π Β· π) = (π Β· π)) |
32 | 31 | oveq2d 7420 |
. . . . . . . 8
β’ (π β ((π» Β· πΌ) + (π Β· π)) = ((π» Β· πΌ) + (π Β· π))) |
33 | 30, 32 | eqtrd 2773 |
. . . . . . 7
β’ (π β ((((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) + ((π» Β· π) + (πΌ Β· π))) = ((π» Β· πΌ) + (π Β· π))) |
34 | 33 | eqcomd 2739 |
. . . . . 6
β’ (π β ((π» Β· πΌ) + (π Β· π)) = ((((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) + ((π» Β· π) + (πΌ Β· π)))) |
35 | 34 | oveq1d 7419 |
. . . . 5
β’ (π β (((π» Β· πΌ) + (π Β· π)) β ((π Β· π) + (π Β· π))) = (((((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) + ((π» Β· π) + (πΌ Β· π))) β ((π Β· π) + (π Β· π)))) |
36 | 27, 29 | subcld 11567 |
. . . . . 6
β’ (π β (((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) β β) |
37 | 17, 17 | addcld 11229 |
. . . . . 6
β’ (π β ((π Β· π) + (π Β· π)) β β) |
38 | 36, 29, 37 | addsubassd 11587 |
. . . . 5
β’ (π β (((((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) + ((π» Β· π) + (πΌ Β· π))) β ((π Β· π) + (π Β· π))) = ((((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) + (((π» Β· π) + (πΌ Β· π)) β ((π Β· π) + (π Β· π))))) |
39 | 35, 38 | eqtr2d 2774 |
. . . 4
β’ (π β ((((π» Β· πΌ) + (π Β· π)) β ((π» Β· π) + (πΌ Β· π))) + (((π» Β· π) + (πΌ Β· π)) β ((π Β· π) + (π Β· π)))) = (((π» Β· πΌ) + (π Β· π)) β ((π Β· π) + (π Β· π)))) |
40 | 25, 17, 17 | pnpcan2d 11605 |
. . . 4
β’ (π β (((π» Β· πΌ) + (π Β· π)) β ((π Β· π) + (π Β· π))) = ((π» Β· πΌ) β (π Β· π))) |
41 | 24, 39, 40 | 3eqtrrd 2778 |
. . 3
β’ (π β ((π» Β· πΌ) β (π Β· π)) = (((π» β π) Β· (πΌ β π)) + (((π» β π) Β· π) + (π Β· (πΌ β π))))) |
42 | 2, 4 | jca 513 |
. . . . . . . . 9
β’ (π β (π» β β β§ π β β)) |
43 | | resubcl 11520 |
. . . . . . . . 9
β’ ((π» β β β§ π β β) β (π» β π) β β) |
44 | 42, 43 | syl 17 |
. . . . . . . 8
β’ (π β (π» β π) β β) |
45 | 7, 9 | jca 513 |
. . . . . . . . 9
β’ (π β (πΌ β β β§ π β β)) |
46 | | resubcl 11520 |
. . . . . . . . 9
β’ ((πΌ β β β§ π β β) β (πΌ β π) β β) |
47 | 45, 46 | syl 17 |
. . . . . . . 8
β’ (π β (πΌ β π) β β) |
48 | 44, 47 | jca 513 |
. . . . . . 7
β’ (π β ((π» β π) β β β§ (πΌ β π) β β)) |
49 | | remulcl 11191 |
. . . . . . 7
β’ (((π» β π) β β β§ (πΌ β π) β β) β ((π» β π) Β· (πΌ β π)) β β) |
50 | 48, 49 | syl 17 |
. . . . . 6
β’ (π β ((π» β π) Β· (πΌ β π)) β β) |
51 | 44, 9 | jca 513 |
. . . . . . . . 9
β’ (π β ((π» β π) β β β§ π β β)) |
52 | | remulcl 11191 |
. . . . . . . . 9
β’ (((π» β π) β β β§ π β β) β ((π» β π) Β· π) β β) |
53 | 51, 52 | syl 17 |
. . . . . . . 8
β’ (π β ((π» β π) Β· π) β β) |
54 | 4, 47 | jca 513 |
. . . . . . . . 9
β’ (π β (π β β β§ (πΌ β π) β β)) |
55 | | remulcl 11191 |
. . . . . . . . 9
β’ ((π β β β§ (πΌ β π) β β) β (π Β· (πΌ β π)) β β) |
56 | 54, 55 | syl 17 |
. . . . . . . 8
β’ (π β (π Β· (πΌ β π)) β β) |
57 | 53, 56 | jca 513 |
. . . . . . 7
β’ (π β (((π» β π) Β· π) β β β§ (π Β· (πΌ β π)) β β)) |
58 | | readdcl 11189 |
. . . . . . 7
β’ ((((π» β π) Β· π) β β β§ (π Β· (πΌ β π)) β β) β (((π» β π) Β· π) + (π Β· (πΌ β π))) β β) |
59 | 57, 58 | syl 17 |
. . . . . 6
β’ (π β (((π» β π) Β· π) + (π Β· (πΌ β π))) β β) |
60 | 50, 59 | jca 513 |
. . . . 5
β’ (π β (((π» β π) Β· (πΌ β π)) β β β§ (((π» β π) Β· π) + (π Β· (πΌ β π))) β β)) |
61 | | readdcl 11189 |
. . . . 5
β’ ((((π» β π) Β· (πΌ β π)) β β β§ (((π» β π) Β· π) + (π Β· (πΌ β π))) β β) β (((π» β π) Β· (πΌ β π)) + (((π» β π) Β· π) + (π Β· (πΌ β π)))) β β) |
62 | 60, 61 | syl 17 |
. . . 4
β’ (π β (((π» β π) Β· (πΌ β π)) + (((π» β π) Β· π) + (π Β· (πΌ β π)))) β β) |
63 | | smfmullem1.y |
. . . . . . . . . 10
β’ π = if(1 β€ π, 1, π) |
64 | 63 | a1i 11 |
. . . . . . . . 9
β’ (π β π = if(1 β€ π, 1, π)) |
65 | | 1rp 12974 |
. . . . . . . . . . 11
β’ 1 β
β+ |
66 | 65 | a1i 11 |
. . . . . . . . . 10
β’ (π β 1 β
β+) |
67 | | smfmullem1.x |
. . . . . . . . . . . 12
β’ π = ((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ)))) |
68 | 67 | a1i 11 |
. . . . . . . . . . 11
β’ (π β π = ((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ))))) |
69 | | smfmullem1.l |
. . . . . . . . . . . . 13
β’ (π β (π Β· π) < π΄) |
70 | 4, 9 | remulcld 11240 |
. . . . . . . . . . . . . 14
β’ (π β (π Β· π) β β) |
71 | | smfmullem1.a |
. . . . . . . . . . . . . 14
β’ (π β π΄ β β) |
72 | | difrp 13008 |
. . . . . . . . . . . . . 14
β’ (((π Β· π) β β β§ π΄ β β) β ((π Β· π) < π΄ β (π΄ β (π Β· π)) β
β+)) |
73 | 70, 71, 72 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ (π β ((π Β· π) < π΄ β (π΄ β (π Β· π)) β
β+)) |
74 | 69, 73 | mpbid 231 |
. . . . . . . . . . . 12
β’ (π β (π΄ β (π Β· π)) β
β+) |
75 | | 1red 11211 |
. . . . . . . . . . . . . 14
β’ (π β 1 β
β) |
76 | 5 | abscld 15379 |
. . . . . . . . . . . . . . 15
β’ (π β (absβπ) β
β) |
77 | 10 | abscld 15379 |
. . . . . . . . . . . . . . 15
β’ (π β (absβπ) β
β) |
78 | 76, 77 | readdcld 11239 |
. . . . . . . . . . . . . 14
β’ (π β ((absβπ) + (absβπ)) β β) |
79 | 75, 78 | readdcld 11239 |
. . . . . . . . . . . . 13
β’ (π β (1 + ((absβπ) + (absβπ))) β β) |
80 | | 0re 11212 |
. . . . . . . . . . . . . . 15
β’ 0 β
β |
81 | 80 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β 0 β
β) |
82 | 66 | rpgt0d 13015 |
. . . . . . . . . . . . . 14
β’ (π β 0 < 1) |
83 | 5 | absge0d 15387 |
. . . . . . . . . . . . . . . 16
β’ (π β 0 β€ (absβπ)) |
84 | 10 | absge0d 15387 |
. . . . . . . . . . . . . . . . 17
β’ (π β 0 β€ (absβπ)) |
85 | 76, 77 | addge01d 11798 |
. . . . . . . . . . . . . . . . 17
β’ (π β (0 β€ (absβπ) β (absβπ) β€ ((absβπ) + (absβπ)))) |
86 | 84, 85 | mpbid 231 |
. . . . . . . . . . . . . . . 16
β’ (π β (absβπ) β€ ((absβπ) + (absβπ))) |
87 | 81, 76, 78, 83, 86 | letrd 11367 |
. . . . . . . . . . . . . . 15
β’ (π β 0 β€ ((absβπ) + (absβπ))) |
88 | 75, 78 | addge01d 11798 |
. . . . . . . . . . . . . . 15
β’ (π β (0 β€ ((absβπ) + (absβπ)) β 1 β€ (1 + ((absβπ) + (absβπ))))) |
89 | 87, 88 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ (π β 1 β€ (1 +
((absβπ) +
(absβπ)))) |
90 | 81, 75, 79, 82, 89 | ltletrd 11370 |
. . . . . . . . . . . . 13
β’ (π β 0 < (1 +
((absβπ) +
(absβπ)))) |
91 | 79, 90 | elrpd 13009 |
. . . . . . . . . . . 12
β’ (π β (1 + ((absβπ) + (absβπ))) β
β+) |
92 | 74, 91 | rpdivcld 13029 |
. . . . . . . . . . 11
β’ (π β ((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ)))) β
β+) |
93 | 68, 92 | eqeltrd 2834 |
. . . . . . . . . 10
β’ (π β π β
β+) |
94 | 66, 93 | ifcld 4573 |
. . . . . . . . 9
β’ (π β if(1 β€ π, 1, π) β
β+) |
95 | 64, 94 | eqeltrd 2834 |
. . . . . . . 8
β’ (π β π β
β+) |
96 | 95 | rpred 13012 |
. . . . . . 7
β’ (π β π β β) |
97 | | resqcl 14085 |
. . . . . . 7
β’ (π β β β (πβ2) β
β) |
98 | 96, 97 | syl 17 |
. . . . . 6
β’ (π β (πβ2) β β) |
99 | 96, 77 | remulcld 11240 |
. . . . . . . 8
β’ (π β (π Β· (absβπ)) β β) |
100 | 96, 76 | remulcld 11240 |
. . . . . . . 8
β’ (π β (π Β· (absβπ)) β β) |
101 | 99, 100 | jca 513 |
. . . . . . 7
β’ (π β ((π Β· (absβπ)) β β β§ (π Β· (absβπ)) β β)) |
102 | | readdcl 11189 |
. . . . . . 7
β’ (((π Β· (absβπ)) β β β§ (π Β· (absβπ)) β β) β
((π Β·
(absβπ)) + (π Β· (absβπ))) β
β) |
103 | 101, 102 | syl 17 |
. . . . . 6
β’ (π β ((π Β· (absβπ)) + (π Β· (absβπ))) β β) |
104 | 98, 103 | jca 513 |
. . . . 5
β’ (π β ((πβ2) β β β§ ((π Β· (absβπ)) + (π Β· (absβπ))) β β)) |
105 | | readdcl 11189 |
. . . . 5
β’ (((πβ2) β β β§
((π Β·
(absβπ)) + (π Β· (absβπ))) β β) β
((πβ2) + ((π Β· (absβπ)) + (π Β· (absβπ)))) β β) |
106 | 104, 105 | syl 17 |
. . . 4
β’ (π β ((πβ2) + ((π Β· (absβπ)) + (π Β· (absβπ)))) β β) |
107 | 71, 70 | resubcld 11638 |
. . . 4
β’ (π β (π΄ β (π Β· π)) β β) |
108 | 96 | resqcld 14086 |
. . . . 5
β’ (π β (πβ2) β β) |
109 | 99, 100 | readdcld 11239 |
. . . . 5
β’ (π β ((π Β· (absβπ)) + (π Β· (absβπ))) β β) |
110 | 11, 36 | eqeltrd 2834 |
. . . . . . . 8
β’ (π β ((π» β π) Β· (πΌ β π)) β β) |
111 | 110 | abscld 15379 |
. . . . . . 7
β’ (π β (absβ((π» β π) Β· (πΌ β π))) β β) |
112 | 96, 96 | remulcld 11240 |
. . . . . . 7
β’ (π β (π Β· π) β β) |
113 | 50 | leabsd 15357 |
. . . . . . 7
β’ (π β ((π» β π) Β· (πΌ β π)) β€ (absβ((π» β π) Β· (πΌ β π)))) |
114 | 44 | recnd 11238 |
. . . . . . . . 9
β’ (π β (π» β π) β β) |
115 | 47 | recnd 11238 |
. . . . . . . . 9
β’ (π β (πΌ β π) β β) |
116 | 114, 115 | absmuld 15397 |
. . . . . . . 8
β’ (π β (absβ((π» β π) Β· (πΌ β π))) = ((absβ(π» β π)) Β· (absβ(πΌ β π)))) |
117 | 114 | abscld 15379 |
. . . . . . . . 9
β’ (π β (absβ(π» β π)) β β) |
118 | 115 | abscld 15379 |
. . . . . . . . 9
β’ (π β (absβ(πΌ β π)) β β) |
119 | 114 | absge0d 15387 |
. . . . . . . . 9
β’ (π β 0 β€ (absβ(π» β π))) |
120 | 4, 96 | resubcld 11638 |
. . . . . . . . . . . 12
β’ (π β (π β π) β β) |
121 | | smfmullem1.p |
. . . . . . . . . . . . 13
β’ (π β π β ((π β π)(,)π)) |
122 | 121 | elioored 44197 |
. . . . . . . . . . . 12
β’ (π β π β β) |
123 | 120 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β (π β π) β
β*) |
124 | 4 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β π β
β*) |
125 | | ioogtlb 44143 |
. . . . . . . . . . . . 13
β’ (((π β π) β β* β§ π β β*
β§ π β ((π β π)(,)π)) β (π β π) < π) |
126 | 123, 124,
121, 125 | syl3anc 1372 |
. . . . . . . . . . . 12
β’ (π β (π β π) < π) |
127 | 122 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β π β
β*) |
128 | | smfmullem1.r |
. . . . . . . . . . . . . . 15
β’ (π β π
β (π(,)(π + π))) |
129 | 128 | elioored 44197 |
. . . . . . . . . . . . . 14
β’ (π β π
β β) |
130 | 129 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β π
β
β*) |
131 | | ioogtlb 44143 |
. . . . . . . . . . . . 13
β’ ((π β β*
β§ π
β
β* β§ π»
β (π(,)π
)) β π < π») |
132 | 127, 130,
1, 131 | syl3anc 1372 |
. . . . . . . . . . . 12
β’ (π β π < π») |
133 | 120, 122,
2, 126, 132 | lttrd 11371 |
. . . . . . . . . . 11
β’ (π β (π β π) < π») |
134 | 4, 96 | readdcld 11239 |
. . . . . . . . . . . 12
β’ (π β (π + π) β β) |
135 | | iooltub 44158 |
. . . . . . . . . . . . 13
β’ ((π β β*
β§ π
β
β* β§ π»
β (π(,)π
)) β π» < π
) |
136 | 127, 130,
1, 135 | syl3anc 1372 |
. . . . . . . . . . . 12
β’ (π β π» < π
) |
137 | 134 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β (π + π) β
β*) |
138 | | iooltub 44158 |
. . . . . . . . . . . . 13
β’ ((π β β*
β§ (π + π) β β*
β§ π
β (π(,)(π + π))) β π
< (π + π)) |
139 | 124, 137,
128, 138 | syl3anc 1372 |
. . . . . . . . . . . 12
β’ (π β π
< (π + π)) |
140 | 2, 129, 134, 136, 139 | lttrd 11371 |
. . . . . . . . . . 11
β’ (π β π» < (π + π)) |
141 | 133, 140 | jca 513 |
. . . . . . . . . 10
β’ (π β ((π β π) < π» β§ π» < (π + π))) |
142 | 2, 4, 96 | absdifltd 15376 |
. . . . . . . . . 10
β’ (π β ((absβ(π» β π)) < π β ((π β π) < π» β§ π» < (π + π)))) |
143 | 141, 142 | mpbird 257 |
. . . . . . . . 9
β’ (π β (absβ(π» β π)) < π) |
144 | 115 | absge0d 15387 |
. . . . . . . . 9
β’ (π β 0 β€ (absβ(πΌ β π))) |
145 | 9, 96 | resubcld 11638 |
. . . . . . . . . . . 12
β’ (π β (π β π) β β) |
146 | | smfmullem1.s |
. . . . . . . . . . . . 13
β’ (π β π β ((π β π)(,)π)) |
147 | 146 | elioored 44197 |
. . . . . . . . . . . 12
β’ (π β π β β) |
148 | 145 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β (π β π) β
β*) |
149 | 9 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β π β
β*) |
150 | 148, 149,
146 | ioogtlbd 44198 |
. . . . . . . . . . . 12
β’ (π β (π β π) < π) |
151 | 147 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β π β
β*) |
152 | | smfmullem1.z |
. . . . . . . . . . . . . . 15
β’ (π β π β (π(,)(π + π))) |
153 | 152 | elioored 44197 |
. . . . . . . . . . . . . 14
β’ (π β π β β) |
154 | 153 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β π β
β*) |
155 | 151, 154,
6 | ioogtlbd 44198 |
. . . . . . . . . . . 12
β’ (π β π < πΌ) |
156 | 145, 147,
7, 150, 155 | lttrd 11371 |
. . . . . . . . . . 11
β’ (π β (π β π) < πΌ) |
157 | 9, 96 | readdcld 11239 |
. . . . . . . . . . . 12
β’ (π β (π + π) β β) |
158 | 151, 154,
6 | iooltubd 44192 |
. . . . . . . . . . . 12
β’ (π β πΌ < π) |
159 | 157 | rexrd 11260 |
. . . . . . . . . . . . 13
β’ (π β (π + π) β
β*) |
160 | 149, 159,
152 | iooltubd 44192 |
. . . . . . . . . . . 12
β’ (π β π < (π + π)) |
161 | 7, 153, 157, 158, 160 | lttrd 11371 |
. . . . . . . . . . 11
β’ (π β πΌ < (π + π)) |
162 | 156, 161 | jca 513 |
. . . . . . . . . 10
β’ (π β ((π β π) < πΌ β§ πΌ < (π + π))) |
163 | 7, 9, 96 | absdifltd 15376 |
. . . . . . . . . 10
β’ (π β ((absβ(πΌ β π)) < π β ((π β π) < πΌ β§ πΌ < (π + π)))) |
164 | 162, 163 | mpbird 257 |
. . . . . . . . 9
β’ (π β (absβ(πΌ β π)) < π) |
165 | 117, 96, 118, 96, 119, 143, 144, 164 | ltmul12ad 12151 |
. . . . . . . 8
β’ (π β ((absβ(π» β π)) Β· (absβ(πΌ β π))) < (π Β· π)) |
166 | 116, 165 | eqbrtrd 5169 |
. . . . . . 7
β’ (π β (absβ((π» β π) Β· (πΌ β π))) < (π Β· π)) |
167 | 50, 111, 112, 113, 166 | lelttrd 11368 |
. . . . . 6
β’ (π β ((π» β π) Β· (πΌ β π)) < (π Β· π)) |
168 | 96 | recnd 11238 |
. . . . . . . 8
β’ (π β π β β) |
169 | 168 | sqvald 14104 |
. . . . . . 7
β’ (π β (πβ2) = (π Β· π)) |
170 | 169 | eqcomd 2739 |
. . . . . 6
β’ (π β (π Β· π) = (πβ2)) |
171 | 167, 170 | breqtrd 5173 |
. . . . 5
β’ (π β ((π» β π) Β· (πΌ β π)) < (πβ2)) |
172 | 53 | recnd 11238 |
. . . . . . . 8
β’ (π β ((π» β π) Β· π) β β) |
173 | 172 | abscld 15379 |
. . . . . . 7
β’ (π β (absβ((π» β π) Β· π)) β β) |
174 | 53 | leabsd 15357 |
. . . . . . 7
β’ (π β ((π» β π) Β· π) β€ (absβ((π» β π) Β· π))) |
175 | 114, 10 | absmuld 15397 |
. . . . . . . 8
β’ (π β (absβ((π» β π) Β· π)) = ((absβ(π» β π)) Β· (absβπ))) |
176 | 117, 96, 143 | ltled 11358 |
. . . . . . . . 9
β’ (π β (absβ(π» β π)) β€ π) |
177 | 117, 96, 77, 84, 176 | lemul1ad 12149 |
. . . . . . . 8
β’ (π β ((absβ(π» β π)) Β· (absβπ)) β€ (π Β· (absβπ))) |
178 | 175, 177 | eqbrtrd 5169 |
. . . . . . 7
β’ (π β (absβ((π» β π) Β· π)) β€ (π Β· (absβπ))) |
179 | 53, 173, 99, 174, 178 | letrd 11367 |
. . . . . 6
β’ (π β ((π» β π) Β· π) β€ (π Β· (absβπ))) |
180 | 56 | recnd 11238 |
. . . . . . . 8
β’ (π β (π Β· (πΌ β π)) β β) |
181 | 180 | abscld 15379 |
. . . . . . 7
β’ (π β (absβ(π Β· (πΌ β π))) β β) |
182 | 56 | leabsd 15357 |
. . . . . . 7
β’ (π β (π Β· (πΌ β π)) β€ (absβ(π Β· (πΌ β π)))) |
183 | 5, 115 | absmuld 15397 |
. . . . . . . . 9
β’ (π β (absβ(π Β· (πΌ β π))) = ((absβπ) Β· (absβ(πΌ β π)))) |
184 | 76 | recnd 11238 |
. . . . . . . . . 10
β’ (π β (absβπ) β
β) |
185 | 118 | recnd 11238 |
. . . . . . . . . 10
β’ (π β (absβ(πΌ β π)) β β) |
186 | 184, 185 | mulcomd 11231 |
. . . . . . . . 9
β’ (π β ((absβπ) Β· (absβ(πΌ β π))) = ((absβ(πΌ β π)) Β· (absβπ))) |
187 | 183, 186 | eqtrd 2773 |
. . . . . . . 8
β’ (π β (absβ(π Β· (πΌ β π))) = ((absβ(πΌ β π)) Β· (absβπ))) |
188 | 118, 96, 164 | ltled 11358 |
. . . . . . . . 9
β’ (π β (absβ(πΌ β π)) β€ π) |
189 | 118, 96, 76, 83, 188 | lemul1ad 12149 |
. . . . . . . 8
β’ (π β ((absβ(πΌ β π)) Β· (absβπ)) β€ (π Β· (absβπ))) |
190 | 187, 189 | eqbrtrd 5169 |
. . . . . . 7
β’ (π β (absβ(π Β· (πΌ β π))) β€ (π Β· (absβπ))) |
191 | 56, 181, 100, 182, 190 | letrd 11367 |
. . . . . 6
β’ (π β (π Β· (πΌ β π)) β€ (π Β· (absβπ))) |
192 | 53, 56, 99, 100, 179, 191 | leadd12dd 43961 |
. . . . 5
β’ (π β (((π» β π) Β· π) + (π Β· (πΌ β π))) β€ ((π Β· (absβπ)) + (π Β· (absβπ)))) |
193 | 50, 59, 108, 109, 171, 192 | ltleaddd 11831 |
. . . 4
β’ (π β (((π» β π) Β· (πΌ β π)) + (((π» β π) Β· π) + (π Β· (πΌ β π)))) < ((πβ2) + ((π Β· (absβπ)) + (π Β· (absβπ))))) |
194 | 96, 103 | readdcld 11239 |
. . . . 5
β’ (π β (π + ((π Β· (absβπ)) + (π Β· (absβπ)))) β β) |
195 | 81, 117, 96, 119, 176 | letrd 11367 |
. . . . . . . 8
β’ (π β 0 β€ π) |
196 | 93 | rpred 13012 |
. . . . . . . . . 10
β’ (π β π β β) |
197 | | min1 13164 |
. . . . . . . . . 10
β’ ((1
β β β§ π
β β) β if(1 β€ π, 1, π) β€ 1) |
198 | 75, 196, 197 | syl2anc 585 |
. . . . . . . . 9
β’ (π β if(1 β€ π, 1, π) β€ 1) |
199 | 63, 198 | eqbrtrid 5182 |
. . . . . . . 8
β’ (π β π β€ 1) |
200 | 81, 75, 96, 195, 199 | eliccd 44152 |
. . . . . . 7
β’ (π β π β (0[,]1)) |
201 | 96 | sqrlearg 44201 |
. . . . . . 7
β’ (π β ((πβ2) β€ π β π β (0[,]1))) |
202 | 200, 201 | mpbird 257 |
. . . . . 6
β’ (π β (πβ2) β€ π) |
203 | 98, 96, 103, 202 | leadd1dd 11824 |
. . . . 5
β’ (π β ((πβ2) + ((π Β· (absβπ)) + (π Β· (absβπ)))) β€ (π + ((π Β· (absβπ)) + (π Β· (absβπ))))) |
204 | | 1cnd 11205 |
. . . . . . . 8
β’ (π β 1 β
β) |
205 | 77 | recnd 11238 |
. . . . . . . . 9
β’ (π β (absβπ) β
β) |
206 | 205, 184 | addcld 11229 |
. . . . . . . 8
β’ (π β ((absβπ) + (absβπ)) β β) |
207 | 168, 204,
206 | adddid 11234 |
. . . . . . 7
β’ (π β (π Β· (1 + ((absβπ) + (absβπ)))) = ((π Β· 1) + (π Β· ((absβπ) + (absβπ))))) |
208 | 168 | mulridd 11227 |
. . . . . . . 8
β’ (π β (π Β· 1) = π) |
209 | 168, 205,
184 | adddid 11234 |
. . . . . . . 8
β’ (π β (π Β· ((absβπ) + (absβπ))) = ((π Β· (absβπ)) + (π Β· (absβπ)))) |
210 | 208, 209 | oveq12d 7422 |
. . . . . . 7
β’ (π β ((π Β· 1) + (π Β· ((absβπ) + (absβπ)))) = (π + ((π Β· (absβπ)) + (π Β· (absβπ))))) |
211 | 207, 210 | eqtr2d 2774 |
. . . . . 6
β’ (π β (π + ((π Β· (absβπ)) + (π Β· (absβπ)))) = (π Β· (1 + ((absβπ) + (absβπ))))) |
212 | 77, 76 | readdcld 11239 |
. . . . . . . . 9
β’ (π β ((absβπ) + (absβπ)) β β) |
213 | 75, 212 | readdcld 11239 |
. . . . . . . 8
β’ (π β (1 + ((absβπ) + (absβπ))) β β) |
214 | 77, 76 | addge01d 11798 |
. . . . . . . . . . . . 13
β’ (π β (0 β€ (absβπ) β (absβπ) β€ ((absβπ) + (absβπ)))) |
215 | 83, 214 | mpbid 231 |
. . . . . . . . . . . 12
β’ (π β (absβπ) β€ ((absβπ) + (absβπ))) |
216 | 81, 77, 212, 84, 215 | letrd 11367 |
. . . . . . . . . . 11
β’ (π β 0 β€ ((absβπ) + (absβπ))) |
217 | 75, 212 | addge01d 11798 |
. . . . . . . . . . 11
β’ (π β (0 β€ ((absβπ) + (absβπ)) β 1 β€ (1 + ((absβπ) + (absβπ))))) |
218 | 216, 217 | mpbid 231 |
. . . . . . . . . 10
β’ (π β 1 β€ (1 +
((absβπ) +
(absβπ)))) |
219 | 81, 75, 213, 82, 218 | ltletrd 11370 |
. . . . . . . . 9
β’ (π β 0 < (1 +
((absβπ) +
(absβπ)))) |
220 | 81, 213, 219 | ltled 11358 |
. . . . . . . 8
β’ (π β 0 β€ (1 +
((absβπ) +
(absβπ)))) |
221 | | min2 13165 |
. . . . . . . . . 10
β’ ((1
β β β§ π
β β) β if(1 β€ π, 1, π) β€ π) |
222 | 75, 196, 221 | syl2anc 585 |
. . . . . . . . 9
β’ (π β if(1 β€ π, 1, π) β€ π) |
223 | 64, 222 | eqbrtrd 5169 |
. . . . . . . 8
β’ (π β π β€ π) |
224 | 96, 196, 213, 220, 223 | lemul1ad 12149 |
. . . . . . 7
β’ (π β (π Β· (1 + ((absβπ) + (absβπ)))) β€ (π Β· (1 + ((absβπ) + (absβπ))))) |
225 | 68 | oveq1d 7419 |
. . . . . . . 8
β’ (π β (π Β· (1 + ((absβπ) + (absβπ)))) = (((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ)))) Β· (1 + ((absβπ) + (absβπ))))) |
226 | 184, 205 | addcomd 11412 |
. . . . . . . . . . 11
β’ (π β ((absβπ) + (absβπ)) = ((absβπ) + (absβπ))) |
227 | 226 | oveq2d 7420 |
. . . . . . . . . 10
β’ (π β (1 + ((absβπ) + (absβπ))) = (1 + ((absβπ) + (absβπ)))) |
228 | 227 | oveq2d 7420 |
. . . . . . . . 9
β’ (π β ((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ)))) = ((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ))))) |
229 | 228 | oveq1d 7419 |
. . . . . . . 8
β’ (π β (((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ)))) Β· (1 + ((absβπ) + (absβπ)))) = (((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ)))) Β· (1 + ((absβπ) + (absβπ))))) |
230 | 107 | recnd 11238 |
. . . . . . . . 9
β’ (π β (π΄ β (π Β· π)) β β) |
231 | 204, 206 | addcld 11229 |
. . . . . . . . 9
β’ (π β (1 + ((absβπ) + (absβπ))) β β) |
232 | 81, 219 | gtned 11345 |
. . . . . . . . 9
β’ (π β (1 + ((absβπ) + (absβπ))) β 0) |
233 | 230, 231,
232 | divcan1d 11987 |
. . . . . . . 8
β’ (π β (((π΄ β (π Β· π)) / (1 + ((absβπ) + (absβπ)))) Β· (1 + ((absβπ) + (absβπ)))) = (π΄ β (π Β· π))) |
234 | 225, 229,
233 | 3eqtrd 2777 |
. . . . . . 7
β’ (π β (π Β· (1 + ((absβπ) + (absβπ)))) = (π΄ β (π Β· π))) |
235 | 224, 234 | breqtrd 5173 |
. . . . . 6
β’ (π β (π Β· (1 + ((absβπ) + (absβπ)))) β€ (π΄ β (π Β· π))) |
236 | 211, 235 | eqbrtrd 5169 |
. . . . 5
β’ (π β (π + ((π Β· (absβπ)) + (π Β· (absβπ)))) β€ (π΄ β (π Β· π))) |
237 | 106, 194,
107, 203, 236 | letrd 11367 |
. . . 4
β’ (π β ((πβ2) + ((π Β· (absβπ)) + (π Β· (absβπ)))) β€ (π΄ β (π Β· π))) |
238 | 62, 106, 107, 193, 237 | ltletrd 11370 |
. . 3
β’ (π β (((π» β π) Β· (πΌ β π)) + (((π» β π) Β· π) + (π Β· (πΌ β π)))) < (π΄ β (π Β· π))) |
239 | 41, 238 | eqbrtrd 5169 |
. 2
β’ (π β ((π» Β· πΌ) β (π Β· π)) < (π΄ β (π Β· π))) |
240 | 2, 7 | remulcld 11240 |
. . 3
β’ (π β (π» Β· πΌ) β β) |
241 | 240, 71, 70 | ltsub1d 11819 |
. 2
β’ (π β ((π» Β· πΌ) < π΄ β ((π» Β· πΌ) β (π Β· π)) < (π΄ β (π Β· π)))) |
242 | 239, 241 | mpbird 257 |
1
β’ (π β (π» Β· πΌ) < π΄) |