Step | Hyp | Ref
| Expression |
1 | | oveq1 7412 |
. . . . . 6
β’ (π = 0 β (π + 1) = (0 + 1)) |
2 | 1 | oveq2d 7421 |
. . . . 5
β’ (π = 0 β (π΄ Yrm (π + 1)) = (π΄ Yrm (0 + 1))) |
3 | | oveq2 7413 |
. . . . 5
β’ (π = 0 β ((2 Β· π΄)βπ) = ((2 Β· π΄)β0)) |
4 | 2, 3 | breq12d 5160 |
. . . 4
β’ (π = 0 β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm (0 + 1)) β€ ((2 Β·
π΄)β0))) |
5 | 4 | imbi2d 340 |
. . 3
β’ (π = 0 β ((π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm (0
+ 1)) β€ ((2 Β· π΄)β0)))) |
6 | | oveq1 7412 |
. . . . . 6
β’ (π = π β (π + 1) = (π + 1)) |
7 | 6 | oveq2d 7421 |
. . . . 5
β’ (π = π β (π΄ Yrm (π + 1)) = (π΄ Yrm (π + 1))) |
8 | | oveq2 7413 |
. . . . 5
β’ (π = π β ((2 Β· π΄)βπ) = ((2 Β· π΄)βπ)) |
9 | 7, 8 | breq12d 5160 |
. . . 4
β’ (π = π β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ))) |
10 | 9 | imbi2d 340 |
. . 3
β’ (π = π β ((π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)))) |
11 | | oveq1 7412 |
. . . . . 6
β’ (π = (π + 1) β (π + 1) = ((π + 1) + 1)) |
12 | 11 | oveq2d 7421 |
. . . . 5
β’ (π = (π + 1) β (π΄ Yrm (π + 1)) = (π΄ Yrm ((π + 1) + 1))) |
13 | | oveq2 7413 |
. . . . 5
β’ (π = (π + 1) β ((2 Β· π΄)βπ) = ((2 Β· π΄)β(π + 1))) |
14 | 12, 13 | breq12d 5160 |
. . . 4
β’ (π = (π + 1) β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1)))) |
15 | 14 | imbi2d 340 |
. . 3
β’ (π = (π + 1) β ((π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm
((π + 1) + 1)) β€ ((2
Β· π΄)β(π + 1))))) |
16 | | oveq1 7412 |
. . . . . 6
β’ (π = π β (π + 1) = (π + 1)) |
17 | 16 | oveq2d 7421 |
. . . . 5
β’ (π = π β (π΄ Yrm (π + 1)) = (π΄ Yrm (π + 1))) |
18 | | oveq2 7413 |
. . . . 5
β’ (π = π β ((2 Β· π΄)βπ) = ((2 Β· π΄)βπ)) |
19 | 17, 18 | breq12d 5160 |
. . . 4
β’ (π = π β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ))) |
20 | 19 | imbi2d 340 |
. . 3
β’ (π = π β ((π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)) β (π΄ β (β€β₯β2)
β (π΄ Yrm
(π + 1)) β€ ((2 Β·
π΄)βπ)))) |
21 | | 1le1 11838 |
. . . 4
β’ 1 β€
1 |
22 | | 0p1e1 12330 |
. . . . . . 7
β’ (0 + 1) =
1 |
23 | 22 | oveq2i 7416 |
. . . . . 6
β’ (π΄ Yrm (0 + 1)) =
(π΄ Yrm
1) |
24 | | rmy1 41654 |
. . . . . 6
β’ (π΄ β
(β€β₯β2) β (π΄ Yrm 1) = 1) |
25 | 23, 24 | eqtrid 2784 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β (π΄ Yrm (0 + 1)) =
1) |
26 | | 2re 12282 |
. . . . . . . 8
β’ 2 β
β |
27 | | eluzelre 12829 |
. . . . . . . 8
β’ (π΄ β
(β€β₯β2) β π΄ β β) |
28 | | remulcl 11191 |
. . . . . . . 8
β’ ((2
β β β§ π΄
β β) β (2 Β· π΄) β β) |
29 | 26, 27, 28 | sylancr 587 |
. . . . . . 7
β’ (π΄ β
(β€β₯β2) β (2 Β· π΄) β β) |
30 | 29 | recnd 11238 |
. . . . . 6
β’ (π΄ β
(β€β₯β2) β (2 Β· π΄) β β) |
31 | 30 | exp0d 14101 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β ((2 Β· π΄)β0) = 1) |
32 | 25, 31 | breq12d 5160 |
. . . 4
β’ (π΄ β
(β€β₯β2) β ((π΄ Yrm (0 + 1)) β€ ((2 Β·
π΄)β0) β 1 β€
1)) |
33 | 21, 32 | mpbiri 257 |
. . 3
β’ (π΄ β
(β€β₯β2) β (π΄ Yrm (0 + 1)) β€ ((2 Β·
π΄)β0)) |
34 | | simpr 485 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π΄ β
(β€β₯β2)) |
35 | | nn0z 12579 |
. . . . . . . . . . 11
β’ (π β β0
β π β
β€) |
36 | 35 | adantr 481 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π β β€) |
37 | 36 | peano2zd 12665 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π + 1) β β€) |
38 | | rmyluc2 41662 |
. . . . . . . . 9
β’ ((π΄ β
(β€β₯β2) β§ (π + 1) β β€) β (π΄ Yrm ((π + 1) + 1)) = (((2 Β·
π΄) Β· (π΄ Yrm (π + 1))) β (π΄ Yrm ((π + 1) β
1)))) |
39 | 34, 37, 38 | syl2anc 584 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) + 1)) = (((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β (π΄ Yrm ((π + 1) β 1)))) |
40 | | rmxypos 41671 |
. . . . . . . . . . . 12
β’ ((π΄ β
(β€β₯β2) β§ π β β0) β (0 <
(π΄ Xrm π) β§ 0 β€ (π΄ Yrm π))) |
41 | 40 | simprd 496 |
. . . . . . . . . . 11
β’ ((π΄ β
(β€β₯β2) β§ π β β0) β 0 β€
(π΄ Yrm π)) |
42 | 41 | ancoms 459 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β 0 β€ (π΄ Yrm π)) |
43 | | nn0re 12477 |
. . . . . . . . . . . . . 14
β’ (π β β0
β π β
β) |
44 | 43 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π β β) |
45 | 44 | recnd 11238 |
. . . . . . . . . . . 12
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π β β) |
46 | | ax-1cn 11164 |
. . . . . . . . . . . 12
β’ 1 β
β |
47 | | pncan 11462 |
. . . . . . . . . . . 12
β’ ((π β β β§ 1 β
β) β ((π + 1)
β 1) = π) |
48 | 45, 46, 47 | sylancl 586 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((π + 1) β 1) = π) |
49 | 48 | oveq2d 7421 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) β 1)) = (π΄ Yrm π)) |
50 | 42, 49 | breqtrrd 5175 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β 0 β€ (π΄ Yrm ((π + 1) β 1))) |
51 | 27 | adantl 482 |
. . . . . . . . . . . 12
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π΄ β β) |
52 | 26, 51, 28 | sylancr 587 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (2 Β· π΄) β β) |
53 | | frmy 41638 |
. . . . . . . . . . . . . 14
β’
Yrm :((β€β₯β2) Γ
β€)βΆβ€ |
54 | 53 | fovcl 7533 |
. . . . . . . . . . . . 13
β’ ((π΄ β
(β€β₯β2) β§ (π + 1) β β€) β (π΄ Yrm (π + 1)) β
β€) |
55 | 54 | zred 12662 |
. . . . . . . . . . . 12
β’ ((π΄ β
(β€β₯β2) β§ (π + 1) β β€) β (π΄ Yrm (π + 1)) β
β) |
56 | 34, 37, 55 | syl2anc 584 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm (π + 1)) β β) |
57 | 52, 56 | remulcld 11240 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β β) |
58 | 53 | fovcl 7533 |
. . . . . . . . . . . . 13
β’ ((π΄ β
(β€β₯β2) β§ π β β€) β (π΄ Yrm π) β β€) |
59 | 58 | zred 12662 |
. . . . . . . . . . . 12
β’ ((π΄ β
(β€β₯β2) β§ π β β€) β (π΄ Yrm π) β β) |
60 | 34, 36, 59 | syl2anc 584 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm π) β β) |
61 | 49, 60 | eqeltrd 2833 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) β 1)) β
β) |
62 | 57, 61 | subge02d 11802 |
. . . . . . . . 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 5169 |
. . . . . . 7
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1)))) |
65 | 64 | 3adant3 1132 |
. . . . . 6
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1)))) |
66 | | simpl 483 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β π β β0) |
67 | 52, 66 | reexpcld 14124 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)βπ) β β) |
68 | | 2nn 12281 |
. . . . . . . . . . . 12
β’ 2 β
β |
69 | | eluz2nn 12864 |
. . . . . . . . . . . 12
β’ (π΄ β
(β€β₯β2) β π΄ β β) |
70 | | nnmulcl 12232 |
. . . . . . . . . . . 12
β’ ((2
β β β§ π΄
β β) β (2 Β· π΄) β β) |
71 | 68, 69, 70 | sylancr 587 |
. . . . . . . . . . 11
β’ (π΄ β
(β€β₯β2) β (2 Β· π΄) β β) |
72 | 71 | nngt0d 12257 |
. . . . . . . . . 10
β’ (π΄ β
(β€β₯β2) β 0 < (2 Β· π΄)) |
73 | 72 | adantl 482 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β 0 < (2 Β· π΄)) |
74 | | lemul2 12063 |
. . . . . . . . 9
β’ (((π΄ Yrm (π + 1)) β β β§ ((2
Β· π΄)βπ) β β β§ ((2
Β· π΄) β β
β§ 0 < (2 Β· π΄))) β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄) Β· ((2 Β· π΄)βπ)))) |
75 | 56, 67, 52, 73, 74 | syl112anc 1374 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄) Β· ((2 Β· π΄)βπ)))) |
76 | 75 | biimp3a 1469 |
. . . . . . 7
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄) Β· ((2 Β· π΄)βπ))) |
77 | 52 | recnd 11238 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (2 Β· π΄) β β) |
78 | 77, 66 | expp1d 14108 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)β(π + 1)) = (((2 Β· π΄)βπ) Β· (2 Β· π΄))) |
79 | 67 | recnd 11238 |
. . . . . . . . . 10
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)βπ) β β) |
80 | 79, 77 | mulcomd 11231 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (((2 Β· π΄)βπ) Β· (2 Β· π΄)) = ((2 Β· π΄) Β· ((2 Β· π΄)βπ))) |
81 | 78, 80 | eqtrd 2772 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)β(π + 1)) = ((2 Β· π΄) Β· ((2 Β· π΄)βπ))) |
82 | 81 | 3adant3 1132 |
. . . . . . 7
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β ((2 Β· π΄)β(π + 1)) = ((2 Β· π΄) Β· ((2 Β· π΄)βπ))) |
83 | 76, 82 | breqtrrd 5175 |
. . . . . 6
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄)β(π + 1))) |
84 | 37 | peano2zd 12665 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((π + 1) + 1) β β€) |
85 | 53 | fovcl 7533 |
. . . . . . . . . 10
β’ ((π΄ β
(β€β₯β2) β§ ((π + 1) + 1) β β€) β (π΄ Yrm ((π + 1) + 1)) β
β€) |
86 | 85 | zred 12662 |
. . . . . . . . 9
β’ ((π΄ β
(β€β₯β2) β§ ((π + 1) + 1) β β€) β (π΄ Yrm ((π + 1) + 1)) β
β) |
87 | 34, 84, 86 | syl2anc 584 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π΄ Yrm ((π + 1) + 1)) β β) |
88 | | peano2nn0 12508 |
. . . . . . . . . 10
β’ (π β β0
β (π + 1) β
β0) |
89 | 88 | adantr 481 |
. . . . . . . . 9
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (π + 1) β
β0) |
90 | 52, 89 | reexpcld 14124 |
. . . . . . . 8
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β ((2 Β· π΄)β(π + 1)) β β) |
91 | | letr 11304 |
. . . . . . . 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 1371 |
. . . . . . 7
β’ ((π β β0
β§ π΄ β
(β€β₯β2)) β (((π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β§ ((2 Β· π΄) Β· (π΄ Yrm (π + 1))) β€ ((2 Β· π΄)β(π + 1))) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1)))) |
93 | 92 | 3adant3 1132 |
. . . . . 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 697 |
. . . . 5
β’ ((π β β0
β§ π΄ β
(β€β₯β2) β§ (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) β (π΄ Yrm ((π + 1) + 1)) β€ ((2 Β· π΄)β(π + 1))) |
95 | 94 | 3exp 1119 |
. . . 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 12653 |
. 2
β’ (π β β0
β (π΄ β
(β€β₯β2) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ))) |
98 | 97 | impcom 408 |
1
β’ ((π΄ β
(β€β₯β2) β§ π β β0) β (π΄ Yrm (π + 1)) β€ ((2 Β· π΄)βπ)) |