Step | Hyp | Ref
| Expression |
1 | | eluz2nn 12865 |
. . . 4
β’ (π΅ β
(β€β₯β2) β π΅ β β) |
2 | 1 | 3ad2ant1 1134 |
. . 3
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β π΅ β β) |
3 | | nnrp 12982 |
. . . . . . . 8
β’ (π β β β π β
β+) |
4 | 3 | anim2i 618 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β) β (π΅ β (β€β₯β2)
β§ π β
β+)) |
5 | | relogbzcl 26269 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β+) β (π΅ logb π) β
β) |
6 | 4, 5 | syl 17 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β) β (π΅ logb π) β β) |
7 | | nnre 12216 |
. . . . . . . . . 10
β’ (π β β β π β
β) |
8 | | nnge1 12237 |
. . . . . . . . . 10
β’ (π β β β 1 β€
π) |
9 | 7, 8 | jca 513 |
. . . . . . . . 9
β’ (π β β β (π β β β§ 1 β€
π)) |
10 | | 1re 11211 |
. . . . . . . . . 10
β’ 1 β
β |
11 | | elicopnf 13419 |
. . . . . . . . . 10
β’ (1 β
β β (π β
(1[,)+β) β (π
β β β§ 1 β€ π))) |
12 | 10, 11 | ax-mp 5 |
. . . . . . . . 9
β’ (π β (1[,)+β) β
(π β β β§ 1
β€ π)) |
13 | 9, 12 | sylibr 233 |
. . . . . . . 8
β’ (π β β β π β
(1[,)+β)) |
14 | 13 | anim2i 618 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β) β (π΅ β (β€β₯β2)
β§ π β
(1[,)+β))) |
15 | | rege1logbzge0 47199 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β (1[,)+β)) β 0 β€ (π΅ logb π)) |
16 | 14, 15 | syl 17 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β) β 0 β€ (π΅ logb π)) |
17 | 6, 16 | jca 513 |
. . . . 5
β’ ((π΅ β
(β€β₯β2) β§ π β β) β ((π΅ logb π) β β β§ 0 β€ (π΅ logb π))) |
18 | | flge0nn0 13782 |
. . . . 5
β’ (((π΅ logb π) β β β§ 0 β€
(π΅ logb π)) β (ββ(π΅ logb π)) β
β0) |
19 | | peano2nn0 12509 |
. . . . 5
β’
((ββ(π΅
logb π)) β
β0 β ((ββ(π΅ logb π)) + 1) β
β0) |
20 | 17, 18, 19 | 3syl 18 |
. . . 4
β’ ((π΅ β
(β€β₯β2) β§ π β β) β
((ββ(π΅
logb π)) + 1)
β β0) |
21 | | eluznn0 12898 |
. . . 4
β’
((((ββ(π΅
logb π)) + 1)
β β0 β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β πΎ β
β0) |
22 | 20, 21 | stoic3 1779 |
. . 3
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β πΎ β
β0) |
23 | | nnnn0 12476 |
. . . . 5
β’ (π β β β π β
β0) |
24 | | nn0rp0 13429 |
. . . . 5
β’ (π β β0
β π β
(0[,)+β)) |
25 | 23, 24 | syl 17 |
. . . 4
β’ (π β β β π β
(0[,)+β)) |
26 | 25 | 3ad2ant2 1135 |
. . 3
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β π β (0[,)+β)) |
27 | | nn0digval 47240 |
. . 3
β’ ((π΅ β β β§ πΎ β β0
β§ π β
(0[,)+β)) β (πΎ(digitβπ΅)π) = ((ββ(π / (π΅βπΎ))) mod π΅)) |
28 | 2, 22, 26, 27 | syl3anc 1372 |
. 2
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (πΎ(digitβπ΅)π) = ((ββ(π / (π΅βπΎ))) mod π΅)) |
29 | 7 | 3ad2ant2 1135 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β π β β) |
30 | | eluzelre 12830 |
. . . . . . . 8
β’ (π΅ β
(β€β₯β2) β π΅ β β) |
31 | 30 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β π΅ β β) |
32 | | eluz2n0 12869 |
. . . . . . . 8
β’ (π΅ β
(β€β₯β2) β π΅ β 0) |
33 | 32 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β π΅ β 0) |
34 | | eluzelz 12829 |
. . . . . . . 8
β’ (πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1)) β πΎ β β€) |
35 | 34 | 3ad2ant3 1136 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β πΎ β β€) |
36 | 31, 33, 35 | reexpclzd 14209 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (π΅βπΎ) β β) |
37 | | eluzelcn 12831 |
. . . . . . . 8
β’ (π΅ β
(β€β₯β2) β π΅ β β) |
38 | 37 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β π΅ β β) |
39 | 38, 33, 35 | expne0d 14114 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (π΅βπΎ) β 0) |
40 | 29, 36, 39 | redivcld 12039 |
. . . . 5
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (π / (π΅βπΎ)) β β) |
41 | | nn0ge0 12494 |
. . . . . . . 8
β’ (π β β0
β 0 β€ π) |
42 | 23, 41 | syl 17 |
. . . . . . 7
β’ (π β β β 0 β€
π) |
43 | 42 | 3ad2ant2 1135 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β 0 β€ π) |
44 | 1 | nngt0d 12258 |
. . . . . . . . 9
β’ (π΅ β
(β€β₯β2) β 0 < π΅) |
45 | 44 | 3ad2ant1 1134 |
. . . . . . . 8
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β 0 < π΅) |
46 | | expgt0 14058 |
. . . . . . . 8
β’ ((π΅ β β β§ πΎ β β€ β§ 0 <
π΅) β 0 < (π΅βπΎ)) |
47 | 31, 35, 45, 46 | syl3anc 1372 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β 0 < (π΅βπΎ)) |
48 | | ge0div 12078 |
. . . . . . 7
β’ ((π β β β§ (π΅βπΎ) β β β§ 0 < (π΅βπΎ)) β (0 β€ π β 0 β€ (π / (π΅βπΎ)))) |
49 | 29, 36, 47, 48 | syl3anc 1372 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (0 β€ π β 0 β€ (π / (π΅βπΎ)))) |
50 | 43, 49 | mpbid 231 |
. . . . 5
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β 0 β€ (π / (π΅βπΎ))) |
51 | | dignn0ldlem 47242 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β π < (π΅βπΎ)) |
52 | 1 | nnrpd 13011 |
. . . . . . . . 9
β’ (π΅ β
(β€β₯β2) β π΅ β
β+) |
53 | | rpexpcl 14043 |
. . . . . . . . 9
β’ ((π΅ β β+
β§ πΎ β β€)
β (π΅βπΎ) β
β+) |
54 | 52, 34, 53 | syl2an 597 |
. . . . . . . 8
β’ ((π΅ β
(β€β₯β2) β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (π΅βπΎ) β
β+) |
55 | 54 | 3adant2 1132 |
. . . . . . 7
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (π΅βπΎ) β
β+) |
56 | | divlt1lt 13040 |
. . . . . . 7
β’ ((π β β β§ (π΅βπΎ) β β+) β ((π / (π΅βπΎ)) < 1 β π < (π΅βπΎ))) |
57 | 29, 55, 56 | syl2anc 585 |
. . . . . 6
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β ((π / (π΅βπΎ)) < 1 β π < (π΅βπΎ))) |
58 | 51, 57 | mpbird 257 |
. . . . 5
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (π / (π΅βπΎ)) < 1) |
59 | | 0re 11213 |
. . . . . . 7
β’ 0 β
β |
60 | | 1xr 11270 |
. . . . . . 7
β’ 1 β
β* |
61 | 59, 60 | pm3.2i 472 |
. . . . . 6
β’ (0 β
β β§ 1 β β*) |
62 | | elico2 13385 |
. . . . . 6
β’ ((0
β β β§ 1 β β*) β ((π / (π΅βπΎ)) β (0[,)1) β ((π / (π΅βπΎ)) β β β§ 0 β€ (π / (π΅βπΎ)) β§ (π / (π΅βπΎ)) < 1))) |
63 | 61, 62 | mp1i 13 |
. . . . 5
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β ((π / (π΅βπΎ)) β (0[,)1) β ((π / (π΅βπΎ)) β β β§ 0 β€ (π / (π΅βπΎ)) β§ (π / (π΅βπΎ)) < 1))) |
64 | 40, 50, 58, 63 | mpbir3and 1343 |
. . . 4
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (π / (π΅βπΎ)) β (0[,)1)) |
65 | | ico01fl0 13781 |
. . . 4
β’ ((π / (π΅βπΎ)) β (0[,)1) β
(ββ(π / (π΅βπΎ))) = 0) |
66 | 64, 65 | syl 17 |
. . 3
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (ββ(π / (π΅βπΎ))) = 0) |
67 | 66 | oveq1d 7421 |
. 2
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β ((ββ(π / (π΅βπΎ))) mod π΅) = (0 mod π΅)) |
68 | 52 | 3ad2ant1 1134 |
. . 3
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β π΅ β
β+) |
69 | | 0mod 13864 |
. . 3
β’ (π΅ β β+
β (0 mod π΅) =
0) |
70 | 68, 69 | syl 17 |
. 2
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (0 mod π΅) = 0) |
71 | 28, 67, 70 | 3eqtrd 2777 |
1
β’ ((π΅ β
(β€β₯β2) β§ π β β β§ πΎ β
(β€β₯β((ββ(π΅ logb π)) + 1))) β (πΎ(digitβπ΅)π) = 0) |