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

Theorem nnacl 6124
Description: Closure of addition of natural numbers. Proposition 8.9 of [TakeutiZaring] p. 59. (Contributed by NM, 20-Sep-1995.) (Proof shortened by Andrew Salmon, 22-Oct-2011.)
Assertion
Ref Expression
nnacl  |-  ( ( A  e.  om  /\  B  e.  om )  ->  ( A  +o  B
)  e.  om )

Proof of Theorem nnacl
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oveq2 5551 . . . . 5  |-  ( x  =  B  ->  ( A  +o  x )  =  ( A  +o  B
) )
21eleq1d 2148 . . . 4  |-  ( x  =  B  ->  (
( A  +o  x
)  e.  om  <->  ( A  +o  B )  e.  om ) )
32imbi2d 228 . . 3  |-  ( x  =  B  ->  (
( A  e.  om  ->  ( A  +o  x
)  e.  om )  <->  ( A  e.  om  ->  ( A  +o  B )  e.  om ) ) )
4 oveq2 5551 . . . . 5  |-  ( x  =  (/)  ->  ( A  +o  x )  =  ( A  +o  (/) ) )
54eleq1d 2148 . . . 4  |-  ( x  =  (/)  ->  ( ( A  +o  x )  e.  om  <->  ( A  +o  (/) )  e.  om ) )
6 oveq2 5551 . . . . 5  |-  ( x  =  y  ->  ( A  +o  x )  =  ( A  +o  y
) )
76eleq1d 2148 . . . 4  |-  ( x  =  y  ->  (
( A  +o  x
)  e.  om  <->  ( A  +o  y )  e.  om ) )
8 oveq2 5551 . . . . 5  |-  ( x  =  suc  y  -> 
( A  +o  x
)  =  ( A  +o  suc  y ) )
98eleq1d 2148 . . . 4  |-  ( x  =  suc  y  -> 
( ( A  +o  x )  e.  om  <->  ( A  +o  suc  y
)  e.  om )
)
10 nna0 6118 . . . . . 6  |-  ( A  e.  om  ->  ( A  +o  (/) )  =  A )
1110eleq1d 2148 . . . . 5  |-  ( A  e.  om  ->  (
( A  +o  (/) )  e. 
om 
<->  A  e.  om )
)
1211ibir 175 . . . 4  |-  ( A  e.  om  ->  ( A  +o  (/) )  e.  om )
13 peano2 4344 . . . . . 6  |-  ( ( A  +o  y )  e.  om  ->  suc  ( A  +o  y
)  e.  om )
14 nnasuc 6120 . . . . . . 7  |-  ( ( A  e.  om  /\  y  e.  om )  ->  ( A  +o  suc  y )  =  suc  ( A  +o  y
) )
1514eleq1d 2148 . . . . . 6  |-  ( ( A  e.  om  /\  y  e.  om )  ->  ( ( A  +o  suc  y )  e.  om  <->  suc  ( A  +o  y
)  e.  om )
)
1613, 15syl5ibr 154 . . . . 5  |-  ( ( A  e.  om  /\  y  e.  om )  ->  ( ( A  +o  y )  e.  om  ->  ( A  +o  suc  y )  e.  om ) )
1716expcom 114 . . . 4  |-  ( y  e.  om  ->  ( A  e.  om  ->  ( ( A  +o  y
)  e.  om  ->  ( A  +o  suc  y
)  e.  om )
) )
185, 7, 9, 12, 17finds2 4350 . . 3  |-  ( x  e.  om  ->  ( A  e.  om  ->  ( A  +o  x )  e.  om ) )
193, 18vtoclga 2665 . 2  |-  ( B  e.  om  ->  ( A  e.  om  ->  ( A  +o  B )  e.  om ) )
2019impcom 123 1  |-  ( ( A  e.  om  /\  B  e.  om )  ->  ( A  +o  B
)  e.  om )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 102    = wceq 1285    e. wcel 1434   (/)c0 3258   suc csuc 4128   omcom 4339  (class class class)co 5543    +o coa 6062
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 577  ax-in2 578  ax-io 663  ax-5 1377  ax-7 1378  ax-gen 1379  ax-ie1 1423  ax-ie2 1424  ax-8 1436  ax-10 1437  ax-11 1438  ax-i12 1439  ax-bndl 1440  ax-4 1441  ax-13 1445  ax-14 1446  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2064  ax-coll 3901  ax-sep 3904  ax-nul 3912  ax-pow 3956  ax-pr 3972  ax-un 4196  ax-setind 4288  ax-iinf 4337
This theorem depends on definitions:  df-bi 115  df-3an 922  df-tru 1288  df-fal 1291  df-nf 1391  df-sb 1687  df-eu 1945  df-mo 1946  df-clab 2069  df-cleq 2075  df-clel 2078  df-nfc 2209  df-ne 2247  df-ral 2354  df-rex 2355  df-reu 2356  df-rab 2358  df-v 2604  df-sbc 2817  df-csb 2910  df-dif 2976  df-un 2978  df-in 2980  df-ss 2987  df-nul 3259  df-pw 3392  df-sn 3412  df-pr 3413  df-op 3415  df-uni 3610  df-int 3645  df-iun 3688  df-br 3794  df-opab 3848  df-mpt 3849  df-tr 3884  df-id 4056  df-iord 4129  df-on 4131  df-suc 4134  df-iom 4340  df-xp 4377  df-rel 4378  df-cnv 4379  df-co 4380  df-dm 4381  df-rn 4382  df-res 4383  df-ima 4384  df-iota 4897  df-fun 4934  df-fn 4935  df-f 4936  df-f1 4937  df-fo 4938  df-f1o 4939  df-fv 4940  df-ov 5546  df-oprab 5547  df-mpt2 5548  df-1st 5798  df-2nd 5799  df-recs 5954  df-irdg 6019  df-oadd 6069
This theorem is referenced by:  nnmcl  6125  nnacli  6126  nnaass  6129  nndi  6130  nndir  6134  nnaordi  6147  nnaord  6148  nnaword  6150  addclpi  6579  nnppipi  6595  archnqq  6669  addcmpblnq0  6695  addclnq0  6703  nnanq0  6710  distrnq0  6711  addassnq0lemcl  6713  prarloclemlt  6745  prarloclemlo  6746  prarloclem3  6749  omgadd  9826  sizeunlem  9828  sizeun  9829
  Copyright terms: Public domain W3C validator