Step | Hyp | Ref
| Expression |
1 | | fzfi 13933 |
. . . . . . . 8
โข
(0...((absโ๐)
โ 1)) โ Fin |
2 | | xpfi 9313 |
. . . . . . . 8
โข
(((0...((absโ๐) โ 1)) โ Fin โง
(0...((absโ๐) โ
1)) โ Fin) โ ((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โ
Fin) |
3 | 1, 1, 2 | mp2an 691 |
. . . . . . 7
โข
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โ Fin |
4 | | isfinite 9643 |
. . . . . . 7
โข
(((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โ Fin โ
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โบ
ฯ) |
5 | 3, 4 | mpbi 229 |
. . . . . 6
โข
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โบ
ฯ |
6 | | nnenom 13941 |
. . . . . . 7
โข โ
โ ฯ |
7 | 6 | ensymi 8996 |
. . . . . 6
โข ฯ
โ โ |
8 | | sdomentr 9107 |
. . . . . 6
โข
((((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โบ ฯ
โง ฯ โ โ) โ ((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โบ
โ) |
9 | 5, 7, 8 | mp2an 691 |
. . . . 5
โข
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โบ
โ |
10 | | ensym 8995 |
. . . . . 6
โข
({โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ โ โ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
11 | 10 | ad2antll 728 |
. . . . 5
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โ โ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
12 | | sdomentr 9107 |
. . . . 5
โข
((((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โบ โ
โง โ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ ((0...((absโ๐) โ 1)) ร
(0...((absโ๐) โ
1))) โบ {โจ๐,
๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
13 | 9, 11, 12 | sylancr 588 |
. . . 4
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โ
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โบ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
14 | | opabssxp 5766 |
. . . . . . . 8
โข
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ (โ ร
โ) |
15 | 14 | sseli 3977 |
. . . . . . 7
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ๐ โ (โ ร
โ)) |
16 | | simprrl 780 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (1st
โ๐) โ
โ) |
17 | 16 | nnzd 12581 |
. . . . . . . . . . 11
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (1st
โ๐) โ
โค) |
18 | | simpllr 775 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ ๐ โ โค) |
19 | | simplr 768 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ ๐ โ 0) |
20 | | nnabscl 15268 |
. . . . . . . . . . . 12
โข ((๐ โ โค โง ๐ โ 0) โ (absโ๐) โ
โ) |
21 | 18, 19, 20 | syl2anc 585 |
. . . . . . . . . . 11
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (absโ๐) โ
โ) |
22 | | zmodfz 13854 |
. . . . . . . . . . 11
โข
(((1st โ๐) โ โค โง (absโ๐) โ โ) โ
((1st โ๐)
mod (absโ๐)) โ
(0...((absโ๐) โ
1))) |
23 | 17, 21, 22 | syl2anc 585 |
. . . . . . . . . 10
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ ((1st
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1))) |
24 | | simprrr 781 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (2nd
โ๐) โ
โ) |
25 | 24 | nnzd 12581 |
. . . . . . . . . . 11
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (2nd
โ๐) โ
โค) |
26 | | zmodfz 13854 |
. . . . . . . . . . 11
โข
(((2nd โ๐) โ โค โง (absโ๐) โ โ) โ
((2nd โ๐)
mod (absโ๐)) โ
(0...((absโ๐) โ
1))) |
27 | 25, 21, 26 | syl2anc 585 |
. . . . . . . . . 10
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ ((2nd
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1))) |
28 | 23, 27 | jca 513 |
. . . . . . . . 9
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (((1st
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1)) โง ((2nd โ๐) mod (absโ๐)) โ (0...((absโ๐) โ 1)))) |
29 | 28 | ex 414 |
. . . . . . . 8
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ ((๐ โ (V
ร V) โง ((1st โ๐) โ โ โง (2nd
โ๐) โ โ))
โ (((1st โ๐) mod (absโ๐)) โ (0...((absโ๐) โ 1)) โง ((2nd
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1))))) |
30 | | elxp7 8005 |
. . . . . . . 8
โข (๐ โ (โ ร
โ) โ (๐ โ
(V ร V) โง ((1st โ๐) โ โ โง (2nd
โ๐) โ
โ))) |
31 | | opelxp 5711 |
. . . . . . . 8
โข
(โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ โ
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โ (((1st
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1)) โง ((2nd โ๐) mod (absโ๐)) โ (0...((absโ๐) โ 1)))) |
32 | 29, 30, 31 | 3imtr4g 296 |
. . . . . . 7
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ (๐ โ (โ
ร โ) โ โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ โ
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))))) |
33 | 15, 32 | syl5 34 |
. . . . . 6
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ (๐ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ โ
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))))) |
34 | 33 | imp 408 |
. . . . 5
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ โจ((1st
โ๐) mod
(absโ๐)),
((2nd โ๐)
mod (absโ๐))โฉ
โ ((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1)))) |
35 | 34 | adantlrr 720 |
. . . 4
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง (๐ โ 0 โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โง ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ โจ((1st
โ๐) mod
(absโ๐)),
((2nd โ๐)
mod (absโ๐))โฉ
โ ((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1)))) |
36 | | fveq2 6888 |
. . . . . 6
โข (๐ = ๐ โ (1st โ๐) = (1st โ๐)) |
37 | 36 | oveq1d 7419 |
. . . . 5
โข (๐ = ๐ โ ((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐))) |
38 | | fveq2 6888 |
. . . . . 6
โข (๐ = ๐ โ (2nd โ๐) = (2nd โ๐)) |
39 | 38 | oveq1d 7419 |
. . . . 5
โข (๐ = ๐ โ ((2nd โ๐) mod (absโ๐)) = ((2nd
โ๐) mod
(absโ๐))) |
40 | 37, 39 | opeq12d 4880 |
. . . 4
โข (๐ = ๐ โ โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) |
41 | 13, 35, 40 | fphpd 41487 |
. . 3
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โ โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) |
42 | | eleq1w 2817 |
. . . . . . . . . . . 12
โข (๐ = ๐ โ (๐ โ โ โ ๐ โ โ)) |
43 | | eleq1w 2817 |
. . . . . . . . . . . 12
โข (๐ = ๐ โ (๐ โ โ โ ๐ โ โ)) |
44 | 42, 43 | bi2anan9 638 |
. . . . . . . . . . 11
โข ((๐ = ๐ โง ๐ = ๐) โ ((๐ โ โ โง ๐ โ โ) โ (๐ โ โ โง ๐ โ โ))) |
45 | | oveq1 7411 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ (๐โ2) = (๐โ2)) |
46 | | oveq1 7411 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ โ (๐โ2) = (๐โ2)) |
47 | 46 | oveq2d 7420 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ (๐ท ยท (๐โ2)) = (๐ท ยท (๐โ2))) |
48 | 45, 47 | oveqan12d 7423 |
. . . . . . . . . . . 12
โข ((๐ = ๐ โง ๐ = ๐) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ((๐โ2) โ (๐ท ยท (๐โ2)))) |
49 | 48 | eqeq1d 2735 |
. . . . . . . . . . 11
โข ((๐ = ๐ โง ๐ = ๐) โ (((๐โ2) โ (๐ท ยท (๐โ2))) = ๐ โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) |
50 | 44, 49 | anbi12d 632 |
. . . . . . . . . 10
โข ((๐ = ๐ โง ๐ = ๐) โ (((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) โ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) |
51 | 50 | cbvopabv 5220 |
. . . . . . . . 9
โข
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} = {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} |
52 | 51 | eleq2i 2826 |
. . . . . . . 8
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
53 | 52 | biimpi 215 |
. . . . . . 7
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
54 | | elopab 5526 |
. . . . . . . . 9
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ๐โ๐(๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) |
55 | | elopab 5526 |
. . . . . . . . . . . 12
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ๐โ๐(๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) |
56 | | simp3ll 1245 |
. . . . . . . . . . . . . . . . 17
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง ๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ ๐ โ โ) |
57 | 56 | 3expb 1121 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ๐ โ โ) |
58 | 57 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
59 | | simp3lr 1246 |
. . . . . . . . . . . . . . . . 17
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง ๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ ๐ โ โ) |
60 | 59 | 3expb 1121 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ๐ โ โ) |
61 | 60 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
62 | | simp1lr 1238 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โค) |
63 | 62 | 3adant1r 1178 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โค) |
64 | | simp-4l 782 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ๐ท โ โ) |
65 | 64 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ท โ
โ) |
66 | | simp-4r 783 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ยฌ (โโ๐ท) โ
โ) |
67 | 66 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ยฌ
(โโ๐ท) โ
โ) |
68 | | simp2ll 1241 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
69 | 68 | 3adant2l 1179 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
70 | | simp2lr 1242 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
71 | 70 | 3adant2l 1179 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
72 | | simp2l 1200 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ = โจ๐, ๐โฉ) |
73 | | simp1rl 1239 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ = โจ๐, ๐โฉ) |
74 | | simp3l 1202 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ ๐) |
75 | | simp3 1139 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ ๐ โ ๐) |
76 | | simp2 1138 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ ๐ = โจ๐, ๐โฉ) |
77 | | simp1 1137 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ ๐ = โจ๐, ๐โฉ) |
78 | 75, 76, 77 | 3netr3d 3018 |
. . . . . . . . . . . . . . . . 17
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ โจ๐, ๐โฉ โ โจ๐, ๐โฉ) |
79 | | vex 3479 |
. . . . . . . . . . . . . . . . . . 19
โข ๐ โ V |
80 | | vex 3479 |
. . . . . . . . . . . . . . . . . . 19
โข ๐ โ V |
81 | 79, 80 | opth 5475 |
. . . . . . . . . . . . . . . . . 18
โข
(โจ๐, ๐โฉ = โจ๐, ๐โฉ โ (๐ = ๐ โง ๐ = ๐)) |
82 | 81 | necon3abii 2988 |
. . . . . . . . . . . . . . . . 17
โข
(โจ๐, ๐โฉ โ โจ๐, ๐โฉ โ ยฌ (๐ = ๐ โง ๐ = ๐)) |
83 | 78, 82 | sylib 217 |
. . . . . . . . . . . . . . . 16
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ ยฌ (๐ = ๐ โง ๐ = ๐)) |
84 | 72, 73, 74, 83 | syl3anc 1372 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ยฌ (๐ = ๐ โง ๐ = ๐)) |
85 | | simp1lr 1238 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ 0) |
86 | | simp1rr 1240 |
. . . . . . . . . . . . . . . 16
โข (((๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) |
87 | 86 | 3adant1l 1177 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) |
88 | | simp2rr 1244 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) |
89 | | simp3r 1203 |
. . . . . . . . . . . . . . . . 17
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) |
90 | | simp3 1139 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง โจ((1st
โ๐) mod
(absโ๐)),
((2nd โ๐)
mod (absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) |
91 | | ovex 7437 |
. . . . . . . . . . . . . . . . . . . 20
โข
((1st โ๐) mod (absโ๐)) โ V |
92 | | ovex 7437 |
. . . . . . . . . . . . . . . . . . . 20
โข
((2nd โ๐) mod (absโ๐)) โ V |
93 | 91, 92 | opth 5475 |
. . . . . . . . . . . . . . . . . . 19
โข
(โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ โ
(((1st โ๐)
mod (absโ๐)) =
((1st โ๐)
mod (absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) |
94 | 90, 93 | sylib 217 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง โจ((1st
โ๐) mod
(absโ๐)),
((2nd โ๐)
mod (absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ
(((1st โ๐)
mod (absโ๐)) =
((1st โ๐)
mod (absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) |
95 | | simprl 770 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((1st โ๐)
mod (absโ๐)) =
((1st โ๐)
mod (absโ๐))) |
96 | | simpll 766 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
๐ = โจ๐, ๐โฉ) |
97 | 96 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(1st โ๐) =
(1st โโจ๐, ๐โฉ)) |
98 | 79, 80 | op1st 7978 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข
(1st โโจ๐, ๐โฉ) = ๐ |
99 | 97, 98 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(1st โ๐) =
๐) |
100 | 99 | oveq1d 7419 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((1st โ๐)
mod (absโ๐)) = (๐ mod (absโ๐))) |
101 | | simplr 768 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
๐ = โจ๐, ๐โฉ) |
102 | 101 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(1st โ๐) =
(1st โโจ๐, ๐โฉ)) |
103 | | vex 3479 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ๐ โ V |
104 | | vex 3479 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ๐ โ V |
105 | 103, 104 | op1st 7978 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข
(1st โโจ๐, ๐โฉ) = ๐ |
106 | 102, 105 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(1st โ๐) =
๐) |
107 | 106 | oveq1d 7419 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((1st โ๐)
mod (absโ๐)) = (๐ mod (absโ๐))) |
108 | 95, 100, 107 | 3eqtr3d 2781 |
. . . . . . . . . . . . . . . . . . . . 21
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(๐ mod (absโ๐)) = (๐ mod (absโ๐))) |
109 | | simprr 772 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐))) |
110 | 96 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(2nd โ๐) =
(2nd โโจ๐, ๐โฉ)) |
111 | 79, 80 | op2nd 7979 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข
(2nd โโจ๐, ๐โฉ) = ๐ |
112 | 110, 111 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(2nd โ๐) =
๐) |
113 | 112 | oveq1d 7419 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((2nd โ๐)
mod (absโ๐)) = (๐ mod (absโ๐))) |
114 | 101 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(2nd โ๐) =
(2nd โโจ๐, ๐โฉ)) |
115 | 103, 104 | op2nd 7979 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข
(2nd โโจ๐, ๐โฉ) = ๐ |
116 | 114, 115 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(2nd โ๐) =
๐) |
117 | 116 | oveq1d 7419 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((2nd โ๐)
mod (absโ๐)) = (๐ mod (absโ๐))) |
118 | 109, 113,
117 | 3eqtr3d 2781 |
. . . . . . . . . . . . . . . . . . . . 21
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(๐ mod (absโ๐)) = (๐ mod (absโ๐))) |
119 | 108, 118 | jca 513 |
. . . . . . . . . . . . . . . . . . . 20
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((๐ mod (absโ๐)) = (๐ mod (absโ๐)) โง (๐ mod (absโ๐)) = (๐ mod (absโ๐)))) |
120 | 119 | ex 414 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โ ((((1st
โ๐) mod
(absโ๐)) =
((1st โ๐)
mod (absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐))) โ
((๐ mod (absโ๐)) = (๐ mod (absโ๐)) โง (๐ mod (absโ๐)) = (๐ mod (absโ๐))))) |
121 | 120 | 3adant3 1133 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง โจ((1st
โ๐) mod
(absโ๐)),
((2nd โ๐)
mod (absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ
((((1st โ๐) mod (absโ๐)) = ((1st โ๐) mod (absโ๐)) โง ((2nd
โ๐) mod
(absโ๐)) =
((2nd โ๐)
mod (absโ๐))) โ
((๐ mod (absโ๐)) = (๐ mod (absโ๐)) โง (๐ mod (absโ๐)) = (๐ mod (absโ๐))))) |
122 | 94, 121 | mpd 15 |
. . . . . . . . . . . . . . . . 17
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง โจ((1st
โ๐) mod
(absโ๐)),
((2nd โ๐)
mod (absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ ((๐ mod (absโ๐)) = (๐ mod (absโ๐)) โง (๐ mod (absโ๐)) = (๐ mod (absโ๐)))) |
123 | 73, 72, 89, 122 | syl3anc 1372 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ((๐ mod (absโ๐)) = (๐ mod (absโ๐)) โง (๐ mod (absโ๐)) = (๐ mod (absโ๐)))) |
124 | 123 | simpld 496 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ (๐ mod (absโ๐)) = (๐ mod (absโ๐))) |
125 | 123 | simprd 497 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ (๐ mod (absโ๐)) = (๐ mod (absโ๐))) |
126 | 58, 61, 63, 65, 67, 69, 71, 84, 85, 87, 88, 124, 125 | pellexlem6 41505 |
. . . . . . . . . . . . . 14
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1) |
127 | 126 | 3exp 1120 |
. . . . . . . . . . . . 13
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ((๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1))) |
128 | 127 | exlimdvv 1938 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ (โ๐โ๐(๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1))) |
129 | 55, 128 | biimtrid 241 |
. . . . . . . . . . 11
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1))) |
130 | 129 | ex 414 |
. . . . . . . . . 10
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ ((๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1)))) |
131 | 130 | exlimdvv 1938 |
. . . . . . . . 9
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ (โ๐โ๐(๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1)))) |
132 | 54, 131 | biimtrid 241 |
. . . . . . . 8
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ (๐ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1)))) |
133 | 132 | impd 412 |
. . . . . . 7
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ ((๐ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โง ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1))) |
134 | 53, 133 | sylan2i 607 |
. . . . . 6
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ ((๐ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โง ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1))) |
135 | 134 | rexlimdvv 3211 |
. . . . 5
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ (โ๐ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1)) |
136 | 135 | imp 408 |
. . . 4
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1) |
137 | 136 | adantlrr 720 |
. . 3
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง (๐ โ 0 โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โง โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1) |
138 | 41, 137 | mpdan 686 |
. 2
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1) |
139 | | pellexlem5 41504 |
. 2
โข ((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โ โ๐
โ โค (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) |
140 | 138, 139 | r19.29a 3163 |
1
โข ((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โ โ๐ฅ
โ โ โ๐ฆ
โ โ ((๐ฅโ2)
โ (๐ท ยท (๐ฆโ2))) = 1) |