MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  isprm2lem Unicode version

Theorem isprm2lem 13041
Description: Lemma for isprm2 13042. (Contributed by Paul Chapman, 22-Jun-2011.)
Assertion
Ref Expression
isprm2lem  |-  ( ( P  e.  NN  /\  P  =/=  1 )  -> 
( { n  e.  NN  |  n  ||  P }  ~~  2o  <->  { n  e.  NN  |  n  ||  P }  =  {
1 ,  P }
) )
Distinct variable group:    P, n

Proof of Theorem isprm2lem
Dummy variable  p is distinct from all other variables.
StepHypRef Expression
1 neeq1 2575 . . . 4  |-  ( p  =  P  ->  (
p  =/=  1  <->  P  =/=  1 ) )
2 breq2 4176 . . . . . . 7  |-  ( p  =  P  ->  (
n  ||  p  <->  n  ||  P
) )
32rabbidv 2908 . . . . . 6  |-  ( p  =  P  ->  { n  e.  NN  |  n  ||  p }  =  {
n  e.  NN  |  n  ||  P } )
43breq1d 4182 . . . . 5  |-  ( p  =  P  ->  ( { n  e.  NN  |  n  ||  p }  ~~  2o  <->  { n  e.  NN  |  n  ||  P }  ~~  2o ) )
5 preq2 3844 . . . . . 6  |-  ( p  =  P  ->  { 1 ,  p }  =  { 1 ,  P } )
63, 5eqeq12d 2418 . . . . 5  |-  ( p  =  P  ->  ( { n  e.  NN  |  n  ||  p }  =  { 1 ,  p } 
<->  { n  e.  NN  |  n  ||  P }  =  { 1 ,  P } ) )
74, 6bibi12d 313 . . . 4  |-  ( p  =  P  ->  (
( { n  e.  NN  |  n  ||  p }  ~~  2o  <->  { n  e.  NN  |  n  ||  p }  =  {
1 ,  p }
)  <->  ( { n  e.  NN  |  n  ||  P }  ~~  2o  <->  { n  e.  NN  |  n  ||  P }  =  {
1 ,  P }
) ) )
81, 7imbi12d 312 . . 3  |-  ( p  =  P  ->  (
( p  =/=  1  ->  ( { n  e.  NN  |  n  ||  p }  ~~  2o  <->  { n  e.  NN  |  n  ||  p }  =  {
1 ,  p }
) )  <->  ( P  =/=  1  ->  ( { n  e.  NN  |  n  ||  P }  ~~  2o 
<->  { n  e.  NN  |  n  ||  P }  =  { 1 ,  P } ) ) ) )
9 1idssfct 13040 . . . . . . . 8  |-  ( p  e.  NN  ->  { 1 ,  p }  C_  { n  e.  NN  |  n  ||  p } )
10 disjsn 3828 . . . . . . . . . . . 12  |-  ( ( { 1 }  i^i  { p } )  =  (/) 
<->  -.  p  e.  {
1 } )
11 1ex 9042 . . . . . . . . . . . . . 14  |-  1  e.  _V
1211ensn1 7130 . . . . . . . . . . . . 13  |-  { 1 }  ~~  1o
13 vex 2919 . . . . . . . . . . . . . 14  |-  p  e. 
_V
1413ensn1 7130 . . . . . . . . . . . . 13  |-  { p }  ~~  1o
15 pm54.43 7843 . . . . . . . . . . . . 13  |-  ( ( { 1 }  ~~  1o  /\  { p }  ~~  1o )  ->  (
( { 1 }  i^i  { p }
)  =  (/)  <->  ( {
1 }  u.  {
p } )  ~~  2o ) )
1612, 14, 15mp2an 654 . . . . . . . . . . . 12  |-  ( ( { 1 }  i^i  { p } )  =  (/) 
<->  ( { 1 }  u.  { p }
)  ~~  2o )
1710, 16bitr3i 243 . . . . . . . . . . 11  |-  ( -.  p  e.  { 1 }  <->  ( { 1 }  u.  { p } )  ~~  2o )
18 elsn 3789 . . . . . . . . . . 11  |-  ( p  e.  { 1 }  <-> 
p  =  1 )
1917, 18xchnxbi 300 . . . . . . . . . 10  |-  ( -.  p  =  1  <->  ( { 1 }  u.  { p } )  ~~  2o )
20 df-ne 2569 . . . . . . . . . 10  |-  ( p  =/=  1  <->  -.  p  =  1 )
21 df-pr 3781 . . . . . . . . . . 11  |-  { 1 ,  p }  =  ( { 1 }  u.  { p } )
2221breq1i 4179 . . . . . . . . . 10  |-  ( { 1 ,  p }  ~~  2o  <->  ( { 1 }  u.  { p } )  ~~  2o )
2319, 20, 223bitr4i 269 . . . . . . . . 9  |-  ( p  =/=  1  <->  { 1 ,  p }  ~~  2o )
24 ensym 7115 . . . . . . . . . 10  |-  ( { n  e.  NN  |  n  ||  p }  ~~  2o  ->  2o  ~~  {
n  e.  NN  |  n  ||  p } )
25 entr 7118 . . . . . . . . . 10  |-  ( ( { 1 ,  p }  ~~  2o  /\  2o  ~~ 
{ n  e.  NN  |  n  ||  p }
)  ->  { 1 ,  p }  ~~  {
n  e.  NN  |  n  ||  p } )
2624, 25sylan2 461 . . . . . . . . 9  |-  ( ( { 1 ,  p }  ~~  2o  /\  {
n  e.  NN  |  n  ||  p }  ~~  2o )  ->  { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p } )
2723, 26sylanb 459 . . . . . . . 8  |-  ( ( p  =/=  1  /\ 
{ n  e.  NN  |  n  ||  p }  ~~  2o )  ->  { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p } )
28 prfi 7340 . . . . . . . . . . 11  |-  { 1 ,  p }  e.  Fin
29 ensym 7115 . . . . . . . . . . 11  |-  ( { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p }  ->  { n  e.  NN  |  n  ||  p }  ~~  { 1 ,  p } )
30 enfii 7285 . . . . . . . . . . 11  |-  ( ( { 1 ,  p }  e.  Fin  /\  {
n  e.  NN  |  n  ||  p }  ~~  { 1 ,  p }
)  ->  { n  e.  NN  |  n  ||  p }  e.  Fin )
3128, 29, 30sylancr 645 . . . . . . . . . 10  |-  ( { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p }  ->  { n  e.  NN  |  n  ||  p }  e.  Fin )
3231adantl 453 . . . . . . . . 9  |-  ( ( { 1 ,  p }  C_  { n  e.  NN  |  n  ||  p }  /\  { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p } )  ->  { n  e.  NN  |  n  ||  p }  e.  Fin )
33 dfpss2 3392 . . . . . . . . . . . 12  |-  ( { 1 ,  p }  C.  { n  e.  NN  |  n  ||  p }  <->  ( { 1 ,  p }  C_  { n  e.  NN  |  n  ||  p }  /\  -.  {
1 ,  p }  =  { n  e.  NN  |  n  ||  p }
) )
34 pssinf 7278 . . . . . . . . . . . 12  |-  ( ( { 1 ,  p }  C.  { n  e.  NN  |  n  ||  p }  /\  { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p } )  ->  -.  { n  e.  NN  |  n  ||  p }  e.  Fin )
3533, 34sylanbr 460 . . . . . . . . . . 11  |-  ( ( ( { 1 ,  p }  C_  { n  e.  NN  |  n  ||  p }  /\  -.  {
1 ,  p }  =  { n  e.  NN  |  n  ||  p }
)  /\  { 1 ,  p }  ~~  {
n  e.  NN  |  n  ||  p } )  ->  -.  { n  e.  NN  |  n  ||  p }  e.  Fin )
3635an32s 780 . . . . . . . . . 10  |-  ( ( ( { 1 ,  p }  C_  { n  e.  NN  |  n  ||  p }  /\  { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p } )  /\  -.  { 1 ,  p }  =  { n  e.  NN  |  n  ||  p }
)  ->  -.  { n  e.  NN  |  n  ||  p }  e.  Fin )
3736ex 424 . . . . . . . . 9  |-  ( ( { 1 ,  p }  C_  { n  e.  NN  |  n  ||  p }  /\  { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p } )  ->  ( -.  {
1 ,  p }  =  { n  e.  NN  |  n  ||  p }  ->  -.  { n  e.  NN  |  n  ||  p }  e.  Fin ) )
3832, 37mt4d 132 . . . . . . . 8  |-  ( ( { 1 ,  p }  C_  { n  e.  NN  |  n  ||  p }  /\  { 1 ,  p }  ~~  { n  e.  NN  |  n  ||  p } )  ->  { 1 ,  p }  =  {
n  e.  NN  |  n  ||  p } )
399, 27, 38syl2an 464 . . . . . . 7  |-  ( ( p  e.  NN  /\  ( p  =/=  1  /\  { n  e.  NN  |  n  ||  p }  ~~  2o ) )  ->  { 1 ,  p }  =  { n  e.  NN  |  n  ||  p } )
4039eqcomd 2409 . . . . . 6  |-  ( ( p  e.  NN  /\  ( p  =/=  1  /\  { n  e.  NN  |  n  ||  p }  ~~  2o ) )  ->  { n  e.  NN  |  n  ||  p }  =  { 1 ,  p } )
4140expr 599 . . . . 5  |-  ( ( p  e.  NN  /\  p  =/=  1 )  -> 
( { n  e.  NN  |  n  ||  p }  ~~  2o  ->  { n  e.  NN  |  n  ||  p }  =  { 1 ,  p } ) )
42 breq1 4175 . . . . . . . 8  |-  ( { n  e.  NN  |  n  ||  p }  =  { 1 ,  p }  ->  ( { n  e.  NN  |  n  ||  p }  ~~  2o  <->  { 1 ,  p }  ~~  2o ) )
4342, 23syl6bbr 255 . . . . . . 7  |-  ( { n  e.  NN  |  n  ||  p }  =  { 1 ,  p }  ->  ( { n  e.  NN  |  n  ||  p }  ~~  2o  <->  p  =/=  1 ) )
4443biimprcd 217 . . . . . 6  |-  ( p  =/=  1  ->  ( { n  e.  NN  |  n  ||  p }  =  { 1 ,  p }  ->  { n  e.  NN  |  n  ||  p }  ~~  2o ) )
4544adantl 453 . . . . 5  |-  ( ( p  e.  NN  /\  p  =/=  1 )  -> 
( { n  e.  NN  |  n  ||  p }  =  {
1 ,  p }  ->  { n  e.  NN  |  n  ||  p }  ~~  2o ) )
4641, 45impbid 184 . . . 4  |-  ( ( p  e.  NN  /\  p  =/=  1 )  -> 
( { n  e.  NN  |  n  ||  p }  ~~  2o  <->  { n  e.  NN  |  n  ||  p }  =  {
1 ,  p }
) )
4746ex 424 . . 3  |-  ( p  e.  NN  ->  (
p  =/=  1  -> 
( { n  e.  NN  |  n  ||  p }  ~~  2o  <->  { n  e.  NN  |  n  ||  p }  =  {
1 ,  p }
) ) )
488, 47vtoclga 2977 . 2  |-  ( P  e.  NN  ->  ( P  =/=  1  ->  ( { n  e.  NN  |  n  ||  P }  ~~  2o  <->  { n  e.  NN  |  n  ||  P }  =  { 1 ,  P } ) ) )
4948imp 419 1  |-  ( ( P  e.  NN  /\  P  =/=  1 )  -> 
( { n  e.  NN  |  n  ||  P }  ~~  2o  <->  { n  e.  NN  |  n  ||  P }  =  {
1 ,  P }
) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    /\ wa 359    = wceq 1649    e. wcel 1721    =/= wne 2567   {crab 2670    u. cun 3278    i^i cin 3279    C_ wss 3280    C. wpss 3281   (/)c0 3588   {csn 3774   {cpr 3775   class class class wbr 4172   1oc1o 6676   2oc2o 6677    ~~ cen 7065   Fincfn 7068   1c1 8947   NNcn 9956    || cdivides 12807
This theorem is referenced by:  isprm2  13042
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1662  ax-8 1683  ax-13 1723  ax-14 1725  ax-6 1740  ax-7 1745  ax-11 1757  ax-12 1946  ax-ext 2385  ax-sep 4290  ax-nul 4298  ax-pow 4337  ax-pr 4363  ax-un 4660  ax-resscn 9003  ax-1cn 9004  ax-icn 9005  ax-addcl 9006  ax-addrcl 9007  ax-mulcl 9008  ax-mulrcl 9009  ax-mulcom 9010  ax-addass 9011  ax-mulass 9012  ax-distr 9013  ax-i2m1 9014  ax-1ne0 9015  ax-1rid 9016  ax-rnegex 9017  ax-rrecex 9018  ax-cnre 9019  ax-pre-lttri 9020  ax-pre-lttrn 9021  ax-pre-ltadd 9022  ax-pre-mulgt0 9023
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2258  df-mo 2259  df-clab 2391  df-cleq 2397  df-clel 2400  df-nfc 2529  df-ne 2569  df-nel 2570  df-ral 2671  df-rex 2672  df-reu 2673  df-rab 2675  df-v 2918  df-sbc 3122  df-csb 3212  df-dif 3283  df-un 3285  df-in 3287  df-ss 3294  df-pss 3296  df-nul 3589  df-if 3700  df-pw 3761  df-sn 3780  df-pr 3781  df-tp 3782  df-op 3783  df-uni 3976  df-int 4011  df-iun 4055  df-br 4173  df-opab 4227  df-mpt 4228  df-tr 4263  df-eprel 4454  df-id 4458  df-po 4463  df-so 4464  df-fr 4501  df-we 4503  df-ord 4544  df-on 4545  df-lim 4546  df-suc 4547  df-om 4805  df-xp 4843  df-rel 4844  df-cnv 4845  df-co 4846  df-dm 4847  df-rn 4848  df-res 4849  df-ima 4850  df-iota 5377  df-fun 5415  df-fn 5416  df-f 5417  df-f1 5418  df-fo 5419  df-f1o 5420  df-fv 5421  df-ov 6043  df-oprab 6044  df-mpt2 6045  df-riota 6508  df-recs 6592  df-rdg 6627  df-1o 6683  df-2o 6684  df-oadd 6687  df-er 6864  df-en 7069  df-dom 7070  df-sdom 7071  df-fin 7072  df-pnf 9078  df-mnf 9079  df-xr 9080  df-ltxr 9081  df-le 9082  df-sub 9249  df-neg 9250  df-nn 9957  df-z 10239  df-dvds 12808
  Copyright terms: Public domain W3C validator