Theorem relpeq3

Description: Equality theorem for relation-preserving functions. (Contributed by Eric Schmidt, 11-Oct-2025)

	Ref	Expression
Assertion	relpeq3	|- ( S = T -> ( H RelPres R , S ( A , B ) <-> H RelPres R , T ( A , B ) ) )

Proof

Step	Hyp	Ref	Expression
1		breq	|- ( S = T -> ( ( H ` x ) S ( H ` y ) <-> ( H ` x ) T ( H ` y ) ) )
2	1	imbi2d	|- ( S = T -> ( ( x R y -> ( H ` x ) S ( H ` y ) ) <-> ( x R y -> ( H ` x ) T ( H ` y ) ) ) )
3	2	2ralbidv	|- ( S = T -> ( A. x e. A A. y e. A ( x R y -> ( H ` x ) S ( H ` y ) ) <-> A. x e. A A. y e. A ( x R y -> ( H ` x ) T ( H ` y ) ) ) )
4	3	anbi2d	|- ( S = T -> ( ( H : A --> B /\ A. x e. A A. y e. A ( x R y -> ( H ` x ) S ( H ` y ) ) ) <-> ( H : A --> B /\ A. x e. A A. y e. A ( x R y -> ( H ` x ) T ( H ` y ) ) ) ) )
5		df-relp	|- ( H RelPres R , S ( A , B ) <-> ( H : A --> B /\ A. x e. A A. y e. A ( x R y -> ( H ` x ) S ( H ` y ) ) ) )
6		df-relp	|- ( H RelPres R , T ( A , B ) <-> ( H : A --> B /\ A. x e. A A. y e. A ( x R y -> ( H ` x ) T ( H ` y ) ) ) )
7	4 5 6	3bitr4g	|- ( S = T -> ( H RelPres R , S ( A , B ) <-> H RelPres R , T ( A , B ) ) )