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

Theorem prmind2 10709
Description: A variation on prmind 10710 assuming complete induction for primes. (Contributed by Mario Carneiro, 20-Jun-2015.)
Hypotheses
Ref Expression
prmind.1  |-  ( x  =  1  ->  ( ph 
<->  ps ) )
prmind.2  |-  ( x  =  y  ->  ( ph 
<->  ch ) )
prmind.3  |-  ( x  =  z  ->  ( ph 
<->  th ) )
prmind.4  |-  ( x  =  ( y  x.  z )  ->  ( ph 
<->  ta ) )
prmind.5  |-  ( x  =  A  ->  ( ph 
<->  et ) )
prmind.6  |-  ps
prmind2.7  |-  ( ( x  e.  Prime  /\  A. y  e.  ( 1 ... ( x  - 
1 ) ) ch )  ->  ph )
prmind2.8  |-  ( ( y  e.  ( ZZ>= ` 
2 )  /\  z  e.  ( ZZ>= `  2 )
)  ->  ( ( ch  /\  th )  ->  ta ) )
Assertion
Ref Expression
prmind2  |-  ( A  e.  NN  ->  et )
Distinct variable groups:    x, y    x, A    x, z, ch    et, x    ta, x    th, x    y, z, ph
Allowed substitution hints:    ph( x)    ps( x, y, z)    ch( y)    th( y,
z)    ta( y, z)    et( y, z)    A( y, z)

Proof of Theorem prmind2
Dummy variables  k  n are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elfz1end 9202 . . 3  |-  ( A  e.  NN  <->  A  e.  ( 1 ... A
) )
21biimpi 118 . 2  |-  ( A  e.  NN  ->  A  e.  ( 1 ... A
) )
3 oveq2 5571 . . . 4  |-  ( n  =  1  ->  (
1 ... n )  =  ( 1 ... 1
) )
43raleqdv 2560 . . 3  |-  ( n  =  1  ->  ( A. x  e.  (
1 ... n ) ph  <->  A. x  e.  ( 1 ... 1 ) ph ) )
5 oveq2 5571 . . . 4  |-  ( n  =  k  ->  (
1 ... n )  =  ( 1 ... k
) )
65raleqdv 2560 . . 3  |-  ( n  =  k  ->  ( A. x  e.  (
1 ... n ) ph  <->  A. x  e.  ( 1 ... k ) ph ) )
7 oveq2 5571 . . . 4  |-  ( n  =  ( k  +  1 )  ->  (
1 ... n )  =  ( 1 ... (
k  +  1 ) ) )
87raleqdv 2560 . . 3  |-  ( n  =  ( k  +  1 )  ->  ( A. x  e.  (
1 ... n ) ph  <->  A. x  e.  ( 1 ... ( k  +  1 ) ) ph ) )
9 oveq2 5571 . . . 4  |-  ( n  =  A  ->  (
1 ... n )  =  ( 1 ... A
) )
109raleqdv 2560 . . 3  |-  ( n  =  A  ->  ( A. x  e.  (
1 ... n ) ph  <->  A. x  e.  ( 1 ... A ) ph ) )
11 prmind.6 . . . . 5  |-  ps
12 elfz1eq 9182 . . . . . 6  |-  ( x  e.  ( 1 ... 1 )  ->  x  =  1 )
13 prmind.1 . . . . . 6  |-  ( x  =  1  ->  ( ph 
<->  ps ) )
1412, 13syl 14 . . . . 5  |-  ( x  e.  ( 1 ... 1 )  ->  ( ph 
<->  ps ) )
1511, 14mpbiri 166 . . . 4  |-  ( x  e.  ( 1 ... 1 )  ->  ph )
1615rgen 2421 . . 3  |-  A. x  e.  ( 1 ... 1
) ph
17 peano2nn 8170 . . . . . . . . . . . . 13  |-  ( k  e.  NN  ->  (
k  +  1 )  e.  NN )
1817ad2antrr 472 . . . . . . . . . . . 12  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( k  +  1 )  e.  NN )
1918nncnd 8172 . . . . . . . . . . 11  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( k  +  1 )  e.  CC )
20 elfzuz 9169 . . . . . . . . . . . . . 14  |-  ( y  e.  ( 2 ... ( ( k  +  1 )  -  1 ) )  ->  y  e.  ( ZZ>= `  2 )
)
2120ad2antrl 474 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  e.  (
ZZ>= `  2 ) )
22 eluz2nn 8790 . . . . . . . . . . . . 13  |-  ( y  e.  ( ZZ>= `  2
)  ->  y  e.  NN )
2321, 22syl 14 . . . . . . . . . . . 12  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  e.  NN )
2423nncnd 8172 . . . . . . . . . . 11  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  e.  CC )
2523nnap0d 8203 . . . . . . . . . . 11  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y #  0 )
2619, 24, 25divcanap2d 7998 . . . . . . . . . 10  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( y  x.  ( ( k  +  1 )  /  y
) )  =  ( k  +  1 ) )
27 simprr 499 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  ||  (
k  +  1 ) )
2823nnzd 8601 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  e.  ZZ )
2923nnne0d 8202 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  =/=  0
)
3018nnzd 8601 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( k  +  1 )  e.  ZZ )
31 dvdsval2 10406 . . . . . . . . . . . . . 14  |-  ( ( y  e.  ZZ  /\  y  =/=  0  /\  (
k  +  1 )  e.  ZZ )  -> 
( y  ||  (
k  +  1 )  <-> 
( ( k  +  1 )  /  y
)  e.  ZZ ) )
3228, 29, 30, 31syl3anc 1170 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( y  ||  ( k  +  1 )  <->  ( ( k  +  1 )  / 
y )  e.  ZZ ) )
3327, 32mpbid 145 . . . . . . . . . . . 12  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
y )  e.  ZZ )
3424mulid2d 7251 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( 1  x.  y )  =  y )
35 elfzle2 9175 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  ( 2 ... ( ( k  +  1 )  -  1 ) )  ->  y  <_  ( ( k  +  1 )  -  1 ) )
3635ad2antrl 474 . . . . . . . . . . . . . . . 16  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  <_  (
( k  +  1 )  -  1 ) )
37 nncn 8166 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  NN  ->  k  e.  CC )
3837ad2antrr 472 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  k  e.  CC )
39 ax-1cn 7183 . . . . . . . . . . . . . . . . 17  |-  1  e.  CC
40 pncan 7433 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  CC  /\  1  e.  CC )  ->  ( ( k  +  1 )  -  1 )  =  k )
4138, 39, 40sylancl 404 . . . . . . . . . . . . . . . 16  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  - 
1 )  =  k )
4236, 41breqtrd 3829 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  <_  k
)
43 nnz 8503 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  NN  ->  k  e.  ZZ )
4443ad2antrr 472 . . . . . . . . . . . . . . . 16  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  k  e.  ZZ )
45 zleltp1 8539 . . . . . . . . . . . . . . . 16  |-  ( ( y  e.  ZZ  /\  k  e.  ZZ )  ->  ( y  <_  k  <->  y  <  ( k  +  1 ) ) )
4628, 44, 45syl2anc 403 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( y  <_ 
k  <->  y  <  (
k  +  1 ) ) )
4742, 46mpbid 145 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  <  (
k  +  1 ) )
4834, 47eqbrtrd 3825 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( 1  x.  y )  <  (
k  +  1 ) )
49 1red 7248 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  1  e.  RR )
5018nnred 8171 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( k  +  1 )  e.  RR )
5123nnred 8171 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  e.  RR )
5223nngt0d 8201 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  0  <  y
)
53 ltmuldiv 8071 . . . . . . . . . . . . . 14  |-  ( ( 1  e.  RR  /\  ( k  +  1 )  e.  RR  /\  ( y  e.  RR  /\  0  <  y ) )  ->  ( (
1  x.  y )  <  ( k  +  1 )  <->  1  <  ( ( k  +  1 )  /  y ) ) )
5449, 50, 51, 52, 53syl112anc 1174 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( 1  x.  y )  < 
( k  +  1 )  <->  1  <  (
( k  +  1 )  /  y ) ) )
5548, 54mpbid 145 . . . . . . . . . . . 12  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  1  <  (
( k  +  1 )  /  y ) )
56 eluz2b1 8821 . . . . . . . . . . . 12  |-  ( ( ( k  +  1 )  /  y )  e.  ( ZZ>= `  2
)  <->  ( ( ( k  +  1 )  /  y )  e.  ZZ  /\  1  < 
( ( k  +  1 )  /  y
) ) )
5733, 55, 56sylanbrc 408 . . . . . . . . . . 11  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
y )  e.  (
ZZ>= `  2 ) )
58 fznn 9234 . . . . . . . . . . . . . . 15  |-  ( k  e.  ZZ  ->  (
y  e.  ( 1 ... k )  <->  ( y  e.  NN  /\  y  <_ 
k ) ) )
5944, 58syl 14 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( y  e.  ( 1 ... k
)  <->  ( y  e.  NN  /\  y  <_ 
k ) ) )
6023, 42, 59mpbir2and 886 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  e.  ( 1 ... k ) )
61 simplr 497 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  A. x  e.  ( 1 ... k )
ph )
62 prmind.2 . . . . . . . . . . . . . 14  |-  ( x  =  y  ->  ( ph 
<->  ch ) )
6362rspcv 2706 . . . . . . . . . . . . 13  |-  ( y  e.  ( 1 ... k )  ->  ( A. x  e.  (
1 ... k ) ph  ->  ch ) )
6460, 61, 63sylc 61 . . . . . . . . . . . 12  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ch )
6518nnrpd 8905 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( k  +  1 )  e.  RR+ )
6623nnrpd 8905 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  y  e.  RR+ )
6765, 66rpdivcld 8924 . . . . . . . . . . . . . . . 16  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
y )  e.  RR+ )
6867rpgt0d 8909 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  0  <  (
( k  +  1 )  /  y ) )
69 elnnz 8494 . . . . . . . . . . . . . . 15  |-  ( ( ( k  +  1 )  /  y )  e.  NN  <->  ( (
( k  +  1 )  /  y )  e.  ZZ  /\  0  <  ( ( k  +  1 )  /  y
) ) )
7033, 68, 69sylanbrc 408 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
y )  e.  NN )
7118nnap0d 8203 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( k  +  1 ) #  0 )
7219, 71dividapd 7993 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
( k  +  1 ) )  =  1 )
73 eluz2gt1 8822 . . . . . . . . . . . . . . . . . 18  |-  ( y  e.  ( ZZ>= `  2
)  ->  1  <  y )
7421, 73syl 14 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  1  <  y
)
7572, 74eqbrtrd 3825 . . . . . . . . . . . . . . . 16  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
( k  +  1 ) )  <  y
)
7618nngt0d 8201 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  0  <  (
k  +  1 ) )
77 ltdiv23 8089 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  +  1 )  e.  RR  /\  ( ( k  +  1 )  e.  RR  /\  0  <  ( k  +  1 ) )  /\  ( y  e.  RR  /\  0  < 
y ) )  -> 
( ( ( k  +  1 )  / 
( k  +  1 ) )  <  y  <->  ( ( k  +  1 )  /  y )  <  ( k  +  1 ) ) )
7850, 50, 76, 51, 52, 77syl122anc 1179 . . . . . . . . . . . . . . . 16  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( ( k  +  1 )  /  ( k  +  1 ) )  < 
y  <->  ( ( k  +  1 )  / 
y )  <  (
k  +  1 ) ) )
7975, 78mpbid 145 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
y )  <  (
k  +  1 ) )
80 zleltp1 8539 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( k  +  1 )  /  y
)  e.  ZZ  /\  k  e.  ZZ )  ->  ( ( ( k  +  1 )  / 
y )  <_  k  <->  ( ( k  +  1 )  /  y )  <  ( k  +  1 ) ) )
8133, 44, 80syl2anc 403 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( ( k  +  1 )  /  y )  <_ 
k  <->  ( ( k  +  1 )  / 
y )  <  (
k  +  1 ) ) )
8279, 81mpbird 165 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
y )  <_  k
)
83 fznn 9234 . . . . . . . . . . . . . . 15  |-  ( k  e.  ZZ  ->  (
( ( k  +  1 )  /  y
)  e.  ( 1 ... k )  <->  ( (
( k  +  1 )  /  y )  e.  NN  /\  (
( k  +  1 )  /  y )  <_  k ) ) )
8444, 83syl 14 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( ( k  +  1 )  /  y )  e.  ( 1 ... k
)  <->  ( ( ( k  +  1 )  /  y )  e.  NN  /\  ( ( k  +  1 )  /  y )  <_ 
k ) ) )
8570, 82, 84mpbir2and 886 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ( k  +  1 )  / 
y )  e.  ( 1 ... k ) )
86 prmind.3 . . . . . . . . . . . . . . 15  |-  ( x  =  z  ->  ( ph 
<->  th ) )
8786cbvralv 2582 . . . . . . . . . . . . . 14  |-  ( A. x  e.  ( 1 ... k ) ph  <->  A. z  e.  ( 1 ... k ) th )
8861, 87sylib 120 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  A. z  e.  ( 1 ... k ) th )
89 vex 2613 . . . . . . . . . . . . . . . 16  |-  z  e. 
_V
9089, 86sbcie 2857 . . . . . . . . . . . . . . 15  |-  ( [. z  /  x ]. ph  <->  th )
91 dfsbcq 2826 . . . . . . . . . . . . . . 15  |-  ( z  =  ( ( k  +  1 )  / 
y )  ->  ( [. z  /  x ]. ph  <->  [. ( ( k  +  1 )  / 
y )  /  x ]. ph ) )
9290, 91syl5bbr 192 . . . . . . . . . . . . . 14  |-  ( z  =  ( ( k  +  1 )  / 
y )  ->  ( th 
<-> 
[. ( ( k  +  1 )  / 
y )  /  x ]. ph ) )
9392rspcv 2706 . . . . . . . . . . . . 13  |-  ( ( ( k  +  1 )  /  y )  e.  ( 1 ... k )  ->  ( A. z  e.  (
1 ... k ) th 
->  [. ( ( k  +  1 )  / 
y )  /  x ]. ph ) )
9485, 88, 93sylc 61 . . . . . . . . . . . 12  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  [. ( ( k  +  1 )  / 
y )  /  x ]. ph )
9564, 94jca 300 . . . . . . . . . . 11  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  ( ch  /\  [. ( ( k  +  1 )  /  y
)  /  x ]. ph ) )
9692anbi2d 452 . . . . . . . . . . . . . 14  |-  ( z  =  ( ( k  +  1 )  / 
y )  ->  (
( ch  /\  th ) 
<->  ( ch  /\  [. (
( k  +  1 )  /  y )  /  x ]. ph )
) )
97 oveq2 5571 . . . . . . . . . . . . . . 15  |-  ( z  =  ( ( k  +  1 )  / 
y )  ->  (
y  x.  z )  =  ( y  x.  ( ( k  +  1 )  /  y
) ) )
9897sbceq1d 2829 . . . . . . . . . . . . . 14  |-  ( z  =  ( ( k  +  1 )  / 
y )  ->  ( [. ( y  x.  z
)  /  x ]. ph  <->  [. ( y  x.  (
( k  +  1 )  /  y ) )  /  x ]. ph ) )
9996, 98imbi12d 232 . . . . . . . . . . . . 13  |-  ( z  =  ( ( k  +  1 )  / 
y )  ->  (
( ( ch  /\  th )  ->  [. ( y  x.  z )  /  x ]. ph )  <->  ( ( ch  /\  [. ( ( k  +  1 )  /  y )  /  x ]. ph )  ->  [. ( y  x.  (
( k  +  1 )  /  y ) )  /  x ]. ph ) ) )
10099imbi2d 228 . . . . . . . . . . . 12  |-  ( z  =  ( ( k  +  1 )  / 
y )  ->  (
( y  e.  (
ZZ>= `  2 )  -> 
( ( ch  /\  th )  ->  [. ( y  x.  z )  /  x ]. ph ) )  <-> 
( y  e.  (
ZZ>= `  2 )  -> 
( ( ch  /\  [. ( ( k  +  1 )  /  y
)  /  x ]. ph )  ->  [. ( y  x.  ( ( k  +  1 )  / 
y ) )  /  x ]. ph ) ) ) )
101 prmind2.8 . . . . . . . . . . . . . . 15  |-  ( ( y  e.  ( ZZ>= ` 
2 )  /\  z  e.  ( ZZ>= `  2 )
)  ->  ( ( ch  /\  th )  ->  ta ) )
102101ancoms 264 . . . . . . . . . . . . . 14  |-  ( ( z  e.  ( ZZ>= ` 
2 )  /\  y  e.  ( ZZ>= `  2 )
)  ->  ( ( ch  /\  th )  ->  ta ) )
103 eluzelz 8761 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  ( ZZ>= `  2
)  ->  y  e.  ZZ )
104103adantl 271 . . . . . . . . . . . . . . . 16  |-  ( ( z  e.  ( ZZ>= ` 
2 )  /\  y  e.  ( ZZ>= `  2 )
)  ->  y  e.  ZZ )
105 eluzelz 8761 . . . . . . . . . . . . . . . . 17  |-  ( z  e.  ( ZZ>= `  2
)  ->  z  e.  ZZ )
106105adantr 270 . . . . . . . . . . . . . . . 16  |-  ( ( z  e.  ( ZZ>= ` 
2 )  /\  y  e.  ( ZZ>= `  2 )
)  ->  z  e.  ZZ )
107104, 106zmulcld 8608 . . . . . . . . . . . . . . 15  |-  ( ( z  e.  ( ZZ>= ` 
2 )  /\  y  e.  ( ZZ>= `  2 )
)  ->  ( y  x.  z )  e.  ZZ )
108 prmind.4 . . . . . . . . . . . . . . . 16  |-  ( x  =  ( y  x.  z )  ->  ( ph 
<->  ta ) )
109108sbcieg 2855 . . . . . . . . . . . . . . 15  |-  ( ( y  x.  z )  e.  ZZ  ->  ( [. ( y  x.  z
)  /  x ]. ph  <->  ta ) )
110107, 109syl 14 . . . . . . . . . . . . . 14  |-  ( ( z  e.  ( ZZ>= ` 
2 )  /\  y  e.  ( ZZ>= `  2 )
)  ->  ( [. ( y  x.  z
)  /  x ]. ph  <->  ta ) )
111102, 110sylibrd 167 . . . . . . . . . . . . 13  |-  ( ( z  e.  ( ZZ>= ` 
2 )  /\  y  e.  ( ZZ>= `  2 )
)  ->  ( ( ch  /\  th )  ->  [. ( y  x.  z
)  /  x ]. ph ) )
112111ex 113 . . . . . . . . . . . 12  |-  ( z  e.  ( ZZ>= `  2
)  ->  ( y  e.  ( ZZ>= `  2 )  ->  ( ( ch  /\  th )  ->  [. ( y  x.  z )  /  x ]. ph ) ) )
113100, 112vtoclga 2673 . . . . . . . . . . 11  |-  ( ( ( k  +  1 )  /  y )  e.  ( ZZ>= `  2
)  ->  ( y  e.  ( ZZ>= `  2 )  ->  ( ( ch  /\  [. ( ( k  +  1 )  /  y
)  /  x ]. ph )  ->  [. ( y  x.  ( ( k  +  1 )  / 
y ) )  /  x ]. ph ) ) )
11457, 21, 95, 113syl3c 62 . . . . . . . . . 10  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  [. ( y  x.  ( ( k  +  1 )  /  y
) )  /  x ]. ph )
11526, 114sbceq1dd 2830 . . . . . . . . 9  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  (
y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  /\  y  ||  ( k  +  1 ) ) )  ->  [. ( k  +  1 )  /  x ]. ph )
116115rexlimdvaa 2483 . . . . . . . 8  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( E. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) ) y  ||  (
k  +  1 )  ->  [. ( k  +  1 )  /  x ]. ph ) )
117 ralnex 2363 . . . . . . . . 9  |-  ( A. y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  -.  y  ||  ( k  +  1 )  <->  -.  E. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) ) y  ||  (
k  +  1 ) )
118 simpl 107 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  k  e.  NN )
119 elnnuz 8788 . . . . . . . . . . . . . 14  |-  ( k  e.  NN  <->  k  e.  ( ZZ>= `  1 )
)
120118, 119sylib 120 . . . . . . . . . . . . 13  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  k  e.  (
ZZ>= `  1 ) )
121 eluzp1p1 8777 . . . . . . . . . . . . 13  |-  ( k  e.  ( ZZ>= `  1
)  ->  ( k  +  1 )  e.  ( ZZ>= `  ( 1  +  1 ) ) )
122120, 121syl 14 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( k  +  1 )  e.  (
ZZ>= `  ( 1  +  1 ) ) )
123 df-2 8217 . . . . . . . . . . . . 13  |-  2  =  ( 1  +  1 )
124123fveq2i 5232 . . . . . . . . . . . 12  |-  ( ZZ>= ` 
2 )  =  (
ZZ>= `  ( 1  +  1 ) )
125122, 124syl6eleqr 2176 . . . . . . . . . . 11  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( k  +  1 )  e.  (
ZZ>= `  2 ) )
126 isprm3 10707 . . . . . . . . . . . 12  |-  ( ( k  +  1 )  e.  Prime  <->  ( ( k  +  1 )  e.  ( ZZ>= `  2 )  /\  A. y  e.  ( 2 ... ( ( k  +  1 )  -  1 ) )  -.  y  ||  (
k  +  1 ) ) )
127126baibr 863 . . . . . . . . . . 11  |-  ( ( k  +  1 )  e.  ( ZZ>= `  2
)  ->  ( A. y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) )  -.  y  ||  ( k  +  1 )  <->  ( k  +  1 )  e. 
Prime ) )
128125, 127syl 14 . . . . . . . . . 10  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( A. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) )  -.  y  ||  ( k  +  1 )  <->  ( k  +  1 )  e.  Prime ) )
129 simpr 108 . . . . . . . . . . . . 13  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  A. x  e.  ( 1 ... k )
ph )
13062cbvralv 2582 . . . . . . . . . . . . 13  |-  ( A. x  e.  ( 1 ... k ) ph  <->  A. y  e.  ( 1 ... k ) ch )
131129, 130sylib 120 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  A. y  e.  ( 1 ... k ) ch )
132118nncnd 8172 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  k  e.  CC )
133132, 39, 40sylancl 404 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( ( k  +  1 )  - 
1 )  =  k )
134133oveq2d 5579 . . . . . . . . . . . . 13  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( 1 ... ( ( k  +  1 )  -  1 ) )  =  ( 1 ... k ) )
135134raleqdv 2560 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( A. y  e.  ( 1 ... (
( k  +  1 )  -  1 ) ) ch  <->  A. y  e.  ( 1 ... k
) ch ) )
136131, 135mpbird 165 . . . . . . . . . . 11  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  A. y  e.  ( 1 ... ( ( k  +  1 )  -  1 ) ) ch )
137 nfcv 2223 . . . . . . . . . . . 12  |-  F/_ x
( k  +  1 )
138 nfv 1462 . . . . . . . . . . . . 13  |-  F/ x A. y  e.  (
1 ... ( ( k  +  1 )  - 
1 ) ) ch
139 nfsbc1v 2842 . . . . . . . . . . . . 13  |-  F/ x [. ( k  +  1 )  /  x ]. ph
140138, 139nfim 1505 . . . . . . . . . . . 12  |-  F/ x
( A. y  e.  ( 1 ... (
( k  +  1 )  -  1 ) ) ch  ->  [. (
k  +  1 )  /  x ]. ph )
141 oveq1 5570 . . . . . . . . . . . . . . 15  |-  ( x  =  ( k  +  1 )  ->  (
x  -  1 )  =  ( ( k  +  1 )  - 
1 ) )
142141oveq2d 5579 . . . . . . . . . . . . . 14  |-  ( x  =  ( k  +  1 )  ->  (
1 ... ( x  - 
1 ) )  =  ( 1 ... (
( k  +  1 )  -  1 ) ) )
143142raleqdv 2560 . . . . . . . . . . . . 13  |-  ( x  =  ( k  +  1 )  ->  ( A. y  e.  (
1 ... ( x  - 
1 ) ) ch  <->  A. y  e.  ( 1 ... ( ( k  +  1 )  - 
1 ) ) ch ) )
144 sbceq1a 2833 . . . . . . . . . . . . 13  |-  ( x  =  ( k  +  1 )  ->  ( ph 
<-> 
[. ( k  +  1 )  /  x ]. ph ) )
145143, 144imbi12d 232 . . . . . . . . . . . 12  |-  ( x  =  ( k  +  1 )  ->  (
( A. y  e.  ( 1 ... (
x  -  1 ) ) ch  ->  ph )  <->  ( A. y  e.  ( 1 ... ( ( k  +  1 )  -  1 ) ) ch  ->  [. ( k  +  1 )  /  x ]. ph ) ) )
146 prmind2.7 . . . . . . . . . . . . 13  |-  ( ( x  e.  Prime  /\  A. y  e.  ( 1 ... ( x  - 
1 ) ) ch )  ->  ph )
147146ex 113 . . . . . . . . . . . 12  |-  ( x  e.  Prime  ->  ( A. y  e.  ( 1 ... ( x  - 
1 ) ) ch 
->  ph ) )
148137, 140, 145, 147vtoclgaf 2672 . . . . . . . . . . 11  |-  ( ( k  +  1 )  e.  Prime  ->  ( A. y  e.  ( 1 ... ( ( k  +  1 )  - 
1 ) ) ch 
->  [. ( k  +  1 )  /  x ]. ph ) )
149136, 148syl5com 29 . . . . . . . . . 10  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( ( k  +  1 )  e. 
Prime  ->  [. ( k  +  1 )  /  x ]. ph ) )
150128, 149sylbid 148 . . . . . . . . 9  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( A. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) )  -.  y  ||  ( k  +  1 )  ->  [. ( k  +  1 )  /  x ]. ph ) )
151117, 150syl5bir 151 . . . . . . . 8  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( -.  E. y  e.  ( 2 ... ( ( k  +  1 )  - 
1 ) ) y 
||  ( k  +  1 )  ->  [. (
k  +  1 )  /  x ]. ph )
)
152 2z 8512 . . . . . . . . . . 11  |-  2  e.  ZZ
153152a1i 9 . . . . . . . . . 10  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  2  e.  ZZ )
154118nnzd 8601 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  k  e.  ZZ )
155154peano2zd 8605 . . . . . . . . . . 11  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( k  +  1 )  e.  ZZ )
156 1zzd 8511 . . . . . . . . . . 11  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  1  e.  ZZ )
157155, 156zsubcld 8607 . . . . . . . . . 10  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( ( k  +  1 )  - 
1 )  e.  ZZ )
15820, 22syl 14 . . . . . . . . . . 11  |-  ( y  e.  ( 2 ... ( ( k  +  1 )  -  1 ) )  ->  y  e.  NN )
159 dvdsdc 10411 . . . . . . . . . . 11  |-  ( ( y  e.  NN  /\  ( k  +  1 )  e.  ZZ )  -> DECID 
y  ||  ( k  +  1 ) )
160158, 155, 159syl2anr 284 . . . . . . . . . 10  |-  ( ( ( k  e.  NN  /\ 
A. x  e.  ( 1 ... k )
ph )  /\  y  e.  ( 2 ... (
( k  +  1 )  -  1 ) ) )  -> DECID  y  ||  ( k  +  1 ) )
161153, 157, 160exfzdc 9378 . . . . . . . . 9  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  -> DECID  E. y  e.  (
2 ... ( ( k  +  1 )  - 
1 ) ) y 
||  ( k  +  1 ) )
162 exmiddc 778 . . . . . . . . 9  |-  (DECID  E. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) ) y  ||  (
k  +  1 )  ->  ( E. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) ) y  ||  (
k  +  1 )  \/  -.  E. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) ) y  ||  (
k  +  1 ) ) )
163161, 162syl 14 . . . . . . . 8  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  ( E. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) ) y  ||  (
k  +  1 )  \/  -.  E. y  e.  ( 2 ... (
( k  +  1 )  -  1 ) ) y  ||  (
k  +  1 ) ) )
164116, 151, 163mpjaod 671 . . . . . . 7  |-  ( ( k  e.  NN  /\  A. x  e.  ( 1 ... k ) ph )  ->  [. ( k  +  1 )  /  x ]. ph )
165164ex 113 . . . . . 6  |-  ( k  e.  NN  ->  ( A. x  e.  (
1 ... k ) ph  ->  [. ( k  +  1 )  /  x ]. ph ) )
166 ralsnsg 3448 . . . . . . 7  |-  ( ( k  +  1 )  e.  NN  ->  ( A. x  e.  { ( k  +  1 ) } ph  <->  [. ( k  +  1 )  /  x ]. ph ) )
16717, 166syl 14 . . . . . 6  |-  ( k  e.  NN  ->  ( A. x  e.  { ( k  +  1 ) } ph  <->  [. ( k  +  1 )  /  x ]. ph ) )
168165, 167sylibrd 167 . . . . 5  |-  ( k  e.  NN  ->  ( A. x  e.  (
1 ... k ) ph  ->  A. x  e.  {
( k  +  1 ) } ph )
)
169168ancld 318 . . . 4  |-  ( k  e.  NN  ->  ( A. x  e.  (
1 ... k ) ph  ->  ( A. x  e.  ( 1 ... k
) ph  /\  A. x  e.  { ( k  +  1 ) } ph ) ) )
170 fzsuc 9214 . . . . . . 7  |-  ( k  e.  ( ZZ>= `  1
)  ->  ( 1 ... ( k  +  1 ) )  =  ( ( 1 ... k )  u.  {
( k  +  1 ) } ) )
171119, 170sylbi 119 . . . . . 6  |-  ( k  e.  NN  ->  (
1 ... ( k  +  1 ) )  =  ( ( 1 ... k )  u.  {
( k  +  1 ) } ) )
172171raleqdv 2560 . . . . 5  |-  ( k  e.  NN  ->  ( A. x  e.  (
1 ... ( k  +  1 ) ) ph  <->  A. x  e.  ( ( 1 ... k )  u.  { ( k  +  1 ) } ) ph ) )
173 ralunb 3163 . . . . 5  |-  ( A. x  e.  ( (
1 ... k )  u. 
{ ( k  +  1 ) } )
ph 
<->  ( A. x  e.  ( 1 ... k
) ph  /\  A. x  e.  { ( k  +  1 ) } ph ) )
174172, 173syl6bb 194 . . . 4  |-  ( k  e.  NN  ->  ( A. x  e.  (
1 ... ( k  +  1 ) ) ph  <->  ( A. x  e.  ( 1 ... k )
ph  /\  A. x  e.  { ( k  +  1 ) } ph ) ) )
175169, 174sylibrd 167 . . 3  |-  ( k  e.  NN  ->  ( A. x  e.  (
1 ... k ) ph  ->  A. x  e.  ( 1 ... ( k  +  1 ) )
ph ) )
1764, 6, 8, 10, 16, 175nnind 8174 . 2  |-  ( A  e.  NN  ->  A. x  e.  ( 1 ... A
) ph )
177 prmind.5 . . 3  |-  ( x  =  A  ->  ( ph 
<->  et ) )
178177rspcv 2706 . 2  |-  ( A  e.  ( 1 ... A )  ->  ( A. x  e.  (
1 ... A ) ph  ->  et ) )
1792, 176, 178sylc 61 1  |-  ( A  e.  NN  ->  et )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 102    <-> wb 103    \/ wo 662  DECID wdc 776    = wceq 1285    e. wcel 1434    =/= wne 2249   A.wral 2353   E.wrex 2354   [.wsbc 2824    u. cun 2980   {csn 3416   class class class wbr 3805   ` cfv 4952  (class class class)co 5563   CCcc 7093   RRcr 7094   0cc0 7095   1c1 7096    + caddc 7098    x. cmul 7100    < clt 7267    <_ cle 7268    - cmin 7398    / cdiv 7879   NNcn 8158   2c2 8208   ZZcz 8484   ZZ>=cuz 8752   ...cfz 9157    || cdvds 10403   Primecprime 10696
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 577  ax-in2 578  ax-io 663  ax-5 1377  ax-7 1378  ax-gen 1379  ax-ie1 1423  ax-ie2 1424  ax-8 1436  ax-10 1437  ax-11 1438  ax-i12 1439  ax-bndl 1440  ax-4 1441  ax-13 1445  ax-14 1446  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2065  ax-coll 3913  ax-sep 3916  ax-nul 3924  ax-pow 3968  ax-pr 3992  ax-un 4216  ax-setind 4308  ax-iinf 4357  ax-cnex 7181  ax-resscn 7182  ax-1cn 7183  ax-1re 7184  ax-icn 7185  ax-addcl 7186  ax-addrcl 7187  ax-mulcl 7188  ax-mulrcl 7189  ax-addcom 7190  ax-mulcom 7191  ax-addass 7192  ax-mulass 7193  ax-distr 7194  ax-i2m1 7195  ax-0lt1 7196  ax-1rid 7197  ax-0id 7198  ax-rnegex 7199  ax-precex 7200  ax-cnre 7201  ax-pre-ltirr 7202  ax-pre-ltwlin 7203  ax-pre-lttrn 7204  ax-pre-apti 7205  ax-pre-ltadd 7206  ax-pre-mulgt0 7207  ax-pre-mulext 7208  ax-arch 7209  ax-caucvg 7210
This theorem depends on definitions:  df-bi 115  df-dc 777  df-3or 921  df-3an 922  df-tru 1288  df-fal 1291  df-nf 1391  df-sb 1688  df-eu 1946  df-mo 1947  df-clab 2070  df-cleq 2076  df-clel 2079  df-nfc 2212  df-ne 2250  df-nel 2345  df-ral 2358  df-rex 2359  df-reu 2360  df-rmo 2361  df-rab 2362  df-v 2612  df-sbc 2825  df-csb 2918  df-dif 2984  df-un 2986  df-in 2988  df-ss 2995  df-nul 3268  df-if 3369  df-pw 3402  df-sn 3422  df-pr 3423  df-op 3425  df-uni 3622  df-int 3657  df-iun 3700  df-br 3806  df-opab 3860  df-mpt 3861  df-tr 3896  df-id 4076  df-po 4079  df-iso 4080  df-iord 4149  df-on 4151  df-ilim 4152  df-suc 4154  df-iom 4360  df-xp 4397  df-rel 4398  df-cnv 4399  df-co 4400  df-dm 4401  df-rn 4402  df-res 4403  df-ima 4404  df-iota 4917  df-fun 4954  df-fn 4955  df-f 4956  df-f1 4957  df-fo 4958  df-f1o 4959  df-fv 4960  df-riota 5519  df-ov 5566  df-oprab 5567  df-mpt2 5568  df-1st 5818  df-2nd 5819  df-recs 5974  df-frec 6060  df-1o 6085  df-2o 6086  df-er 6193  df-en 6309  df-pnf 7269  df-mnf 7270  df-xr 7271  df-ltxr 7272  df-le 7273  df-sub 7400  df-neg 7401  df-reap 7794  df-ap 7801  df-div 7880  df-inn 8159  df-2 8217  df-3 8218  df-4 8219  df-n0 8408  df-z 8485  df-uz 8753  df-q 8838  df-rp 8868  df-fz 9158  df-fzo 9282  df-fl 9404  df-mod 9457  df-iseq 9574  df-iexp 9625  df-cj 9930  df-re 9931  df-im 9932  df-rsqrt 10085  df-abs 10086  df-dvds 10404  df-prm 10697
This theorem is referenced by:  prmind  10710
  Copyright terms: Public domain W3C validator