Theorem suceq 4549

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 3720	. . 3 |- ( A = B -> { A } = { B } )
3	1, 2	uneq12d 3384	. 2 |- ( A = B -> ( A u. { A } ) = ( B u. { B } ) )
4		df-suc 4518	. 2 |- suc A = ( A u. { A } )
5		df-suc 4518	. 2 |- suc B = ( B u. { B } )
6	3, 4, 5	3eqtr4g 2296	1 |- ( A = B -> suc A = suc B )

This proof depends on syntax axioms:   -> wi 4   = wceq 1402   u. cun 3218   {csn 3709   suc csuc 4512

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-ext 2220

This proof depends on definitions:  df-bi 117  df-tru 1405  df-nf 1514  df-sb 1816  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-v 2823  df-un 3224  df-sn 3715  df-suc 4518

This theorem is used by:  eqelsuc  4566  2ordpr  4673  onsucsssucexmid  4676  onsucelsucexmid  4679  ordsucunielexmid  4680  suc11g  4706  onsucuni2  4713  0elsucexmid  4714  ordpwsucexmid  4719  peano2  4744  findes  4752  nn0suc  4753  0elnn  4768  omsinds  4771  tfr1onlemsucaccv  6616  tfrcllemsucaccv  6629  tfrcl  6639  frecabcl  6674  frecsuc  6682  sucinc  6722  sucinc2  6723  oacl  6737  oav2  6740  oasuc  6741  oa1suc  6744  nna0r  6755  nnacom  6761  nnaass  6762  nnmsucr  6765  nnsucelsuc  6768  nnsucsssuc  6769  nnaword  6788  nnaordex  6805  phplem3g  7161  nneneq  7162  php5  7163  php5dom  7168  omp1eomlem  7440  omp1eom  7441  nninfninc  7469  nnnninfeq  7474  nnnninfeq2  7475  nninfwlpoimlemg  7521  nninfwlpoimlemginf  7522  nninfwlpoim  7525  nninfinfwlpo  7526  indpi  7715  ennnfoneleminc  13360  ennnfonelemex  13363  bj-indsuc  17159  bj-bdfindes  17180  bj-nn0suc0  17181  bj-peano4  17186  bj-inf2vnlem1  17201  bj-nn0sucALT  17209  bj-findes  17212  nnsf  17254  nninfsellemdc  17259  nninfself  17262  nninfsellemeqinf  17265  nninfomni  17268