Theorem modlt 13933

Description: The modulo operation is less than its second argument. (Contributed by NM, 10-Nov-2008.)

Assertion

Ref	Expression
modlt	⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐴 mod 𝐵) < 𝐵)

Proof of Theorem modlt

Step	Hyp	Ref	Expression
1		recn 11208	. . . . 5 ⊢ (𝐴 ∈ ℝ → 𝐴 ∈ ℂ)
2		rpcnne0 13053	. . . . 5 ⊢ (𝐵 ∈ ℝ+ → (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0))
3		divcan2 11898	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) → (𝐵 · (𝐴 / 𝐵)) = 𝐴)
4	3	3expb 1138	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0)) → (𝐵 · (𝐴 / 𝐵)) = 𝐴)
5	1, 2, 4	syl2an 608	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐵 · (𝐴 / 𝐵)) = 𝐴)
6	5	oveq1d 7438	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → ((𝐵 · (𝐴 / 𝐵)) − (𝐵 · (⌊‘(𝐴 / 𝐵)))) = (𝐴 − (𝐵 · (⌊‘(𝐴 / 𝐵)))))
7		rpcn 13045	. . . . 5 ⊢ (𝐵 ∈ ℝ+ → 𝐵 ∈ ℂ)
8	7	adantl 487	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → 𝐵 ∈ ℂ)
9		rerpdivcl 13066	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐴 / 𝐵) ∈ ℝ)
10	9	recnd 11255	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐴 / 𝐵) ∈ ℂ)
11		refldivcl 13876	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (⌊‘(𝐴 / 𝐵)) ∈ ℝ)
12	11	recnd 11255	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (⌊‘(𝐴 / 𝐵)) ∈ ℂ)
13	8, 10, 12	subdid 11688	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐵 · ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵)))) = ((𝐵 · (𝐴 / 𝐵)) − (𝐵 · (⌊‘(𝐴 / 𝐵)))))
14		modval 13924	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐴 mod 𝐵) = (𝐴 − (𝐵 · (⌊‘(𝐴 / 𝐵)))))
15	6, 13, 14	3eqtr4rd 2812	. 2 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐴 mod 𝐵) = (𝐵 · ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵)))))
16		fraclt1 13855	. . . . 5 ⊢ ((𝐴 / 𝐵) ∈ ℝ → ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵))) < 1)
17	9, 16	syl 18	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵))) < 1)
18		divid 11920	. . . . . 6 ⊢ ((𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) → (𝐵 / 𝐵) = 1)
19	2, 18	syl 18	. . . . 5 ⊢ (𝐵 ∈ ℝ+ → (𝐵 / 𝐵) = 1)
20	19	adantl 487	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐵 / 𝐵) = 1)
21	17, 20	breqtrrd 5144	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵))) < (𝐵 / 𝐵))
22	9, 11	resubcld 11660	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵))) ∈ ℝ)
23		rpre 13043	. . . . 5 ⊢ (𝐵 ∈ ℝ+ → 𝐵 ∈ ℝ)
24	23	adantl 487	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → 𝐵 ∈ ℝ)
25		rpregt0 13049	. . . . 5 ⊢ (𝐵 ∈ ℝ+ → (𝐵 ∈ ℝ ∧ 0 < 𝐵))
26	25	adantl 487	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐵 ∈ ℝ ∧ 0 < 𝐵))
27		ltmuldiv2 12107	. . . 4 ⊢ ((((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵))) ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐵 ∈ ℝ ∧ 0 < 𝐵)) → ((𝐵 · ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵)))) < 𝐵 ↔ ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵))) < (𝐵 / 𝐵)))
28	22, 24, 26, 27	syl3anc 1398	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → ((𝐵 · ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵)))) < 𝐵 ↔ ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵))) < (𝐵 / 𝐵)))
29	21, 28	mpbird 260	. 2 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐵 · ((𝐴 / 𝐵) − (⌊‘(𝐴 / 𝐵)))) < 𝐵)
30	15, 29	eqbrtrd 5138	1 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (𝐴 mod 𝐵) < 𝐵)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146   ≠ wne 2961   class class class wbr 5114  ‘cfv 6543  (class class class)co 7423  ℂcc 11116  ℝcr 11117  0cc0 11118  1c1 11119   · cmul 11123   < clt 11261   − cmin 11459   / cdiv 11889  ℝ⁺crp 13034  ⌊cfl 13843   mod cmo 13922

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195  ax-pre-sup 11196

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-er 8703  df-en 8953  df-dom 8954  df-sdom 8955  df-sup 9412  df-inf 9413  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-div 11890  df-nn 12252  df-n0 12523  df-z 12610  df-uz 12881  df-rp 13035  df-fl 13845  df-mod 13923

This theorem is used by:  modelico  13934  zmodfz  13946  modid2  13951  modabs  13957  modaddmodup  13990  modsubdir  13996  digit1  14293  cshwidxmod  14866  repswcshw  14875  divalgmod  16489  bitsmod  16519  bitsinv1lem  16524  bezoutlem3  16624  eucalglt  16668  odzdvds  16880  fldivp1  16982  4sqlem6  17028  4sqlem12  17041  mndodcong  19643  oddvds  19648  gexdvds  19685  zringlpirlem3  21651  sineq0  26726  efif1olem2  26745  lgseisenlem1  27576  irrapxlem1  43590  pellfund14  43666  jm2.19  43761  sineq0ALT  45686  fourierswlem  46985  fouriersw  46986  gpg3nbgrvtx0  48882