Theorem nnacl 6448

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.

Step	Hyp	Ref	Expression
1		oveq2 5850	. . . . 5 |- ( x = B -> ( A +o x ) = ( A +o B ) )
2	1	eleq1d 2235	. . . 4 |- ( x = B -> ( ( A +o x ) e. om <-> ( A +o B ) e. om ) )
3	2	imbi2d 229	. . 3 |- ( x = B -> ( ( A e. om -> ( A +o x ) e. om ) <-> ( A e. om -> ( A +o B ) e. om ) ) )
4		oveq2 5850	. . . . 5 |- ( x = (/) -> ( A +o x ) = ( A +o (/) ) )
5	4	eleq1d 2235	. . . 4 |- ( x = (/) -> ( ( A +o x ) e. om <-> ( A +o (/) ) e. om ) )
6		oveq2 5850	. . . . 5 |- ( x = y -> ( A +o x ) = ( A +o y ) )
7	6	eleq1d 2235	. . . 4 |- ( x = y -> ( ( A +o x ) e. om <-> ( A +o y ) e. om ) )
8		oveq2 5850	. . . . 5 |- ( x = suc y -> ( A +o x ) = ( A +o suc y ) )
9	8	eleq1d 2235	. . . 4 |- ( x = suc y -> ( ( A +o x ) e. om <-> ( A +o suc y ) e. om ) )
10		nna0 6442	. . . . . 6 |- ( A e. om -> ( A +o (/) ) = A )
11	10	eleq1d 2235	. . . . 5 |- ( A e. om -> ( ( A +o (/) ) e. om <-> A e. om ) )
12	11	ibir 176	. . . 4 |- ( A e. om -> ( A +o (/) ) e. om )
13		peano2 4572	. . . . . 6 |- ( ( A +o y ) e. om -> suc ( A +o y ) e. om )
14		nnasuc 6444	. . . . . . 7 |- ( ( A e. om /\ y e. om ) -> ( A +o suc y ) = suc ( A +o y ) )
15	14	eleq1d 2235	. . . . . 6 |- ( ( A e. om /\ y e. om ) -> ( ( A +o suc y ) e. om <-> suc ( A +o y ) e. om ) )
16	13, 15	syl5ibr 155	. . . . 5 |- ( ( A e. om /\ y e. om ) -> ( ( A +o y ) e. om -> ( A +o suc y ) e. om ) )
17	16	expcom 115	. . . 4 |- ( y e. om -> ( A e. om -> ( ( A +o y ) e. om -> ( A +o suc y ) e. om ) ) )
18	5, 7, 9, 12, 17	finds2 4578	. . 3 |- ( x e. om -> ( A e. om -> ( A +o x ) e. om ) )
19	3, 18	vtoclga 2792	. 2 |- ( B e. om -> ( A e. om -> ( A +o B ) e. om ) )
20	19	impcom 124	1 |- ( ( A e. om /\ B e. om ) -> ( A +o B ) e. om )

Syntax hints:   -> wi 4   /\ wa 103   = wceq 1343   e. wcel 2136   (/)c0 3409   suc csuc 4343   omcom 4567  (class class class)co 5842   +o coa 6381

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 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-coll 4097  ax-sep 4100  ax-nul 4108  ax-pow 4153  ax-pr 4187  ax-un 4411  ax-setind 4514  ax-iinf 4565

This theorem depends on definitions:  df-bi 116  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-ne 2337  df-ral 2449  df-rex 2450  df-reu 2451  df-rab 2453  df-v 2728  df-sbc 2952  df-csb 3046  df-dif 3118  df-un 3120  df-in 3122  df-ss 3129  df-nul 3410  df-pw 3561  df-sn 3582  df-pr 3583  df-op 3585  df-uni 3790  df-int 3825  df-iun 3868  df-br 3983  df-opab 4044  df-mpt 4045  df-tr 4081  df-id 4271  df-iord 4344  df-on 4346  df-suc 4349  df-iom 4568  df-xp 4610  df-rel 4611  df-cnv 4612  df-co 4613  df-dm 4614  df-rn 4615  df-res 4616  df-ima 4617  df-iota 5153  df-fun 5190  df-fn 5191  df-f 5192  df-f1 5193  df-fo 5194  df-f1o 5195  df-fv 5196  df-ov 5845  df-oprab 5846  df-mpo 5847  df-1st 6108  df-2nd 6109  df-recs 6273  df-irdg 6338  df-oadd 6388

This theorem is referenced by:  nnmcl  6449  nnacli  6450  nnaass  6453  nndi  6454  nndir  6458  nnaordi  6476  nnaord  6477  nnaword  6479  addclpi  7268  nnppipi  7284  archnqq  7358  addcmpblnq0  7384  addclnq0  7392  nnanq0  7399  distrnq0  7400  addassnq0lemcl  7402  prarloclemlt  7434  prarloclemlo  7435  prarloclem3  7438  omgadd  10715  hashunlem  10717  hashun  10718