Theorem dnibndlem13 33822

Description: Lemma for dnibnd 33823. (Contributed by Asger C. Ipsen, 4-Apr-2021.)

Hypotheses

Ref	Expression
dnibndlem13.1	⊢ 𝑇 = (𝑥 ∈ ℝ ↦ (abs‘((⌊‘(𝑥 + (1 / 2))) − 𝑥)))
dnibndlem13.2	⊢ (𝜑 → 𝐴 ∈ ℝ)
dnibndlem13.3	⊢ (𝜑 → 𝐵 ∈ ℝ)
dnibndlem13.4	⊢ (𝜑 → (⌊‘(𝐴 + (1 / 2))) ≤ (⌊‘(𝐵 + (1 / 2))))

Assertion

Ref	Expression
dnibndlem13	⊢ (𝜑 → (abs‘((𝑇‘𝐵) − (𝑇‘𝐴))) ≤ (abs‘(𝐵 − 𝐴)))

Distinct variable groups:   𝑥,𝐴   𝑥,𝐵

Allowed substitution hints:   𝜑(𝑥)   𝑇(𝑥)

Proof of Theorem dnibndlem13

Step	Hyp	Ref	Expression
1		dnibndlem13.1	. . . 4 ⊢ 𝑇 = (𝑥 ∈ ℝ ↦ (abs‘((⌊‘(𝑥 + (1 / 2))) − 𝑥)))
2		dnibndlem13.2	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ ℝ)
3	2	ad2antrr 724	. . . 4 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2)))) → 𝐴 ∈ ℝ)
4		dnibndlem13.3	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ ℝ)
5	4	ad2antrr 724	. . . 4 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2)))) → 𝐵 ∈ ℝ)
6		simpr 487	. . . 4 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2)))) → ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2))))
7	1, 3, 5, 6	dnibndlem12 33821	. . 3 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2)))) → (abs‘((𝑇‘𝐵) − (𝑇‘𝐴))) ≤ (abs‘(𝐵 − 𝐴)))
8	2	ad2antrr 724	. . . 4 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2)))) → 𝐴 ∈ ℝ)
9	4	ad2antrr 724	. . . 4 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2)))) → 𝐵 ∈ ℝ)
10		simpr 487	. . . . 5 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2)))) → ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2))))
11	10	eqcomd 2825	. . . 4 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2)))) → (⌊‘(𝐵 + (1 / 2))) = ((⌊‘(𝐴 + (1 / 2))) + 1))
12	1, 8, 9, 11	dnibndlem9 33818	. . 3 ⊢ (((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) ∧ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2)))) → (abs‘((𝑇‘𝐵) − (𝑇‘𝐴))) ≤ (abs‘(𝐵 − 𝐴)))
13		simpr 487	. . . . . 6 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2))))
14		halfre 11843	. . . . . . . . . . . 12 ⊢ (1 / 2) ∈ ℝ
15	14	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (1 / 2) ∈ ℝ)
16	2, 15	readdcld 10662	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 + (1 / 2)) ∈ ℝ)
17	16	flcld 13160	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘(𝐴 + (1 / 2))) ∈ ℤ)
18	4, 15	readdcld 10662	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 + (1 / 2)) ∈ ℝ)
19	18	flcld 13160	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘(𝐵 + (1 / 2))) ∈ ℤ)
20	17, 19	jca 514	. . . . . . . 8 ⊢ (𝜑 → ((⌊‘(𝐴 + (1 / 2))) ∈ ℤ ∧ (⌊‘(𝐵 + (1 / 2))) ∈ ℤ))
21	20	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → ((⌊‘(𝐴 + (1 / 2))) ∈ ℤ ∧ (⌊‘(𝐵 + (1 / 2))) ∈ ℤ))
22		zltp1le 12024	. . . . . . 7 ⊢ (((⌊‘(𝐴 + (1 / 2))) ∈ ℤ ∧ (⌊‘(𝐵 + (1 / 2))) ∈ ℤ) → ((⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2))) ↔ ((⌊‘(𝐴 + (1 / 2))) + 1) ≤ (⌊‘(𝐵 + (1 / 2)))))
23	21, 22	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → ((⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2))) ↔ ((⌊‘(𝐴 + (1 / 2))) + 1) ≤ (⌊‘(𝐵 + (1 / 2)))))
24	13, 23	mpbid 234	. . . . 5 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → ((⌊‘(𝐴 + (1 / 2))) + 1) ≤ (⌊‘(𝐵 + (1 / 2))))
25		reflcl 13158	. . . . . . . . 9 ⊢ ((𝐴 + (1 / 2)) ∈ ℝ → (⌊‘(𝐴 + (1 / 2))) ∈ ℝ)
26	16, 25	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⌊‘(𝐴 + (1 / 2))) ∈ ℝ)
27		peano2re 10805	. . . . . . . 8 ⊢ ((⌊‘(𝐴 + (1 / 2))) ∈ ℝ → ((⌊‘(𝐴 + (1 / 2))) + 1) ∈ ℝ)
28	26, 27	syl 17	. . . . . . 7 ⊢ (𝜑 → ((⌊‘(𝐴 + (1 / 2))) + 1) ∈ ℝ)
29	28	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → ((⌊‘(𝐴 + (1 / 2))) + 1) ∈ ℝ)
30	19	zred 12079	. . . . . . 7 ⊢ (𝜑 → (⌊‘(𝐵 + (1 / 2))) ∈ ℝ)
31	30	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → (⌊‘(𝐵 + (1 / 2))) ∈ ℝ)
32	29, 31	leloed 10775	. . . . 5 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → (((⌊‘(𝐴 + (1 / 2))) + 1) ≤ (⌊‘(𝐵 + (1 / 2))) ↔ (((⌊‘(𝐴 + (1 / 2))) + 1) < (⌊‘(𝐵 + (1 / 2))) ∨ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2))))))
33	24, 32	mpbid 234	. . . 4 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → (((⌊‘(𝐴 + (1 / 2))) + 1) < (⌊‘(𝐵 + (1 / 2))) ∨ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2)))))
34	17	peano2zd 12082	. . . . . . . . . 10 ⊢ (𝜑 → ((⌊‘(𝐴 + (1 / 2))) + 1) ∈ ℤ)
35	34, 19	jca 514	. . . . . . . . 9 ⊢ (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + 1) ∈ ℤ ∧ (⌊‘(𝐵 + (1 / 2))) ∈ ℤ))
36		zltp1le 12024	. . . . . . . . 9 ⊢ ((((⌊‘(𝐴 + (1 / 2))) + 1) ∈ ℤ ∧ (⌊‘(𝐵 + (1 / 2))) ∈ ℤ) → (((⌊‘(𝐴 + (1 / 2))) + 1) < (⌊‘(𝐵 + (1 / 2))) ↔ (((⌊‘(𝐴 + (1 / 2))) + 1) + 1) ≤ (⌊‘(𝐵 + (1 / 2)))))
37	35, 36	syl 17	. . . . . . . 8 ⊢ (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + 1) < (⌊‘(𝐵 + (1 / 2))) ↔ (((⌊‘(𝐴 + (1 / 2))) + 1) + 1) ≤ (⌊‘(𝐵 + (1 / 2)))))
38	26	recnd 10661	. . . . . . . . . . 11 ⊢ (𝜑 → (⌊‘(𝐴 + (1 / 2))) ∈ ℂ)
39		1cnd 10628	. . . . . . . . . . 11 ⊢ (𝜑 → 1 ∈ ℂ)
40	38, 39, 39	addassd 10655	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + 1) + 1) = ((⌊‘(𝐴 + (1 / 2))) + (1 + 1)))
41		1p1e2 11754	. . . . . . . . . . . 12 ⊢ (1 + 1) = 2
42	41	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (1 + 1) = 2)
43	42	oveq2d 7164	. . . . . . . . . 10 ⊢ (𝜑 → ((⌊‘(𝐴 + (1 / 2))) + (1 + 1)) = ((⌊‘(𝐴 + (1 / 2))) + 2))
44	40, 43	eqtrd 2854	. . . . . . . . 9 ⊢ (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + 1) + 1) = ((⌊‘(𝐴 + (1 / 2))) + 2))
45	44	breq1d 5067	. . . . . . . 8 ⊢ (𝜑 → ((((⌊‘(𝐴 + (1 / 2))) + 1) + 1) ≤ (⌊‘(𝐵 + (1 / 2))) ↔ ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2)))))
46	37, 45	bitrd 281	. . . . . . 7 ⊢ (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + 1) < (⌊‘(𝐵 + (1 / 2))) ↔ ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2)))))
47	46	biimpd 231	. . . . . 6 ⊢ (𝜑 → (((⌊‘(𝐴 + (1 / 2))) + 1) < (⌊‘(𝐵 + (1 / 2))) → ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2)))))
48	47	adantr 483	. . . . 5 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → (((⌊‘(𝐴 + (1 / 2))) + 1) < (⌊‘(𝐵 + (1 / 2))) → ((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2)))))
49	48	orim1d 962	. . . 4 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → ((((⌊‘(𝐴 + (1 / 2))) + 1) < (⌊‘(𝐵 + (1 / 2))) ∨ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2)))) → (((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2))) ∨ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2))))))
50	33, 49	mpd 15	. . 3 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → (((⌊‘(𝐴 + (1 / 2))) + 2) ≤ (⌊‘(𝐵 + (1 / 2))) ∨ ((⌊‘(𝐴 + (1 / 2))) + 1) = (⌊‘(𝐵 + (1 / 2)))))
51	7, 12, 50	mpjaodan 955	. 2 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2)))) → (abs‘((𝑇‘𝐵) − (𝑇‘𝐴))) ≤ (abs‘(𝐵 − 𝐴)))
52	2	adantr 483	. . 3 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) = (⌊‘(𝐵 + (1 / 2)))) → 𝐴 ∈ ℝ)
53	4	adantr 483	. . 3 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) = (⌊‘(𝐵 + (1 / 2)))) → 𝐵 ∈ ℝ)
54		simpr 487	. . . 4 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) = (⌊‘(𝐵 + (1 / 2)))) → (⌊‘(𝐴 + (1 / 2))) = (⌊‘(𝐵 + (1 / 2))))
55	54	eqcomd 2825	. . 3 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) = (⌊‘(𝐵 + (1 / 2)))) → (⌊‘(𝐵 + (1 / 2))) = (⌊‘(𝐴 + (1 / 2))))
56	1, 52, 53, 55	dnibndlem2 33811	. 2 ⊢ ((𝜑 ∧ (⌊‘(𝐴 + (1 / 2))) = (⌊‘(𝐵 + (1 / 2)))) → (abs‘((𝑇‘𝐵) − (𝑇‘𝐴))) ≤ (abs‘(𝐵 − 𝐴)))
57		dnibndlem13.4	. . 3 ⊢ (𝜑 → (⌊‘(𝐴 + (1 / 2))) ≤ (⌊‘(𝐵 + (1 / 2))))
58	26, 30	leloed 10775	. . 3 ⊢ (𝜑 → ((⌊‘(𝐴 + (1 / 2))) ≤ (⌊‘(𝐵 + (1 / 2))) ↔ ((⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2))) ∨ (⌊‘(𝐴 + (1 / 2))) = (⌊‘(𝐵 + (1 / 2))))))
59	57, 58	mpbid 234	. 2 ⊢ (𝜑 → ((⌊‘(𝐴 + (1 / 2))) < (⌊‘(𝐵 + (1 / 2))) ∨ (⌊‘(𝐴 + (1 / 2))) = (⌊‘(𝐵 + (1 / 2)))))
60	51, 56, 59	mpjaodan 955	1 ⊢ (𝜑 → (abs‘((𝑇‘𝐵) − (𝑇‘𝐴))) ≤ (abs‘(𝐵 − 𝐴)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∨ wo 843   = wceq 1531   ∈ wcel 2108   class class class wbr 5057   ↦ cmpt 5137  ‘cfv 6348  (class class class)co 7148  ℝcr 10528  1c1 10530   + caddc 10532   < clt 10667   ≤ cle 10668   − cmin 10862   / cdiv 11289  2c2 11684  ℤcz 11973  ⌊cfl 13152  abscabs 14585

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1905  ax-6 1964  ax-7 2009  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2154  ax-12 2170  ax-ext 2791  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7453  ax-cnex 10585  ax-resscn 10586  ax-1cn 10587  ax-icn 10588  ax-addcl 10589  ax-addrcl 10590  ax-mulcl 10591  ax-mulrcl 10592  ax-mulcom 10593  ax-addass 10594  ax-mulass 10595  ax-distr 10596  ax-i2m1 10597  ax-1ne0 10598  ax-1rid 10599  ax-rnegex 10600  ax-rrecex 10601  ax-cnre 10602  ax-pre-lttri 10603  ax-pre-lttrn 10604  ax-pre-ltadd 10605  ax-pre-mulgt0 10606  ax-pre-sup 10607

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1083  df-3an 1084  df-tru 1534  df-ex 1775  df-nf 1779  df-sb 2064  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ne 3015  df-nel 3122  df-ral 3141  df-rex 3142  df-reu 3143  df-rmo 3144  df-rab 3145  df-v 3495  df-sbc 3771  df-csb 3882  df-dif 3937  df-un 3939  df-in 3941  df-ss 3950  df-pss 3952  df-nul 4290  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-uni 4831  df-iun 4912  df-br 5058  df-opab 5120  df-mpt 5138  df-tr 5164  df-id 5453  df-eprel 5458  df-po 5467  df-so 5468  df-fr 5507  df-we 5509  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-pred 6141  df-ord 6187  df-on 6188  df-lim 6189  df-suc 6190  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-om 7573  df-2nd 7682  df-wrecs 7939  df-recs 8000  df-rdg 8038  df-er 8281  df-en 8502  df-dom 8503  df-sdom 8504  df-sup 8898  df-inf 8899  df-pnf 10669  df-mnf 10670  df-xr 10671  df-ltxr 10672  df-le 10673  df-sub 10864  df-neg 10865  df-div 11290  df-nn 11631  df-2 11692  df-3 11693  df-n0 11890  df-z 11974  df-uz 12236  df-rp 12382  df-fl 13154  df-seq 13362  df-exp 13422  df-cj 14450  df-re 14451  df-im 14452  df-sqrt 14586  df-abs 14587

This theorem is referenced by:  dnibnd  33823