Metamath Proof Explorer


Theorem functhinclem3

Description: Lemma for functhinc . The mapped morphism is in its corresponding hom-set. (Contributed by Zhi Wang, 1-Oct-2024)

Ref Expression
Hypotheses functhinclem3.x ⊢ φ → X ∈ B
functhinclem3.y ⊢ φ → Y ∈ B
functhinclem3.m ⊢ φ → M ∈ X H Y
functhinclem3.g ⊢ φ → G = x ∈ B , y ∈ B ⟼ x H y × F ⁡ x J F ⁡ y
functhinclem3.1 ⊢ φ → F ⁡ X J F ⁡ Y = ∅ → X H Y = ∅
functhinclem3.2 ⊢ φ → ∃* n n ∈ F ⁡ X J F ⁡ Y
Assertion functhinclem3 ⊢ φ → X G Y ⁡ M ∈ F ⁡ X J F ⁡ Y

Proof

Step Hyp Ref Expression
1 functhinclem3.x ⊢ φ → X ∈ B
2 functhinclem3.y ⊢ φ → Y ∈ B
3 functhinclem3.m ⊢ φ → M ∈ X H Y
4 functhinclem3.g ⊢ φ → G = x ∈ B , y ∈ B ⟼ x H y × F ⁡ x J F ⁡ y
5 functhinclem3.1 ⊢ φ → F ⁡ X J F ⁡ Y = ∅ → X H Y = ∅
6 functhinclem3.2 ⊢ φ → ∃* n n ∈ F ⁡ X J F ⁡ Y
7 simprl ⊢ φ ∧ x = X ∧ y = Y → x = X
8 simprr ⊢ φ ∧ x = X ∧ y = Y → y = Y
9 7 8 oveq12d ⊢ φ ∧ x = X ∧ y = Y → x H y = X H Y
10 7 fveq2d ⊢ φ ∧ x = X ∧ y = Y → F ⁡ x = F ⁡ X
11 8 fveq2d ⊢ φ ∧ x = X ∧ y = Y → F ⁡ y = F ⁡ Y
12 10 11 oveq12d ⊢ φ ∧ x = X ∧ y = Y → F ⁡ x J F ⁡ y = F ⁡ X J F ⁡ Y
13 9 12 xpeq12d ⊢ φ ∧ x = X ∧ y = Y → x H y × F ⁡ x J F ⁡ y = X H Y × F ⁡ X J F ⁡ Y
14 ovex ⊢ X H Y ∈ V
15 ovex ⊢ F ⁡ X J F ⁡ Y ∈ V
16 14 15 xpex ⊢ X H Y × F ⁡ X J F ⁡ Y ∈ V
17 16 a1i ⊢ φ → X H Y × F ⁡ X J F ⁡ Y ∈ V
18 4 13 1 2 17 ovmpod ⊢ φ → X G Y = X H Y × F ⁡ X J F ⁡ Y
19 eqid ⊢ X H Y × F ⁡ X J F ⁡ Y = X H Y × F ⁡ X J F ⁡ Y
20 19 5 6 mofeu ⊢ φ → X G Y : X H Y ⟶ F ⁡ X J F ⁡ Y ↔ X G Y = X H Y × F ⁡ X J F ⁡ Y
21 18 20 mpbird ⊢ φ → X G Y : X H Y ⟶ F ⁡ X J F ⁡ Y
22 21 3 ffvelcdmd ⊢ φ → X G Y ⁡ M ∈ F ⁡ X J F ⁡ Y