HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem prime 9185
Description: Two ways to express " A is a prime number (or 1)." See also isprm 11274. (Contributed by NM, 4-May-2005.)
Assertion
Ref Expression
prime  |-  ( A  e.  NN  ->  ( A. x  e.  NN  ( ( A  /  x )  e.  NN  ->  ( x  =  1  \/  x  =  A ) )  <->  A. x  e.  NN  ( ( 1  <  x  /\  x  <_  A  /\  ( A  /  x )  e.  NN )  ->  x  =  A ) ) )
Distinct variable group:    x, A

Proof of Theorem prime
StepHypRef Expression
1 bi2.04 348 . . . 4  |-  ( ( x  =/=  1  -> 
( ( A  /  x )  e.  NN  ->  x  =  A ) )  <->  ( ( A  /  x )  e.  NN  ->  ( x  =/=  1  ->  x  =  A ) ) )
2 impexp 426 . . . 4  |-  ( ( ( x  =/=  1  /\  ( A  /  x
)  e.  NN )  ->  x  =  A )  <->  ( x  =/=  1  ->  ( ( A  /  x )  e.  NN  ->  x  =  A ) ) )
3 neor 2260 . . . . 5  |-  ( ( x  =  1  \/  x  =  A )  <-> 
( x  =/=  1  ->  x  =  A ) )
43imbi2i 301 . . . 4  |-  ( ( ( A  /  x
)  e.  NN  ->  ( x  =  1  \/  x  =  A ) )  <->  ( ( A  /  x )  e.  NN  ->  ( x  =/=  1  ->  x  =  A ) ) )
51, 2, 43bitr4ri 267 . . 3  |-  ( ( ( A  /  x
)  e.  NN  ->  ( x  =  1  \/  x  =  A ) )  <->  ( ( x  =/=  1  /\  ( A  /  x )  e.  NN )  ->  x  =  A ) )
6 nngt1ne1 8896 . . . . . . 7  |-  ( x  e.  NN  ->  (
1  <  x  <->  x  =/=  1 ) )
76adantl 445 . . . . . 6  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( 1  <  x  <->  x  =/=  1 ) )
87anbi1d 674 . . . . 5  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( 1  < 
x  /\  ( A  /  x )  e.  NN ) 
<->  ( x  =/=  1  /\  ( A  /  x
)  e.  NN ) ) )
9 nnz 9138 . . . . . . . . 9  |-  ( ( A  /  x )  e.  NN  ->  ( A  /  x )  e.  ZZ )
10 nnre 8879 . . . . . . . . . . . . 13  |-  ( x  e.  NN  ->  x  e.  RR )
11 gtndiv 9182 . . . . . . . . . . . . . 14  |-  ( ( x  e.  RR  /\  A  e.  NN  /\  A  <  x )  ->  -.  ( A  /  x
)  e.  ZZ )
12113expia 1109 . . . . . . . . . . . . 13  |-  ( ( x  e.  RR  /\  A  e.  NN )  ->  ( A  <  x  ->  -.  ( A  /  x )  e.  ZZ ) )
1310, 12sylan 450 . . . . . . . . . . . 12  |-  ( ( x  e.  NN  /\  A  e.  NN )  ->  ( A  <  x  ->  -.  ( A  /  x )  e.  ZZ ) )
1413con2d 105 . . . . . . . . . . 11  |-  ( ( x  e.  NN  /\  A  e.  NN )  ->  ( ( A  /  x )  e.  ZZ  ->  -.  A  <  x
) )
15 nnre 8879 . . . . . . . . . . . 12  |-  ( A  e.  NN  ->  A  e.  RR )
16 lenlt 8293 . . . . . . . . . . . 12  |-  ( ( x  e.  RR  /\  A  e.  RR )  ->  ( x  <_  A  <->  -.  A  <  x ) )
1710, 15, 16syl2an 456 . . . . . . . . . . 11  |-  ( ( x  e.  NN  /\  A  e.  NN )  ->  ( x  <_  A  <->  -.  A  <  x ) )
1814, 17sylibrd 223 . . . . . . . . . 10  |-  ( ( x  e.  NN  /\  A  e.  NN )  ->  ( ( A  /  x )  e.  ZZ  ->  x  <_  A )
)
1918ancoms 432 . . . . . . . . 9  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( A  /  x )  e.  ZZ  ->  x  <_  A )
)
209, 19syl5 28 . . . . . . . 8  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( A  /  x )  e.  NN  ->  x  <_  A )
)
2120pm4.71rd 607 . . . . . . 7  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( A  /  x )  e.  NN  <->  ( x  <_  A  /\  ( A  /  x
)  e.  NN ) ) )
2221anbi2d 673 . . . . . 6  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( 1  < 
x  /\  ( A  /  x )  e.  NN ) 
<->  ( 1  <  x  /\  ( x  <_  A  /\  ( A  /  x
)  e.  NN ) ) ) )
23 3anass 897 . . . . . 6  |-  ( ( 1  <  x  /\  x  <_  A  /\  ( A  /  x )  e.  NN )  <->  ( 1  <  x  /\  (
x  <_  A  /\  ( A  /  x
)  e.  NN ) ) )
2422, 23syl6bbr 252 . . . . 5  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( 1  < 
x  /\  ( A  /  x )  e.  NN ) 
<->  ( 1  <  x  /\  x  <_  A  /\  ( A  /  x
)  e.  NN ) ) )
258, 24bitr3d 244 . . . 4  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( x  =/=  1  /\  ( A  /  x )  e.  NN )  <->  ( 1  <  x  /\  x  <_  A  /\  ( A  /  x )  e.  NN ) ) )
2625imbi1d 306 . . 3  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( ( x  =/=  1  /\  ( A  /  x )  e.  NN )  ->  x  =  A )  <->  ( (
1  <  x  /\  x  <_  A  /\  ( A  /  x )  e.  NN )  ->  x  =  A ) ) )
275, 26syl5bb 246 . 2  |-  ( ( A  e.  NN  /\  x  e.  NN )  ->  ( ( ( A  /  x )  e.  NN  ->  ( x  =  1  \/  x  =  A ) )  <->  ( (
1  <  x  /\  x  <_  A  /\  ( A  /  x )  e.  NN )  ->  x  =  A ) ) )
2827ralbidva 2285 1  |-  ( A  e.  NN  ->  ( A. x  e.  NN  ( ( A  /  x )  e.  NN  ->  ( x  =  1  \/  x  =  A ) )  <->  A. x  e.  NN  ( ( 1  <  x  /\  x  <_  A  /\  ( A  /  x )  e.  NN )  ->  x  =  A ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 174    \/ wo 355    /\ wa 356    /\ w3a 893    = wceq 1517    e. wcel 1519    =/= wne 2179   A.wral 2271   class class class wbr 3582  (class class class)co 5353   RRcr 8146   1c1 8148    <_ cle 8260    < clt 8264    / cdiv 8385   NNcn 8386   ZZcz 8388
This theorem is referenced by:  infpnlem1  11440
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-5 1439  ax-6 1440  ax-7 1441  ax-gen 1442  ax-8 1521  ax-11 1522  ax-13 1523  ax-14 1524  ax-17 1526  ax-12o 1559  ax-10 1573  ax-9 1579  ax-4 1586  ax-16 1772  ax-ext 2043  ax-sep 3697  ax-nul 3705  ax-pow 3741  ax-pr 3765  ax-un 4057  ax-resscn 8203  ax-1cn 8204  ax-icn 8205  ax-addcl 8206  ax-addrcl 8207  ax-mulcl 8208  ax-mulrcl 8209  ax-mulcom 8210  ax-addass 8211  ax-mulass 8212  ax-distr 8213  ax-i2m1 8214  ax-1ne0 8215  ax-1rid 8216  ax-rnegex 8217  ax-rrecex 8218  ax-cnre 8219  ax-pre-lttri 8220  ax-pre-lttrn 8221  ax-pre-ltadd 8222  ax-pre-mulgt0 8223
This theorem depends on definitions:  df-bi 175  df-or 357  df-an 358  df-3or 894  df-3an 895  df-tru 1256  df-ex 1444  df-sb 1733  df-eu 1955  df-mo 1956  df-clab 2049  df-cleq 2054  df-clel 2057  df-ne 2181  df-nel 2182  df-ral 2275  df-rex 2276  df-reu 2277  df-rab 2278  df-v 2474  df-sbc 2648  df-csb 2730  df-dif 2793  df-un 2795  df-in 2797  df-ss 2801  df-pss 2803  df-nul 3070  df-if 3178  df-pw 3239  df-sn 3257  df-pr 3258  df-tp 3259  df-op 3260  df-uni 3421  df-iun 3498  df-br 3583  df-opab 3637  df-mpt 3638  df-tr 3670  df-eprel 3852  df-id 3856  df-po 3861  df-so 3862  df-fr 3899  df-we 3901  df-ord 3942  df-on 3943  df-lim 3944  df-suc 3945  df-om 4220  df-xp 4266  df-rel 4267  df-cnv 4268  df-co 4269  df-dm 4270  df-rn 4271  df-res 4272  df-ima 4273  df-fun 4274  df-fn 4275  df-f 4276  df-f1 4277  df-fo 4278  df-f1o 4279  df-fv 4280  df-ov 5356  df-oprab 5357  df-mpt2 5358  df-iota 5762  df-recs 5835  df-rdg 5870  df-er 6107  df-en 6294  df-dom 6295  df-sdom 6296  df-riota 6460  df-pnf 8265  df-mnf 8266  df-xr 8267  df-ltxr 8268  df-le 8269  df-sub 8402  df-neg 8403  df-div 8631  df-n 8873  df-n0 9066  df-z 9118
Copyright terms: Public domain