Metamath Proof Explorer


Theorem funcringcsetcALTV2lem4

Description: Lemma 4 for funcringcsetcALTV2 . (Contributed by AV, 15-Feb-2020) (New usage is discouraged.)

Ref Expression
Hypotheses funcringcsetcALTV2.r ⊢ R = RingCat ⁡ U
funcringcsetcALTV2.s ⊢ S = SetCat ⁡ U
funcringcsetcALTV2.b ⊢ B = Base R
funcringcsetcALTV2.c ⊢ C = Base S
funcringcsetcALTV2.u ⊢ φ → U ∈ WUni
funcringcsetcALTV2.f ⊢ φ → F = x ∈ B ⟼ Base x
funcringcsetcALTV2.g ⊢ φ → G = x ∈ B , y ∈ B ⟼ I ↾ x RingHom y
Assertion funcringcsetcALTV2lem4 ⊢ φ → G Fn B × B

Proof

Step Hyp Ref Expression
1 funcringcsetcALTV2.r ⊢ R = RingCat ⁡ U
2 funcringcsetcALTV2.s ⊢ S = SetCat ⁡ U
3 funcringcsetcALTV2.b ⊢ B = Base R
4 funcringcsetcALTV2.c ⊢ C = Base S
5 funcringcsetcALTV2.u ⊢ φ → U ∈ WUni
6 funcringcsetcALTV2.f ⊢ φ → F = x ∈ B ⟼ Base x
7 funcringcsetcALTV2.g ⊢ φ → G = x ∈ B , y ∈ B ⟼ I ↾ x RingHom y
8 eqid ⊢ x ∈ B , y ∈ B ⟼ I ↾ x RingHom y = x ∈ B , y ∈ B ⟼ I ↾ x RingHom y
9 ovex ⊢ x RingHom y ∈ V
10 id ⊢ x RingHom y ∈ V → x RingHom y ∈ V
11 10 resiexd ⊢ x RingHom y ∈ V → I ↾ x RingHom y ∈ V
12 9 11 ax-mp ⊢ I ↾ x RingHom y ∈ V
13 8 12 fnmpoi ⊢ x ∈ B , y ∈ B ⟼ I ↾ x RingHom y Fn B × B
14 7 fneq1d ⊢ φ → G Fn B × B ↔ x ∈ B , y ∈ B ⟼ I ↾ x RingHom y Fn B × B
15 13 14 mpbiri ⊢ φ → G Fn B × B