Step |
Hyp |
Ref |
Expression |
1 |
|
rhmresel.h |
|- ( ph -> H = ( RingHom |` ( B X. B ) ) ) |
2 |
1
|
adantr |
|- ( ( ph /\ ( X e. B /\ Y e. B ) ) -> H = ( RingHom |` ( B X. B ) ) ) |
3 |
2
|
oveqd |
|- ( ( ph /\ ( X e. B /\ Y e. B ) ) -> ( X H Y ) = ( X ( RingHom |` ( B X. B ) ) Y ) ) |
4 |
|
ovres |
|- ( ( X e. B /\ Y e. B ) -> ( X ( RingHom |` ( B X. B ) ) Y ) = ( X RingHom Y ) ) |
5 |
4
|
adantl |
|- ( ( ph /\ ( X e. B /\ Y e. B ) ) -> ( X ( RingHom |` ( B X. B ) ) Y ) = ( X RingHom Y ) ) |
6 |
3 5
|
eqtrd |
|- ( ( ph /\ ( X e. B /\ Y e. B ) ) -> ( X H Y ) = ( X RingHom Y ) ) |
7 |
6
|
eleq2d |
|- ( ( ph /\ ( X e. B /\ Y e. B ) ) -> ( F e. ( X H Y ) <-> F e. ( X RingHom Y ) ) ) |
8 |
7
|
biimp3a |
|- ( ( ph /\ ( X e. B /\ Y e. B ) /\ F e. ( X H Y ) ) -> F e. ( X RingHom Y ) ) |