ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  modprm0 Unicode version

Theorem modprm0 12450
Description: For two positive integers less than a given prime number there is always a nonnegative integer (less than the given prime number) so that the sum of one of the two positive integers and the other of the positive integers multiplied by the nonnegative integer is 0 ( modulo the given prime number). (Contributed by Alexander van der Vekens, 17-May-2018.)
Assertion
Ref Expression
modprm0  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  E. j  e.  ( 0..^ P ) ( ( I  +  ( j  x.  N ) )  mod  P )  =  0 )
Distinct variable groups:    j, I    j, N    P, j

Proof of Theorem modprm0
Dummy variable  r is distinct from all other variables.
StepHypRef Expression
1 reumodprminv 12449 . . . 4  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  E! r  e.  ( 1 ... ( P  -  1 ) ) ( ( N  x.  r )  mod 
P )  =  1 )
2 reurex 2715 . . . 4  |-  ( E! r  e.  ( 1 ... ( P  - 
1 ) ) ( ( N  x.  r
)  mod  P )  =  1  ->  E. r  e.  ( 1 ... ( P  -  1 ) ) ( ( N  x.  r )  mod 
P )  =  1 )
3 prmz 12306 . . . . . . . . . . 11  |-  ( P  e.  Prime  ->  P  e.  ZZ )
433ad2ant1 1020 . . . . . . . . . 10  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  P  e.  ZZ )
54adantl 277 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  P  e.  ZZ )
6 elfzelz 10119 . . . . . . . . . . 11  |-  ( r  e.  ( 1 ... ( P  -  1 ) )  ->  r  e.  ZZ )
76adantr 276 . . . . . . . . . 10  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( ( N  x.  r )  mod  P
)  =  1 )  ->  r  e.  ZZ )
8 elfzoelz 10241 . . . . . . . . . . 11  |-  ( I  e.  ( 1..^ P )  ->  I  e.  ZZ )
983ad2ant3 1022 . . . . . . . . . 10  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  I  e.  ZZ )
10 zmulcl 9398 . . . . . . . . . 10  |-  ( ( r  e.  ZZ  /\  I  e.  ZZ )  ->  ( r  x.  I
)  e.  ZZ )
117, 9, 10syl2an 289 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( r  x.  I )  e.  ZZ )
125, 11zsubcld 9472 . . . . . . . 8  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( P  -  ( r  x.  I ) )  e.  ZZ )
13 prmnn 12305 . . . . . . . . . 10  |-  ( P  e.  Prime  ->  P  e.  NN )
14133ad2ant1 1020 . . . . . . . . 9  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  P  e.  NN )
1514adantl 277 . . . . . . . 8  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  P  e.  NN )
16 zmodfzo 10458 . . . . . . . 8  |-  ( ( ( P  -  (
r  x.  I ) )  e.  ZZ  /\  P  e.  NN )  ->  ( ( P  -  ( r  x.  I
) )  mod  P
)  e.  ( 0..^ P ) )
1712, 15, 16syl2anc 411 . . . . . . 7  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( ( P  -  ( r  x.  I ) )  mod 
P )  e.  ( 0..^ P ) )
189adantl 277 . . . . . . . . . 10  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  I  e.  ZZ )
19 zq 9719 . . . . . . . . . 10  |-  ( I  e.  ZZ  ->  I  e.  QQ )
2018, 19syl 14 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  I  e.  QQ )
21 zq 9719 . . . . . . . . . 10  |-  ( ( P  -  ( r  x.  I ) )  e.  ZZ  ->  ( P  -  ( r  x.  I ) )  e.  QQ )
2212, 21syl 14 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( P  -  ( r  x.  I ) )  e.  QQ )
23 elfzoelz 10241 . . . . . . . . . . 11  |-  ( N  e.  ( 1..^ P )  ->  N  e.  ZZ )
24233ad2ant2 1021 . . . . . . . . . 10  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  N  e.  ZZ )
2524adantl 277 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  N  e.  ZZ )
26 zq 9719 . . . . . . . . . 10  |-  ( P  e.  ZZ  ->  P  e.  QQ )
275, 26syl 14 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  P  e.  QQ )
2815nngt0d 9053 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  0  <  P )
29 modqaddmulmod 10502 . . . . . . . . 9  |-  ( ( ( I  e.  QQ  /\  ( P  -  (
r  x.  I ) )  e.  QQ  /\  N  e.  ZZ )  /\  ( P  e.  QQ  /\  0  <  P ) )  ->  ( (
I  +  ( ( ( P  -  (
r  x.  I ) )  mod  P )  x.  N ) )  mod  P )  =  ( ( I  +  ( ( P  -  ( r  x.  I
) )  x.  N
) )  mod  P
) )
3020, 22, 25, 27, 28, 29syl32anc 1257 . . . . . . . 8  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( ( ( P  -  (
r  x.  I ) )  mod  P )  x.  N ) )  mod  P )  =  ( ( I  +  ( ( P  -  ( r  x.  I
) )  x.  N
) )  mod  P
) )
3113nncnd 9023 . . . . . . . . . . . . 13  |-  ( P  e.  Prime  ->  P  e.  CC )
32313ad2ant1 1020 . . . . . . . . . . . 12  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  P  e.  CC )
3332adantl 277 . . . . . . . . . . 11  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  P  e.  CC )
346zcnd 9468 . . . . . . . . . . . . 13  |-  ( r  e.  ( 1 ... ( P  -  1 ) )  ->  r  e.  CC )
3534adantr 276 . . . . . . . . . . . 12  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( ( N  x.  r )  mod  P
)  =  1 )  ->  r  e.  CC )
368zcnd 9468 . . . . . . . . . . . . 13  |-  ( I  e.  ( 1..^ P )  ->  I  e.  CC )
37363ad2ant3 1022 . . . . . . . . . . . 12  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  I  e.  CC )
38 mulcl 8025 . . . . . . . . . . . 12  |-  ( ( r  e.  CC  /\  I  e.  CC )  ->  ( r  x.  I
)  e.  CC )
3935, 37, 38syl2an 289 . . . . . . . . . . 11  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( r  x.  I )  e.  CC )
4023zcnd 9468 . . . . . . . . . . . . 13  |-  ( N  e.  ( 1..^ P )  ->  N  e.  CC )
41403ad2ant2 1021 . . . . . . . . . . . 12  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  N  e.  CC )
4241adantl 277 . . . . . . . . . . 11  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  N  e.  CC )
4333, 39, 42subdird 8460 . . . . . . . . . 10  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( ( P  -  ( r  x.  I ) )  x.  N )  =  ( ( P  x.  N
)  -  ( ( r  x.  I )  x.  N ) ) )
4443oveq2d 5941 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( I  +  ( ( P  -  ( r  x.  I ) )  x.  N ) )  =  ( I  +  ( ( P  x.  N
)  -  ( ( r  x.  I )  x.  N ) ) ) )
4544oveq1d 5940 . . . . . . . 8  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( ( P  -  ( r  x.  I ) )  x.  N ) )  mod  P )  =  ( ( I  +  ( ( P  x.  N )  -  (
( r  x.  I
)  x.  N ) ) )  mod  P
) )
46 mulcom 8027 . . . . . . . . . . . . . . . . . . 19  |-  ( ( P  e.  CC  /\  N  e.  CC )  ->  ( P  x.  N
)  =  ( N  x.  P ) )
4731, 40, 46syl2an 289 . . . . . . . . . . . . . . . . . 18  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  ( P  x.  N )  =  ( N  x.  P ) )
4847oveq1d 5940 . . . . . . . . . . . . . . . . 17  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  ( ( P  x.  N )  mod  P )  =  ( ( N  x.  P
)  mod  P )
)
4923adantl 277 . . . . . . . . . . . . . . . . . 18  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  N  e.  ZZ )
503adantr 276 . . . . . . . . . . . . . . . . . . 19  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  P  e.  ZZ )
5150, 26syl 14 . . . . . . . . . . . . . . . . . 18  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  P  e.  QQ )
5213nngt0d 9053 . . . . . . . . . . . . . . . . . . 19  |-  ( P  e.  Prime  ->  0  < 
P )
5352adantr 276 . . . . . . . . . . . . . . . . . 18  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  0  <  P )
54 mulqmod0 10441 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  e.  ZZ  /\  P  e.  QQ  /\  0  <  P )  ->  (
( N  x.  P
)  mod  P )  =  0 )
5549, 51, 53, 54syl3anc 1249 . . . . . . . . . . . . . . . . 17  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  ( ( N  x.  P )  mod  P )  =  0 )
5648, 55eqtrd 2229 . . . . . . . . . . . . . . . 16  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  ( ( P  x.  N )  mod  P )  =  0 )
57563adant3 1019 . . . . . . . . . . . . . . 15  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  ( ( P  x.  N )  mod 
P )  =  0 )
5857adantl 277 . . . . . . . . . . . . . 14  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( ( P  x.  N )  mod  P )  =  0 )
5935adantr 276 . . . . . . . . . . . . . . . . 17  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  r  e.  CC )
6037adantl 277 . . . . . . . . . . . . . . . . 17  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  I  e.  CC )
6159, 60, 42mul32d 8198 . . . . . . . . . . . . . . . 16  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
r  x.  I )  x.  N )  =  ( ( r  x.  N )  x.  I
) )
6261oveq1d 5940 . . . . . . . . . . . . . . 15  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( r  x.  I
)  x.  N )  mod  P )  =  ( ( ( r  x.  N )  x.  I )  mod  P
) )
63 elfznn 10148 . . . . . . . . . . . . . . . . . . . 20  |-  ( r  e.  ( 1 ... ( P  -  1 ) )  ->  r  e.  NN )
6463adantr 276 . . . . . . . . . . . . . . . . . . 19  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( ( N  x.  r )  mod  P
)  =  1 )  ->  r  e.  NN )
6564adantr 276 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  r  e.  NN )
66 elfzo1 10285 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  ( 1..^ P )  <->  ( N  e.  NN  /\  P  e.  NN  /\  N  < 
P ) )
6766simp1bi 1014 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  ( 1..^ P )  ->  N  e.  NN )
68673ad2ant2 1021 . . . . . . . . . . . . . . . . . . 19  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  N  e.  NN )
6968adantl 277 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  N  e.  NN )
7065, 69nnmulcld 9058 . . . . . . . . . . . . . . . . 17  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( r  x.  N )  e.  NN )
71 nnq 9726 . . . . . . . . . . . . . . . . 17  |-  ( ( r  x.  N )  e.  NN  ->  (
r  x.  N )  e.  QQ )
7270, 71syl 14 . . . . . . . . . . . . . . . 16  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( r  x.  N )  e.  QQ )
73 modqmulmod 10500 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( r  x.  N )  e.  QQ  /\  I  e.  ZZ )  /\  ( P  e.  QQ  /\  0  < 
P ) )  -> 
( ( ( ( r  x.  N )  mod  P )  x.  I )  mod  P
)  =  ( ( ( r  x.  N
)  x.  I )  mod  P ) )
7472, 18, 27, 28, 73syl22anc 1250 . . . . . . . . . . . . . . 15  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( ( r  x.  N )  mod  P
)  x.  I )  mod  P )  =  ( ( ( r  x.  N )  x.  I )  mod  P
) )
7562, 74eqtr4d 2232 . . . . . . . . . . . . . 14  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( r  x.  I
)  x.  N )  mod  P )  =  ( ( ( ( r  x.  N )  mod  P )  x.  I )  mod  P
) )
7658, 75oveq12d 5943 . . . . . . . . . . . . 13  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( P  x.  N
)  mod  P )  -  ( ( ( r  x.  I )  x.  N )  mod 
P ) )  =  ( 0  -  (
( ( ( r  x.  N )  mod 
P )  x.  I
)  mod  P )
) )
7776oveq1d 5940 . . . . . . . . . . . 12  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( ( P  x.  N )  mod  P
)  -  ( ( ( r  x.  I
)  x.  N )  mod  P ) )  mod  P )  =  ( ( 0  -  ( ( ( ( r  x.  N )  mod  P )  x.  I )  mod  P
) )  mod  P
) )
7815, 69nnmulcld 9058 . . . . . . . . . . . . . 14  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( P  x.  N )  e.  NN )
79 nnq 9726 . . . . . . . . . . . . . 14  |-  ( ( P  x.  N )  e.  NN  ->  ( P  x.  N )  e.  QQ )
8078, 79syl 14 . . . . . . . . . . . . 13  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( P  x.  N )  e.  QQ )
81 elfzo1 10285 . . . . . . . . . . . . . . . . . . 19  |-  ( I  e.  ( 1..^ P )  <->  ( I  e.  NN  /\  P  e.  NN  /\  I  < 
P ) )
8281simp1bi 1014 . . . . . . . . . . . . . . . . . 18  |-  ( I  e.  ( 1..^ P )  ->  I  e.  NN )
83823ad2ant3 1022 . . . . . . . . . . . . . . . . 17  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  I  e.  NN )
8483adantl 277 . . . . . . . . . . . . . . . 16  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  I  e.  NN )
8565, 84nnmulcld 9058 . . . . . . . . . . . . . . 15  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( r  x.  I )  e.  NN )
8685, 69nnmulcld 9058 . . . . . . . . . . . . . 14  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
r  x.  I )  x.  N )  e.  NN )
87 nnq 9726 . . . . . . . . . . . . . 14  |-  ( ( ( r  x.  I
)  x.  N )  e.  NN  ->  (
( r  x.  I
)  x.  N )  e.  QQ )
8886, 87syl 14 . . . . . . . . . . . . 13  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
r  x.  I )  x.  N )  e.  QQ )
89 modqsubmodmod 10494 . . . . . . . . . . . . 13  |-  ( ( ( ( P  x.  N )  e.  QQ  /\  ( ( r  x.  I )  x.  N
)  e.  QQ )  /\  ( P  e.  QQ  /\  0  < 
P ) )  -> 
( ( ( ( P  x.  N )  mod  P )  -  ( ( ( r  x.  I )  x.  N )  mod  P
) )  mod  P
)  =  ( ( ( P  x.  N
)  -  ( ( r  x.  I )  x.  N ) )  mod  P ) )
9080, 88, 27, 28, 89syl22anc 1250 . . . . . . . . . . . 12  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( ( P  x.  N )  mod  P
)  -  ( ( ( r  x.  I
)  x.  N )  mod  P ) )  mod  P )  =  ( ( ( P  x.  N )  -  ( ( r  x.  I )  x.  N
) )  mod  P
) )
91 mulcom 8027 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( N  e.  CC  /\  r  e.  CC )  ->  ( N  x.  r
)  =  ( r  x.  N ) )
9241, 34, 91syl2anr 290 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( N  x.  r )  =  ( r  x.  N ) )
9392oveq1d 5940 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  (
( N  x.  r
)  mod  P )  =  ( ( r  x.  N )  mod 
P ) )
9493eqeq1d 2205 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  (
( ( N  x.  r )  mod  P
)  =  1  <->  (
( r  x.  N
)  mod  P )  =  1 ) )
9594biimpd 144 . . . . . . . . . . . . . . . . . . 19  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  (
( ( N  x.  r )  mod  P
)  =  1  -> 
( ( r  x.  N )  mod  P
)  =  1 ) )
9695impancom 260 . . . . . . . . . . . . . . . . . 18  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( ( N  x.  r )  mod  P
)  =  1 )  ->  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  ( ( r  x.  N )  mod 
P )  =  1 ) )
9796imp 124 . . . . . . . . . . . . . . . . 17  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
r  x.  N )  mod  P )  =  1 )
9897oveq1d 5940 . . . . . . . . . . . . . . . 16  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( r  x.  N
)  mod  P )  x.  I )  =  ( 1  x.  I ) )
9998oveq1d 5940 . . . . . . . . . . . . . . 15  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( ( r  x.  N )  mod  P
)  x.  I )  mod  P )  =  ( ( 1  x.  I )  mod  P
) )
10099oveq2d 5941 . . . . . . . . . . . . . 14  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( 0  -  ( ( ( ( r  x.  N
)  mod  P )  x.  I )  mod  P
) )  =  ( 0  -  ( ( 1  x.  I )  mod  P ) ) )
101100oveq1d 5940 . . . . . . . . . . . . 13  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
0  -  ( ( ( ( r  x.  N )  mod  P
)  x.  I )  mod  P ) )  mod  P )  =  ( ( 0  -  ( ( 1  x.  I )  mod  P
) )  mod  P
) )
10260mulid2d 8064 . . . . . . . . . . . . . . . . 17  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( 1  x.  I )  =  I )
103102oveq1d 5940 . . . . . . . . . . . . . . . 16  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
1  x.  I )  mod  P )  =  ( I  mod  P
) )
10484nnnn0d 9321 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  I  e.  NN0 )
105104nn0ge0d 9324 . . . . . . . . . . . . . . . . 17  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  0  <_  I )
106 elfzolt2 10251 . . . . . . . . . . . . . . . . . . 19  |-  ( I  e.  ( 1..^ P )  ->  I  <  P )
1071063ad2ant3 1022 . . . . . . . . . . . . . . . . . 18  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  I  <  P
)
108107adantl 277 . . . . . . . . . . . . . . . . 17  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  I  <  P )
109 modqid 10460 . . . . . . . . . . . . . . . . 17  |-  ( ( ( I  e.  QQ  /\  P  e.  QQ )  /\  ( 0  <_  I  /\  I  <  P
) )  ->  (
I  mod  P )  =  I )
11020, 27, 105, 108, 109syl22anc 1250 . . . . . . . . . . . . . . . 16  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( I  mod  P )  =  I )
111103, 110eqtrd 2229 . . . . . . . . . . . . . . 15  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
1  x.  I )  mod  P )  =  I )
112111oveq2d 5941 . . . . . . . . . . . . . 14  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( 0  -  ( ( 1  x.  I )  mod 
P ) )  =  ( 0  -  I
) )
113112oveq1d 5940 . . . . . . . . . . . . 13  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
0  -  ( ( 1  x.  I )  mod  P ) )  mod  P )  =  ( ( 0  -  I )  mod  P
) )
114101, 113eqtrd 2229 . . . . . . . . . . . 12  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
0  -  ( ( ( ( r  x.  N )  mod  P
)  x.  I )  mod  P ) )  mod  P )  =  ( ( 0  -  I )  mod  P
) )
11577, 90, 1143eqtr3d 2237 . . . . . . . . . . 11  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
( P  x.  N
)  -  ( ( r  x.  I )  x.  N ) )  mod  P )  =  ( ( 0  -  I )  mod  P
) )
116115oveq2d 5941 . . . . . . . . . 10  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( I  +  ( ( ( P  x.  N )  -  ( ( r  x.  I )  x.  N ) )  mod 
P ) )  =  ( I  +  ( ( 0  -  I
)  mod  P )
) )
117116oveq1d 5940 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( ( ( P  x.  N
)  -  ( ( r  x.  I )  x.  N ) )  mod  P ) )  mod  P )  =  ( ( I  +  ( ( 0  -  I )  mod  P
) )  mod  P
) )
118 qsubcl 9731 . . . . . . . . . . 11  |-  ( ( ( P  x.  N
)  e.  QQ  /\  ( ( r  x.  I )  x.  N
)  e.  QQ )  ->  ( ( P  x.  N )  -  ( ( r  x.  I )  x.  N
) )  e.  QQ )
11980, 88, 118syl2anc 411 . . . . . . . . . 10  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( ( P  x.  N )  -  ( ( r  x.  I )  x.  N ) )  e.  QQ )
120 modqadd2mod 10485 . . . . . . . . . 10  |-  ( ( ( ( ( P  x.  N )  -  ( ( r  x.  I )  x.  N
) )  e.  QQ  /\  I  e.  QQ )  /\  ( P  e.  QQ  /\  0  < 
P ) )  -> 
( ( I  +  ( ( ( P  x.  N )  -  ( ( r  x.  I )  x.  N
) )  mod  P
) )  mod  P
)  =  ( ( I  +  ( ( P  x.  N )  -  ( ( r  x.  I )  x.  N ) ) )  mod  P ) )
121119, 20, 27, 28, 120syl22anc 1250 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( ( ( P  x.  N
)  -  ( ( r  x.  I )  x.  N ) )  mod  P ) )  mod  P )  =  ( ( I  +  ( ( P  x.  N )  -  (
( r  x.  I
)  x.  N ) ) )  mod  P
) )
122 0zd 9357 . . . . . . . . . . . . 13  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  0  e.  ZZ )
123122, 18zsubcld 9472 . . . . . . . . . . . 12  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( 0  -  I )  e.  ZZ )
124 zq 9719 . . . . . . . . . . . 12  |-  ( ( 0  -  I )  e.  ZZ  ->  (
0  -  I )  e.  QQ )
125123, 124syl 14 . . . . . . . . . . 11  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( 0  -  I )  e.  QQ )
126 modqadd2mod 10485 . . . . . . . . . . 11  |-  ( ( ( ( 0  -  I )  e.  QQ  /\  I  e.  QQ )  /\  ( P  e.  QQ  /\  0  < 
P ) )  -> 
( ( I  +  ( ( 0  -  I )  mod  P
) )  mod  P
)  =  ( ( I  +  ( 0  -  I ) )  mod  P ) )
127125, 20, 27, 28, 126syl22anc 1250 . . . . . . . . . 10  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( ( 0  -  I )  mod  P ) )  mod  P )  =  ( ( I  +  ( 0  -  I
) )  mod  P
) )
128 0cnd 8038 . . . . . . . . . . . . . 14  |-  ( I  e.  ( 1..^ P )  ->  0  e.  CC )
12936, 128pncan3d 8359 . . . . . . . . . . . . 13  |-  ( I  e.  ( 1..^ P )  ->  ( I  +  ( 0  -  I ) )  =  0 )
1301293ad2ant3 1022 . . . . . . . . . . . 12  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  ( I  +  ( 0  -  I
) )  =  0 )
131130adantl 277 . . . . . . . . . . 11  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( I  +  ( 0  -  I ) )  =  0 )
132131oveq1d 5940 . . . . . . . . . 10  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( 0  -  I ) )  mod  P )  =  ( 0  mod  P
) )
1333, 26syl 14 . . . . . . . . . . . . 13  |-  ( P  e.  Prime  ->  P  e.  QQ )
134 q0mod 10466 . . . . . . . . . . . . 13  |-  ( ( P  e.  QQ  /\  0  <  P )  -> 
( 0  mod  P
)  =  0 )
135133, 52, 134syl2anc 411 . . . . . . . . . . . 12  |-  ( P  e.  Prime  ->  ( 0  mod  P )  =  0 )
1361353ad2ant1 1020 . . . . . . . . . . 11  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  ( 0  mod 
P )  =  0 )
137136adantl 277 . . . . . . . . . 10  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( 0  mod  P )  =  0 )
138127, 132, 1373eqtrd 2233 . . . . . . . . 9  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( ( 0  -  I )  mod  P ) )  mod  P )  =  0 )
139117, 121, 1383eqtr3d 2237 . . . . . . . 8  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( ( P  x.  N )  -  ( ( r  x.  I )  x.  N ) ) )  mod  P )  =  0 )
14030, 45, 1393eqtrd 2233 . . . . . . 7  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  ( (
I  +  ( ( ( P  -  (
r  x.  I ) )  mod  P )  x.  N ) )  mod  P )  =  0 )
141 oveq1 5932 . . . . . . . . . . 11  |-  ( j  =  ( ( P  -  ( r  x.  I ) )  mod 
P )  ->  (
j  x.  N )  =  ( ( ( P  -  ( r  x.  I ) )  mod  P )  x.  N ) )
142141oveq2d 5941 . . . . . . . . . 10  |-  ( j  =  ( ( P  -  ( r  x.  I ) )  mod 
P )  ->  (
I  +  ( j  x.  N ) )  =  ( I  +  ( ( ( P  -  ( r  x.  I ) )  mod 
P )  x.  N
) ) )
143142oveq1d 5940 . . . . . . . . 9  |-  ( j  =  ( ( P  -  ( r  x.  I ) )  mod 
P )  ->  (
( I  +  ( j  x.  N ) )  mod  P )  =  ( ( I  +  ( ( ( P  -  ( r  x.  I ) )  mod  P )  x.  N ) )  mod 
P ) )
144143eqeq1d 2205 . . . . . . . 8  |-  ( j  =  ( ( P  -  ( r  x.  I ) )  mod 
P )  ->  (
( ( I  +  ( j  x.  N
) )  mod  P
)  =  0  <->  (
( I  +  ( ( ( P  -  ( r  x.  I
) )  mod  P
)  x.  N ) )  mod  P )  =  0 ) )
145144rspcev 2868 . . . . . . 7  |-  ( ( ( ( P  -  ( r  x.  I
) )  mod  P
)  e.  ( 0..^ P )  /\  (
( I  +  ( ( ( P  -  ( r  x.  I
) )  mod  P
)  x.  N ) )  mod  P )  =  0 )  ->  E. j  e.  (
0..^ P ) ( ( I  +  ( j  x.  N ) )  mod  P )  =  0 )
14617, 140, 145syl2anc 411 . . . . . 6  |-  ( ( ( r  e.  ( 1 ... ( P  -  1 ) )  /\  ( ( N  x.  r )  mod 
P )  =  1 )  /\  ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) ) )  ->  E. j  e.  ( 0..^ P ) ( ( I  +  ( j  x.  N
) )  mod  P
)  =  0 )
147146ex 115 . . . . 5  |-  ( ( r  e.  ( 1 ... ( P  - 
1 ) )  /\  ( ( N  x.  r )  mod  P
)  =  1 )  ->  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  E. j  e.  ( 0..^ P ) ( ( I  +  ( j  x.  N ) )  mod  P )  =  0 ) )
148147rexlimiva 2609 . . . 4  |-  ( E. r  e.  ( 1 ... ( P  - 
1 ) ) ( ( N  x.  r
)  mod  P )  =  1  ->  (
( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  E. j  e.  ( 0..^ P ) ( ( I  +  ( j  x.  N
) )  mod  P
)  =  0 ) )
1491, 2, 1483syl 17 . . 3  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P ) )  ->  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  E. j  e.  ( 0..^ P ) ( ( I  +  ( j  x.  N ) )  mod  P )  =  0 ) )
1501493adant3 1019 . 2  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  E. j  e.  ( 0..^ P ) ( ( I  +  ( j  x.  N ) )  mod  P )  =  0 ) )
151150pm2.43i 49 1  |-  ( ( P  e.  Prime  /\  N  e.  ( 1..^ P )  /\  I  e.  ( 1..^ P ) )  ->  E. j  e.  ( 0..^ P ) ( ( I  +  ( j  x.  N ) )  mod  P )  =  0 )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104    /\ w3a 980    = wceq 1364    e. wcel 2167   E.wrex 2476   E!wreu 2477   class class class wbr 4034  (class class class)co 5925   CCcc 7896   0cc0 7898   1c1 7899    + caddc 7901    x. cmul 7903    < clt 8080    <_ cle 8081    - cmin 8216   NNcn 9009   ZZcz 9345   QQcq 9712   ...cfz 10102  ..^cfzo 10236    mod cmo 10433   Primecprime 12302
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4149  ax-sep 4152  ax-nul 4160  ax-pow 4208  ax-pr 4243  ax-un 4469  ax-setind 4574  ax-iinf 4625  ax-cnex 7989  ax-resscn 7990  ax-1cn 7991  ax-1re 7992  ax-icn 7993  ax-addcl 7994  ax-addrcl 7995  ax-mulcl 7996  ax-mulrcl 7997  ax-addcom 7998  ax-mulcom 7999  ax-addass 8000  ax-mulass 8001  ax-distr 8002  ax-i2m1 8003  ax-0lt1 8004  ax-1rid 8005  ax-0id 8006  ax-rnegex 8007  ax-precex 8008  ax-cnre 8009  ax-pre-ltirr 8010  ax-pre-ltwlin 8011  ax-pre-lttrn 8012  ax-pre-apti 8013  ax-pre-ltadd 8014  ax-pre-mulgt0 8015  ax-pre-mulext 8016  ax-arch 8017  ax-caucvg 8018
This theorem depends on definitions:  df-bi 117  df-stab 832  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-nel 2463  df-ral 2480  df-rex 2481  df-reu 2482  df-rmo 2483  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-nul 3452  df-if 3563  df-pw 3608  df-sn 3629  df-pr 3630  df-op 3632  df-uni 3841  df-int 3876  df-iun 3919  df-br 4035  df-opab 4096  df-mpt 4097  df-tr 4133  df-id 4329  df-po 4332  df-iso 4333  df-iord 4402  df-on 4404  df-ilim 4405  df-suc 4407  df-iom 4628  df-xp 4670  df-rel 4671  df-cnv 4672  df-co 4673  df-dm 4674  df-rn 4675  df-res 4676  df-ima 4677  df-iota 5220  df-fun 5261  df-fn 5262  df-f 5263  df-f1 5264  df-fo 5265  df-f1o 5266  df-fv 5267  df-isom 5268  df-riota 5880  df-ov 5928  df-oprab 5929  df-mpo 5930  df-1st 6207  df-2nd 6208  df-recs 6372  df-irdg 6437  df-frec 6458  df-1o 6483  df-2o 6484  df-oadd 6487  df-er 6601  df-en 6809  df-dom 6810  df-fin 6811  df-sup 7059  df-pnf 8082  df-mnf 8083  df-xr 8084  df-ltxr 8085  df-le 8086  df-sub 8218  df-neg 8219  df-reap 8621  df-ap 8628  df-div 8719  df-inn 9010  df-2 9068  df-3 9069  df-4 9070  df-n0 9269  df-z 9346  df-uz 9621  df-q 9713  df-rp 9748  df-fz 10103  df-fzo 10237  df-fl 10379  df-mod 10434  df-seqfrec 10559  df-exp 10650  df-ihash 10887  df-cj 11026  df-re 11027  df-im 11028  df-rsqrt 11182  df-abs 11183  df-clim 11463  df-proddc 11735  df-dvds 11972  df-gcd 12148  df-prm 12303  df-phi 12406
This theorem is referenced by:  nnnn0modprm0  12451
  Copyright terms: Public domain W3C validator