Step | Hyp | Ref
| Expression |
1 | | unbdqndv2lem2.w |
. . . . . 6
β’ π = if((π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))), π, π) |
2 | 1 | a1i 11 |
. . . . 5
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π = if((π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))), π, π)) |
3 | | iftrue 4534 |
. . . . . 6
β’ ((π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))) β if((π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))), π, π) = π) |
4 | 3 | adantl 482 |
. . . . 5
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β if((π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))), π, π) = π) |
5 | 2, 4 | eqtrd 2772 |
. . . 4
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π = π) |
6 | | unbdqndv2lem2.u |
. . . . . . 7
β’ (π β π β π) |
7 | 6 | adantr 481 |
. . . . . 6
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β π) |
8 | | simplr 767 |
. . . . . . . . 9
β’ (((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β§ π = π΄) β (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) |
9 | | fveq2 6891 |
. . . . . . . . . . . . . . 15
β’ (π = π΄ β (πΉβπ) = (πΉβπ΄)) |
10 | 9 | eqcomd 2738 |
. . . . . . . . . . . . . 14
β’ (π = π΄ β (πΉβπ΄) = (πΉβπ)) |
11 | 10 | oveq2d 7424 |
. . . . . . . . . . . . 13
β’ (π = π΄ β ((πΉβπ) β (πΉβπ΄)) = ((πΉβπ) β (πΉβπ))) |
12 | 11 | fveq2d 6895 |
. . . . . . . . . . . 12
β’ (π = π΄ β (absβ((πΉβπ) β (πΉβπ΄))) = (absβ((πΉβπ) β (πΉβπ)))) |
13 | 12 | adantl 482 |
. . . . . . . . . . 11
β’ ((π β§ π = π΄) β (absβ((πΉβπ) β (πΉβπ΄))) = (absβ((πΉβπ) β (πΉβπ)))) |
14 | | unbdqndv2lem2.f |
. . . . . . . . . . . . . . . 16
β’ (π β πΉ:πβΆβ) |
15 | 14, 6 | ffvelcdmd 7087 |
. . . . . . . . . . . . . . 15
β’ (π β (πΉβπ) β β) |
16 | 15 | subidd 11558 |
. . . . . . . . . . . . . 14
β’ (π β ((πΉβπ) β (πΉβπ)) = 0) |
17 | 16 | fveq2d 6895 |
. . . . . . . . . . . . 13
β’ (π β (absβ((πΉβπ) β (πΉβπ))) = (absβ0)) |
18 | 17 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π = π΄) β (absβ((πΉβπ) β (πΉβπ))) = (absβ0)) |
19 | | abs0 15231 |
. . . . . . . . . . . . 13
β’
(absβ0) = 0 |
20 | 19 | a1i 11 |
. . . . . . . . . . . 12
β’ ((π β§ π = π΄) β (absβ0) = 0) |
21 | 18, 20 | eqtrd 2772 |
. . . . . . . . . . 11
β’ ((π β§ π = π΄) β (absβ((πΉβπ) β (πΉβπ))) = 0) |
22 | 13, 21 | eqtrd 2772 |
. . . . . . . . . 10
β’ ((π β§ π = π΄) β (absβ((πΉβπ) β (πΉβπ΄))) = 0) |
23 | 22 | adantlr 713 |
. . . . . . . . 9
β’ (((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β§ π = π΄) β (absβ((πΉβπ) β (πΉβπ΄))) = 0) |
24 | 8, 23 | breqtrd 5174 |
. . . . . . . 8
β’ (((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β§ π = π΄) β (π΅ Β· (π β π)) β€ 0) |
25 | | unbdqndv2lem2.b |
. . . . . . . . . . . . 13
β’ (π β π΅ β
β+) |
26 | 25 | rpred 13015 |
. . . . . . . . . . . 12
β’ (π β π΅ β β) |
27 | | unbdqndv2lem2.x |
. . . . . . . . . . . . . 14
β’ (π β π β β) |
28 | | unbdqndv2lem2.v |
. . . . . . . . . . . . . 14
β’ (π β π β π) |
29 | 27, 28 | sseldd 3983 |
. . . . . . . . . . . . 13
β’ (π β π β β) |
30 | 27, 6 | sseldd 3983 |
. . . . . . . . . . . . 13
β’ (π β π β β) |
31 | 29, 30 | resubcld 11641 |
. . . . . . . . . . . 12
β’ (π β (π β π) β β) |
32 | 25 | rpgt0d 13018 |
. . . . . . . . . . . 12
β’ (π β 0 < π΅) |
33 | | unbdqndv2lem2.a |
. . . . . . . . . . . . . . . 16
β’ (π β π΄ β π) |
34 | 27, 33 | sseldd 3983 |
. . . . . . . . . . . . . . 15
β’ (π β π΄ β β) |
35 | | unbdqndv2lem2.2 |
. . . . . . . . . . . . . . 15
β’ (π β π β€ π΄) |
36 | | unbdqndv2lem2.3 |
. . . . . . . . . . . . . . 15
β’ (π β π΄ β€ π) |
37 | 30, 34, 29, 35, 36 | letrd 11370 |
. . . . . . . . . . . . . 14
β’ (π β π β€ π) |
38 | | unbdqndv2lem2.1 |
. . . . . . . . . . . . . . 15
β’ (π β π β π) |
39 | 38 | necomd 2996 |
. . . . . . . . . . . . . 14
β’ (π β π β π) |
40 | 30, 29, 37, 39 | leneltd 11367 |
. . . . . . . . . . . . 13
β’ (π β π < π) |
41 | 30, 29 | posdifd 11800 |
. . . . . . . . . . . . 13
β’ (π β (π < π β 0 < (π β π))) |
42 | 40, 41 | mpbid 231 |
. . . . . . . . . . . 12
β’ (π β 0 < (π β π)) |
43 | 26, 31, 32, 42 | mulgt0d 11368 |
. . . . . . . . . . 11
β’ (π β 0 < (π΅ Β· (π β π))) |
44 | | 0red 11216 |
. . . . . . . . . . . 12
β’ (π β 0 β
β) |
45 | 26, 31 | remulcld 11243 |
. . . . . . . . . . . 12
β’ (π β (π΅ Β· (π β π)) β β) |
46 | 44, 45 | ltnled 11360 |
. . . . . . . . . . 11
β’ (π β (0 < (π΅ Β· (π β π)) β Β¬ (π΅ Β· (π β π)) β€ 0)) |
47 | 43, 46 | mpbid 231 |
. . . . . . . . . 10
β’ (π β Β¬ (π΅ Β· (π β π)) β€ 0) |
48 | 47 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β Β¬ (π΅ Β· (π β π)) β€ 0) |
49 | 48 | adantr 481 |
. . . . . . . 8
β’ (((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β§ π = π΄) β Β¬ (π΅ Β· (π β π)) β€ 0) |
50 | 24, 49 | pm2.65da 815 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β Β¬ π = π΄) |
51 | 50 | neqned 2947 |
. . . . . 6
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β π΄) |
52 | 7, 51 | jca 512 |
. . . . 5
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π β§ π β π΄)) |
53 | | eldifsn 4790 |
. . . . 5
β’ (π β (π β {π΄}) β (π β π β§ π β π΄)) |
54 | 52, 53 | sylibr 233 |
. . . 4
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β (π β {π΄})) |
55 | 5, 54 | eqeltrd 2833 |
. . 3
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β (π β {π΄})) |
56 | 5 | oveq1d 7423 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π΄) = (π β π΄)) |
57 | 56 | fveq2d 6895 |
. . . . . 6
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) = (absβ(π β π΄))) |
58 | 30, 34, 35 | abssuble0d 15378 |
. . . . . . 7
β’ (π β (absβ(π β π΄)) = (π΄ β π)) |
59 | 58 | adantr 481 |
. . . . . 6
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) = (π΄ β π)) |
60 | 57, 59 | eqtrd 2772 |
. . . . 5
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) = (π΄ β π)) |
61 | 34, 30 | resubcld 11641 |
. . . . . . 7
β’ (π β (π΄ β π) β β) |
62 | | unbdqndv2lem2.d |
. . . . . . . 8
β’ (π β π· β
β+) |
63 | 62 | rpred 13015 |
. . . . . . 7
β’ (π β π· β β) |
64 | 34, 29, 30, 36 | lesub1dd 11829 |
. . . . . . 7
β’ (π β (π΄ β π) β€ (π β π)) |
65 | | unbdqndv2lem2.4 |
. . . . . . 7
β’ (π β (π β π) < π·) |
66 | 61, 31, 63, 64, 65 | lelttrd 11371 |
. . . . . 6
β’ (π β (π΄ β π) < π·) |
67 | 66 | adantr 481 |
. . . . 5
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΄ β π) < π·) |
68 | 60, 67 | eqbrtrd 5170 |
. . . 4
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) < π·) |
69 | 26, 61 | remulcld 11243 |
. . . . . . . 8
β’ (π β (π΅ Β· (π΄ β π)) β β) |
70 | 69 | adantr 481 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (π΄ β π)) β β) |
71 | 45 | adantr 481 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (π β π)) β β) |
72 | 14, 33 | ffvelcdmd 7087 |
. . . . . . . . . 10
β’ (π β (πΉβπ΄) β β) |
73 | 15, 72 | subcld 11570 |
. . . . . . . . 9
β’ (π β ((πΉβπ) β (πΉβπ΄)) β β) |
74 | 73 | abscld 15382 |
. . . . . . . 8
β’ (π β (absβ((πΉβπ) β (πΉβπ΄))) β β) |
75 | 74 | adantr 481 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ((πΉβπ) β (πΉβπ΄))) β β) |
76 | 44, 26, 32 | ltled 11361 |
. . . . . . . . 9
β’ (π β 0 β€ π΅) |
77 | 61, 31, 26, 76, 64 | lemul2ad 12153 |
. . . . . . . 8
β’ (π β (π΅ Β· (π΄ β π)) β€ (π΅ Β· (π β π))) |
78 | 77 | adantr 481 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (π΄ β π)) β€ (π΅ Β· (π β π))) |
79 | | simpr 485 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) |
80 | 70, 71, 75, 78, 79 | letrd 11370 |
. . . . . 6
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (π΄ β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) |
81 | 26 | adantr 481 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΅ β β) |
82 | 61 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΄ β π) β β) |
83 | 35 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β€ π΄) |
84 | 51 | necomd 2996 |
. . . . . . . . . . . 12
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΄ β π) |
85 | 83, 84 | jca 512 |
. . . . . . . . . . 11
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β€ π΄ β§ π΄ β π)) |
86 | 30, 34 | ltlend 11358 |
. . . . . . . . . . . 12
β’ (π β (π < π΄ β (π β€ π΄ β§ π΄ β π))) |
87 | 86 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π < π΄ β (π β€ π΄ β§ π΄ β π))) |
88 | 85, 87 | mpbird 256 |
. . . . . . . . . 10
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π < π΄) |
89 | 30, 34 | posdifd 11800 |
. . . . . . . . . . 11
β’ (π β (π < π΄ β 0 < (π΄ β π))) |
90 | 89 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π < π΄ β 0 < (π΄ β π))) |
91 | 88, 90 | mpbid 231 |
. . . . . . . . 9
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β 0 < (π΄ β π)) |
92 | 82, 91 | jca 512 |
. . . . . . . 8
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((π΄ β π) β β β§ 0 < (π΄ β π))) |
93 | | elrp 12975 |
. . . . . . . 8
β’ ((π΄ β π) β β+ β ((π΄ β π) β β β§ 0 < (π΄ β π))) |
94 | 92, 93 | sylibr 233 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΄ β π) β
β+) |
95 | 81, 75, 94 | lemuldivd 13064 |
. . . . . 6
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((π΅ Β· (π΄ β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))) β π΅ β€ ((absβ((πΉβπ) β (πΉβπ΄))) / (π΄ β π)))) |
96 | 80, 95 | mpbid 231 |
. . . . 5
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΅ β€ ((absβ((πΉβπ) β (πΉβπ΄))) / (π΄ β π))) |
97 | 5 | fveq2d 6895 |
. . . . . . . . 9
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (πΊβπ) = (πΊβπ)) |
98 | | unbdqndv2lem2.g |
. . . . . . . . . 10
β’ πΊ = (π§ β (π β {π΄}) β¦ (((πΉβπ§) β (πΉβπ΄)) / (π§ β π΄))) |
99 | | fveq2 6891 |
. . . . . . . . . . . 12
β’ (π§ = π β (πΉβπ§) = (πΉβπ)) |
100 | 99 | oveq1d 7423 |
. . . . . . . . . . 11
β’ (π§ = π β ((πΉβπ§) β (πΉβπ΄)) = ((πΉβπ) β (πΉβπ΄))) |
101 | | oveq1 7415 |
. . . . . . . . . . 11
β’ (π§ = π β (π§ β π΄) = (π β π΄)) |
102 | 100, 101 | oveq12d 7426 |
. . . . . . . . . 10
β’ (π§ = π β (((πΉβπ§) β (πΉβπ΄)) / (π§ β π΄)) = (((πΉβπ) β (πΉβπ΄)) / (π β π΄))) |
103 | | ovexd 7443 |
. . . . . . . . . 10
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (((πΉβπ) β (πΉβπ΄)) / (π β π΄)) β V) |
104 | 98, 102, 54, 103 | fvmptd3 7021 |
. . . . . . . . 9
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (πΊβπ) = (((πΉβπ) β (πΉβπ΄)) / (π β π΄))) |
105 | 97, 104 | eqtrd 2772 |
. . . . . . . 8
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (πΊβπ) = (((πΉβπ) β (πΉβπ΄)) / (π β π΄))) |
106 | 105 | fveq2d 6895 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(πΊβπ)) = (absβ(((πΉβπ) β (πΉβπ΄)) / (π β π΄)))) |
107 | 73 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((πΉβπ) β (πΉβπ΄)) β β) |
108 | 30 | recnd 11241 |
. . . . . . . . . . 11
β’ (π β π β β) |
109 | 34 | recnd 11241 |
. . . . . . . . . . 11
β’ (π β π΄ β β) |
110 | 108, 109 | subcld 11570 |
. . . . . . . . . 10
β’ (π β (π β π΄) β β) |
111 | 110 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π΄) β β) |
112 | 108 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β β) |
113 | 109 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΄ β β) |
114 | 112, 113,
51 | subne0d 11579 |
. . . . . . . . 9
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π΄) β 0) |
115 | 107, 111,
114 | absdivd 15401 |
. . . . . . . 8
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(((πΉβπ) β (πΉβπ΄)) / (π β π΄))) = ((absβ((πΉβπ) β (πΉβπ΄))) / (absβ(π β π΄)))) |
116 | 59 | oveq2d 7424 |
. . . . . . . 8
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((absβ((πΉβπ) β (πΉβπ΄))) / (absβ(π β π΄))) = ((absβ((πΉβπ) β (πΉβπ΄))) / (π΄ β π))) |
117 | 115, 116 | eqtrd 2772 |
. . . . . . 7
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(((πΉβπ) β (πΉβπ΄)) / (π β π΄))) = ((absβ((πΉβπ) β (πΉβπ΄))) / (π΄ β π))) |
118 | 106, 117 | eqtrd 2772 |
. . . . . 6
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(πΊβπ)) = ((absβ((πΉβπ) β (πΉβπ΄))) / (π΄ β π))) |
119 | 118 | eqcomd 2738 |
. . . . 5
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((absβ((πΉβπ) β (πΉβπ΄))) / (π΄ β π)) = (absβ(πΊβπ))) |
120 | 96, 119 | breqtrd 5174 |
. . . 4
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΅ β€ (absβ(πΊβπ))) |
121 | 68, 120 | jca 512 |
. . 3
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((absβ(π β π΄)) < π· β§ π΅ β€ (absβ(πΊβπ)))) |
122 | 55, 121 | jca 512 |
. 2
β’ ((π β§ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β (π β {π΄}) β§ ((absβ(π β π΄)) < π· β§ π΅ β€ (absβ(πΊβπ))))) |
123 | 1 | a1i 11 |
. . . . 5
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π = if((π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))), π, π)) |
124 | | simpr 485 |
. . . . . 6
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) |
125 | 124 | iffalsed 4539 |
. . . . 5
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β if((π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))), π, π) = π) |
126 | 123, 125 | eqtrd 2772 |
. . . 4
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π = π) |
127 | 28 | adantr 481 |
. . . . . 6
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β π) |
128 | 30, 29, 37 | abssubge0d 15377 |
. . . . . . . . . . . . . . 15
β’ (π β (absβ(π β π)) = (π β π)) |
129 | 128 | oveq2d 7424 |
. . . . . . . . . . . . . 14
β’ (π β (π΅ Β· (absβ(π β π))) = (π΅ Β· (π β π))) |
130 | 129 | breq1d 5158 |
. . . . . . . . . . . . 13
β’ (π β ((π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))) β (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))))) |
131 | 130 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))) β (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄))))) |
132 | 124, 131 | mtbird 324 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β Β¬ (π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄)))) |
133 | 14, 28 | ffvelcdmd 7087 |
. . . . . . . . . . . . 13
β’ (π β (πΉβπ) β β) |
134 | 31 | recnd 11241 |
. . . . . . . . . . . . 13
β’ (π β (π β π) β β) |
135 | 44, 42 | gtned 11348 |
. . . . . . . . . . . . 13
β’ (π β (π β π) β 0) |
136 | | unbdqndv2lem2.5 |
. . . . . . . . . . . . . 14
β’ (π β (2 Β· π΅) β€ ((absβ((πΉβπ) β (πΉβπ))) / (π β π))) |
137 | 133, 15 | subcld 11570 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((πΉβπ) β (πΉβπ)) β β) |
138 | 137, 134,
135 | absdivd 15401 |
. . . . . . . . . . . . . . . 16
β’ (π β (absβ(((πΉβπ) β (πΉβπ)) / (π β π))) = ((absβ((πΉβπ) β (πΉβπ))) / (absβ(π β π)))) |
139 | 128 | oveq2d 7424 |
. . . . . . . . . . . . . . . 16
β’ (π β ((absβ((πΉβπ) β (πΉβπ))) / (absβ(π β π))) = ((absβ((πΉβπ) β (πΉβπ))) / (π β π))) |
140 | 138, 139 | eqtrd 2772 |
. . . . . . . . . . . . . . 15
β’ (π β (absβ(((πΉβπ) β (πΉβπ)) / (π β π))) = ((absβ((πΉβπ) β (πΉβπ))) / (π β π))) |
141 | 140 | eqcomd 2738 |
. . . . . . . . . . . . . 14
β’ (π β ((absβ((πΉβπ) β (πΉβπ))) / (π β π)) = (absβ(((πΉβπ) β (πΉβπ)) / (π β π)))) |
142 | 136, 141 | breqtrd 5174 |
. . . . . . . . . . . . 13
β’ (π β (2 Β· π΅) β€ (absβ(((πΉβπ) β (πΉβπ)) / (π β π)))) |
143 | 133, 15, 72, 134, 25, 135, 142 | unbdqndv2lem1 35380 |
. . . . . . . . . . . 12
β’ (π β ((π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))) β¨ (π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))))) |
144 | 143 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))) β¨ (π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))))) |
145 | | orel2 889 |
. . . . . . . . . . 11
β’ (Β¬
(π΅ Β·
(absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))) β (((π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))) β¨ (π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄))))) |
146 | 132, 144,
145 | sylc 65 |
. . . . . . . . . 10
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄)))) |
147 | 146 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β§ π = π΄) β (π΅ Β· (absβ(π β π))) β€ (absβ((πΉβπ) β (πΉβπ΄)))) |
148 | | fveq2 6891 |
. . . . . . . . . . . . . . 15
β’ (π = π΄ β (πΉβπ) = (πΉβπ΄)) |
149 | 148 | oveq1d 7423 |
. . . . . . . . . . . . . 14
β’ (π = π΄ β ((πΉβπ) β (πΉβπ΄)) = ((πΉβπ΄) β (πΉβπ΄))) |
150 | 149 | adantl 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π = π΄) β ((πΉβπ) β (πΉβπ΄)) = ((πΉβπ΄) β (πΉβπ΄))) |
151 | 72 | subidd 11558 |
. . . . . . . . . . . . . 14
β’ (π β ((πΉβπ΄) β (πΉβπ΄)) = 0) |
152 | 151 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((π β§ π = π΄) β ((πΉβπ΄) β (πΉβπ΄)) = 0) |
153 | 150, 152 | eqtrd 2772 |
. . . . . . . . . . . 12
β’ ((π β§ π = π΄) β ((πΉβπ) β (πΉβπ΄)) = 0) |
154 | 153 | fveq2d 6895 |
. . . . . . . . . . 11
β’ ((π β§ π = π΄) β (absβ((πΉβπ) β (πΉβπ΄))) = (absβ0)) |
155 | 19 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π = π΄) β (absβ0) = 0) |
156 | 154, 155 | eqtrd 2772 |
. . . . . . . . . 10
β’ ((π β§ π = π΄) β (absβ((πΉβπ) β (πΉβπ΄))) = 0) |
157 | 156 | adantlr 713 |
. . . . . . . . 9
β’ (((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β§ π = π΄) β (absβ((πΉβπ) β (πΉβπ΄))) = 0) |
158 | 147, 157 | breqtrd 5174 |
. . . . . . . 8
β’ (((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β§ π = π΄) β (π΅ Β· (absβ(π β π))) β€ 0) |
159 | 129 | breq1d 5158 |
. . . . . . . . . . 11
β’ (π β ((π΅ Β· (absβ(π β π))) β€ 0 β (π΅ Β· (π β π)) β€ 0)) |
160 | 47, 159 | mtbird 324 |
. . . . . . . . . 10
β’ (π β Β¬ (π΅ Β· (absβ(π β π))) β€ 0) |
161 | 160 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β Β¬ (π΅ Β· (absβ(π β π))) β€ 0) |
162 | 161 | adantr 481 |
. . . . . . . 8
β’ (((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β§ π = π΄) β Β¬ (π΅ Β· (absβ(π β π))) β€ 0) |
163 | 158, 162 | pm2.65da 815 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β Β¬ π = π΄) |
164 | 163 | neqned 2947 |
. . . . . 6
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β π΄) |
165 | 127, 164 | jca 512 |
. . . . 5
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π β§ π β π΄)) |
166 | | eldifsn 4790 |
. . . . 5
β’ (π β (π β {π΄}) β (π β π β§ π β π΄)) |
167 | 165, 166 | sylibr 233 |
. . . 4
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β (π β {π΄})) |
168 | 126, 167 | eqeltrd 2833 |
. . 3
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β (π β {π΄})) |
169 | 126 | oveq1d 7423 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π΄) = (π β π΄)) |
170 | 169 | fveq2d 6895 |
. . . . . 6
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) = (absβ(π β π΄))) |
171 | 34, 29, 36 | abssubge0d 15377 |
. . . . . . 7
β’ (π β (absβ(π β π΄)) = (π β π΄)) |
172 | 171 | adantr 481 |
. . . . . 6
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) = (π β π΄)) |
173 | 170, 172 | eqtrd 2772 |
. . . . 5
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) = (π β π΄)) |
174 | 29, 34 | resubcld 11641 |
. . . . . . 7
β’ (π β (π β π΄) β β) |
175 | 30, 34, 29, 35 | lesub2dd 11830 |
. . . . . . 7
β’ (π β (π β π΄) β€ (π β π)) |
176 | 174, 31, 63, 175, 65 | lelttrd 11371 |
. . . . . 6
β’ (π β (π β π΄) < π·) |
177 | 176 | adantr 481 |
. . . . 5
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π΄) < π·) |
178 | 173, 177 | eqbrtrd 5170 |
. . . 4
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) < π·) |
179 | 171, 174 | eqeltrd 2833 |
. . . . . . . . 9
β’ (π β (absβ(π β π΄)) β β) |
180 | 26, 179 | remulcld 11243 |
. . . . . . . 8
β’ (π β (π΅ Β· (absβ(π β π΄))) β β) |
181 | 180 | adantr 481 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (absβ(π β π΄))) β β) |
182 | 129, 45 | eqeltrd 2833 |
. . . . . . . 8
β’ (π β (π΅ Β· (absβ(π β π))) β β) |
183 | 182 | adantr 481 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (absβ(π β π))) β β) |
184 | 133, 72 | subcld 11570 |
. . . . . . . . 9
β’ (π β ((πΉβπ) β (πΉβπ΄)) β β) |
185 | 184 | abscld 15382 |
. . . . . . . 8
β’ (π β (absβ((πΉβπ) β (πΉβπ΄))) β β) |
186 | 185 | adantr 481 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ((πΉβπ) β (πΉβπ΄))) β β) |
187 | 128, 31 | eqeltrd 2833 |
. . . . . . . . 9
β’ (π β (absβ(π β π)) β β) |
188 | 175, 171,
128 | 3brtr4d 5180 |
. . . . . . . . 9
β’ (π β (absβ(π β π΄)) β€ (absβ(π β π))) |
189 | 179, 187,
26, 76, 188 | lemul2ad 12153 |
. . . . . . . 8
β’ (π β (π΅ Β· (absβ(π β π΄))) β€ (π΅ Β· (absβ(π β π)))) |
190 | 189 | adantr 481 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (absβ(π β π΄))) β€ (π΅ Β· (absβ(π β π)))) |
191 | 181, 183,
186, 190, 146 | letrd 11370 |
. . . . . 6
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π΅ Β· (absβ(π β π΄))) β€ (absβ((πΉβπ) β (πΉβπ΄)))) |
192 | 26 | adantr 481 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΅ β β) |
193 | 174 | recnd 11241 |
. . . . . . . . 9
β’ (π β (π β π΄) β β) |
194 | 193 | adantr 481 |
. . . . . . . 8
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π΄) β β) |
195 | 29 | recnd 11241 |
. . . . . . . . . 10
β’ (π β π β β) |
196 | 195 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π β β) |
197 | 109 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΄ β β) |
198 | 196, 197,
164 | subne0d 11579 |
. . . . . . . 8
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β π΄) β 0) |
199 | 194, 198 | absrpcld 15394 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(π β π΄)) β
β+) |
200 | 192, 186,
199 | lemuldivd 13064 |
. . . . . 6
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((π΅ Β· (absβ(π β π΄))) β€ (absβ((πΉβπ) β (πΉβπ΄))) β π΅ β€ ((absβ((πΉβπ) β (πΉβπ΄))) / (absβ(π β π΄))))) |
201 | 191, 200 | mpbid 231 |
. . . . 5
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΅ β€ ((absβ((πΉβπ) β (πΉβπ΄))) / (absβ(π β π΄)))) |
202 | 126 | fveq2d 6895 |
. . . . . . . . 9
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (πΊβπ) = (πΊβπ)) |
203 | | fveq2 6891 |
. . . . . . . . . . . 12
β’ (π§ = π β (πΉβπ§) = (πΉβπ)) |
204 | 203 | oveq1d 7423 |
. . . . . . . . . . 11
β’ (π§ = π β ((πΉβπ§) β (πΉβπ΄)) = ((πΉβπ) β (πΉβπ΄))) |
205 | | oveq1 7415 |
. . . . . . . . . . 11
β’ (π§ = π β (π§ β π΄) = (π β π΄)) |
206 | 204, 205 | oveq12d 7426 |
. . . . . . . . . 10
β’ (π§ = π β (((πΉβπ§) β (πΉβπ΄)) / (π§ β π΄)) = (((πΉβπ) β (πΉβπ΄)) / (π β π΄))) |
207 | | ovexd 7443 |
. . . . . . . . . 10
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (((πΉβπ) β (πΉβπ΄)) / (π β π΄)) β V) |
208 | 98, 206, 167, 207 | fvmptd3 7021 |
. . . . . . . . 9
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (πΊβπ) = (((πΉβπ) β (πΉβπ΄)) / (π β π΄))) |
209 | 202, 208 | eqtrd 2772 |
. . . . . . . 8
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (πΊβπ) = (((πΉβπ) β (πΉβπ΄)) / (π β π΄))) |
210 | 209 | fveq2d 6895 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(πΊβπ)) = (absβ(((πΉβπ) β (πΉβπ΄)) / (π β π΄)))) |
211 | 184 | adantr 481 |
. . . . . . . 8
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((πΉβπ) β (πΉβπ΄)) β β) |
212 | 211, 194,
198 | absdivd 15401 |
. . . . . . 7
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(((πΉβπ) β (πΉβπ΄)) / (π β π΄))) = ((absβ((πΉβπ) β (πΉβπ΄))) / (absβ(π β π΄)))) |
213 | 210, 212 | eqtrd 2772 |
. . . . . 6
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (absβ(πΊβπ)) = ((absβ((πΉβπ) β (πΉβπ΄))) / (absβ(π β π΄)))) |
214 | 213 | eqcomd 2738 |
. . . . 5
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((absβ((πΉβπ) β (πΉβπ΄))) / (absβ(π β π΄))) = (absβ(πΊβπ))) |
215 | 201, 214 | breqtrd 5174 |
. . . 4
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β π΅ β€ (absβ(πΊβπ))) |
216 | 178, 215 | jca 512 |
. . 3
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β ((absβ(π β π΄)) < π· β§ π΅ β€ (absβ(πΊβπ)))) |
217 | 168, 216 | jca 512 |
. 2
β’ ((π β§ Β¬ (π΅ Β· (π β π)) β€ (absβ((πΉβπ) β (πΉβπ΄)))) β (π β (π β {π΄}) β§ ((absβ(π β π΄)) < π· β§ π΅ β€ (absβ(πΊβπ))))) |
218 | 122, 217 | pm2.61dan 811 |
1
β’ (π β (π β (π β {π΄}) β§ ((absβ(π β π΄)) < π· β§ π΅ β€ (absβ(πΊβπ))))) |