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