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

Theorem dvdsle 14240
Description: The divisors of a positive integer are bounded by it. The proof does not use  /. (Contributed by Paul Chapman, 21-Mar-2011.)
Assertion
Ref Expression
dvdsle  |-  ( ( M  e.  ZZ  /\  N  e.  NN )  ->  ( M  ||  N  ->  M  <_  N )
)

Proof of Theorem dvdsle
Dummy variable  n is distinct from all other variables.
StepHypRef Expression
1 breq2 4399 . . . . . . . . . . . . 13  |-  ( M  =  if ( M  e.  ZZ ,  M ,  1 )  -> 
( N  <  M  <->  N  <  if ( M  e.  ZZ ,  M ,  1 ) ) )
2 oveq2 6286 . . . . . . . . . . . . . 14  |-  ( M  =  if ( M  e.  ZZ ,  M ,  1 )  -> 
( n  x.  M
)  =  ( n  x.  if ( M  e.  ZZ ,  M ,  1 ) ) )
32neeq1d 2680 . . . . . . . . . . . . 13  |-  ( M  =  if ( M  e.  ZZ ,  M ,  1 )  -> 
( ( n  x.  M )  =/=  N  <->  ( n  x.  if ( M  e.  ZZ ,  M ,  1 ) )  =/=  N ) )
41, 3imbi12d 318 . . . . . . . . . . . 12  |-  ( M  =  if ( M  e.  ZZ ,  M ,  1 )  -> 
( ( N  < 
M  ->  ( n  x.  M )  =/=  N
)  <->  ( N  < 
if ( M  e.  ZZ ,  M , 
1 )  ->  (
n  x.  if ( M  e.  ZZ ,  M ,  1 ) )  =/=  N ) ) )
5 breq1 4398 . . . . . . . . . . . . 13  |-  ( N  =  if ( N  e.  NN ,  N ,  1 )  -> 
( N  <  if ( M  e.  ZZ ,  M ,  1 )  <-> 
if ( N  e.  NN ,  N , 
1 )  <  if ( M  e.  ZZ ,  M ,  1 ) ) )
6 neeq2 2686 . . . . . . . . . . . . 13  |-  ( N  =  if ( N  e.  NN ,  N ,  1 )  -> 
( ( n  x.  if ( M  e.  ZZ ,  M , 
1 ) )  =/= 
N  <->  ( n  x.  if ( M  e.  ZZ ,  M , 
1 ) )  =/= 
if ( N  e.  NN ,  N , 
1 ) ) )
75, 6imbi12d 318 . . . . . . . . . . . 12  |-  ( N  =  if ( N  e.  NN ,  N ,  1 )  -> 
( ( N  < 
if ( M  e.  ZZ ,  M , 
1 )  ->  (
n  x.  if ( M  e.  ZZ ,  M ,  1 ) )  =/=  N )  <-> 
( if ( N  e.  NN ,  N ,  1 )  < 
if ( M  e.  ZZ ,  M , 
1 )  ->  (
n  x.  if ( M  e.  ZZ ,  M ,  1 ) )  =/=  if ( N  e.  NN ,  N ,  1 ) ) ) )
8 oveq1 6285 . . . . . . . . . . . . . 14  |-  ( n  =  if ( n  e.  ZZ ,  n ,  1 )  -> 
( n  x.  if ( M  e.  ZZ ,  M ,  1 ) )  =  ( if ( n  e.  ZZ ,  n ,  1 )  x.  if ( M  e.  ZZ ,  M ,  1 ) ) )
98neeq1d 2680 . . . . . . . . . . . . 13  |-  ( n  =  if ( n  e.  ZZ ,  n ,  1 )  -> 
( ( n  x.  if ( M  e.  ZZ ,  M , 
1 ) )  =/= 
if ( N  e.  NN ,  N , 
1 )  <->  ( if ( n  e.  ZZ ,  n ,  1 )  x.  if ( M  e.  ZZ ,  M ,  1 ) )  =/=  if ( N  e.  NN ,  N ,  1 ) ) )
109imbi2d 314 . . . . . . . . . . . 12  |-  ( n  =  if ( n  e.  ZZ ,  n ,  1 )  -> 
( ( if ( N  e.  NN ,  N ,  1 )  <  if ( M  e.  ZZ ,  M ,  1 )  -> 
( n  x.  if ( M  e.  ZZ ,  M ,  1 ) )  =/=  if ( N  e.  NN ,  N ,  1 ) )  <->  ( if ( N  e.  NN ,  N ,  1 )  <  if ( M  e.  ZZ ,  M ,  1 )  -> 
( if ( n  e.  ZZ ,  n ,  1 )  x.  if ( M  e.  ZZ ,  M , 
1 ) )  =/= 
if ( N  e.  NN ,  N , 
1 ) ) ) )
11 1z 10935 . . . . . . . . . . . . . 14  |-  1  e.  ZZ
1211elimel 3947 . . . . . . . . . . . . 13  |-  if ( M  e.  ZZ ,  M ,  1 )  e.  ZZ
13 1nn 10587 . . . . . . . . . . . . . 14  |-  1  e.  NN
1413elimel 3947 . . . . . . . . . . . . 13  |-  if ( N  e.  NN ,  N ,  1 )  e.  NN
1511elimel 3947 . . . . . . . . . . . . 13  |-  if ( n  e.  ZZ ,  n ,  1 )  e.  ZZ
1612, 14, 15dvdslelem 14239 . . . . . . . . . . . 12  |-  ( if ( N  e.  NN ,  N ,  1 )  <  if ( M  e.  ZZ ,  M ,  1 )  -> 
( if ( n  e.  ZZ ,  n ,  1 )  x.  if ( M  e.  ZZ ,  M , 
1 ) )  =/= 
if ( N  e.  NN ,  N , 
1 ) )
174, 7, 10, 16dedth3h 3938 . . . . . . . . . . 11  |-  ( ( M  e.  ZZ  /\  N  e.  NN  /\  n  e.  ZZ )  ->  ( N  <  M  ->  (
n  x.  M )  =/=  N ) )
18173expia 1199 . . . . . . . . . 10  |-  ( ( M  e.  ZZ  /\  N  e.  NN )  ->  ( n  e.  ZZ  ->  ( N  <  M  ->  ( n  x.  M
)  =/=  N ) ) )
1918com23 78 . . . . . . . . 9  |-  ( ( M  e.  ZZ  /\  N  e.  NN )  ->  ( N  <  M  ->  ( n  e.  ZZ  ->  ( n  x.  M
)  =/=  N ) ) )
20193impia 1194 . . . . . . . 8  |-  ( ( M  e.  ZZ  /\  N  e.  NN  /\  N  <  M )  ->  (
n  e.  ZZ  ->  ( n  x.  M )  =/=  N ) )
2120imp 427 . . . . . . 7  |-  ( ( ( M  e.  ZZ  /\  N  e.  NN  /\  N  <  M )  /\  n  e.  ZZ )  ->  ( n  x.  M
)  =/=  N )
2221neneqd 2605 . . . . . 6  |-  ( ( ( M  e.  ZZ  /\  N  e.  NN  /\  N  <  M )  /\  n  e.  ZZ )  ->  -.  ( n  x.  M )  =  N )
2322nrexdv 2860 . . . . 5  |-  ( ( M  e.  ZZ  /\  N  e.  NN  /\  N  <  M )  ->  -.  E. n  e.  ZZ  (
n  x.  M )  =  N )
24 nnz 10927 . . . . . . 7  |-  ( N  e.  NN  ->  N  e.  ZZ )
25 divides 14197 . . . . . . 7  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  ( M  ||  N  <->  E. n  e.  ZZ  (
n  x.  M )  =  N ) )
2624, 25sylan2 472 . . . . . 6  |-  ( ( M  e.  ZZ  /\  N  e.  NN )  ->  ( M  ||  N  <->  E. n  e.  ZZ  (
n  x.  M )  =  N ) )
27263adant3 1017 . . . . 5  |-  ( ( M  e.  ZZ  /\  N  e.  NN  /\  N  <  M )  ->  ( M  ||  N  <->  E. n  e.  ZZ  ( n  x.  M )  =  N ) )
2823, 27mtbird 299 . . . 4  |-  ( ( M  e.  ZZ  /\  N  e.  NN  /\  N  <  M )  ->  -.  M  ||  N )
29283expia 1199 . . 3  |-  ( ( M  e.  ZZ  /\  N  e.  NN )  ->  ( N  <  M  ->  -.  M  ||  N
) )
3029con2d 115 . 2  |-  ( ( M  e.  ZZ  /\  N  e.  NN )  ->  ( M  ||  N  ->  -.  N  <  M
) )
31 zre 10909 . . 3  |-  ( M  e.  ZZ  ->  M  e.  RR )
32 nnre 10583 . . 3  |-  ( N  e.  NN  ->  N  e.  RR )
33 lenlt 9694 . . 3  |-  ( ( M  e.  RR  /\  N  e.  RR )  ->  ( M  <_  N  <->  -.  N  <  M ) )
3431, 32, 33syl2an 475 . 2  |-  ( ( M  e.  ZZ  /\  N  e.  NN )  ->  ( M  <_  N  <->  -.  N  <  M ) )
3530, 34sylibrd 234 1  |-  ( ( M  e.  ZZ  /\  N  e.  NN )  ->  ( M  ||  N  ->  M  <_  N )
)
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 367    /\ w3a 974    = wceq 1405    e. wcel 1842    =/= wne 2598   E.wrex 2755   ifcif 3885   class class class wbr 4395  (class class class)co 6278   RRcr 9521   1c1 9523    x. cmul 9527    < clt 9658    <_ cle 9659   NNcn 10576   ZZcz 10905    || cdvds 14195
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1639  ax-4 1652  ax-5 1725  ax-6 1771  ax-7 1814  ax-8 1844  ax-9 1846  ax-10 1861  ax-11 1866  ax-12 1878  ax-13 2026  ax-ext 2380  ax-sep 4517  ax-nul 4525  ax-pow 4572  ax-pr 4630  ax-un 6574  ax-resscn 9579  ax-1cn 9580  ax-icn 9581  ax-addcl 9582  ax-addrcl 9583  ax-mulcl 9584  ax-mulrcl 9585  ax-mulcom 9586  ax-addass 9587  ax-mulass 9588  ax-distr 9589  ax-i2m1 9590  ax-1ne0 9591  ax-1rid 9592  ax-rnegex 9593  ax-rrecex 9594  ax-cnre 9595  ax-pre-lttri 9596  ax-pre-lttrn 9597  ax-pre-ltadd 9598  ax-pre-mulgt0 9599
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 975  df-3an 976  df-tru 1408  df-ex 1634  df-nf 1638  df-sb 1764  df-eu 2242  df-mo 2243  df-clab 2388  df-cleq 2394  df-clel 2397  df-nfc 2552  df-ne 2600  df-nel 2601  df-ral 2759  df-rex 2760  df-reu 2761  df-rab 2763  df-v 3061  df-sbc 3278  df-csb 3374  df-dif 3417  df-un 3419  df-in 3421  df-ss 3428  df-pss 3430  df-nul 3739  df-if 3886  df-pw 3957  df-sn 3973  df-pr 3975  df-tp 3977  df-op 3979  df-uni 4192  df-iun 4273  df-br 4396  df-opab 4454  df-mpt 4455  df-tr 4490  df-eprel 4734  df-id 4738  df-po 4744  df-so 4745  df-fr 4782  df-we 4784  df-xp 4829  df-rel 4830  df-cnv 4831  df-co 4832  df-dm 4833  df-rn 4834  df-res 4835  df-ima 4836  df-pred 5367  df-ord 5413  df-on 5414  df-lim 5415  df-suc 5416  df-iota 5533  df-fun 5571  df-fn 5572  df-f 5573  df-f1 5574  df-fo 5575  df-f1o 5576  df-fv 5577  df-riota 6240  df-ov 6281  df-oprab 6282  df-mpt2 6283  df-om 6684  df-wrecs 7013  df-recs 7075  df-rdg 7113  df-er 7348  df-en 7555  df-dom 7556  df-sdom 7557  df-pnf 9660  df-mnf 9661  df-xr 9662  df-ltxr 9663  df-le 9664  df-sub 9843  df-neg 9844  df-nn 10577  df-n0 10837  df-z 10906  df-dvds 14196
This theorem is referenced by:  dvdsleabs  14241  dvdseq  14242  n2dvds1  14244  fzm1ndvds  14247  fzo0dvdseq  14248  gcd1  14379  bezoutlem4  14388  gcdeq  14399  isprm3  14435  qredeq  14456  isprm6  14459  isprm5  14462  maxprmfct  14463  prmfac1  14468  pcpre1  14575  pcidlem  14604  pcprod  14623  pcfac  14627  pockthg  14633  prmreclem1  14643  prmreclem3  14645  prmreclem5  14647  1arith  14654  4sqlem11  14682  gexcl2  16933  sylow1lem1  16942  sylow1lem5  16946  gexex  17183  ablfac1eu  17444  ablfaclem3  17458  znidomb  18898  sgmss  23761  dvdsflsumcom  23845  chtublem  23867  vmasum  23872  logfac2  23873  bposlem6  23945  lgsdir  23986  lgsdilem2  23987  lgsne0  23989  lgsqrlem2  23998  lgsquadlem2  24011  2sqlem8  24028  2sqblem  24033  2sqmod  28088  oddpwdc  28799  nn0prpw  30551  bezoutr1  35285  lcmgcdlem  36060  nznngen  36069  etransclem41  37426  gcdzeq  37746
  Copyright terms: Public domain W3C validator