Step | Hyp | Ref
| Expression |
1 | | fzfi 13944 |
. . . . . . . 8
โข
(0...((absโ๐)
โ 1)) โ Fin |
2 | | xpfi 9323 |
. . . . . . . 8
โข
(((0...((absโ๐) โ 1)) โ Fin โง
(0...((absโ๐) โ
1)) โ Fin) โ ((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โ
Fin) |
3 | 1, 1, 2 | mp2an 689 |
. . . . . . 7
โข
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โ Fin |
4 | | isfinite 9653 |
. . . . . . 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 13952 |
. . . . . . 7
โข โ
โ ฯ |
7 | 6 | ensymi 9006 |
. . . . . 6
โข ฯ
โ โ |
8 | | sdomentr 9117 |
. . . . . 6
โข
((((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โบ ฯ
โง ฯ โ โ) โ ((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โบ
โ) |
9 | 5, 7, 8 | mp2an 689 |
. . . . 5
โข
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โบ
โ |
10 | | ensym 9005 |
. . . . . 6
โข
({โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ โ โ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
11 | 10 | ad2antll 726 |
. . . . 5
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โ โ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
12 | | sdomentr 9117 |
. . . . 5
โข
((((0...((absโ๐) โ 1)) ร (0...((absโ๐) โ 1))) โบ โ
โง โ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ ((0...((absโ๐) โ 1)) ร
(0...((absโ๐) โ
1))) โบ {โจ๐,
๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
13 | 9, 11, 12 | sylancr 586 |
. . . 4
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โ
((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1))) โบ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
14 | | opabssxp 5768 |
. . . . . . . 8
โข
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ (โ ร
โ) |
15 | 14 | sseli 3978 |
. . . . . . 7
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ๐ โ (โ ร
โ)) |
16 | | simprrl 778 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (1st
โ๐) โ
โ) |
17 | 16 | nnzd 12592 |
. . . . . . . . . . 11
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (1st
โ๐) โ
โค) |
18 | | simpllr 773 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ ๐ โ โค) |
19 | | simplr 766 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ ๐ โ 0) |
20 | | nnabscl 15279 |
. . . . . . . . . . . 12
โข ((๐ โ โค โง ๐ โ 0) โ (absโ๐) โ
โ) |
21 | 18, 19, 20 | syl2anc 583 |
. . . . . . . . . . 11
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (absโ๐) โ
โ) |
22 | | zmodfz 13865 |
. . . . . . . . . . 11
โข
(((1st โ๐) โ โค โง (absโ๐) โ โ) โ
((1st โ๐)
mod (absโ๐)) โ
(0...((absโ๐) โ
1))) |
23 | 17, 21, 22 | syl2anc 583 |
. . . . . . . . . 10
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ ((1st
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1))) |
24 | | simprrr 779 |
. . . . . . . . . . . 12
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (2nd
โ๐) โ
โ) |
25 | 24 | nnzd 12592 |
. . . . . . . . . . 11
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (2nd
โ๐) โ
โค) |
26 | | zmodfz 13865 |
. . . . . . . . . . 11
โข
(((2nd โ๐) โ โค โง (absโ๐) โ โ) โ
((2nd โ๐)
mod (absโ๐)) โ
(0...((absโ๐) โ
1))) |
27 | 25, 21, 26 | syl2anc 583 |
. . . . . . . . . 10
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ ((2nd
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1))) |
28 | 23, 27 | jca 511 |
. . . . . . . . 9
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ โ (V ร V) โง ((1st
โ๐) โ โ
โง (2nd โ๐) โ โ))) โ (((1st
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1)) โง ((2nd โ๐) mod (absโ๐)) โ (0...((absโ๐) โ 1)))) |
29 | 28 | ex 412 |
. . . . . . . 8
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ ((๐ โ (V
ร V) โง ((1st โ๐) โ โ โง (2nd
โ๐) โ โ))
โ (((1st โ๐) mod (absโ๐)) โ (0...((absโ๐) โ 1)) โง ((2nd
โ๐) mod
(absโ๐)) โ
(0...((absโ๐) โ
1))))) |
30 | | elxp7 8014 |
. . . . . . . 8
โข (๐ โ (โ ร
โ) โ (๐ โ
(V ร V) โง ((1st โ๐) โ โ โง (2nd
โ๐) โ
โ))) |
31 | | opelxp 5712 |
. . . . . . . 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 406 |
. . . . 5
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ โจ((1st
โ๐) mod
(absโ๐)),
((2nd โ๐)
mod (absโ๐))โฉ
โ ((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1)))) |
35 | 34 | adantlrr 718 |
. . . 4
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง (๐ โ 0 โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โง ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ โจ((1st
โ๐) mod
(absโ๐)),
((2nd โ๐)
mod (absโ๐))โฉ
โ ((0...((absโ๐)
โ 1)) ร (0...((absโ๐) โ 1)))) |
36 | | fveq2 6891 |
. . . . . 6
โข (๐ = ๐ โ (1st โ๐) = (1st โ๐)) |
37 | 36 | oveq1d 7427 |
. . . . 5
โข (๐ = ๐ โ ((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐))) |
38 | | fveq2 6891 |
. . . . . 6
โข (๐ = ๐ โ (2nd โ๐) = (2nd โ๐)) |
39 | 38 | oveq1d 7427 |
. . . . 5
โข (๐ = ๐ โ ((2nd โ๐) mod (absโ๐)) = ((2nd
โ๐) mod
(absโ๐))) |
40 | 37, 39 | opeq12d 4881 |
. . . 4
โข (๐ = ๐ โ โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) |
41 | 13, 35, 40 | fphpd 42019 |
. . 3
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โ โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) |
42 | | eleq1w 2815 |
. . . . . . . . . . . 12
โข (๐ = ๐ โ (๐ โ โ โ ๐ โ โ)) |
43 | | eleq1w 2815 |
. . . . . . . . . . . 12
โข (๐ = ๐ โ (๐ โ โ โ ๐ โ โ)) |
44 | 42, 43 | bi2anan9 636 |
. . . . . . . . . . 11
โข ((๐ = ๐ โง ๐ = ๐) โ ((๐ โ โ โง ๐ โ โ) โ (๐ โ โ โง ๐ โ โ))) |
45 | | oveq1 7419 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ (๐โ2) = (๐โ2)) |
46 | | oveq1 7419 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ โ (๐โ2) = (๐โ2)) |
47 | 46 | oveq2d 7428 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ (๐ท ยท (๐โ2)) = (๐ท ยท (๐โ2))) |
48 | 45, 47 | oveqan12d 7431 |
. . . . . . . . . . . 12
โข ((๐ = ๐ โง ๐ = ๐) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ((๐โ2) โ (๐ท ยท (๐โ2)))) |
49 | 48 | eqeq1d 2733 |
. . . . . . . . . . 11
โข ((๐ = ๐ โง ๐ = ๐) โ (((๐โ2) โ (๐ท ยท (๐โ2))) = ๐ โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) |
50 | 44, 49 | anbi12d 630 |
. . . . . . . . . 10
โข ((๐ = ๐ โง ๐ = ๐) โ (((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) โ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) |
51 | 50 | cbvopabv 5221 |
. . . . . . . . 9
โข
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} = {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} |
52 | 51 | eleq2i 2824 |
. . . . . . . 8
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
53 | 52 | biimpi 215 |
. . . . . . 7
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) |
54 | | elopab 5527 |
. . . . . . . . 9
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ๐โ๐(๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) |
55 | | elopab 5527 |
. . . . . . . . . . . 12
โข (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ๐โ๐(๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) |
56 | | simp3ll 1243 |
. . . . . . . . . . . . . . . . 17
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง ๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ ๐ โ โ) |
57 | 56 | 3expb 1119 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ๐ โ โ) |
58 | 57 | 3ad2ant1 1132 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
59 | | simp3lr 1244 |
. . . . . . . . . . . . . . . . 17
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง ๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ ๐ โ โ) |
60 | 59 | 3expb 1119 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ๐ โ โ) |
61 | 60 | 3ad2ant1 1132 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
62 | | simp1lr 1236 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โค) |
63 | 62 | 3adant1r 1176 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โค) |
64 | | simp-4l 780 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ๐ท โ โ) |
65 | 64 | 3ad2ant1 1132 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ท โ
โ) |
66 | | simp-4r 781 |
. . . . . . . . . . . . . . . 16
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ยฌ (โโ๐ท) โ
โ) |
67 | 66 | 3ad2ant1 1132 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ยฌ
(โโ๐ท) โ
โ) |
68 | | simp2ll 1239 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
69 | 68 | 3adant2l 1177 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
70 | | simp2lr 1240 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
71 | 70 | 3adant2l 1177 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ
โ) |
72 | | simp2l 1198 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ = โจ๐, ๐โฉ) |
73 | | simp1rl 1237 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ = โจ๐, ๐โฉ) |
74 | | simp3l 1200 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ ๐) |
75 | | simp3 1137 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ ๐ โ ๐) |
76 | | simp2 1136 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ ๐ = โจ๐, ๐โฉ) |
77 | | simp1 1135 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ ๐ = โจ๐, ๐โฉ) |
78 | 75, 76, 77 | 3netr3d 3016 |
. . . . . . . . . . . . . . . . 17
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ โจ๐, ๐โฉ โ โจ๐, ๐โฉ) |
79 | | vex 3477 |
. . . . . . . . . . . . . . . . . . 19
โข ๐ โ V |
80 | | vex 3477 |
. . . . . . . . . . . . . . . . . . 19
โข ๐ โ V |
81 | 79, 80 | opth 5476 |
. . . . . . . . . . . . . . . . . 18
โข
(โจ๐, ๐โฉ = โจ๐, ๐โฉ โ (๐ = ๐ โง ๐ = ๐)) |
82 | 81 | necon3abii 2986 |
. . . . . . . . . . . . . . . . 17
โข
(โจ๐, ๐โฉ โ โจ๐, ๐โฉ โ ยฌ (๐ = ๐ โง ๐ = ๐)) |
83 | 78, 82 | sylib 217 |
. . . . . . . . . . . . . . . 16
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ โง ๐ โ ๐) โ ยฌ (๐ = ๐ โง ๐ = ๐)) |
84 | 72, 73, 74, 83 | syl3anc 1370 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ยฌ (๐ = ๐ โง ๐ = ๐)) |
85 | | simp1lr 1236 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ๐ โ 0) |
86 | | simp1rr 1238 |
. . . . . . . . . . . . . . . 16
โข (((๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) |
87 | 86 | 3adant1l 1175 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) |
88 | | simp2rr 1242 |
. . . . . . . . . . . . . . 15
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐) |
89 | | simp3r 1201 |
. . . . . . . . . . . . . . . . 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 1137 |
. . . . . . . . . . . . . . . . . . 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 7445 |
. . . . . . . . . . . . . . . . . . . 20
โข
((1st โ๐) mod (absโ๐)) โ V |
92 | | ovex 7445 |
. . . . . . . . . . . . . . . . . . . 20
โข
((2nd โ๐) mod (absโ๐)) โ V |
93 | 91, 92 | opth 5476 |
. . . . . . . . . . . . . . . . . . 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 768 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((1st โ๐)
mod (absโ๐)) =
((1st โ๐)
mod (absโ๐))) |
96 | | simpll 764 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
๐ = โจ๐, ๐โฉ) |
97 | 96 | fveq2d 6895 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(1st โ๐) =
(1st โโจ๐, ๐โฉ)) |
98 | 79, 80 | op1st 7987 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข
(1st โโจ๐, ๐โฉ) = ๐ |
99 | 97, 98 | eqtrdi 2787 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(1st โ๐) =
๐) |
100 | 99 | oveq1d 7427 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((1st โ๐)
mod (absโ๐)) = (๐ mod (absโ๐))) |
101 | | simplr 766 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
๐ = โจ๐, ๐โฉ) |
102 | 101 | fveq2d 6895 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(1st โ๐) =
(1st โโจ๐, ๐โฉ)) |
103 | | vex 3477 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ๐ โ V |
104 | | vex 3477 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ๐ โ V |
105 | 103, 104 | op1st 7987 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข
(1st โโจ๐, ๐โฉ) = ๐ |
106 | 102, 105 | eqtrdi 2787 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(1st โ๐) =
๐) |
107 | 106 | oveq1d 7427 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((1st โ๐)
mod (absโ๐)) = (๐ mod (absโ๐))) |
108 | 95, 100, 107 | 3eqtr3d 2779 |
. . . . . . . . . . . . . . . . . . . . 21
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(๐ mod (absโ๐)) = (๐ mod (absโ๐))) |
109 | | simprr 770 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐))) |
110 | 96 | fveq2d 6895 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(2nd โ๐) =
(2nd โโจ๐, ๐โฉ)) |
111 | 79, 80 | op2nd 7988 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข
(2nd โโจ๐, ๐โฉ) = ๐ |
112 | 110, 111 | eqtrdi 2787 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(2nd โ๐) =
๐) |
113 | 112 | oveq1d 7427 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((2nd โ๐)
mod (absโ๐)) = (๐ mod (absโ๐))) |
114 | 101 | fveq2d 6895 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(2nd โ๐) =
(2nd โโจ๐, ๐โฉ)) |
115 | 103, 104 | op2nd 7988 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข
(2nd โโจ๐, ๐โฉ) = ๐ |
116 | 114, 115 | eqtrdi 2787 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(2nd โ๐) =
๐) |
117 | 116 | oveq1d 7427 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((2nd โ๐)
mod (absโ๐)) = (๐ mod (absโ๐))) |
118 | 109, 113,
117 | 3eqtr3d 2779 |
. . . . . . . . . . . . . . . . . . . . 21
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
(๐ mod (absโ๐)) = (๐ mod (absโ๐))) |
119 | 108, 118 | jca 511 |
. . . . . . . . . . . . . . . . . . . 20
โข (((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โง (((1st โ๐) mod (absโ๐)) = ((1st
โ๐) mod
(absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐)))) โ
((๐ mod (absโ๐)) = (๐ mod (absโ๐)) โง (๐ mod (absโ๐)) = (๐ mod (absโ๐)))) |
120 | 119 | ex 412 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ = โจ๐, ๐โฉ โง ๐ = โจ๐, ๐โฉ) โ ((((1st
โ๐) mod
(absโ๐)) =
((1st โ๐)
mod (absโ๐)) โง
((2nd โ๐)
mod (absโ๐)) =
((2nd โ๐)
mod (absโ๐))) โ
((๐ mod (absโ๐)) = (๐ mod (absโ๐)) โง (๐ mod (absโ๐)) = (๐ mod (absโ๐))))) |
121 | 120 | 3adant3 1131 |
. . . . . . . . . . . . . . . . . 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 1370 |
. . . . . . . . . . . . . . . 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 494 |
. . . . . . . . . . . . . . 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 495 |
. . . . . . . . . . . . . . 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 42037 |
. . . . . . . . . . . . . 14
โข
((((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โง (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1) |
127 | 126 | 3exp 1118 |
. . . . . . . . . . . . 13
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง (๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐))) โ ((๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1))) |
128 | 127 | exlimdvv 1936 |
. . . . . . . . . . . 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 412 |
. . . . . . . . . 10
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ ((๐ = โจ๐, ๐โฉ โง ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)) โ (๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1)))) |
131 | 130 | exlimdvv 1936 |
. . . . . . . . 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 410 |
. . . . . . 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 605 |
. . . . . 6
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ ((๐ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โง ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}) โ ((๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1))) |
135 | 134 | rexlimdvv 3209 |
. . . . 5
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง ๐ โ 0)
โ (โ๐ โ
{โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1)) |
136 | 135 | imp 406 |
. . . 4
โข
(((((๐ท โ
โ โง ยฌ (โโ๐ท) โ โ) โง ๐ โ โค) โง ๐ โ 0) โง โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)}โ๐ โ {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} (๐ โ ๐ โง โจ((1st โ๐) mod (absโ๐)), ((2nd
โ๐) mod
(absโ๐))โฉ =
โจ((1st โ๐) mod (absโ๐)), ((2nd โ๐) mod (absโ๐))โฉ)) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1) |
137 | 136 | adantlrr 718 |
. . 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 684 |
. 2
โข ((((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โง ๐ โ
โค) โง (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) โ โ๐ฅ โ โ โ๐ฆ โ โ ((๐ฅโ2) โ (๐ท ยท (๐ฆโ2))) = 1) |
139 | | pellexlem5 42036 |
. 2
โข ((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โ โ๐
โ โค (๐ โ 0
โง {โจ๐, ๐โฉ โฃ ((๐ โ โ โง ๐ โ โ) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = ๐)} โ โ)) |
140 | 138, 139 | r19.29a 3161 |
1
โข ((๐ท โ โ โง ยฌ
(โโ๐ท) โ
โ) โ โ๐ฅ
โ โ โ๐ฆ
โ โ ((๐ฅโ2)
โ (๐ท ยท (๐ฆโ2))) = 1) |