let p be Prime; ( p > 2 implies Lege (2,p) = (- 1) |^ (((p ^2) -' 1) div 8) )
set p9 = (p -' 1) div 2;
set I = idseq ((p -' 1) div 2);
set fp = 2 * (idseq ((p -' 1) div 2));
set nn = p div 8;
A1:
p > 1
by INT_2:def 4;
then A2:
p - 1 = p -' 1
by XREAL_1:233;
A3:
for d being Nat st d in dom (2 * (idseq ((p -' 1) div 2))) holds
(2 * (idseq ((p -' 1) div 2))) . d = 2 * d
for d being Nat st d in dom (2 * (idseq ((p -' 1) div 2))) holds
(2 * (idseq ((p -' 1) div 2))) . d in NAT
;
then reconsider fp = 2 * (idseq ((p -' 1) div 2)) as FinSequence of NAT by FINSEQ_2:12;
set f = fp mod p;
set X = { k where k is Element of NAT : ( k in rng (fp mod p) & k > p / 2 ) } ;
set m = card { k where k is Element of NAT : ( k in rng (fp mod p) & k > p / 2 ) } ;
dom fp = dom (idseq ((p -' 1) div 2))
by VALUED_1:def 5;
then A6: len fp =
len (idseq ((p -' 1) div 2))
by FINSEQ_3:29
.=
(p -' 1) div 2
by CARD_1:def 7
;
set Y = { d where d is Element of NAT : ( d in dom (fp mod p) & (fp mod p) . d > p / 2 ) } ;
for x being object st x in { d where d is Element of NAT : ( d in dom (fp mod p) & (fp mod p) . d > p / 2 ) } holds
x in dom (fp mod p)
then
{ d where d is Element of NAT : ( d in dom (fp mod p) & (fp mod p) . d > p / 2 ) } c= dom (fp mod p)
;
then reconsider Y = { d where d is Element of NAT : ( d in dom (fp mod p) & (fp mod p) . d > p / 2 ) } as finite Subset of NAT by XBOOLE_1:1;
set Z = seq ((p div 4),(((p -' 1) div 2) -' (p div 4)));
A7:
p mod 8 <= 8 - 1
by INT_1:52, NAT_D:1;
8 = 2 * 4
;
then A8:
2 divides 8
;
for x being object st x in { k where k is Element of NAT : ( k in rng (fp mod p) & k > p / 2 ) } holds
x in rng (fp mod p)
then A10:
{ k where k is Element of NAT : ( k in rng (fp mod p) & k > p / 2 ) } c= rng (fp mod p)
;
then reconsider X = { k where k is Element of NAT : ( k in rng (fp mod p) & k > p / 2 ) } as finite set ;
card X is Element of NAT
;
then reconsider m = card { k where k is Element of NAT : ( k in rng (fp mod p) & k > p / 2 ) } as Element of NAT ;
A11:
len (fp mod p) = len fp
by EULER_2:def 1;
then A12:
dom (fp mod p) = dom fp
by FINSEQ_3:29;
assume A13:
p > 2
; Lege (2,p) = (- 1) |^ (((p ^2) -' 1) div 8)
then
2,p are_coprime
by EULER_1:2;
then A14:
2 gcd p = 1
by INT_2:def 3;
then A15:
Lege (2,p) = (- 1) |^ m
by A13, Th41;
p is odd
by A13, PEPIN:17;
then A16:
p - 1 is even
by HILBERT3:2;
then A17: (p -' 1) div 2 =
((p -' 1) + 1) div 2
by A2, NAT_2:26
.=
p div 2
by A1, XREAL_1:235
;
then A18:
fp mod p <> {}
by A13, A6, A11, NAT_2:13;
then reconsider U = dom (fp mod p) as non empty finite Subset of NAT ;
2 divides p -' 1
by A16, A2, PEPIN:22;
then A19:
p -' 1 = 2 * ((p -' 1) div 2)
by NAT_D:3;
A20:
for d being Nat st d in dom (fp mod p) holds
(fp mod p) . d = 2 * d
A22:
for d1, d2, k1, k2 being Nat st 1 <= d1 & d1 < d2 & d2 <= len (fp mod p) & k1 = (fp mod p) . d1 & k2 = (fp mod p) . d2 holds
k1 < k2
proof
let d1,
d2,
k1,
k2 be
Nat;
( 1 <= d1 & d1 < d2 & d2 <= len (fp mod p) & k1 = (fp mod p) . d1 & k2 = (fp mod p) . d2 implies k1 < k2 )
assume that A23:
1
<= d1
and A24:
d1 < d2
and A25:
d2 <= len (fp mod p)
and A26:
k1 = (fp mod p) . d1
and A27:
k2 = (fp mod p) . d2
;
k1 < k2
1
<= d2
by A23, A24, XXREAL_0:2;
then
d2 in dom (fp mod p)
by A25, FINSEQ_3:25;
then A28:
k2 = 2
* d2
by A20, A27;
d1 <= len (fp mod p)
by A24, A25, XXREAL_0:2;
then
d1 in dom (fp mod p)
by A23, FINSEQ_3:25;
then
k1 = 2
* d1
by A20, A26;
hence
k1 < k2
by A24, A28, XREAL_1:68;
verum
end;
rng (fp mod p) is non empty Subset of NAT
by A18;
then consider n1 being Element of NAT such that
A29:
rng (fp mod p) c= (Seg n1) \/ {0}
by HEYTING3:1;
reconsider X = X as finite Subset of NAT by A10, XBOOLE_1:1;
seq ((p div 4),(((p -' 1) div 2) -' (p div 4))),((p -' 1) div 2) -' (p div 4) are_equipotent
by CALCUL_2:6;
then A30:
card (seq ((p div 4),(((p -' 1) div 2) -' (p div 4)))) = ((p -' 1) div 2) -' (p div 4)
by CARD_1:def 2;
not 0 in rng (fp mod p)
then A33:
{0} misses rng (fp mod p)
by ZFMISC_1:50;
then
rng (fp mod p) c= Seg n1
by A29, XBOOLE_1:73;
then A34:
Sgm (rng (fp mod p)) = fp mod p
by A22, FINSEQ_1:def 13;
A35:
X,Y are_equipotent
p div 2 < p
by INT_1:56;
then
(p div 2) div 2 <= p div 2
by NAT_2:24;
then A48:
p div (2 * 2) <= p div 2
by NAT_2:27;
A49:
seq ((p div 4),(((p -' 1) div 2) -' (p div 4))) c= Y
proof
let x be
object ;
TARSKI:def 3 ( not x in seq ((p div 4),(((p -' 1) div 2) -' (p div 4))) or x in Y )
assume A50:
x in seq (
(p div 4),
(((p -' 1) div 2) -' (p div 4)))
;
x in Y
then reconsider x =
x as
Element of
NAT ;
A51:
x >= (p div 4) + 1
by A50, CALCUL_2:1;
then
(p div 4) + x >= (p div 4) + 1
by NAT_1:12;
then A52:
x >= 1
by XREAL_1:6;
x <= (((p -' 1) div 2) -' (p div 4)) + (p div 4)
by A50, CALCUL_2:1;
then
x <= (p -' 1) div 2
by A17, A48, XREAL_1:235;
then A53:
x in dom (fp mod p)
by A6, A11, A52, FINSEQ_3:25;
x > p / 4
by A51, INT_1:29, XXREAL_0:2;
then
2
* x > 2
* (p / 4)
by XREAL_1:68;
then
(fp mod p) . x > p / 2
by A20, A53;
hence
x in Y
by A53;
verum
end;
now for x being object st x in Y holds
x in seq ((p div 4),(((p -' 1) div 2) -' (p div 4)))let x be
object ;
( x in Y implies x in seq ((p div 4),(((p -' 1) div 2) -' (p div 4))) )A54:
p / 4
>= [\(p / 4)/]
by INT_1:def 6;
assume
x in Y
;
x in seq ((p div 4),(((p -' 1) div 2) -' (p div 4)))then consider x1 being
Element of
NAT such that A55:
x1 = x
and A56:
x1 in dom (fp mod p)
and A57:
(fp mod p) . x1 > p / 2
;
2
* x1 > p / 2
by A20, A56, A57;
then
x1 > (p / 2) / 2
by XREAL_1:83;
then
x1 > [\(p / 4)/]
by A54, XXREAL_0:2;
then A58:
x1 >= (p div 4) + 1
by NAT_1:13;
x1 <= (p -' 1) div 2
by A6, A11, A56, FINSEQ_3:25;
then
x1 <= (((p -' 1) div 2) -' (p div 4)) + (p div 4)
by A17, A48, XREAL_1:235;
hence
x in seq (
(p div 4),
(((p -' 1) div 2) -' (p div 4)))
by A55, A58;
verum end;
then
Y c= seq ((p div 4),(((p -' 1) div 2) -' (p div 4)))
;
then
Y = seq ((p div 4),(((p -' 1) div 2) -' (p div 4)))
by A49, XBOOLE_0:def 10;
then A59:
m = ((p -' 1) div 2) -' (p div 4)
by A30, A35, CARD_1:5;
not not p mod 8 = 0 & ... & not p mod 8 = 7
by A7;
per cases then
( p mod 8 = 1 or p mod 8 = 3 or p mod 8 = 5 or p mod 8 = 7 )
by A9, A60, A61, A63;
suppose
p mod 8
= 7
;
Lege (2,p) = (- 1) |^ (((p ^2) -' 1) div 8)then A76:
p = (8 * (p div 8)) + 7
by NAT_D:2;
then
p -' 1
= 2
* ((4 * (p div 8)) + 3)
by A2;
then A77:
(p -' 1) div 2
= (4 * (p div 8)) + 3
by NAT_D:18;
A78:
4
* (p div 8) >= 2
* (p div 8)
by XREAL_1:64;
p div 4 =
((4 * ((2 * (p div 8)) + 1)) + 3) div 4
by A76
.=
((2 * (p div 8)) + 1) + (3 div 4)
by NAT_D:61
.=
((2 * (p div 8)) + 1) + 0
by NAT_D:27
;
then m =
((4 * (p div 8)) + 3) - ((2 * (p div 8)) + 1)
by A59, A77, A78, XREAL_1:7, XREAL_1:233
.=
(2 * (p div 8)) + 2
;
then A79:
Lege (2,
p) =
(- 1) |^ (2 * ((p div 8) + 1))
by A13, A14, Th41
.=
((- 1) |^ 2) |^ ((p div 8) + 1)
by NEWTON:9
.=
(1 |^ 2) |^ ((p div 8) + 1)
by WSIERP_1:1
.=
1
;
((p ^2) -' 1) div 8 =
((((8 * (8 * ((p div 8) ^2))) + (8 * (14 * (p div 8)))) + 49) - 1) div 8
by A76, NAT_1:12, XREAL_1:233
.=
(8 * (((8 * ((p div 8) ^2)) + (14 * (p div 8))) + 6)) div 8
.=
((8 * ((p div 8) ^2)) + (14 * (p div 8))) + 6
by NAT_D:18
;
hence (- 1) |^ (((p ^2) -' 1) div 8) =
(- 1) |^ (2 * (((4 * ((p div 8) ^2)) + (7 * (p div 8))) + 3))
.=
((- 1) |^ 2) |^ (((4 * ((p div 8) ^2)) + (7 * (p div 8))) + 3)
by NEWTON:9
.=
(1 |^ 2) |^ (((4 * ((p div 8) ^2)) + (7 * (p div 8))) + 3)
by WSIERP_1:1
.=
Lege (2,
p)
by A79
;
verum end; end;