Users' Mathboxes Mathbox for Asger C. Ipsen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dnibndlem9 Structured version   Visualization version   GIF version

Theorem dnibndlem9 34949
Description: Lemma for dnibnd 34954. (Contributed by Asger C. Ipsen, 4-Apr-2021.)
Hypotheses
Ref Expression
dnibndlem9.1 𝑇 = (𝑥 ∈ ℝ ↦ (abs‘((⌊‘(𝑥 + (1 / 2))) − 𝑥)))
dnibndlem9.2 (𝜑𝐴 ∈ ℝ)
dnibndlem9.3 (𝜑𝐵 ∈ ℝ)
dnibndlem9.4 (𝜑 → (⌊‘(𝐵 + (1 / 2))) = ((⌊‘(𝐴 + (1 / 2))) + 1))
Assertion
Ref Expression
dnibndlem9 (𝜑 → (abs‘((𝑇𝐵) − (𝑇𝐴))) ≤ (abs‘(𝐵𝐴)))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵
Allowed substitution hints:   𝜑(𝑥)   𝑇(𝑥)

Proof of Theorem dnibndlem9
StepHypRef Expression
1 dnibndlem9.3 . . . . . . . 8 (𝜑𝐵 ∈ ℝ)
21dnicld1 34935 . . . . . . 7 (𝜑 → (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) ∈ ℝ)
32recnd 11183 . . . . . 6 (𝜑 → (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) ∈ ℂ)
4 dnibndlem9.2 . . . . . . . 8 (𝜑𝐴 ∈ ℝ)
54dnicld1 34935 . . . . . . 7 (𝜑 → (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)) ∈ ℝ)
65recnd 11183 . . . . . 6 (𝜑 → (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)) ∈ ℂ)
73, 6subcld 11512 . . . . 5 (𝜑 → ((abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴))) ∈ ℂ)
87abscld 15321 . . . 4 (𝜑 → (abs‘((abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))) ∈ ℝ)
9 halfre 12367 . . . . . . . 8 (1 / 2) ∈ ℝ
109a1i 11 . . . . . . 7 (𝜑 → (1 / 2) ∈ ℝ)
1110, 2jca 512 . . . . . 6 (𝜑 → ((1 / 2) ∈ ℝ ∧ (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) ∈ ℝ))
12 resubcl 11465 . . . . . 6 (((1 / 2) ∈ ℝ ∧ (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) ∈ ℝ) → ((1 / 2) − (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵))) ∈ ℝ)
1311, 12syl 17 . . . . 5 (𝜑 → ((1 / 2) − (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵))) ∈ ℝ)
1410, 5jca 512 . . . . . 6 (𝜑 → ((1 / 2) ∈ ℝ ∧ (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)) ∈ ℝ))
15 resubcl 11465 . . . . . 6 (((1 / 2) ∈ ℝ ∧ (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)) ∈ ℝ) → ((1 / 2) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴))) ∈ ℝ)
1614, 15syl 17 . . . . 5 (𝜑 → ((1 / 2) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴))) ∈ ℝ)
1713, 16readdcld 11184 . . . 4 (𝜑 → (((1 / 2) − (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵))) + ((1 / 2) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))) ∈ ℝ)
181recnd 11183 . . . . . . 7 (𝜑𝐵 ∈ ℂ)
191, 10readdcld 11184 . . . . . . . . . 10 (𝜑 → (𝐵 + (1 / 2)) ∈ ℝ)
20 reflcl 13701 . . . . . . . . . 10 ((𝐵 + (1 / 2)) ∈ ℝ → (⌊‘(𝐵 + (1 / 2))) ∈ ℝ)
2119, 20syl 17 . . . . . . . . 9 (𝜑 → (⌊‘(𝐵 + (1 / 2))) ∈ ℝ)
2221recnd 11183 . . . . . . . 8 (𝜑 → (⌊‘(𝐵 + (1 / 2))) ∈ ℂ)
2310recnd 11183 . . . . . . . 8 (𝜑 → (1 / 2) ∈ ℂ)
2422, 23subcld 11512 . . . . . . 7 (𝜑 → ((⌊‘(𝐵 + (1 / 2))) − (1 / 2)) ∈ ℂ)
2518, 24subcld 11512 . . . . . 6 (𝜑 → (𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) ∈ ℂ)
264, 10readdcld 11184 . . . . . . . . . 10 (𝜑 → (𝐴 + (1 / 2)) ∈ ℝ)
27 reflcl 13701 . . . . . . . . . 10 ((𝐴 + (1 / 2)) ∈ ℝ → (⌊‘(𝐴 + (1 / 2))) ∈ ℝ)
2826, 27syl 17 . . . . . . . . 9 (𝜑 → (⌊‘(𝐴 + (1 / 2))) ∈ ℝ)
2928recnd 11183 . . . . . . . 8 (𝜑 → (⌊‘(𝐴 + (1 / 2))) ∈ ℂ)
3029, 23addcld 11174 . . . . . . 7 (𝜑 → ((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) ∈ ℂ)
314recnd 11183 . . . . . . 7 (𝜑𝐴 ∈ ℂ)
3230, 31subcld 11512 . . . . . 6 (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴) ∈ ℂ)
3325, 32addcld 11174 . . . . 5 (𝜑 → ((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴)) ∈ ℂ)
3433abscld 15321 . . . 4 (𝜑 → (abs‘((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))) ∈ ℝ)
354, 1dnibndlem6 34946 . . . 4 (𝜑 → (abs‘((abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))) ≤ (((1 / 2) − (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵))) + ((1 / 2) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))))
3621, 10jca 512 . . . . . . . . 9 (𝜑 → ((⌊‘(𝐵 + (1 / 2))) ∈ ℝ ∧ (1 / 2) ∈ ℝ))
37 resubcl 11465 . . . . . . . . 9 (((⌊‘(𝐵 + (1 / 2))) ∈ ℝ ∧ (1 / 2) ∈ ℝ) → ((⌊‘(𝐵 + (1 / 2))) − (1 / 2)) ∈ ℝ)
3836, 37syl 17 . . . . . . . 8 (𝜑 → ((⌊‘(𝐵 + (1 / 2))) − (1 / 2)) ∈ ℝ)
391, 38jca 512 . . . . . . 7 (𝜑 → (𝐵 ∈ ℝ ∧ ((⌊‘(𝐵 + (1 / 2))) − (1 / 2)) ∈ ℝ))
40 resubcl 11465 . . . . . . 7 ((𝐵 ∈ ℝ ∧ ((⌊‘(𝐵 + (1 / 2))) − (1 / 2)) ∈ ℝ) → (𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) ∈ ℝ)
4139, 40syl 17 . . . . . 6 (𝜑 → (𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) ∈ ℝ)
4228, 10readdcld 11184 . . . . . . . 8 (𝜑 → ((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) ∈ ℝ)
4342, 4jca 512 . . . . . . 7 (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) ∈ ℝ ∧ 𝐴 ∈ ℝ))
44 resubcl 11465 . . . . . . 7 ((((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) ∈ ℝ ∧ 𝐴 ∈ ℝ) → (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴) ∈ ℝ)
4543, 44syl 17 . . . . . 6 (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴) ∈ ℝ)
461dnibndlem7 34947 . . . . . 6 (𝜑 → ((1 / 2) − (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵))) ≤ (𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))))
474dnibndlem8 34948 . . . . . 6 (𝜑 → ((1 / 2) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴))) ≤ (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))
4813, 16, 41, 45, 46, 47le2addd 11774 . . . . 5 (𝜑 → (((1 / 2) − (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵))) + ((1 / 2) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))) ≤ ((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴)))
4941, 45readdcld 11184 . . . . . . 7 (𝜑 → ((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴)) ∈ ℝ)
50 dnibndlem4 34944 . . . . . . . . 9 (𝐵 ∈ ℝ → 0 ≤ (𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))))
511, 50syl 17 . . . . . . . 8 (𝜑 → 0 ≤ (𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))))
52 0red 11158 . . . . . . . . 9 (𝜑 → 0 ∈ ℝ)
53 dnibndlem5 34945 . . . . . . . . . 10 (𝐴 ∈ ℝ → 0 < (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))
544, 53syl 17 . . . . . . . . 9 (𝜑 → 0 < (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))
5552, 45, 54ltled 11303 . . . . . . . 8 (𝜑 → 0 ≤ (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))
5641, 45, 51, 55addge0d 11731 . . . . . . 7 (𝜑 → 0 ≤ ((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴)))
5749, 56absidd 15307 . . . . . 6 (𝜑 → (abs‘((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))) = ((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴)))
5857eqcomd 2742 . . . . 5 (𝜑 → ((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴)) = (abs‘((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))))
5948, 58breqtrd 5131 . . . 4 (𝜑 → (((1 / 2) − (abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵))) + ((1 / 2) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))) ≤ (abs‘((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))))
608, 17, 34, 35, 59letrd 11312 . . 3 (𝜑 → (abs‘((abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))) ≤ (abs‘((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))))
61 dnibndlem9.1 . . . . 5 𝑇 = (𝑥 ∈ ℝ ↦ (abs‘((⌊‘(𝑥 + (1 / 2))) − 𝑥)))
62 dnibndlem9.4 . . . . 5 (𝜑 → (⌊‘(𝐵 + (1 / 2))) = ((⌊‘(𝐴 + (1 / 2))) + 1))
6361, 4, 1, 62dnibndlem3 34943 . . . 4 (𝜑 → (abs‘(𝐵𝐴)) = (abs‘((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))))
6463eqcomd 2742 . . 3 (𝜑 → (abs‘((𝐵 − ((⌊‘(𝐵 + (1 / 2))) − (1 / 2))) + (((⌊‘(𝐴 + (1 / 2))) + (1 / 2)) − 𝐴))) = (abs‘(𝐵𝐴)))
6560, 64breqtrd 5131 . 2 (𝜑 → (abs‘((abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))) ≤ (abs‘(𝐵𝐴)))
6661, 4, 1dnibndlem1 34941 . 2 (𝜑 → ((abs‘((𝑇𝐵) − (𝑇𝐴))) ≤ (abs‘(𝐵𝐴)) ↔ (abs‘((abs‘((⌊‘(𝐵 + (1 / 2))) − 𝐵)) − (abs‘((⌊‘(𝐴 + (1 / 2))) − 𝐴)))) ≤ (abs‘(𝐵𝐴))))
6765, 66mpbird 256 1 (𝜑 → (abs‘((𝑇𝐵) − (𝑇𝐴))) ≤ (abs‘(𝐵𝐴)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1541  wcel 2106   class class class wbr 5105  cmpt 5188  cfv 6496  (class class class)co 7357  cr 11050  0cc0 11051  1c1 11052   + caddc 11054   < clt 11189  cle 11190  cmin 11385   / cdiv 11812  2c2 12208  cfl 13695  abscabs 15119
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-om 7803  df-2nd 7922  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-er 8648  df-en 8884  df-dom 8885  df-sdom 8886  df-sup 9378  df-inf 9379  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-n0 12414  df-z 12500  df-uz 12764  df-rp 12916  df-fl 13697  df-seq 13907  df-exp 13968  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121
This theorem is referenced by:  dnibndlem13  34953
  Copyright terms: Public domain W3C validator