Step | Hyp | Ref
| Expression |
1 | | nn0z 12548 |
. . 3
β’ (πΎ β β0
β πΎ β
β€) |
2 | | digval 46837 |
. . 3
β’ ((π΅ β β β§ πΎ β β€ β§ π
β (0[,)+β)) β
(πΎ(digitβπ΅)π
) = ((ββ((π΅β-πΎ) Β· π
)) mod π΅)) |
3 | 1, 2 | syl3an2 1164 |
. 2
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (πΎ(digitβπ΅)π
) = ((ββ((π΅β-πΎ) Β· π
)) mod π΅)) |
4 | | nncn 12185 |
. . . . . . . . 9
β’ (π΅ β β β π΅ β
β) |
5 | 4 | anim1i 615 |
. . . . . . . 8
β’ ((π΅ β β β§ πΎ β β0)
β (π΅ β β
β§ πΎ β
β0)) |
6 | | expneg 14000 |
. . . . . . . 8
β’ ((π΅ β β β§ πΎ β β0)
β (π΅β-πΎ) = (1 / (π΅βπΎ))) |
7 | 5, 6 | syl 17 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0)
β (π΅β-πΎ) = (1 / (π΅βπΎ))) |
8 | 7 | 3adant3 1132 |
. . . . . 6
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π΅β-πΎ) = (1 / (π΅βπΎ))) |
9 | 8 | oveq1d 7392 |
. . . . 5
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β ((π΅β-πΎ) Β· π
) = ((1 / (π΅βπΎ)) Β· π
)) |
10 | | elrege0 13396 |
. . . . . . . 8
β’ (π
β (0[,)+β) β
(π
β β β§ 0
β€ π
)) |
11 | | recn 11165 |
. . . . . . . . 9
β’ (π
β β β π
β
β) |
12 | 11 | adantr 481 |
. . . . . . . 8
β’ ((π
β β β§ 0 β€
π
) β π
β β) |
13 | 10, 12 | sylbi 216 |
. . . . . . 7
β’ (π
β (0[,)+β) β
π
β
β) |
14 | 13 | 3ad2ant3 1135 |
. . . . . 6
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β π
β β) |
15 | 5 | 3adant3 1132 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π΅
β β β§ πΎ
β β0)) |
16 | | expcl 14010 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0)
β (π΅βπΎ) β
β) |
17 | 15, 16 | syl 17 |
. . . . . 6
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π΅βπΎ) β β) |
18 | 4 | 3ad2ant1 1133 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β π΅
β β) |
19 | | nnne0 12211 |
. . . . . . . 8
β’ (π΅ β β β π΅ β 0) |
20 | 19 | 3ad2ant1 1133 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β π΅
β 0) |
21 | 1 | 3ad2ant2 1134 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β πΎ
β β€) |
22 | 18, 20, 21 | expne0d 14082 |
. . . . . 6
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π΅βπΎ) β 0) |
23 | 14, 17, 22 | divrec2d 11959 |
. . . . 5
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π
/
(π΅βπΎ)) = ((1 / (π΅βπΎ)) Β· π
)) |
24 | 9, 23 | eqtr4d 2774 |
. . . 4
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β ((π΅β-πΎ) Β· π
) = (π
/ (π΅βπΎ))) |
25 | 24 | fveq2d 6866 |
. . 3
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (ββ((π΅β-πΎ) Β· π
)) = (ββ(π
/ (π΅βπΎ)))) |
26 | 25 | oveq1d 7392 |
. 2
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β ((ββ((π΅β-πΎ) Β· π
)) mod π΅) = ((ββ(π
/ (π΅βπΎ))) mod π΅)) |
27 | 3, 26 | eqtrd 2771 |
1
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (πΎ(digitβπ΅)π
) = ((ββ(π
/ (π΅βπΎ))) mod π΅)) |