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 ffvelrnd φ X G Y M F X J F Y