Metamath Proof Explorer


Theorem srhmsubclem3

Description: Lemma 3 for srhmsubc . (Contributed by AV, 19-Feb-2020)

Ref Expression
Hypotheses srhmsubc.s r S r Ring
srhmsubc.c C = U S
srhmsubc.j J = r C , s C r RingHom s
Assertion srhmsubclem3 U V X C Y C X J Y = X Hom RingCat U Y

Proof

Step Hyp Ref Expression
1 srhmsubc.s r S r Ring
2 srhmsubc.c C = U S
3 srhmsubc.j J = r C , s C r RingHom s
4 3 a1i U V X C Y C J = r C , s C r RingHom s
5 oveq12 r = X s = Y r RingHom s = X RingHom Y
6 5 adantl U V X C Y C r = X s = Y r RingHom s = X RingHom Y
7 simpl X C Y C X C
8 7 adantl U V X C Y C X C
9 simpr X C Y C Y C
10 9 adantl U V X C Y C Y C
11 ovexd U V X C Y C X RingHom Y V
12 4 6 8 10 11 ovmpod U V X C Y C X J Y = X RingHom Y
13 eqid RingCat U = RingCat U
14 eqid Base RingCat U = Base RingCat U
15 simpl U V X C Y C U V
16 eqid Hom RingCat U = Hom RingCat U
17 1 2 srhmsubclem2 U V X C X Base RingCat U
18 7 17 sylan2 U V X C Y C X Base RingCat U
19 1 2 srhmsubclem2 U V Y C Y Base RingCat U
20 9 19 sylan2 U V X C Y C Y Base RingCat U
21 13 14 15 16 18 20 ringchom U V X C Y C X Hom RingCat U Y = X RingHom Y
22 12 21 eqtr4d U V X C Y C X J Y = X Hom RingCat U Y