Metamath Proof Explorer


Theorem elsucg

Description: Membership in a successor. Exercise 5 of TakeutiZaring p. 17. (Contributed by NM, 15-Sep-1995)

Ref Expression
Assertion elsucg AVAsucBABA=B

Proof

Step Hyp Ref Expression
1 df-suc sucB=BB
2 1 eleq2i AsucBABB
3 elun ABBABAB
4 2 3 bitri AsucBABAB
5 elsng AVABA=B
6 5 orbi2d AVABABABA=B
7 4 6 bitrid AVAsucBABA=B