Theorem nnaddcl 12255

Description: Closure of addition of positive integers, proved by induction on the second addend. (Contributed by NM, 12-Jan-1997.)

Assertion

Ref	Expression
nnaddcl	⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 + 𝐵) ∈ ℕ)

Proof of Theorem nnaddcl

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 7419	. . . . 5 ⊢ (𝑥 = 1 → (𝐴 + 𝑥) = (𝐴 + 1))
2	1	eleq1d 2854	. . . 4 ⊢ (𝑥 = 1 → ((𝐴 + 𝑥) ∈ ℕ ↔ (𝐴 + 1) ∈ ℕ))
3	2	imbi2d 343	. . 3 ⊢ (𝑥 = 1 → ((𝐴 ∈ ℕ → (𝐴 + 𝑥) ∈ ℕ) ↔ (𝐴 ∈ ℕ → (𝐴 + 1) ∈ ℕ)))
4		oveq2 7419	. . . . 5 ⊢ (𝑥 = 𝑦 → (𝐴 + 𝑥) = (𝐴 + 𝑦))
5	4	eleq1d 2854	. . . 4 ⊢ (𝑥 = 𝑦 → ((𝐴 + 𝑥) ∈ ℕ ↔ (𝐴 + 𝑦) ∈ ℕ))
6	5	imbi2d 343	. . 3 ⊢ (𝑥 = 𝑦 → ((𝐴 ∈ ℕ → (𝐴 + 𝑥) ∈ ℕ) ↔ (𝐴 ∈ ℕ → (𝐴 + 𝑦) ∈ ℕ)))
7		oveq2 7419	. . . . 5 ⊢ (𝑥 = (𝑦 + 1) → (𝐴 + 𝑥) = (𝐴 + (𝑦 + 1)))
8	7	eleq1d 2854	. . . 4 ⊢ (𝑥 = (𝑦 + 1) → ((𝐴 + 𝑥) ∈ ℕ ↔ (𝐴 + (𝑦 + 1)) ∈ ℕ))
9	8	imbi2d 343	. . 3 ⊢ (𝑥 = (𝑦 + 1) → ((𝐴 ∈ ℕ → (𝐴 + 𝑥) ∈ ℕ) ↔ (𝐴 ∈ ℕ → (𝐴 + (𝑦 + 1)) ∈ ℕ)))
10		oveq2 7419	. . . . 5 ⊢ (𝑥 = 𝐵 → (𝐴 + 𝑥) = (𝐴 + 𝐵))
11	10	eleq1d 2854	. . . 4 ⊢ (𝑥 = 𝐵 → ((𝐴 + 𝑥) ∈ ℕ ↔ (𝐴 + 𝐵) ∈ ℕ))
12	11	imbi2d 343	. . 3 ⊢ (𝑥 = 𝐵 → ((𝐴 ∈ ℕ → (𝐴 + 𝑥) ∈ ℕ) ↔ (𝐴 ∈ ℕ → (𝐴 + 𝐵) ∈ ℕ)))
13		peano2nn 12244	. . 3 ⊢ (𝐴 ∈ ℕ → (𝐴 + 1) ∈ ℕ)
14		peano2nn 12244	. . . . . 6 ⊢ ((𝐴 + 𝑦) ∈ ℕ → ((𝐴 + 𝑦) + 1) ∈ ℕ)
15		nncn 12240	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℂ)
16		nncn 12240	. . . . . . . 8 ⊢ (𝑦 ∈ ℕ → 𝑦 ∈ ℂ)
17		ax-1cn 11157	. . . . . . . . 9 ⊢ 1 ∈ ℂ
18		addass 11186	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐴 + 𝑦) + 1) = (𝐴 + (𝑦 + 1)))
19	17, 18	mp3an3 1476	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝑦 ∈ ℂ) → ((𝐴 + 𝑦) + 1) = (𝐴 + (𝑦 + 1)))
20	15, 16, 19	syl2an 607	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ ∧ 𝑦 ∈ ℕ) → ((𝐴 + 𝑦) + 1) = (𝐴 + (𝑦 + 1)))
21	20	eleq1d 2854	. . . . . 6 ⊢ ((𝐴 ∈ ℕ ∧ 𝑦 ∈ ℕ) → (((𝐴 + 𝑦) + 1) ∈ ℕ ↔ (𝐴 + (𝑦 + 1)) ∈ ℕ))
22	14, 21	imbitrid 247	. . . . 5 ⊢ ((𝐴 ∈ ℕ ∧ 𝑦 ∈ ℕ) → ((𝐴 + 𝑦) ∈ ℕ → (𝐴 + (𝑦 + 1)) ∈ ℕ))
23	22	expcom 418	. . . 4 ⊢ (𝑦 ∈ ℕ → (𝐴 ∈ ℕ → ((𝐴 + 𝑦) ∈ ℕ → (𝐴 + (𝑦 + 1)) ∈ ℕ)))
24	23	a2d 30	. . 3 ⊢ (𝑦 ∈ ℕ → ((𝐴 ∈ ℕ → (𝐴 + 𝑦) ∈ ℕ) → (𝐴 ∈ ℕ → (𝐴 + (𝑦 + 1)) ∈ ℕ)))
25	3, 6, 9, 12, 13, 24	nnind 12250	. 2 ⊢ (𝐵 ∈ ℕ → (𝐴 ∈ ℕ → (𝐴 + 𝐵) ∈ ℕ))
26	25	impcom 412	1 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 + 𝐵) ∈ ℕ)

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1567   ∈ wcel 2149  (class class class)co 7411  ℂcc 11097  1c1 11100   + caddc 11102  ℕcn 12232

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pr 5405  ax-un 7733  ax-1cn 11157  ax-addcl 11159  ax-addass 11164

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-ov 7414  df-om 7862  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-nn 12233

This theorem is referenced by:  nnmulcl  12256  nnaddcld  12287  nnadddir  12291  nnnn0addcl  12533  nn0addcl  12538  zaddcl  12633  9p1e10  12712  pythagtriplem4  16878  vdwapun  17033  vdwap1  17036  vdwlem2  17041  prmgaplem7  17116  prmgapprmolem  17120  mulgnndir  19168  uniioombllem3  25712  ballotlem1  34821  ballotlem2  34823  ballotlemfmpn  34829  ballotlem4  34833  ballotlemimin  34840  ballotlemsdom  34846  ballotlemsel1i  34847  ballotlemfrceq  34863  ballotlemfrcn0  34864  ballotlem1ri  34869  ballotth  34872  nndivsub  36856  gbepos  48411  gbowpos  48412  nnsgrpmgm  48829