Theorem exbtwnz 10176

Description: If a real number is between an integer and its successor, there is a unique greatest integer less than or equal to the real number. (Contributed by Jim Kingdon, 10-May-2022.)

Hypotheses

Ref	Expression
exbtwnz.ex	⊢ (𝜑 → ∃𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)))
exbtwnz.a	⊢ (𝜑 → 𝐴 ∈ ℝ)

Assertion

Ref	Expression
exbtwnz	⊢ (𝜑 → ∃!𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)))

Distinct variable groups:   𝑥,𝐴   𝜑,𝑥

Proof of Theorem exbtwnz

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		exbtwnz.ex	. 2 ⊢ (𝜑 → ∃𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)))
2		simplrl 525	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑥 ∈ ℤ)
3	2	zred 9304	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑥 ∈ ℝ)
4		exbtwnz.a	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
5	4	ad2antrr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝐴 ∈ ℝ)
6		simplrr 526	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑦 ∈ ℤ)
7	6	zred 9304	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑦 ∈ ℝ)
8		1red 7905	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 1 ∈ ℝ)
9	7, 8	readdcld 7919	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → (𝑦 + 1) ∈ ℝ)
10		simprll 527	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑥 ≤ 𝐴)
11		simprrr 530	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝐴 < (𝑦 + 1))
12	3, 5, 9, 10, 11	lelttrd 8014	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑥 < (𝑦 + 1))
13		zleltp1 9237	. . . . . . . 8 ⊢ ((𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ) → (𝑥 ≤ 𝑦 ↔ 𝑥 < (𝑦 + 1)))
14	2, 6, 13	syl2anc 409	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → (𝑥 ≤ 𝑦 ↔ 𝑥 < (𝑦 + 1)))
15	12, 14	mpbird 166	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑥 ≤ 𝑦)
16	3, 8	readdcld 7919	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → (𝑥 + 1) ∈ ℝ)
17		simprrl 529	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑦 ≤ 𝐴)
18		simprlr 528	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝐴 < (𝑥 + 1))
19	7, 5, 16, 17, 18	lelttrd 8014	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑦 < (𝑥 + 1))
20		zleltp1 9237	. . . . . . . 8 ⊢ ((𝑦 ∈ ℤ ∧ 𝑥 ∈ ℤ) → (𝑦 ≤ 𝑥 ↔ 𝑦 < (𝑥 + 1)))
21	6, 2, 20	syl2anc 409	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → (𝑦 ≤ 𝑥 ↔ 𝑦 < (𝑥 + 1)))
22	19, 21	mpbird 166	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑦 ≤ 𝑥)
23	3, 7	letri3d 8005	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → (𝑥 = 𝑦 ↔ (𝑥 ≤ 𝑦 ∧ 𝑦 ≤ 𝑥)))
24	15, 22, 23	mpbir2and 933	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) ∧ ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1)))) → 𝑥 = 𝑦)
25	24	ex 114	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ℤ ∧ 𝑦 ∈ ℤ)) → (((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1))) → 𝑥 = 𝑦))
26	25	ralrimivva 2546	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ ℤ ∀𝑦 ∈ ℤ (((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1))) → 𝑥 = 𝑦))
27		breq1 3979	. . . . 5 ⊢ (𝑥 = 𝑦 → (𝑥 ≤ 𝐴 ↔ 𝑦 ≤ 𝐴))
28		oveq1 5843	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑥 + 1) = (𝑦 + 1))
29	28	breq2d 3988	. . . . 5 ⊢ (𝑥 = 𝑦 → (𝐴 < (𝑥 + 1) ↔ 𝐴 < (𝑦 + 1)))
30	27, 29	anbi12d 465	. . . 4 ⊢ (𝑥 = 𝑦 → ((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ↔ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1))))
31	30	rmo4 2914	. . 3 ⊢ (∃*𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ↔ ∀𝑥 ∈ ℤ ∀𝑦 ∈ ℤ (((𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ (𝑦 ≤ 𝐴 ∧ 𝐴 < (𝑦 + 1))) → 𝑥 = 𝑦))
32	26, 31	sylibr 133	. 2 ⊢ (𝜑 → ∃*𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)))
33		reu5 2676	. 2 ⊢ (∃!𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ↔ (∃𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)) ∧ ∃*𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1))))
34	1, 32, 33	sylanbrc 414	1 ⊢ (𝜑 → ∃!𝑥 ∈ ℤ (𝑥 ≤ 𝐴 ∧ 𝐴 < (𝑥 + 1)))

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   ∈ wcel 2135  ∀wral 2442  ∃wrex 2443  ∃!wreu 2444  ∃*wrmo 2445   class class class wbr 3976  (class class class)co 5836  ℝcr 7743  1c1 7745   + caddc 7747   < clt 7924   ≤ cle 7925  ℤcz 9182

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1434  ax-7 1435  ax-gen 1436  ax-ie1 1480  ax-ie2 1481  ax-8 1491  ax-10 1492  ax-11 1493  ax-i12 1494  ax-bndl 1496  ax-4 1497  ax-17 1513  ax-i9 1517  ax-ial 1521  ax-i5r 1522  ax-13 2137  ax-14 2138  ax-ext 2146  ax-sep 4094  ax-pow 4147  ax-pr 4181  ax-un 4405  ax-setind 4508  ax-cnex 7835  ax-resscn 7836  ax-1cn 7837  ax-1re 7838  ax-icn 7839  ax-addcl 7840  ax-addrcl 7841  ax-mulcl 7842  ax-addcom 7844  ax-addass 7846  ax-distr 7848  ax-i2m1 7849  ax-0lt1 7850  ax-0id 7852  ax-rnegex 7853  ax-cnre 7855  ax-pre-ltirr 7856  ax-pre-ltwlin 7857  ax-pre-lttrn 7858  ax-pre-apti 7859  ax-pre-ltadd 7860

This theorem depends on definitions:  df-bi 116  df-3or 968  df-3an 969  df-tru 1345  df-fal 1348  df-nf 1448  df-sb 1750  df-eu 2016  df-mo 2017  df-clab 2151  df-cleq 2157  df-clel 2160  df-nfc 2295  df-ne 2335  df-nel 2430  df-ral 2447  df-rex 2448  df-reu 2449  df-rmo 2450  df-rab 2451  df-v 2723  df-sbc 2947  df-dif 3113  df-un 3115  df-in 3117  df-ss 3124  df-pw 3555  df-sn 3576  df-pr 3577  df-op 3579  df-uni 3784  df-int 3819  df-br 3977  df-opab 4038  df-id 4265  df-xp 4604  df-rel 4605  df-cnv 4606  df-co 4607  df-dm 4608  df-iota 5147  df-fun 5184  df-fv 5190  df-riota 5792  df-ov 5839  df-oprab 5840  df-mpo 5841  df-pnf 7926  df-mnf 7927  df-xr 7928  df-ltxr 7929  df-le 7930  df-sub 8062  df-neg 8063  df-inn 8849  df-n0 9106  df-z 9183

This theorem is referenced by:  qbtwnz  10177  apbtwnz  10199