Step | Hyp | Ref
| Expression |
1 | | oveq1 7365 |
. . . . . 6
β’ (π = 0 β (π + 1) = (0 + 1)) |
2 | 1 | oveq2d 7374 |
. . . . 5
β’ (π = 0 β (π΄ Yrm (π + 1)) = (π΄ Yrm (0 + 1))) |
3 | | oveq2 7366 |
. . . . 5
β’ (π = 0 β ((2 Β· π΄)βπ) = ((2 Β· π΄)β0)) |
4 | 2, 3 | breq12d 5119 |
. . . 4
β’ (π = 0 β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm (0 + 1)) β€ ((2 Β·
π΄)β0))) |
5 | 4 | imbi2d 341 |
. . 3
β’ (π = 0 β ((π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm (0
+ 1)) β€ ((2 Β· π΄)β0)))) |
6 | | oveq1 7365 |
. . . . . 6
β’ (π = π β (π + 1) = (π + 1)) |
7 | 6 | oveq2d 7374 |
. . . . 5
β’ (π = π β (π΄ Yrm (π + 1)) = (π΄ Yrm (π + 1))) |
8 | | oveq2 7366 |
. . . . 5
β’ (π = π β ((2 Β· π΄)βπ) = ((2 Β· π΄)βπ)) |
9 | 7, 8 | breq12d 5119 |
. . . 4
β’ (π = π β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ))) |
10 | 9 | imbi2d 341 |
. . 3
β’ (π = π β ((π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)))) |
11 | | oveq1 7365 |
. . . . . 6
β’ (π = (π + 1) β (π + 1) = ((π + 1) + 1)) |
12 | 11 | oveq2d 7374 |
. . . . 5
β’ (π = (π + 1) β (π΄ Yrm (π + 1)) = (π΄ Yrm ((π + 1) + 1))) |
13 | | oveq2 7366 |
. . . . 5
β’ (π = (π + 1) β ((2 Β· π΄)βπ) = ((2 Β· π΄)β(π + 1))) |
14 | 12, 13 | breq12d 5119 |
. . . 4
β’ (π = (π + 1) β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1)))) |
15 | 14 | imbi2d 341 |
. . 3
β’ (π = (π + 1) β ((π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm
((π + 1) + 1)) β€ ((2
Β· π΄)β(π + 1))))) |
16 | | oveq1 7365 |
. . . . . 6
β’ (π = π β (π + 1) = (π + 1)) |
17 | 16 | oveq2d 7374 |
. . . . 5
β’ (π = π β (π΄ Yrm (π + 1)) = (π΄ Yrm (π + 1))) |
18 | | oveq2 7366 |
. . . . 5
β’ (π = π β ((2 Β· π΄)βπ) = ((2 Β· π΄)βπ)) |
19 | 17, 18 | breq12d 5119 |
. . . 4
β’ (π = π β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ))) |
20 | 19 | imbi2d 341 |
. . 3
β’ (π = π β ((π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)))) |
21 | | 1le1 11788 |
. . . 4
β’ 1 β€
1 |
22 | | 0p1e1 12280 |
. . . . . . 7
β’ (0 + 1) =
1 |
23 | 22 | oveq2i 7369 |
. . . . . 6
β’ (π΄ Yrm (0 + 1)) =
(π΄ Yrm
1) |
24 | | rmy1 41297 |
. . . . . 6
β’ (π΄ β
(β€β₯β2) β (π΄ Yrm 1) = 1) |
25 | 23, 24 | eqtrid 2785 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β (π΄ Yrm (0 + 1)) =
1) |
26 | | 2re 12232 |
. . . . . . . 8
β’ 2 β
β |
27 | | eluzelre 12779 |
. . . . . . . 8
β’ (π΄ β
(β€β₯β2) β π΄ β β) |
28 | | remulcl 11141 |
. . . . . . . 8
β’ ((2
β β β§ π΄
β β) β (2 Β· π΄) β β) |
29 | 26, 27, 28 | sylancr 588 |
. . . . . . 7
β’ (π΄ β
(β€β₯β2) β (2 Β· π΄) β β) |
30 | 29 | recnd 11188 |
. . . . . 6
β’ (π΄ β
(β€β₯β2) β (2 Β· π΄) β β) |
31 | 30 | exp0d 14051 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β ((2 Β· π΄)β0) = 1) |
32 | 25, 31 | breq12d 5119 |
. . . 4
β’ (π΄ β
(β€β₯β2) β ((π΄ Yrm (0 + 1)) β€ ((2 Β·
π΄)β0) β 1 β€
1)) |
33 | 21, 32 | mpbiri 258 |
. . 3
β’ (π΄ β
(β€β₯β2) β (π΄ Yrm (0 + 1)) β€ ((2 Β·
π΄)β0)) |
34 | | simpr 486 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π΄ β
(β€β₯β2)) |
35 | | nn0z 12529 |
. . . . . . . . . . 11
β’ (π β β0
β π β
β€) |
36 | 35 | adantr 482 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π β β€) |
37 | 36 | peano2zd 12615 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π + 1) β β€) |
38 | | rmyluc2 41305 |
. . . . . . . . 9
β’ ((π΄ β
(β€β₯β2) β§ (π + 1) β β€) β (π΄ Yrm ((π + 1) + 1)) = (((2 Β·
π΄) Β· (π΄ Yrm (π + 1))) β (π΄ Yrm ((π + 1) β
1)))) |
39 | 34, 37, 38 | syl2anc 585 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) + 1)) = (((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β (π΄ Yrm ((π + 1) β 1)))) |
40 | | rmxypos 41314 |
. . . . . . . . . . . 12
β’ ((π΄ β
(β€β₯β2) β§ π β β0) β (0 <
(π΄ Xrm π) β§ 0 β€ (π΄ Yrm π))) |
41 | 40 | simprd 497 |
. . . . . . . . . . 11
β’ ((π΄ β
(β€β₯β2) β§ π β β0) β 0 β€
(π΄ Yrm π)) |
42 | 41 | ancoms 460 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β 0 β€ (π΄ Yrm π)) |
43 | | nn0re 12427 |
. . . . . . . . . . . . . 14
β’ (π β β0
β π β
β) |
44 | 43 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π β β) |
45 | 44 | recnd 11188 |
. . . . . . . . . . . 12
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π β β) |
46 | | ax-1cn 11114 |
. . . . . . . . . . . 12
β’ 1 β
β |
47 | | pncan 11412 |
. . . . . . . . . . . 12
β’ ((π β β β§ 1 β
β) β ((π + 1)
β 1) = π) |
48 | 45, 46, 47 | sylancl 587 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((π + 1) β 1) = π) |
49 | 48 | oveq2d 7374 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) β 1)) = (π΄ Yrm π)) |
50 | 42, 49 | breqtrrd 5134 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β 0 β€ (π΄ Yrm ((π + 1) β 1))) |
51 | 27 | adantl 483 |
. . . . . . . . . . . 12
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π΄ β β) |
52 | 26, 51, 28 | sylancr 588 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (2 Β· π΄) β β) |
53 | | frmy 41281 |
. . . . . . . . . . . . . 14
β’
Yrm :((β€β₯β2) Γ
β€)βΆβ€ |
54 | 53 | fovcl 7485 |
. . . . . . . . . . . . 13
β’ ((π΄ β
(β€β₯β2) β§ (π + 1) β β€) β (π΄ Yrm (π + 1)) β
β€) |
55 | 54 | zred 12612 |
. . . . . . . . . . . 12
β’ ((π΄ β
(β€β₯β2) β§ (π + 1) β β€) β (π΄ Yrm (π + 1)) β
β) |
56 | 34, 37, 55 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm (π + 1)) β β) |
57 | 52, 56 | remulcld 11190 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β β) |
58 | 53 | fovcl 7485 |
. . . . . . . . . . . . 13
β’ ((π΄ β
(β€β₯β2) β§ π β β€) β (π΄ Yrm π) β β€) |
59 | 58 | zred 12612 |
. . . . . . . . . . . 12
β’ ((π΄ β
(β€β₯β2) β§ π β β€) β (π΄ Yrm π) β β) |
60 | 34, 36, 59 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm π) β β) |
61 | 49, 60 | eqeltrd 2834 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) β 1)) β
β) |
62 | 57, 61 | subge02d 11752 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (0 β€ (π΄ Yrm ((π + 1) β 1)) β (((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β (π΄ Yrm ((π + 1) β 1))) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1))))) |
63 | 50, 62 | mpbid 231 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β (π΄ Yrm ((π + 1) β 1))) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1)))) |
64 | 39, 63 | eqbrtrd 5128 |
. . . . . . 7
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1)))) |
65 | 64 | 3adant3 1133 |
. . . . . 6
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1)))) |
66 | | simpl 484 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π β β0) |
67 | 52, 66 | reexpcld 14074 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)βπ) β β) |
68 | | 2nn 12231 |
. . . . . . . . . . . 12
β’ 2 β
β |
69 | | eluz2nn 12814 |
. . . . . . . . . . . 12
β’ (π΄ β
(β€β₯β2) β π΄ β β) |
70 | | nnmulcl 12182 |
. . . . . . . . . . . 12
β’ ((2
β β β§ π΄
β β) β (2 Β· π΄) β β) |
71 | 68, 69, 70 | sylancr 588 |
. . . . . . . . . . 11
β’ (π΄ β
(β€β₯β2) β (2 Β· π΄) β β) |
72 | 71 | nngt0d 12207 |
. . . . . . . . . 10
β’ (π΄ β
(β€β₯β2) β 0 < (2 Β· π΄)) |
73 | 72 | adantl 483 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β 0 < (2 Β· π΄)) |
74 | | lemul2 12013 |
. . . . . . . . 9
β’ (((π΄ Yrm (π + 1)) β β β§ ((2
Β· π΄)βπ) β β β§ ((2
Β· π΄) β β
β§ 0 < (2 Β· π΄))) β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄) Β· ((2 Β· π΄)βπ)))) |
75 | 56, 67, 52, 73, 74 | syl112anc 1375 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄) Β· ((2 Β· π΄)βπ)))) |
76 | 75 | biimp3a 1470 |
. . . . . . 7
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄) Β· ((2 Β· π΄)βπ))) |
77 | 52 | recnd 11188 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (2 Β· π΄) β β) |
78 | 77, 66 | expp1d 14058 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)β(π + 1)) = (((2 Β· π΄)βπ) Β· (2 Β· π΄))) |
79 | 67 | recnd 11188 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)βπ) β β) |
80 | 79, 77 | mulcomd 11181 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (((2 Β· π΄)βπ) Β· (2 Β· π΄)) = ((2 Β· π΄) Β· ((2 Β· π΄)βπ))) |
81 | 78, 80 | eqtrd 2773 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)β(π + 1)) = ((2 Β· π΄) Β· ((2 Β· π΄)βπ))) |
82 | 81 | 3adant3 1133 |
. . . . . . 7
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β ((2 Β· π΄)β(π + 1)) = ((2 Β· π΄) Β· ((2 Β· π΄)βπ))) |
83 | 76, 82 | breqtrrd 5134 |
. . . . . 6
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄)β(π + 1))) |
84 | 37 | peano2zd 12615 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((π + 1) + 1) β β€) |
85 | 53 | fovcl 7485 |
. . . . . . . . . 10
β’ ((π΄ β
(β€β₯β2) β§ ((π + 1) + 1) β β€) β (π΄ Yrm ((π + 1) + 1)) β
β€) |
86 | 85 | zred 12612 |
. . . . . . . . 9
β’ ((π΄ β
(β€β₯β2) β§ ((π + 1) + 1) β β€) β (π΄ Yrm ((π + 1) + 1)) β
β) |
87 | 34, 84, 86 | syl2anc 585 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) + 1)) β β) |
88 | | peano2nn0 12458 |
. . . . . . . . . 10
β’ (π β β0
β (π + 1) β
β0) |
89 | 88 | adantr 482 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π + 1) β
β0) |
90 | 52, 89 | reexpcld 14074 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)β(π + 1)) β β) |
91 | | letr 11254 |
. . . . . . . 8
β’ (((π΄ Yrm ((π + 1) + 1)) β β β§
((2 Β· π΄) Β·
(π΄ Yrm (π + 1))) β β β§ ((2
Β· π΄)β(π + 1)) β β) β
(((π΄ Yrm ((π + 1) + 1)) β€ ((2 Β·
π΄) Β· (π΄ Yrm (π + 1))) β§ ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄)β(π + 1))) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1)))) |
92 | 87, 57, 90, 91 | syl3anc 1372 |
. . . . . . 7
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (((π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β§ ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄)β(π + 1))) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1)))) |
93 | 92 | 3adant3 1133 |
. . . . . 6
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β (((π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β§ ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄)β(π + 1))) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1)))) |
94 | 65, 83, 93 | mp2and 698 |
. . . . 5
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1))) |
95 | 94 | 3exp 1120 |
. . . 4
β’ (π β β0
β (π΄ β
(β€β₯β2) β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1))))) |
96 | 95 | a2d 29 |
. . 3
β’ (π β β0
β ((π΄ β
(β€β₯β2) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm
((π + 1) + 1)) β€ ((2
Β· π΄)β(π + 1))))) |
97 | 5, 10, 15, 20, 33, 96 | nn0ind 12603 |
. 2
β’ (π β β0
β (π΄ β
(β€β₯β2) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ))) |
98 | 97 | impcom 409 |
1
β’ ((π΄ β
(β€β₯β2) β§ π β β0) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) |