Step | Hyp | Ref
| Expression |
1 | | modval 13840 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ท โ โ+)
โ (๐ด mod ๐ท) = (๐ด โ (๐ท ยท (โโ(๐ด / ๐ท))))) |
2 | | modval 13840 |
. . . . . . . 8
โข ((๐ต โ โ โง ๐ท โ โ+)
โ (๐ต mod ๐ท) = (๐ต โ (๐ท ยท (โโ(๐ต / ๐ท))))) |
3 | 1, 2 | eqeqan12d 2746 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ท โ โ+)
โง (๐ต โ โ
โง ๐ท โ
โ+)) โ ((๐ด mod ๐ท) = (๐ต mod ๐ท) โ (๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) = (๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))))) |
4 | 3 | anandirs 677 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ) โง ๐ท โ โ+)
โ ((๐ด mod ๐ท) = (๐ต mod ๐ท) โ (๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) = (๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))))) |
5 | 4 | adantrl 714 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ด mod ๐ท) = (๐ต mod ๐ท) โ (๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) = (๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))))) |
6 | | oveq1 7418 |
. . . . 5
โข ((๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) = (๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))) โ ((๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) ยท ๐ถ) = ((๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))) ยท ๐ถ)) |
7 | 5, 6 | syl6bi 252 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ด mod ๐ท) = (๐ต mod ๐ท) โ ((๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) ยท ๐ถ) = ((๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))) ยท ๐ถ))) |
8 | | rpcn 12988 |
. . . . . . . . . . 11
โข (๐ท โ โ+
โ ๐ท โ
โ) |
9 | 8 | ad2antll 727 |
. . . . . . . . . 10
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ท โ
โ) |
10 | | zcn 12567 |
. . . . . . . . . . 11
โข (๐ถ โ โค โ ๐ถ โ
โ) |
11 | 10 | ad2antrl 726 |
. . . . . . . . . 10
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ถ โ
โ) |
12 | | rerpdivcl 13008 |
. . . . . . . . . . . . 13
โข ((๐ด โ โ โง ๐ท โ โ+)
โ (๐ด / ๐ท) โ
โ) |
13 | 12 | flcld 13767 |
. . . . . . . . . . . 12
โข ((๐ด โ โ โง ๐ท โ โ+)
โ (โโ(๐ด /
๐ท)) โ
โค) |
14 | 13 | zcnd 12671 |
. . . . . . . . . . 11
โข ((๐ด โ โ โง ๐ท โ โ+)
โ (โโ(๐ด /
๐ท)) โ
โ) |
15 | 14 | adantrl 714 |
. . . . . . . . . 10
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (โโ(๐ด /
๐ท)) โ
โ) |
16 | 9, 11, 15 | mulassd 11241 |
. . . . . . . . 9
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ท ยท ๐ถ) ยท (โโ(๐ด / ๐ท))) = (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) |
17 | 9, 11, 15 | mul32d 11428 |
. . . . . . . . 9
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ท ยท ๐ถ) ยท (โโ(๐ด / ๐ท))) = ((๐ท ยท (โโ(๐ด / ๐ท))) ยท ๐ถ)) |
18 | 16, 17 | eqtr3d 2774 |
. . . . . . . 8
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท)))) = ((๐ท ยท (โโ(๐ด / ๐ท))) ยท ๐ถ)) |
19 | 18 | oveq2d 7427 |
. . . . . . 7
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) = ((๐ด ยท ๐ถ) โ ((๐ท ยท (โโ(๐ด / ๐ท))) ยท ๐ถ))) |
20 | | recn 11202 |
. . . . . . . . 9
โข (๐ด โ โ โ ๐ด โ
โ) |
21 | 20 | adantr 481 |
. . . . . . . 8
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ด โ
โ) |
22 | 8 | adantl 482 |
. . . . . . . . . 10
โข ((๐ด โ โ โง ๐ท โ โ+)
โ ๐ท โ
โ) |
23 | 22, 14 | mulcld 11238 |
. . . . . . . . 9
โข ((๐ด โ โ โง ๐ท โ โ+)
โ (๐ท ยท
(โโ(๐ด / ๐ท))) โ
โ) |
24 | 23 | adantrl 714 |
. . . . . . . 8
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (๐ท ยท
(โโ(๐ด / ๐ท))) โ
โ) |
25 | 21, 24, 11 | subdird 11675 |
. . . . . . 7
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) ยท ๐ถ) = ((๐ด ยท ๐ถ) โ ((๐ท ยท (โโ(๐ด / ๐ท))) ยท ๐ถ))) |
26 | 19, 25 | eqtr4d 2775 |
. . . . . 6
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) = ((๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) ยท ๐ถ)) |
27 | 26 | adantlr 713 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) = ((๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) ยท ๐ถ)) |
28 | 8 | ad2antll 727 |
. . . . . . . . . 10
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ท โ
โ) |
29 | 10 | ad2antrl 726 |
. . . . . . . . . 10
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ถ โ
โ) |
30 | | rerpdivcl 13008 |
. . . . . . . . . . . . 13
โข ((๐ต โ โ โง ๐ท โ โ+)
โ (๐ต / ๐ท) โ
โ) |
31 | 30 | flcld 13767 |
. . . . . . . . . . . 12
โข ((๐ต โ โ โง ๐ท โ โ+)
โ (โโ(๐ต /
๐ท)) โ
โค) |
32 | 31 | zcnd 12671 |
. . . . . . . . . . 11
โข ((๐ต โ โ โง ๐ท โ โ+)
โ (โโ(๐ต /
๐ท)) โ
โ) |
33 | 32 | adantrl 714 |
. . . . . . . . . 10
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (โโ(๐ต /
๐ท)) โ
โ) |
34 | 28, 29, 33 | mulassd 11241 |
. . . . . . . . 9
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ท ยท ๐ถ) ยท (โโ(๐ต / ๐ท))) = (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) |
35 | 28, 29, 33 | mul32d 11428 |
. . . . . . . . 9
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ท ยท ๐ถ) ยท (โโ(๐ต / ๐ท))) = ((๐ท ยท (โโ(๐ต / ๐ท))) ยท ๐ถ)) |
36 | 34, 35 | eqtr3d 2774 |
. . . . . . . 8
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท)))) = ((๐ท ยท (โโ(๐ต / ๐ท))) ยท ๐ถ)) |
37 | 36 | oveq2d 7427 |
. . . . . . 7
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) = ((๐ต ยท ๐ถ) โ ((๐ท ยท (โโ(๐ต / ๐ท))) ยท ๐ถ))) |
38 | | recn 11202 |
. . . . . . . . 9
โข (๐ต โ โ โ ๐ต โ
โ) |
39 | 38 | adantr 481 |
. . . . . . . 8
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ต โ
โ) |
40 | 8 | adantl 482 |
. . . . . . . . . 10
โข ((๐ต โ โ โง ๐ท โ โ+)
โ ๐ท โ
โ) |
41 | 40, 32 | mulcld 11238 |
. . . . . . . . 9
โข ((๐ต โ โ โง ๐ท โ โ+)
โ (๐ท ยท
(โโ(๐ต / ๐ท))) โ
โ) |
42 | 41 | adantrl 714 |
. . . . . . . 8
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (๐ท ยท
(โโ(๐ต / ๐ท))) โ
โ) |
43 | 39, 42, 29 | subdird 11675 |
. . . . . . 7
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))) ยท ๐ถ) = ((๐ต ยท ๐ถ) โ ((๐ท ยท (โโ(๐ต / ๐ท))) ยท ๐ถ))) |
44 | 37, 43 | eqtr4d 2775 |
. . . . . 6
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) = ((๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))) ยท ๐ถ)) |
45 | 44 | adantll 712 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) = ((๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))) ยท ๐ถ)) |
46 | 27, 45 | eqeq12d 2748 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ (((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) = ((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) โ ((๐ด โ (๐ท ยท (โโ(๐ด / ๐ท)))) ยท ๐ถ) = ((๐ต โ (๐ท ยท (โโ(๐ต / ๐ท)))) ยท ๐ถ))) |
47 | 7, 46 | sylibrd 258 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ด mod ๐ท) = (๐ต mod ๐ท) โ ((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) = ((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))))) |
48 | | oveq1 7418 |
. . . 4
โข (((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) = ((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) โ (((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) mod ๐ท) = (((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) mod ๐ท)) |
49 | | zre 12566 |
. . . . . . . . 9
โข (๐ถ โ โค โ ๐ถ โ
โ) |
50 | | remulcl 11197 |
. . . . . . . . 9
โข ((๐ด โ โ โง ๐ถ โ โ) โ (๐ด ยท ๐ถ) โ โ) |
51 | 49, 50 | sylan2 593 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ถ โ โค) โ (๐ด ยท ๐ถ) โ โ) |
52 | 51 | adantrr 715 |
. . . . . . 7
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (๐ด ยท ๐ถ) โ
โ) |
53 | | simprr 771 |
. . . . . . 7
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ท โ
โ+) |
54 | | simprl 769 |
. . . . . . . 8
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ถ โ
โค) |
55 | 13 | adantrl 714 |
. . . . . . . 8
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (โโ(๐ด /
๐ท)) โ
โค) |
56 | 54, 55 | zmulcld 12676 |
. . . . . . 7
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (๐ถ ยท
(โโ(๐ด / ๐ท))) โ
โค) |
57 | | modcyc2 13876 |
. . . . . . 7
โข (((๐ด ยท ๐ถ) โ โ โง ๐ท โ โ+ โง (๐ถ ยท (โโ(๐ด / ๐ท))) โ โค) โ (((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) mod ๐ท) = ((๐ด ยท ๐ถ) mod ๐ท)) |
58 | 52, 53, 56, 57 | syl3anc 1371 |
. . . . . 6
โข ((๐ด โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) mod ๐ท) = ((๐ด ยท ๐ถ) mod ๐ท)) |
59 | 58 | adantlr 713 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ (((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) mod ๐ท) = ((๐ด ยท ๐ถ) mod ๐ท)) |
60 | | remulcl 11197 |
. . . . . . . . 9
โข ((๐ต โ โ โง ๐ถ โ โ) โ (๐ต ยท ๐ถ) โ โ) |
61 | 49, 60 | sylan2 593 |
. . . . . . . 8
โข ((๐ต โ โ โง ๐ถ โ โค) โ (๐ต ยท ๐ถ) โ โ) |
62 | 61 | adantrr 715 |
. . . . . . 7
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (๐ต ยท ๐ถ) โ
โ) |
63 | | simprr 771 |
. . . . . . 7
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ท โ
โ+) |
64 | | simprl 769 |
. . . . . . . 8
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ ๐ถ โ
โค) |
65 | 31 | adantrl 714 |
. . . . . . . 8
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (โโ(๐ต /
๐ท)) โ
โค) |
66 | 64, 65 | zmulcld 12676 |
. . . . . . 7
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (๐ถ ยท
(โโ(๐ต / ๐ท))) โ
โค) |
67 | | modcyc2 13876 |
. . . . . . 7
โข (((๐ต ยท ๐ถ) โ โ โง ๐ท โ โ+ โง (๐ถ ยท (โโ(๐ต / ๐ท))) โ โค) โ (((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) mod ๐ท) = ((๐ต ยท ๐ถ) mod ๐ท)) |
68 | 62, 63, 66, 67 | syl3anc 1371 |
. . . . . 6
โข ((๐ต โ โ โง (๐ถ โ โค โง ๐ท โ โ+))
โ (((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) mod ๐ท) = ((๐ต ยท ๐ถ) mod ๐ท)) |
69 | 68 | adantll 712 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ (((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) mod ๐ท) = ((๐ต ยท ๐ถ) mod ๐ท)) |
70 | 59, 69 | eqeq12d 2748 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) mod ๐ท) = (((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) mod ๐ท) โ ((๐ด ยท ๐ถ) mod ๐ท) = ((๐ต ยท ๐ถ) mod ๐ท))) |
71 | 48, 70 | imbitrid 243 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ (((๐ด ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ด / ๐ท))))) = ((๐ต ยท ๐ถ) โ (๐ท ยท (๐ถ ยท (โโ(๐ต / ๐ท))))) โ ((๐ด ยท ๐ถ) mod ๐ท) = ((๐ต ยท ๐ถ) mod ๐ท))) |
72 | 47, 71 | syld 47 |
. 2
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+))
โ ((๐ด mod ๐ท) = (๐ต mod ๐ท) โ ((๐ด ยท ๐ถ) mod ๐ท) = ((๐ต ยท ๐ถ) mod ๐ท))) |
73 | 72 | 3impia 1117 |
1
โข (((๐ด โ โ โง ๐ต โ โ) โง (๐ถ โ โค โง ๐ท โ โ+)
โง (๐ด mod ๐ท) = (๐ต mod ๐ท)) โ ((๐ด ยท ๐ถ) mod ๐ท) = ((๐ต ยท ๐ถ) mod ๐ท)) |