Theorem suceq 4505

Description: Equality of successors. (Contributed by NM, 30-Aug-1993.) (Proof shortened by Andrew Salmon, 25-Jul-2011.)

Assertion

Ref	Expression
suceq	|- ( A = B -> suc A = suc B )

Proof of Theorem suceq

Step	Hyp	Ref	Expression
1		id 19	. . 3 |- ( A = B -> A = B )
2		sneq 3684	. . 3 |- ( A = B -> { A } = { B } )
3	1, 2	uneq12d 3364	. 2 |- ( A = B -> ( A u. { A } ) = ( B u. { B } ) )
4		df-suc 4474	. 2 |- suc A = ( A u. { A } )
5		df-suc 4474	. 2 |- suc B = ( B u. { B } )
6	3, 4, 5	3eqtr4g 2289	1 |- ( A = B -> suc A = suc B )

Syntax hints:   -> wi 4   = wceq 1398   u. cun 3199   {csn 3673   suc csuc 4468

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-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-ext 2213

This theorem depends on definitions:  df-bi 117  df-tru 1401  df-nf 1510  df-sb 1811  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-v 2805  df-un 3205  df-sn 3679  df-suc 4474

This theorem is referenced by:  eqelsuc  4522  2ordpr  4628  onsucsssucexmid  4631  onsucelsucexmid  4634  ordsucunielexmid  4635  suc11g  4661  onsucuni2  4668  0elsucexmid  4669  ordpwsucexmid  4674  peano2  4699  findes  4707  nn0suc  4708  0elnn  4723  omsinds  4726  tfr1onlemsucaccv  6550  tfrcllemsucaccv  6563  tfrcl  6573  frecabcl  6608  frecsuc  6616  sucinc  6656  sucinc2  6657  oacl  6671  oav2  6674  oasuc  6675  oa1suc  6678  nna0r  6689  nnacom  6695  nnaass  6696  nnmsucr  6699  nnsucelsuc  6702  nnsucsssuc  6703  nnaword  6722  nnaordex  6739  phplem3g  7085  nneneq  7086  php5  7087  php5dom  7092  omp1eomlem  7353  omp1eom  7354  nninfninc  7382  nnnninfeq  7387  nnnninfeq2  7388  nninfwlpoimlemg  7434  nninfwlpoimlemginf  7435  nninfwlpoim  7438  nninfinfwlpo  7439  indpi  7622  ennnfoneleminc  13112  ennnfonelemex  13115  bj-indsuc  16644  bj-bdfindes  16665  bj-nn0suc0  16666  bj-peano4  16671  bj-inf2vnlem1  16686  bj-nn0sucALT  16694  bj-findes  16697  nnsf  16731  nninfsellemdc  16736  nninfself  16739  nninfsellemeqinf  16742  nninfomni  16745