Theorem wsuceq2

Description: Equality theorem for well-founded successor. (Contributed by Scott Fenton, 13-Jun-2018)

	Ref	Expression
Assertion	wsuceq2	$$⊢A=B\to wsuc\left(R,A,X\right)=wsuc\left(R,B,X\right)$$

Proof

Step	Hyp	Ref	Expression
1		eqid	$$⊢R=R$$
2		eqid	$$⊢X=X$$
3		wsuceq123	$$⊢\left(R=R\wedge A=B\wedge X=X\right)\to wsuc\left(R,A,X\right)=wsuc\left(R,B,X\right)$$
4	1 2 3	mp3an13	$$⊢A=B\to wsuc\left(R,A,X\right)=wsuc\left(R,B,X\right)$$