Step |
Hyp |
Ref |
Expression |
1 |
|
2nn |
โข 2 โ โ |
2 |
1
|
a1i |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ 2 โ โ ) |
3 |
|
simpr |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ๐พ โ โค ) |
4 |
|
nn0rp0 |
โข ( ๐ โ โ0 โ ๐ โ ( 0 [,) +โ ) ) |
5 |
4
|
adantr |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ๐ โ ( 0 [,) +โ ) ) |
6 |
|
digval |
โข ( ( 2 โ โ โง ๐พ โ โค โง ๐ โ ( 0 [,) +โ ) ) โ ( ๐พ ( digit โ 2 ) ๐ ) = ( ( โ โ ( ( 2 โ - ๐พ ) ยท ๐ ) ) mod 2 ) ) |
7 |
2 3 5 6
|
syl3anc |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ( ๐พ ( digit โ 2 ) ๐ ) = ( ( โ โ ( ( 2 โ - ๐พ ) ยท ๐ ) ) mod 2 ) ) |
8 |
|
2re |
โข 2 โ โ |
9 |
8
|
a1i |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ 2 โ โ ) |
10 |
|
2ne0 |
โข 2 โ 0 |
11 |
10
|
a1i |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ 2 โ 0 ) |
12 |
|
znegcl |
โข ( ๐พ โ โค โ - ๐พ โ โค ) |
13 |
12
|
adantl |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ - ๐พ โ โค ) |
14 |
9 11 13
|
reexpclzd |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ( 2 โ - ๐พ ) โ โ ) |
15 |
|
nn0re |
โข ( ๐ โ โ0 โ ๐ โ โ ) |
16 |
15
|
adantr |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ๐ โ โ ) |
17 |
14 16
|
remulcld |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ( ( 2 โ - ๐พ ) ยท ๐ ) โ โ ) |
18 |
17
|
flcld |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ( โ โ ( ( 2 โ - ๐พ ) ยท ๐ ) ) โ โค ) |
19 |
|
elmod2 |
โข ( ( โ โ ( ( 2 โ - ๐พ ) ยท ๐ ) ) โ โค โ ( ( โ โ ( ( 2 โ - ๐พ ) ยท ๐ ) ) mod 2 ) โ { 0 , 1 } ) |
20 |
18 19
|
syl |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ( ( โ โ ( ( 2 โ - ๐พ ) ยท ๐ ) ) mod 2 ) โ { 0 , 1 } ) |
21 |
7 20
|
eqeltrd |
โข ( ( ๐ โ โ0 โง ๐พ โ โค ) โ ( ๐พ ( digit โ 2 ) ๐ ) โ { 0 , 1 } ) |