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

Theorem gcddvds 11918
Description: The gcd of two integers divides each of them. (Contributed by Paul Chapman, 21-Mar-2011.)
Assertion
Ref Expression
gcddvds  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  ( ( M  gcd  N )  ||  M  /\  ( M  gcd  N ) 
||  N ) )

Proof of Theorem gcddvds
Dummy variables  n  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 0z 9223 . . . . . 6  |-  0  e.  ZZ
2 dvds0 11768 . . . . . 6  |-  ( 0  e.  ZZ  ->  0  ||  0 )
31, 2ax-mp 5 . . . . 5  |-  0  ||  0
4 breq2 3993 . . . . . . 7  |-  ( M  =  0  ->  (
0  ||  M  <->  0  ||  0 ) )
5 breq2 3993 . . . . . . 7  |-  ( N  =  0  ->  (
0  ||  N  <->  0  ||  0 ) )
64, 5bi2anan9 601 . . . . . 6  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( ( 0 
||  M  /\  0  ||  N )  <->  ( 0 
||  0  /\  0  ||  0 ) ) )
7 anidm 394 . . . . . 6  |-  ( ( 0  ||  0  /\  0  ||  0 )  <->  0  ||  0 )
86, 7bitrdi 195 . . . . 5  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( ( 0 
||  M  /\  0  ||  N )  <->  0  ||  0 ) )
93, 8mpbiri 167 . . . 4  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( 0  ||  M  /\  0  ||  N
) )
10 oveq12 5862 . . . . . . 7  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( M  gcd  N )  =  ( 0  gcd  0 ) )
11 gcd0val 11915 . . . . . . 7  |-  ( 0  gcd  0 )  =  0
1210, 11eqtrdi 2219 . . . . . 6  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( M  gcd  N )  =  0 )
1312breq1d 3999 . . . . 5  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( ( M  gcd  N )  ||  M 
<->  0  ||  M ) )
1412breq1d 3999 . . . . 5  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( ( M  gcd  N )  ||  N 
<->  0  ||  N ) )
1513, 14anbi12d 470 . . . 4  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( ( ( M  gcd  N ) 
||  M  /\  ( M  gcd  N )  ||  N )  <->  ( 0 
||  M  /\  0  ||  N ) ) )
169, 15mpbird 166 . . 3  |-  ( ( M  =  0  /\  N  =  0 )  ->  ( ( M  gcd  N )  ||  M  /\  ( M  gcd  N )  ||  N ) )
1716adantl 275 . 2  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  ( M  =  0  /\  N  =  0 ) )  -> 
( ( M  gcd  N )  ||  M  /\  ( M  gcd  N ) 
||  N ) )
18 gcdn0val 11916 . . . 4  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  ( M  gcd  N )  =  sup ( { n  e.  ZZ  |  ( n  ||  M  /\  n  ||  N
) } ,  RR ,  <  ) )
19 zssre 9219 . . . . . 6  |-  ZZ  C_  RR
20 gcdsupex 11912 . . . . . 6  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  E. x  e.  ZZ  ( A. y  e.  {
n  e.  ZZ  | 
( n  ||  M  /\  n  ||  N ) }  -.  x  < 
y  /\  A. y  e.  RR  ( y  < 
x  ->  E. z  e.  { n  e.  ZZ  |  ( n  ||  M  /\  n  ||  N
) } y  < 
z ) ) )
21 ssrexv 3212 . . . . . 6  |-  ( ZZ  C_  RR  ->  ( E. x  e.  ZZ  ( A. y  e.  { n  e.  ZZ  |  ( n 
||  M  /\  n  ||  N ) }  -.  x  <  y  /\  A. y  e.  RR  (
y  <  x  ->  E. z  e.  { n  e.  ZZ  |  ( n 
||  M  /\  n  ||  N ) } y  <  z ) )  ->  E. x  e.  RR  ( A. y  e.  {
n  e.  ZZ  | 
( n  ||  M  /\  n  ||  N ) }  -.  x  < 
y  /\  A. y  e.  RR  ( y  < 
x  ->  E. z  e.  { n  e.  ZZ  |  ( n  ||  M  /\  n  ||  N
) } y  < 
z ) ) ) )
2219, 20, 21mpsyl 65 . . . . 5  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  E. x  e.  RR  ( A. y  e.  {
n  e.  ZZ  | 
( n  ||  M  /\  n  ||  N ) }  -.  x  < 
y  /\  A. y  e.  RR  ( y  < 
x  ->  E. z  e.  { n  e.  ZZ  |  ( n  ||  M  /\  n  ||  N
) } y  < 
z ) ) )
23 ssrab2 3232 . . . . . 6  |-  { n  e.  ZZ  |  ( n 
||  M  /\  n  ||  N ) }  C_  ZZ
2423a1i 9 . . . . 5  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  { n  e.  ZZ  |  ( n 
||  M  /\  n  ||  N ) }  C_  ZZ )
2522, 24suprzclex 9310 . . . 4  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  sup ( { n  e.  ZZ  |  ( n 
||  M  /\  n  ||  N ) } ,  RR ,  <  )  e. 
{ n  e.  ZZ  |  ( n  ||  M  /\  n  ||  N
) } )
2618, 25eqeltrd 2247 . . 3  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  ( M  gcd  N )  e.  { n  e.  ZZ  |  ( n 
||  M  /\  n  ||  N ) } )
27 gcdn0cl 11917 . . . . 5  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  ( M  gcd  N )  e.  NN )
2827nnzd 9333 . . . 4  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  ( M  gcd  N )  e.  ZZ )
29 breq1 3992 . . . . . 6  |-  ( n  =  ( M  gcd  N )  ->  ( n  ||  M  <->  ( M  gcd  N )  ||  M ) )
30 breq1 3992 . . . . . 6  |-  ( n  =  ( M  gcd  N )  ->  ( n  ||  N  <->  ( M  gcd  N )  ||  N ) )
3129, 30anbi12d 470 . . . . 5  |-  ( n  =  ( M  gcd  N )  ->  ( (
n  ||  M  /\  n  ||  N )  <->  ( ( M  gcd  N )  ||  M  /\  ( M  gcd  N )  ||  N ) ) )
3231elrab3 2887 . . . 4  |-  ( ( M  gcd  N )  e.  ZZ  ->  (
( M  gcd  N
)  e.  { n  e.  ZZ  |  ( n 
||  M  /\  n  ||  N ) }  <->  ( ( M  gcd  N )  ||  M  /\  ( M  gcd  N )  ||  N ) ) )
3328, 32syl 14 . . 3  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  ( ( M  gcd  N )  e. 
{ n  e.  ZZ  |  ( n  ||  M  /\  n  ||  N
) }  <->  ( ( M  gcd  N )  ||  M  /\  ( M  gcd  N )  ||  N ) ) )
3426, 33mpbid 146 . 2  |-  ( ( ( M  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( M  =  0  /\  N  =  0 ) )  ->  ( ( M  gcd  N )  ||  M  /\  ( M  gcd  N )  ||  N ) )
35 gcdmndc 11899 . . 3  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  -> DECID  ( M  =  0  /\  N  =  0 ) )
36 exmiddc 831 . . 3  |-  (DECID  ( M  =  0  /\  N  =  0 )  -> 
( ( M  =  0  /\  N  =  0 )  \/  -.  ( M  =  0  /\  N  =  0
) ) )
3735, 36syl 14 . 2  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  ( ( M  =  0  /\  N  =  0 )  \/  -.  ( M  =  0  /\  N  =  0
) ) )
3817, 34, 37mpjaodan 793 1  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  ( ( M  gcd  N )  ||  M  /\  ( M  gcd  N ) 
||  N ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 103    <-> wb 104    \/ wo 703  DECID wdc 829    = wceq 1348    e. wcel 2141   A.wral 2448   E.wrex 2449   {crab 2452    C_ wss 3121   class class class wbr 3989  (class class class)co 5853   supcsup 6959   RRcr 7773   0cc0 7774    < clt 7954   ZZcz 9212    || cdvds 11749    gcd cgcd 11897
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 609  ax-in2 610  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-coll 4104  ax-sep 4107  ax-nul 4115  ax-pow 4160  ax-pr 4194  ax-un 4418  ax-setind 4521  ax-iinf 4572  ax-cnex 7865  ax-resscn 7866  ax-1cn 7867  ax-1re 7868  ax-icn 7869  ax-addcl 7870  ax-addrcl 7871  ax-mulcl 7872  ax-mulrcl 7873  ax-addcom 7874  ax-mulcom 7875  ax-addass 7876  ax-mulass 7877  ax-distr 7878  ax-i2m1 7879  ax-0lt1 7880  ax-1rid 7881  ax-0id 7882  ax-rnegex 7883  ax-precex 7884  ax-cnre 7885  ax-pre-ltirr 7886  ax-pre-ltwlin 7887  ax-pre-lttrn 7888  ax-pre-apti 7889  ax-pre-ltadd 7890  ax-pre-mulgt0 7891  ax-pre-mulext 7892  ax-arch 7893  ax-caucvg 7894
This theorem depends on definitions:  df-bi 116  df-dc 830  df-3or 974  df-3an 975  df-tru 1351  df-fal 1354  df-nf 1454  df-sb 1756  df-eu 2022  df-mo 2023  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ne 2341  df-nel 2436  df-ral 2453  df-rex 2454  df-reu 2455  df-rmo 2456  df-rab 2457  df-v 2732  df-sbc 2956  df-csb 3050  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-nul 3415  df-if 3527  df-pw 3568  df-sn 3589  df-pr 3590  df-op 3592  df-uni 3797  df-int 3832  df-iun 3875  df-br 3990  df-opab 4051  df-mpt 4052  df-tr 4088  df-id 4278  df-po 4281  df-iso 4282  df-iord 4351  df-on 4353  df-ilim 4354  df-suc 4356  df-iom 4575  df-xp 4617  df-rel 4618  df-cnv 4619  df-co 4620  df-dm 4621  df-rn 4622  df-res 4623  df-ima 4624  df-iota 5160  df-fun 5200  df-fn 5201  df-f 5202  df-f1 5203  df-fo 5204  df-f1o 5205  df-fv 5206  df-riota 5809  df-ov 5856  df-oprab 5857  df-mpo 5858  df-1st 6119  df-2nd 6120  df-recs 6284  df-frec 6370  df-sup 6961  df-pnf 7956  df-mnf 7957  df-xr 7958  df-ltxr 7959  df-le 7960  df-sub 8092  df-neg 8093  df-reap 8494  df-ap 8501  df-div 8590  df-inn 8879  df-2 8937  df-3 8938  df-4 8939  df-n0 9136  df-z 9213  df-uz 9488  df-q 9579  df-rp 9611  df-fz 9966  df-fzo 10099  df-fl 10226  df-mod 10279  df-seqfrec 10402  df-exp 10476  df-cj 10806  df-re 10807  df-im 10808  df-rsqrt 10962  df-abs 10963  df-dvds 11750  df-gcd 11898
This theorem is referenced by:  zeqzmulgcd  11925  divgcdz  11926  divgcdnn  11930  gcd0id  11934  gcdneg  11937  gcdaddm  11939  gcd1  11942  dvdsgcdb  11968  dfgcd2  11969  mulgcd  11971  gcdzeq  11977  dvdsmulgcd  11980  sqgcd  11984  dvdssqlem  11985  bezoutr  11987  gcddvdslcm  12027  lcmgcdlem  12031  lcmgcdeq  12037  coprmgcdb  12042  ncoprmgcdne1b  12043  mulgcddvds  12048  rpmulgcd2  12049  qredeu  12051  rpdvds  12053  divgcdcoprm0  12055  divgcdodd  12097  coprm  12098  rpexp  12107  divnumden  12150  phimullem  12179  hashgcdlem  12192  hashgcdeq  12193  phisum  12194  pythagtriplem4  12222  pythagtriplem19  12236  pcgcd1  12281  pc2dvds  12283  pockthlem  12308  2sqlem8  13753
  Copyright terms: Public domain W3C validator