Step | Hyp | Ref
| Expression |
1 | | nn0z 12587 |
. . 3
β’ (πΎ β β0
β πΎ β
β€) |
2 | | digval 47371 |
. . 3
β’ ((π΅ β β β§ πΎ β β€ β§ π
β (0[,)+β)) β
(πΎ(digitβπ΅)π
) = ((ββ((π΅β-πΎ) Β· π
)) mod π΅)) |
3 | 1, 2 | syl3an2 1162 |
. 2
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (πΎ(digitβπ΅)π
) = ((ββ((π΅β-πΎ) Β· π
)) mod π΅)) |
4 | | nncn 12224 |
. . . . . . . . 9
β’ (π΅ β β β π΅ β
β) |
5 | 4 | anim1i 613 |
. . . . . . . 8
β’ ((π΅ β β β§ πΎ β β0)
β (π΅ β β
β§ πΎ β
β0)) |
6 | | expneg 14039 |
. . . . . . . 8
β’ ((π΅ β β β§ πΎ β β0)
β (π΅β-πΎ) = (1 / (π΅βπΎ))) |
7 | 5, 6 | syl 17 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0)
β (π΅β-πΎ) = (1 / (π΅βπΎ))) |
8 | 7 | 3adant3 1130 |
. . . . . 6
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π΅β-πΎ) = (1 / (π΅βπΎ))) |
9 | 8 | oveq1d 7426 |
. . . . 5
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β ((π΅β-πΎ) Β· π
) = ((1 / (π΅βπΎ)) Β· π
)) |
10 | | elrege0 13435 |
. . . . . . . 8
β’ (π
β (0[,)+β) β
(π
β β β§ 0
β€ π
)) |
11 | | recn 11202 |
. . . . . . . . 9
β’ (π
β β β π
β
β) |
12 | 11 | adantr 479 |
. . . . . . . 8
β’ ((π
β β β§ 0 β€
π
) β π
β β) |
13 | 10, 12 | sylbi 216 |
. . . . . . 7
β’ (π
β (0[,)+β) β
π
β
β) |
14 | 13 | 3ad2ant3 1133 |
. . . . . 6
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β π
β β) |
15 | 5 | 3adant3 1130 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π΅
β β β§ πΎ
β β0)) |
16 | | expcl 14049 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0)
β (π΅βπΎ) β
β) |
17 | 15, 16 | syl 17 |
. . . . . 6
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π΅βπΎ) β β) |
18 | 4 | 3ad2ant1 1131 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β π΅
β β) |
19 | | nnne0 12250 |
. . . . . . . 8
β’ (π΅ β β β π΅ β 0) |
20 | 19 | 3ad2ant1 1131 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β π΅
β 0) |
21 | 1 | 3ad2ant2 1132 |
. . . . . . 7
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β πΎ
β β€) |
22 | 18, 20, 21 | expne0d 14121 |
. . . . . 6
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π΅βπΎ) β 0) |
23 | 14, 17, 22 | divrec2d 11998 |
. . . . 5
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (π
/
(π΅βπΎ)) = ((1 / (π΅βπΎ)) Β· π
)) |
24 | 9, 23 | eqtr4d 2773 |
. . . 4
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β ((π΅β-πΎ) Β· π
) = (π
/ (π΅βπΎ))) |
25 | 24 | fveq2d 6894 |
. . 3
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (ββ((π΅β-πΎ) Β· π
)) = (ββ(π
/ (π΅βπΎ)))) |
26 | 25 | oveq1d 7426 |
. 2
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β ((ββ((π΅β-πΎ) Β· π
)) mod π΅) = ((ββ(π
/ (π΅βπΎ))) mod π΅)) |
27 | 3, 26 | eqtrd 2770 |
1
β’ ((π΅ β β β§ πΎ β β0
β§ π
β
(0[,)+β)) β (πΎ(digitβπ΅)π
) = ((ββ(π
/ (π΅βπΎ))) mod π΅)) |