Theorem dvdsle 16367

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	⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 → 𝑀 ≤ 𝑁))

Proof of Theorem dvdsle

Dummy variable 𝑛 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		breq2 5112	. . . . . . . . . . . . 13 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑁 < 𝑀 ↔ 𝑁 < if(𝑀 ∈ ℤ, 𝑀, 1)))
2		oveq2 7418	. . . . . . . . . . . . . 14 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · 𝑀) = (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)))
3	2	neeq1d 3015	. . . . . . . . . . . . 13 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 1) → ((𝑛 · 𝑀) ≠ 𝑁 ↔ (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ 𝑁))
4	1, 3	imbi12d 347	. . . . . . . . . . . 12 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 1) → ((𝑁 < 𝑀 → (𝑛 · 𝑀) ≠ 𝑁) ↔ (𝑁 < if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ 𝑁)))
5		breq1 5111	. . . . . . . . . . . . 13 ⊢ (𝑁 = if(𝑁 ∈ ℕ, 𝑁, 1) → (𝑁 < if(𝑀 ∈ ℤ, 𝑀, 1) ↔ if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1)))
6		neeq2 3019	. . . . . . . . . . . . 13 ⊢ (𝑁 = if(𝑁 ∈ ℕ, 𝑁, 1) → ((𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ 𝑁 ↔ (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1)))
7	5, 6	imbi12d 347	. . . . . . . . . . . 12 ⊢ (𝑁 = if(𝑁 ∈ ℕ, 𝑁, 1) → ((𝑁 < if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ 𝑁) ↔ (if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1))))
8		oveq1 7417	. . . . . . . . . . . . . 14 ⊢ (𝑛 = if(𝑛 ∈ ℤ, 𝑛, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) = (if(𝑛 ∈ ℤ, 𝑛, 1) · if(𝑀 ∈ ℤ, 𝑀, 1)))
9	8	neeq1d 3015	. . . . . . . . . . . . 13 ⊢ (𝑛 = if(𝑛 ∈ ℤ, 𝑛, 1) → ((𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1) ↔ (if(𝑛 ∈ ℤ, 𝑛, 1) · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1)))
10	9	imbi2d 343	. . . . . . . . . . . 12 ⊢ (𝑛 = if(𝑛 ∈ ℤ, 𝑛, 1) → ((if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1)) ↔ (if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1) → (if(𝑛 ∈ ℤ, 𝑛, 1) · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1))))
11		1z 12623	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℤ
12	11	elimel 4556	. . . . . . . . . . . . 13 ⊢ if(𝑀 ∈ ℤ, 𝑀, 1) ∈ ℤ
13		1nn 12243	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ
14	13	elimel 4556	. . . . . . . . . . . . 13 ⊢ if(𝑁 ∈ ℕ, 𝑁, 1) ∈ ℕ
15	11	elimel 4556	. . . . . . . . . . . . 13 ⊢ if(𝑛 ∈ ℤ, 𝑛, 1) ∈ ℤ
16	12, 14, 15	dvdslelem 16366	. . . . . . . . . . . 12 ⊢ (if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1) → (if(𝑛 ∈ ℤ, 𝑛, 1) · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1))
17	4, 7, 10, 16	dedth3h 4547	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑛 ∈ ℤ) → (𝑁 < 𝑀 → (𝑛 · 𝑀) ≠ 𝑁))
18	17	3expia 1137	. . . . . . . . . 10 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑛 ∈ ℤ → (𝑁 < 𝑀 → (𝑛 · 𝑀) ≠ 𝑁)))
19	18	com23 87	. . . . . . . . 9 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑁 < 𝑀 → (𝑛 ∈ ℤ → (𝑛 · 𝑀) ≠ 𝑁)))
20	19	3impia 1133	. . . . . . . 8 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) → (𝑛 ∈ ℤ → (𝑛 · 𝑀) ≠ 𝑁))
21	20	imp 411	. . . . . . 7 ⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) ∧ 𝑛 ∈ ℤ) → (𝑛 · 𝑀) ≠ 𝑁)
22	21	neneqd 2961	. . . . . 6 ⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) ∧ 𝑛 ∈ ℤ) → ¬ (𝑛 · 𝑀) = 𝑁)
23	22	nrexdv 3158	. . . . 5 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) → ¬ ∃𝑛 ∈ ℤ (𝑛 · 𝑀) = 𝑁)
24		nnz 12611	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
25		divides 16311	. . . . . . 7 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 ∥ 𝑁 ↔ ∃𝑛 ∈ ℤ (𝑛 · 𝑀) = 𝑁))
26	24, 25	sylan2 604	. . . . . 6 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 ↔ ∃𝑛 ∈ ℤ (𝑛 · 𝑀) = 𝑁))
27	26	3adant3 1148	. . . . 5 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) → (𝑀 ∥ 𝑁 ↔ ∃𝑛 ∈ ℤ (𝑛 · 𝑀) = 𝑁))
28	23, 27	mtbird 328	. . . 4 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) → ¬ 𝑀 ∥ 𝑁)
29	28	3expia 1137	. . 3 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑁 < 𝑀 → ¬ 𝑀 ∥ 𝑁))
30	29	con2d 135	. 2 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 → ¬ 𝑁 < 𝑀))
31		zre 12594	. . 3 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ ℝ)
32		nnre 12239	. . 3 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
33		lenlt 11287	. . 3 ⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑀 ≤ 𝑁 ↔ ¬ 𝑁 < 𝑀))
34	31, 32, 33	syl2an 607	. 2 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ≤ 𝑁 ↔ ¬ 𝑁 < 𝑀))
35	30, 34	sylibrd 262	1 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 → 𝑀 ≤ 𝑁))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1568   ∈ wcel 2141   ≠ wne 2956  ∃wrex 3087  ifcif 4486   class class class wbr 5108  (class class class)co 7410  ℝcr 11098  1c1 11100   · cmul 11104   < clt 11242   ≤ cle 11243  ℕcn 12232  ℤcz 12590   ∥ cdvds 16309

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-sep 5256  ax-nul 5268  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2095  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-iun 4957  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7862  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-er 8693  df-en 8943  df-dom 8944  df-sdom 8945  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-nn 12233  df-n0 12504  df-z 12591  df-dvds 16310

This theorem is referenced by:  dvdsleabs  16368  dvdsssfz1  16375  fzm1ndvds  16379  fzo0dvdseq  16380  gcd1  16585  bezoutlem4  16599  dfgcd2  16603  gcdzeq  16609  bezoutr1  16626  lcmgcdlem  16663  qredeq  16714  isprm3  16740  prmdvdsfz  16763  isprm5  16765  maxprmfct  16767  isprm6  16772  prmfac1  16778  ncoprmlnprm  16786  pcpre1  16901  pcidlem  16931  pcprod  16954  pcfac  16958  pockthg  16965  prmreclem1  16975  prmreclem3  16977  prmreclem5  16979  1arith  16986  4sqlem11  17014  prmolelcmf  17107  gexcl2  19658  sylow1lem1  19667  sylow1lem5  19671  gexex  19922  ablfac1eu  20144  ablfaclem3  20158  znidomb  21690  dvdsflsumcom  27328  chtublem  27351  vmasum  27356  logfac2  27357  bposlem6  27429  lgsdir  27472  lgsdilem2  27473  lgsne0  27475  lgsqrlem2  27487  lgsquadlem2  27521  2sqlem8  27566  2sqblem  27571  2sqmod  27576  oddpwdc  34710  nn0prpw  36800  lcmineqlem20  42783  lcmineqlem22  42785  aks4d1p3  42813  aks4d1p6  42816  aks4d1p8d2  42820  aks4d1p8  42822  primrootlekpowne0  42840  aks6d1c2lem4  42862  grpods  42929  unitscyglem2  42931  unitscyglem4  42933  gcdle1d  43059  gcdle2d  43060  nznngen  44996  etransclem41  46959