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

Theorem nnsub 8872
Description: Subtraction of positive integers. (Contributed by NM, 20-Aug-2001.) (Revised by Mario Carneiro, 16-May-2014.)
Assertion
Ref Expression
nnsub  |-  ( ( A  e.  NN  /\  B  e.  NN )  ->  ( A  <  B  <->  ( B  -  A )  e.  NN ) )

Proof of Theorem nnsub
Dummy variables  z  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 breq2 3969 . . . . . 6  |-  ( x  =  1  ->  (
z  <  x  <->  z  <  1 ) )
2 oveq1 5831 . . . . . . 7  |-  ( x  =  1  ->  (
x  -  z )  =  ( 1  -  z ) )
32eleq1d 2226 . . . . . 6  |-  ( x  =  1  ->  (
( x  -  z
)  e.  NN  <->  ( 1  -  z )  e.  NN ) )
41, 3imbi12d 233 . . . . 5  |-  ( x  =  1  ->  (
( z  <  x  ->  ( x  -  z
)  e.  NN )  <-> 
( z  <  1  ->  ( 1  -  z
)  e.  NN ) ) )
54ralbidv 2457 . . . 4  |-  ( x  =  1  ->  ( A. z  e.  NN  ( z  <  x  ->  ( x  -  z
)  e.  NN )  <->  A. z  e.  NN  ( z  <  1  ->  ( 1  -  z
)  e.  NN ) ) )
6 breq2 3969 . . . . . 6  |-  ( x  =  y  ->  (
z  <  x  <->  z  <  y ) )
7 oveq1 5831 . . . . . . 7  |-  ( x  =  y  ->  (
x  -  z )  =  ( y  -  z ) )
87eleq1d 2226 . . . . . 6  |-  ( x  =  y  ->  (
( x  -  z
)  e.  NN  <->  ( y  -  z )  e.  NN ) )
96, 8imbi12d 233 . . . . 5  |-  ( x  =  y  ->  (
( z  <  x  ->  ( x  -  z
)  e.  NN )  <-> 
( z  <  y  ->  ( y  -  z
)  e.  NN ) ) )
109ralbidv 2457 . . . 4  |-  ( x  =  y  ->  ( A. z  e.  NN  ( z  <  x  ->  ( x  -  z
)  e.  NN )  <->  A. z  e.  NN  ( z  <  y  ->  ( y  -  z
)  e.  NN ) ) )
11 breq2 3969 . . . . . 6  |-  ( x  =  ( y  +  1 )  ->  (
z  <  x  <->  z  <  ( y  +  1 ) ) )
12 oveq1 5831 . . . . . . 7  |-  ( x  =  ( y  +  1 )  ->  (
x  -  z )  =  ( ( y  +  1 )  -  z ) )
1312eleq1d 2226 . . . . . 6  |-  ( x  =  ( y  +  1 )  ->  (
( x  -  z
)  e.  NN  <->  ( (
y  +  1 )  -  z )  e.  NN ) )
1411, 13imbi12d 233 . . . . 5  |-  ( x  =  ( y  +  1 )  ->  (
( z  <  x  ->  ( x  -  z
)  e.  NN )  <-> 
( z  <  (
y  +  1 )  ->  ( ( y  +  1 )  -  z )  e.  NN ) ) )
1514ralbidv 2457 . . . 4  |-  ( x  =  ( y  +  1 )  ->  ( A. z  e.  NN  ( z  <  x  ->  ( x  -  z
)  e.  NN )  <->  A. z  e.  NN  ( z  <  (
y  +  1 )  ->  ( ( y  +  1 )  -  z )  e.  NN ) ) )
16 breq2 3969 . . . . . 6  |-  ( x  =  B  ->  (
z  <  x  <->  z  <  B ) )
17 oveq1 5831 . . . . . . 7  |-  ( x  =  B  ->  (
x  -  z )  =  ( B  -  z ) )
1817eleq1d 2226 . . . . . 6  |-  ( x  =  B  ->  (
( x  -  z
)  e.  NN  <->  ( B  -  z )  e.  NN ) )
1916, 18imbi12d 233 . . . . 5  |-  ( x  =  B  ->  (
( z  <  x  ->  ( x  -  z
)  e.  NN )  <-> 
( z  <  B  ->  ( B  -  z
)  e.  NN ) ) )
2019ralbidv 2457 . . . 4  |-  ( x  =  B  ->  ( A. z  e.  NN  ( z  <  x  ->  ( x  -  z
)  e.  NN )  <->  A. z  e.  NN  ( z  <  B  ->  ( B  -  z
)  e.  NN ) ) )
21 nnnlt1 8859 . . . . . 6  |-  ( z  e.  NN  ->  -.  z  <  1 )
2221pm2.21d 609 . . . . 5  |-  ( z  e.  NN  ->  (
z  <  1  ->  ( 1  -  z )  e.  NN ) )
2322rgen 2510 . . . 4  |-  A. z  e.  NN  ( z  <  1  ->  ( 1  -  z )  e.  NN )
24 breq1 3968 . . . . . . 7  |-  ( z  =  x  ->  (
z  <  y  <->  x  <  y ) )
25 oveq2 5832 . . . . . . . 8  |-  ( z  =  x  ->  (
y  -  z )  =  ( y  -  x ) )
2625eleq1d 2226 . . . . . . 7  |-  ( z  =  x  ->  (
( y  -  z
)  e.  NN  <->  ( y  -  x )  e.  NN ) )
2724, 26imbi12d 233 . . . . . 6  |-  ( z  =  x  ->  (
( z  <  y  ->  ( y  -  z
)  e.  NN )  <-> 
( x  <  y  ->  ( y  -  x
)  e.  NN ) ) )
2827cbvralv 2680 . . . . 5  |-  ( A. z  e.  NN  (
z  <  y  ->  ( y  -  z )  e.  NN )  <->  A. x  e.  NN  ( x  < 
y  ->  ( y  -  x )  e.  NN ) )
29 nncn 8841 . . . . . . . . . . . . 13  |-  ( y  e.  NN  ->  y  e.  CC )
3029adantr 274 . . . . . . . . . . . 12  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  y  e.  CC )
31 ax-1cn 7825 . . . . . . . . . . . 12  |-  1  e.  CC
32 pncan 8081 . . . . . . . . . . . 12  |-  ( ( y  e.  CC  /\  1  e.  CC )  ->  ( ( y  +  1 )  -  1 )  =  y )
3330, 31, 32sylancl 410 . . . . . . . . . . 11  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( ( y  +  1 )  -  1 )  =  y )
34 simpl 108 . . . . . . . . . . 11  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  y  e.  NN )
3533, 34eqeltrd 2234 . . . . . . . . . 10  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( ( y  +  1 )  -  1 )  e.  NN )
36 oveq2 5832 . . . . . . . . . . 11  |-  ( z  =  1  ->  (
( y  +  1 )  -  z )  =  ( ( y  +  1 )  - 
1 ) )
3736eleq1d 2226 . . . . . . . . . 10  |-  ( z  =  1  ->  (
( ( y  +  1 )  -  z
)  e.  NN  <->  ( (
y  +  1 )  -  1 )  e.  NN ) )
3835, 37syl5ibrcom 156 . . . . . . . . 9  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( z  =  1  ->  ( ( y  +  1 )  -  z )  e.  NN ) )
3938a1dd 48 . . . . . . . 8  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( z  =  1  ->  ( z  < 
( y  +  1 )  ->  ( (
y  +  1 )  -  z )  e.  NN ) ) )
4039a1dd 48 . . . . . . 7  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( z  =  1  ->  ( A. x  e.  NN  ( x  < 
y  ->  ( y  -  x )  e.  NN )  ->  ( z  < 
( y  +  1 )  ->  ( (
y  +  1 )  -  z )  e.  NN ) ) ) )
41 breq1 3968 . . . . . . . . . 10  |-  ( x  =  ( z  - 
1 )  ->  (
x  <  y  <->  ( z  -  1 )  < 
y ) )
42 oveq2 5832 . . . . . . . . . . 11  |-  ( x  =  ( z  - 
1 )  ->  (
y  -  x )  =  ( y  -  ( z  -  1 ) ) )
4342eleq1d 2226 . . . . . . . . . 10  |-  ( x  =  ( z  - 
1 )  ->  (
( y  -  x
)  e.  NN  <->  ( y  -  ( z  - 
1 ) )  e.  NN ) )
4441, 43imbi12d 233 . . . . . . . . 9  |-  ( x  =  ( z  - 
1 )  ->  (
( x  <  y  ->  ( y  -  x
)  e.  NN )  <-> 
( ( z  - 
1 )  <  y  ->  ( y  -  (
z  -  1 ) )  e.  NN ) ) )
4544rspcv 2812 . . . . . . . 8  |-  ( ( z  -  1 )  e.  NN  ->  ( A. x  e.  NN  ( x  <  y  -> 
( y  -  x
)  e.  NN )  ->  ( ( z  -  1 )  < 
y  ->  ( y  -  ( z  - 
1 ) )  e.  NN ) ) )
46 nnre 8840 . . . . . . . . . . 11  |-  ( z  e.  NN  ->  z  e.  RR )
47 nnre 8840 . . . . . . . . . . 11  |-  ( y  e.  NN  ->  y  e.  RR )
48 1re 7877 . . . . . . . . . . . 12  |-  1  e.  RR
49 ltsubadd 8307 . . . . . . . . . . . 12  |-  ( ( z  e.  RR  /\  1  e.  RR  /\  y  e.  RR )  ->  (
( z  -  1 )  <  y  <->  z  <  ( y  +  1 ) ) )
5048, 49mp3an2 1307 . . . . . . . . . . 11  |-  ( ( z  e.  RR  /\  y  e.  RR )  ->  ( ( z  - 
1 )  <  y  <->  z  <  ( y  +  1 ) ) )
5146, 47, 50syl2anr 288 . . . . . . . . . 10  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( ( z  - 
1 )  <  y  <->  z  <  ( y  +  1 ) ) )
52 nncn 8841 . . . . . . . . . . . 12  |-  ( z  e.  NN  ->  z  e.  CC )
53 subsub3 8107 . . . . . . . . . . . . 13  |-  ( ( y  e.  CC  /\  z  e.  CC  /\  1  e.  CC )  ->  (
y  -  ( z  -  1 ) )  =  ( ( y  +  1 )  -  z ) )
5431, 53mp3an3 1308 . . . . . . . . . . . 12  |-  ( ( y  e.  CC  /\  z  e.  CC )  ->  ( y  -  (
z  -  1 ) )  =  ( ( y  +  1 )  -  z ) )
5529, 52, 54syl2an 287 . . . . . . . . . . 11  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( y  -  (
z  -  1 ) )  =  ( ( y  +  1 )  -  z ) )
5655eleq1d 2226 . . . . . . . . . 10  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( ( y  -  ( z  -  1 ) )  e.  NN  <->  ( ( y  +  1 )  -  z )  e.  NN ) )
5751, 56imbi12d 233 . . . . . . . . 9  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( ( ( z  -  1 )  < 
y  ->  ( y  -  ( z  - 
1 ) )  e.  NN )  <->  ( z  <  ( y  +  1 )  ->  ( (
y  +  1 )  -  z )  e.  NN ) ) )
5857biimpd 143 . . . . . . . 8  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( ( ( z  -  1 )  < 
y  ->  ( y  -  ( z  - 
1 ) )  e.  NN )  ->  (
z  <  ( y  +  1 )  -> 
( ( y  +  1 )  -  z
)  e.  NN ) ) )
5945, 58syl9r 73 . . . . . . 7  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( ( z  - 
1 )  e.  NN  ->  ( A. x  e.  NN  ( x  < 
y  ->  ( y  -  x )  e.  NN )  ->  ( z  < 
( y  +  1 )  ->  ( (
y  +  1 )  -  z )  e.  NN ) ) ) )
60 nn1m1nn 8851 . . . . . . . 8  |-  ( z  e.  NN  ->  (
z  =  1  \/  ( z  -  1 )  e.  NN ) )
6160adantl 275 . . . . . . 7  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( z  =  1  \/  ( z  - 
1 )  e.  NN ) )
6240, 59, 61mpjaod 708 . . . . . 6  |-  ( ( y  e.  NN  /\  z  e.  NN )  ->  ( A. x  e.  NN  ( x  < 
y  ->  ( y  -  x )  e.  NN )  ->  ( z  < 
( y  +  1 )  ->  ( (
y  +  1 )  -  z )  e.  NN ) ) )
6362ralrimdva 2537 . . . . 5  |-  ( y  e.  NN  ->  ( A. x  e.  NN  ( x  <  y  -> 
( y  -  x
)  e.  NN )  ->  A. z  e.  NN  ( z  <  (
y  +  1 )  ->  ( ( y  +  1 )  -  z )  e.  NN ) ) )
6428, 63syl5bi 151 . . . 4  |-  ( y  e.  NN  ->  ( A. z  e.  NN  ( z  <  y  ->  ( y  -  z
)  e.  NN )  ->  A. z  e.  NN  ( z  <  (
y  +  1 )  ->  ( ( y  +  1 )  -  z )  e.  NN ) ) )
655, 10, 15, 20, 23, 64nnind 8849 . . 3  |-  ( B  e.  NN  ->  A. z  e.  NN  ( z  < 
B  ->  ( B  -  z )  e.  NN ) )
66 breq1 3968 . . . . 5  |-  ( z  =  A  ->  (
z  <  B  <->  A  <  B ) )
67 oveq2 5832 . . . . . 6  |-  ( z  =  A  ->  ( B  -  z )  =  ( B  -  A ) )
6867eleq1d 2226 . . . . 5  |-  ( z  =  A  ->  (
( B  -  z
)  e.  NN  <->  ( B  -  A )  e.  NN ) )
6966, 68imbi12d 233 . . . 4  |-  ( z  =  A  ->  (
( z  <  B  ->  ( B  -  z
)  e.  NN )  <-> 
( A  <  B  ->  ( B  -  A
)  e.  NN ) ) )
7069rspcva 2814 . . 3  |-  ( ( A  e.  NN  /\  A. z  e.  NN  (
z  <  B  ->  ( B  -  z )  e.  NN ) )  ->  ( A  < 
B  ->  ( B  -  A )  e.  NN ) )
7165, 70sylan2 284 . 2  |-  ( ( A  e.  NN  /\  B  e.  NN )  ->  ( A  <  B  ->  ( B  -  A
)  e.  NN ) )
72 nngt0 8858 . . 3  |-  ( ( B  -  A )  e.  NN  ->  0  <  ( B  -  A
) )
73 nnre 8840 . . . 4  |-  ( A  e.  NN  ->  A  e.  RR )
74 nnre 8840 . . . 4  |-  ( B  e.  NN  ->  B  e.  RR )
75 posdif 8330 . . . 4  |-  ( ( A  e.  RR  /\  B  e.  RR )  ->  ( A  <  B  <->  0  <  ( B  -  A ) ) )
7673, 74, 75syl2an 287 . . 3  |-  ( ( A  e.  NN  /\  B  e.  NN )  ->  ( A  <  B  <->  0  <  ( B  -  A ) ) )
7772, 76syl5ibr 155 . 2  |-  ( ( A  e.  NN  /\  B  e.  NN )  ->  ( ( B  -  A )  e.  NN  ->  A  <  B ) )
7871, 77impbid 128 1  |-  ( ( A  e.  NN  /\  B  e.  NN )  ->  ( A  <  B  <->  ( B  -  A )  e.  NN ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103    <-> wb 104    \/ wo 698    = wceq 1335    e. wcel 2128   A.wral 2435   class class class wbr 3965  (class class class)co 5824   CCcc 7730   RRcr 7731   0cc0 7732   1c1 7733    + caddc 7735    < clt 7912    - cmin 8046   NNcn 8833
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 1427  ax-7 1428  ax-gen 1429  ax-ie1 1473  ax-ie2 1474  ax-8 1484  ax-10 1485  ax-11 1486  ax-i12 1487  ax-bndl 1489  ax-4 1490  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-13 2130  ax-14 2131  ax-ext 2139  ax-sep 4082  ax-pow 4135  ax-pr 4169  ax-un 4393  ax-setind 4496  ax-cnex 7823  ax-resscn 7824  ax-1cn 7825  ax-1re 7826  ax-icn 7827  ax-addcl 7828  ax-addrcl 7829  ax-mulcl 7830  ax-addcom 7832  ax-addass 7834  ax-distr 7836  ax-i2m1 7837  ax-0lt1 7838  ax-0id 7840  ax-rnegex 7841  ax-cnre 7843  ax-pre-ltirr 7844  ax-pre-ltwlin 7845  ax-pre-lttrn 7846  ax-pre-ltadd 7848
This theorem depends on definitions:  df-bi 116  df-3an 965  df-tru 1338  df-fal 1341  df-nf 1441  df-sb 1743  df-eu 2009  df-mo 2010  df-clab 2144  df-cleq 2150  df-clel 2153  df-nfc 2288  df-ne 2328  df-nel 2423  df-ral 2440  df-rex 2441  df-reu 2442  df-rab 2444  df-v 2714  df-sbc 2938  df-dif 3104  df-un 3106  df-in 3108  df-ss 3115  df-pw 3545  df-sn 3566  df-pr 3567  df-op 3569  df-uni 3773  df-int 3808  df-br 3966  df-opab 4026  df-id 4253  df-xp 4592  df-rel 4593  df-cnv 4594  df-co 4595  df-dm 4596  df-iota 5135  df-fun 5172  df-fv 5178  df-riota 5780  df-ov 5827  df-oprab 5828  df-mpo 5829  df-pnf 7914  df-mnf 7915  df-xr 7916  df-ltxr 7917  df-le 7918  df-sub 8048  df-neg 8049  df-inn 8834
This theorem is referenced by:  nnsubi  8873  uz3m2nn  9484
  Copyright terms: Public domain W3C validator