Theorem dvdsle 16248

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 5150	. . . . . . . . . . . . 13 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑁 < 𝑀 ↔ 𝑁 < if(𝑀 ∈ ℤ, 𝑀, 1)))
2		oveq2 7411	. . . . . . . . . . . . . 14 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · 𝑀) = (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)))
3	2	neeq1d 3001	. . . . . . . . . . . . 13 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 1) → ((𝑛 · 𝑀) ≠ 𝑁 ↔ (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ 𝑁))
4	1, 3	imbi12d 345	. . . . . . . . . . . 12 ⊢ (𝑀 = if(𝑀 ∈ ℤ, 𝑀, 1) → ((𝑁 < 𝑀 → (𝑛 · 𝑀) ≠ 𝑁) ↔ (𝑁 < if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ 𝑁)))
5		breq1 5149	. . . . . . . . . . . . 13 ⊢ (𝑁 = if(𝑁 ∈ ℕ, 𝑁, 1) → (𝑁 < if(𝑀 ∈ ℤ, 𝑀, 1) ↔ if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1)))
6		neeq2 3005	. . . . . . . . . . . . 13 ⊢ (𝑁 = if(𝑁 ∈ ℕ, 𝑁, 1) → ((𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ 𝑁 ↔ (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1)))
7	5, 6	imbi12d 345	. . . . . . . . . . . 12 ⊢ (𝑁 = if(𝑁 ∈ ℕ, 𝑁, 1) → ((𝑁 < if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ 𝑁) ↔ (if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1))))
8		oveq1 7410	. . . . . . . . . . . . . 14 ⊢ (𝑛 = if(𝑛 ∈ ℤ, 𝑛, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) = (if(𝑛 ∈ ℤ, 𝑛, 1) · if(𝑀 ∈ ℤ, 𝑀, 1)))
9	8	neeq1d 3001	. . . . . . . . . . . . 13 ⊢ (𝑛 = if(𝑛 ∈ ℤ, 𝑛, 1) → ((𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1) ↔ (if(𝑛 ∈ ℤ, 𝑛, 1) · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1)))
10	9	imbi2d 341	. . . . . . . . . . . 12 ⊢ (𝑛 = if(𝑛 ∈ ℤ, 𝑛, 1) → ((if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1) → (𝑛 · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1)) ↔ (if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1) → (if(𝑛 ∈ ℤ, 𝑛, 1) · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1))))
11		1z 12587	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℤ
12	11	elimel 4595	. . . . . . . . . . . . 13 ⊢ if(𝑀 ∈ ℤ, 𝑀, 1) ∈ ℤ
13		1nn 12218	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ
14	13	elimel 4595	. . . . . . . . . . . . 13 ⊢ if(𝑁 ∈ ℕ, 𝑁, 1) ∈ ℕ
15	11	elimel 4595	. . . . . . . . . . . . 13 ⊢ if(𝑛 ∈ ℤ, 𝑛, 1) ∈ ℤ
16	12, 14, 15	dvdslelem 16247	. . . . . . . . . . . 12 ⊢ (if(𝑁 ∈ ℕ, 𝑁, 1) < if(𝑀 ∈ ℤ, 𝑀, 1) → (if(𝑛 ∈ ℤ, 𝑛, 1) · if(𝑀 ∈ ℤ, 𝑀, 1)) ≠ if(𝑁 ∈ ℕ, 𝑁, 1))
17	4, 7, 10, 16	dedth3h 4586	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑛 ∈ ℤ) → (𝑁 < 𝑀 → (𝑛 · 𝑀) ≠ 𝑁))
18	17	3expia 1122	. . . . . . . . . 10 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑛 ∈ ℤ → (𝑁 < 𝑀 → (𝑛 · 𝑀) ≠ 𝑁)))
19	18	com23 86	. . . . . . . . 9 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑁 < 𝑀 → (𝑛 ∈ ℤ → (𝑛 · 𝑀) ≠ 𝑁)))
20	19	3impia 1118	. . . . . . . 8 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) → (𝑛 ∈ ℤ → (𝑛 · 𝑀) ≠ 𝑁))
21	20	imp 408	. . . . . . 7 ⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) ∧ 𝑛 ∈ ℤ) → (𝑛 · 𝑀) ≠ 𝑁)
22	21	neneqd 2946	. . . . . 6 ⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) ∧ 𝑛 ∈ ℤ) → ¬ (𝑛 · 𝑀) = 𝑁)
23	22	nrexdv 3150	. . . . 5 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) → ¬ ∃𝑛 ∈ ℤ (𝑛 · 𝑀) = 𝑁)
24		nnz 12574	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
25		divides 16194	. . . . . . 7 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 ∥ 𝑁 ↔ ∃𝑛 ∈ ℤ (𝑛 · 𝑀) = 𝑁))
26	24, 25	sylan2 594	. . . . . 6 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 ↔ ∃𝑛 ∈ ℤ (𝑛 · 𝑀) = 𝑁))
27	26	3adant3 1133	. . . . 5 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) → (𝑀 ∥ 𝑁 ↔ ∃𝑛 ∈ ℤ (𝑛 · 𝑀) = 𝑁))
28	23, 27	mtbird 325	. . . 4 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 𝑁 < 𝑀) → ¬ 𝑀 ∥ 𝑁)
29	28	3expia 1122	. . 3 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑁 < 𝑀 → ¬ 𝑀 ∥ 𝑁))
30	29	con2d 134	. 2 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 → ¬ 𝑁 < 𝑀))
31		zre 12557	. . 3 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ ℝ)
32		nnre 12214	. . 3 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
33		lenlt 11287	. . 3 ⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑀 ≤ 𝑁 ↔ ¬ 𝑁 < 𝑀))
34	31, 32, 33	syl2an 597	. 2 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ≤ 𝑁 ↔ ¬ 𝑁 < 𝑀))
35	30, 34	sylibrd 259	1 ⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑀 ∥ 𝑁 → 𝑀 ≤ 𝑁))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107   ≠ wne 2941  ∃wrex 3071  ifcif 4526   class class class wbr 5146  (class class class)co 7403  ℝcr 11104  1c1 11106   · cmul 11110   < clt 11243   ≤ cle 11244  ℕcn 12207  ℤcz 12553   ∥ cdvds 16192

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5297  ax-nul 5304  ax-pow 5361  ax-pr 5425  ax-un 7719  ax-resscn 11162  ax-1cn 11163  ax-icn 11164  ax-addcl 11165  ax-addrcl 11166  ax-mulcl 11167  ax-mulrcl 11168  ax-mulcom 11169  ax-addass 11170  ax-mulass 11171  ax-distr 11172  ax-i2m1 11173  ax-1ne0 11174  ax-1rid 11175  ax-rnegex 11176  ax-rrecex 11177  ax-cnre 11178  ax-pre-lttri 11179  ax-pre-lttrn 11180  ax-pre-ltadd 11181  ax-pre-mulgt0 11182

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3965  df-nul 4321  df-if 4527  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4907  df-iun 4997  df-br 5147  df-opab 5209  df-mpt 5230  df-tr 5264  df-id 5572  df-eprel 5578  df-po 5586  df-so 5587  df-fr 5629  df-we 5631  df-xp 5680  df-rel 5681  df-cnv 5682  df-co 5683  df-dm 5684  df-rn 5685  df-res 5686  df-ima 5687  df-pred 6296  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6491  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-riota 7359  df-ov 7406  df-oprab 7407  df-mpo 7408  df-om 7850  df-2nd 7970  df-frecs 8260  df-wrecs 8291  df-recs 8365  df-rdg 8404  df-er 8698  df-en 8935  df-dom 8936  df-sdom 8937  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11441  df-neg 11442  df-nn 12208  df-n0 12468  df-z 12554  df-dvds 16193

This theorem is referenced by:  dvdsleabs  16249  dvdsssfz1  16256  fzm1ndvds  16260  fzo0dvdseq  16261  gcd1  16464  bezoutlem4  16479  dfgcd2  16483  gcdzeq  16489  bezoutr1  16501  lcmgcdlem  16538  qredeq  16589  isprm3  16615  prmdvdsfz  16637  isprm5  16639  maxprmfct  16641  isprm6  16646  prmfac1  16653  ncoprmlnprm  16659  pcpre1  16770  pcidlem  16800  pcprod  16823  pcfac  16827  pockthg  16834  prmreclem1  16844  prmreclem3  16846  prmreclem5  16848  1arith  16855  4sqlem11  16883  prmolelcmf  16976  gexcl2  19449  sylow1lem1  19458  sylow1lem5  19462  gexex  19712  ablfac1eu  19934  ablfaclem3  19948  znidomb  21100  dvdsflsumcom  26671  chtublem  26693  vmasum  26698  logfac2  26699  bposlem6  26771  lgsdir  26814  lgsdilem2  26815  lgsne0  26817  lgsqrlem2  26829  lgsquadlem2  26863  2sqlem8  26908  2sqblem  26913  2sqmod  26918  oddpwdc  33290  nn0prpw  35145  lcmineqlem20  40850  lcmineqlem22  40852  aks4d1p3  40880  aks4d1p6  40883  aks4d1p8d2  40887  aks4d1p8  40889  gcdle1d  41163  gcdle2d  41164  nznngen  43007  etransclem41  44925