Theorem exbtwnzlemex 10595

Description: Existence of an integer so that a given real number is between the integer and its successor. The real number must satisfy the n <_ A \/ A < n hypothesis. For example either a rational number or a number which is irrational (in the sense of being apart from any rational number) will meet this condition.

The proof starts by finding two integers which are less than and greater than A. Then this range can be shrunk by choosing an integer in between the endpoints of the range and then deciding which half of the range to keep based on the n <_ A \/ A < n hypothesis, and iterating until the range consists of two consecutive integers. (Contributed by Jim Kingdon, 8-Oct-2021.)

Hypotheses

Ref	Expression
exbtwnzlemex.a	|- ( ph -> A e. RR )
exbtwnzlemex.tri	|- ( ( ph /\ n e. ZZ ) -> ( n <_ A \/ A < n ) )

Assertion

Ref	Expression
exbtwnzlemex	|- ( ph -> E. x e. ZZ ( x <_ A /\ A < ( x + 1 ) ) )

Distinct variable groups:   A, n   x, A   ph, n

Allowed substitution hint:   ph( x)

Proof of Theorem exbtwnzlemex

Dummy variables a j m y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		exbtwnzlemex.a	. . . 4 |- ( ph -> A e. RR )
2		btwnz 9683	. . . 4 |- ( A e. RR -> ( E. m e. ZZ m < A /\ E. j e. ZZ A < j ) )
3	1, 2	syl 14	. . 3 |- ( ph -> ( E. m e. ZZ m < A /\ E. j e. ZZ A < j ) )
4		reeanv 2713	. . 3 |- ( E. m e. ZZ E. j e. ZZ ( m < A /\ A < j ) <-> ( E. m e. ZZ m < A /\ E. j e. ZZ A < j ) )
5	3, 4	sylibr 134	. 2 |- ( ph -> E. m e. ZZ E. j e. ZZ ( m < A /\ A < j ) )
6		simplrl 537	. . . . . 6 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> m e. ZZ )
7	6	zred 9686	. . . . . . 7 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> m e. RR )
8	1	ad2antrr 488	. . . . . . 7 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> A e. RR )
9		simprl 531	. . . . . . 7 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> m < A )
10	7, 8, 9	ltled 8380	. . . . . 6 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> m <_ A )
11		simprr 533	. . . . . . 7 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> A < j )
12	6	zcnd 9687	. . . . . . . 8 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> m e. CC )
13		simplrr 538	. . . . . . . . 9 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> j e. ZZ )
14	13	zcnd 9687	. . . . . . . 8 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> j e. CC )
15	12, 14	pncan3d 8575	. . . . . . 7 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> ( m + ( j - m ) ) = j )
16	11, 15	breqtrrd 4130	. . . . . 6 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> A < ( m + ( j - m ) ) )
17		breq1 4105	. . . . . . . 8 |- ( y = m -> ( y <_ A <-> m <_ A ) )
18		oveq1 6048	. . . . . . . . 9 |- ( y = m -> ( y + ( j - m ) ) = ( m + ( j - m ) ) )
19	18	breq2d 4114	. . . . . . . 8 |- ( y = m -> ( A < ( y + ( j - m ) ) <-> A < ( m + ( j - m ) ) ) )
20	17, 19	anbi12d 473	. . . . . . 7 |- ( y = m -> ( ( y <_ A /\ A < ( y + ( j - m ) ) ) <-> ( m <_ A /\ A < ( m + ( j - m ) ) ) ) )
21	20	rspcev 2920	. . . . . 6 |- ( ( m e. ZZ /\ ( m <_ A /\ A < ( m + ( j - m ) ) ) ) -> E. y e. ZZ ( y <_ A /\ A < ( y + ( j - m ) ) ) )
22	6, 10, 16, 21	syl12anc 1272	. . . . 5 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> E. y e. ZZ ( y <_ A /\ A < ( y + ( j - m ) ) ) )
23	13	zred 9686	. . . . . . . 8 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> j e. RR )
24	7, 8, 23, 9, 11	lttrd 8387	. . . . . . 7 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> m < j )
25		znnsub 9615	. . . . . . . 8 |- ( ( m e. ZZ /\ j e. ZZ ) -> ( m < j <-> ( j - m ) e. NN ) )
26	25	ad2antlr 489	. . . . . . 7 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> ( m < j <-> ( j - m ) e. NN ) )
27	24, 26	mpbid 147	. . . . . 6 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> ( j - m ) e. NN )
28		exbtwnzlemex.tri	. . . . . . . . . 10 |- ( ( ph /\ n e. ZZ ) -> ( n <_ A \/ A < n ) )
29	28	ralrimiva 2615	. . . . . . . . 9 |- ( ph -> A. n e. ZZ ( n <_ A \/ A < n ) )
30		breq1 4105	. . . . . . . . . . 11 |- ( n = a -> ( n <_ A <-> a <_ A ) )
31		breq2 4106	. . . . . . . . . . 11 |- ( n = a -> ( A < n <-> A < a ) )
32	30, 31	orbi12d 801	. . . . . . . . . 10 |- ( n = a -> ( ( n <_ A \/ A < n ) <-> ( a <_ A \/ A < a ) ) )
33	32	cbvralv 2777	. . . . . . . . 9 |- ( A. n e. ZZ ( n <_ A \/ A < n ) <-> A. a e. ZZ ( a <_ A \/ A < a ) )
34	29, 33	sylib 122	. . . . . . . 8 |- ( ph -> A. a e. ZZ ( a <_ A \/ A < a ) )
35	34	ad2antrr 488	. . . . . . 7 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> A. a e. ZZ ( a <_ A \/ A < a ) )
36	35	r19.21bi 2630	. . . . . 6 |- ( ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) /\ a e. ZZ ) -> ( a <_ A \/ A < a ) )
37	27, 8, 36	exbtwnzlemshrink 10594	. . . . 5 |- ( ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) /\ E. y e. ZZ ( y <_ A /\ A < ( y + ( j - m ) ) ) ) -> E. x e. ZZ ( x <_ A /\ A < ( x + 1 ) ) )
38	22, 37	mpdan 421	. . . 4 |- ( ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) /\ ( m < A /\ A < j ) ) -> E. x e. ZZ ( x <_ A /\ A < ( x + 1 ) ) )
39	38	ex 115	. . 3 |- ( ( ph /\ ( m e. ZZ /\ j e. ZZ ) ) -> ( ( m < A /\ A < j ) -> E. x e. ZZ ( x <_ A /\ A < ( x + 1 ) ) ) )
40	39	rexlimdvva 2668	. 2 |- ( ph -> ( E. m e. ZZ E. j e. ZZ ( m < A /\ A < j ) -> E. x e. ZZ ( x <_ A /\ A < ( x + 1 ) ) ) )
41	5, 40	mpd 13	1 |- ( ph -> E. x e. ZZ ( x <_ A /\ A < ( x + 1 ) ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 716   e. wcel 2203   A.wral 2520   E.wrex 2521   class class class wbr 4102  (class class class)co 6041   RRcr 8114   1c1 8116   + caddc 8118   < clt 8296   <_ cle 8297   - cmin 8432   NNcn 9225   ZZcz 9563

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-sep 4221  ax-pow 4279  ax-pr 4314  ax-un 4545  ax-setind 4650  ax-cnex 8206  ax-resscn 8207  ax-1cn 8208  ax-1re 8209  ax-icn 8210  ax-addcl 8211  ax-addrcl 8212  ax-mulcl 8213  ax-addcom 8215  ax-addass 8217  ax-distr 8219  ax-i2m1 8220  ax-0lt1 8221  ax-0id 8223  ax-rnegex 8224  ax-cnre 8226  ax-pre-ltirr 8227  ax-pre-ltwlin 8228  ax-pre-lttrn 8229  ax-pre-ltadd 8231  ax-arch 8234

This theorem depends on definitions:  df-bi 117  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2814  df-sbc 3042  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-pw 3667  df-sn 3688  df-pr 3689  df-op 3691  df-uni 3908  df-int 3943  df-br 4103  df-opab 4165  df-id 4405  df-xp 4746  df-rel 4747  df-cnv 4748  df-co 4749  df-dm 4750  df-iota 5303  df-fun 5345  df-fv 5351  df-riota 5994  df-ov 6044  df-oprab 6045  df-mpo 6046  df-pnf 8298  df-mnf 8299  df-xr 8300  df-ltxr 8301  df-le 8302  df-sub 8434  df-neg 8435  df-inn 9226  df-n0 9485  df-z 9564

This theorem is referenced by:  qbtwnz  10597  apbtwnz  10620