ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  exbtwnz Unicode version

Theorem exbtwnz 10573
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  |-  ( ph  ->  E. x  e.  ZZ  ( x  <_  A  /\  A  <  ( x  + 
1 ) ) )
exbtwnz.a  |-  ( ph  ->  A  e.  RR )
Assertion
Ref Expression
exbtwnz  |-  ( ph  ->  E! x  e.  ZZ  ( x  <_  A  /\  A  <  ( x  + 
1 ) ) )
Distinct variable groups:    x, A    ph, x

Proof of Theorem exbtwnz
Dummy variable  y is distinct from all other variables.
StepHypRef Expression
1 exbtwnz.ex . 2  |-  ( ph  ->  E. x  e.  ZZ  ( x  <_  A  /\  A  <  ( x  + 
1 ) ) )
2 simplrl 537 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  x  e.  ZZ )
32zred 9663 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  x  e.  RR )
4 exbtwnz.a . . . . . . . . 9  |-  ( ph  ->  A  e.  RR )
54ad2antrr 488 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  A  e.  RR )
6 simplrr 538 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  y  e.  ZZ )
76zred 9663 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  y  e.  RR )
8 1red 8254 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  1  e.  RR )
97, 8readdcld 8268 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  (
y  +  1 )  e.  RR )
10 simprll 539 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  x  <_  A )
11 simprrr 542 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  A  <  ( y  +  1 ) )
123, 5, 9, 10, 11lelttrd 8363 . . . . . . 7  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  x  <  ( y  +  1 ) )
13 zleltp1 9596 . . . . . . . 8  |-  ( ( x  e.  ZZ  /\  y  e.  ZZ )  ->  ( x  <_  y  <->  x  <  ( y  +  1 ) ) )
142, 6, 13syl2anc 411 . . . . . . 7  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  (
x  <_  y  <->  x  <  ( y  +  1 ) ) )
1512, 14mpbird 167 . . . . . 6  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  x  <_  y )
163, 8readdcld 8268 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  (
x  +  1 )  e.  RR )
17 simprrl 541 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  y  <_  A )
18 simprlr 540 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  A  <  ( x  +  1 ) )
197, 5, 16, 17, 18lelttrd 8363 . . . . . . 7  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  y  <  ( x  +  1 ) )
20 zleltp1 9596 . . . . . . . 8  |-  ( ( y  e.  ZZ  /\  x  e.  ZZ )  ->  ( y  <_  x  <->  y  <  ( x  + 
1 ) ) )
216, 2, 20syl2anc 411 . . . . . . 7  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  (
y  <_  x  <->  y  <  ( x  +  1 ) ) )
2219, 21mpbird 167 . . . . . 6  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  y  <_  x )
233, 7letri3d 8354 . . . . . 6  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  (
x  =  y  <->  ( x  <_  y  /\  y  <_  x ) ) )
2415, 22, 23mpbir2and 953 . . . . 5  |-  ( ( ( ph  /\  (
x  e.  ZZ  /\  y  e.  ZZ )
)  /\  ( (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )  ->  x  =  y )
2524ex 115 . . . 4  |-  ( (
ph  /\  ( x  e.  ZZ  /\  y  e.  ZZ ) )  -> 
( ( ( x  <_  A  /\  A  <  ( x  +  1 ) )  /\  (
y  <_  A  /\  A  <  ( y  +  1 ) ) )  ->  x  =  y ) )
2625ralrimivva 2615 . . 3  |-  ( ph  ->  A. x  e.  ZZ  A. y  e.  ZZ  (
( ( x  <_  A  /\  A  <  (
x  +  1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) )  ->  x  =  y )
)
27 breq1 4096 . . . . 5  |-  ( x  =  y  ->  (
x  <_  A  <->  y  <_  A ) )
28 oveq1 6035 . . . . . 6  |-  ( x  =  y  ->  (
x  +  1 )  =  ( y  +  1 ) )
2928breq2d 4105 . . . . 5  |-  ( x  =  y  ->  ( A  <  ( x  + 
1 )  <->  A  <  ( y  +  1 ) ) )
3027, 29anbi12d 473 . . . 4  |-  ( x  =  y  ->  (
( x  <_  A  /\  A  <  ( x  +  1 ) )  <-> 
( y  <_  A  /\  A  <  ( y  +  1 ) ) ) )
3130rmo4 3000 . . 3  |-  ( E* x  e.  ZZ  (
x  <_  A  /\  A  <  ( x  + 
1 ) )  <->  A. x  e.  ZZ  A. y  e.  ZZ  ( ( ( x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  ( y  <_  A  /\  A  <  ( y  +  1 ) ) )  ->  x  =  y ) )
3226, 31sylibr 134 . 2  |-  ( ph  ->  E* x  e.  ZZ  ( x  <_  A  /\  A  <  ( x  + 
1 ) ) )
33 reu5 2752 . 2  |-  ( E! x  e.  ZZ  (
x  <_  A  /\  A  <  ( x  + 
1 ) )  <->  ( E. x  e.  ZZ  (
x  <_  A  /\  A  <  ( x  + 
1 ) )  /\  E* x  e.  ZZ  ( x  <_  A  /\  A  <  ( x  + 
1 ) ) ) )
341, 32, 33sylanbrc 417 1  |-  ( ph  ->  E! x  e.  ZZ  ( x  <_  A  /\  A  <  ( x  + 
1 ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104    <-> wb 105    e. wcel 2202   A.wral 2511   E.wrex 2512   E!wreu 2513   E*wrmo 2514   class class class wbr 4093  (class class class)co 6028   RRcr 8091   1c1 8093    + caddc 8095    < clt 8273    <_ cle 8274   ZZcz 9540
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 2204  ax-14 2205  ax-ext 2213  ax-sep 4212  ax-pow 4270  ax-pr 4305  ax-un 4536  ax-setind 4641  ax-cnex 8183  ax-resscn 8184  ax-1cn 8185  ax-1re 8186  ax-icn 8187  ax-addcl 8188  ax-addrcl 8189  ax-mulcl 8190  ax-addcom 8192  ax-addass 8194  ax-distr 8196  ax-i2m1 8197  ax-0lt1 8198  ax-0id 8200  ax-rnegex 8201  ax-cnre 8203  ax-pre-ltirr 8204  ax-pre-ltwlin 8205  ax-pre-lttrn 8206  ax-pre-apti 8207  ax-pre-ltadd 8208
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 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-ne 2404  df-nel 2499  df-ral 2516  df-rex 2517  df-reu 2518  df-rmo 2519  df-rab 2520  df-v 2805  df-sbc 3033  df-dif 3203  df-un 3205  df-in 3207  df-ss 3214  df-pw 3658  df-sn 3679  df-pr 3680  df-op 3682  df-uni 3899  df-int 3934  df-br 4094  df-opab 4156  df-id 4396  df-xp 4737  df-rel 4738  df-cnv 4739  df-co 4740  df-dm 4741  df-iota 5293  df-fun 5335  df-fv 5341  df-riota 5981  df-ov 6031  df-oprab 6032  df-mpo 6033  df-pnf 8275  df-mnf 8276  df-xr 8277  df-ltxr 8278  df-le 8279  df-sub 8411  df-neg 8412  df-inn 9203  df-n0 9462  df-z 9541
This theorem is referenced by:  qbtwnz  10574  apbtwnz  10597
  Copyright terms: Public domain W3C validator