Theorem prf2fval 18103

Description: Value of the pairing functor on morphisms. (Contributed by Mario Carneiro, 12-Jan-2017.)

Hypotheses

Ref	Expression
prfval.k	⊢ 𝑃 = (𝐹 ⟨,⟩F 𝐺)
prfval.b	⊢ 𝐵 = (Base‘𝐶)
prfval.h	⊢ 𝐻 = (Hom ‘𝐶)
prfval.c	⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
prfval.d	⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐸))
prf1.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
prf2.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)

Assertion

Ref	Expression
prf2fval	⊢ (𝜑 → (𝑋(2nd ‘𝑃)𝑌) = (ℎ ∈ (𝑋𝐻𝑌) ↦ ⟨((𝑋(2nd ‘𝐹)𝑌)‘ℎ), ((𝑋(2nd ‘𝐺)𝑌)‘ℎ)⟩))

Distinct variable groups:   𝐵,ℎ   ℎ,𝐹   𝜑,ℎ   ℎ,𝐺   ℎ,𝑋   ℎ,𝑌   ℎ,𝐻

Allowed substitution hints:   𝐶(ℎ)   𝐷(ℎ)   𝑃(ℎ)   𝐸(ℎ)

Proof of Theorem prf2fval

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		prfval.k	. . . 4 ⊢ 𝑃 = (𝐹 ⟨,⟩F 𝐺)
2		prfval.b	. . . 4 ⊢ 𝐵 = (Base‘𝐶)
3		prfval.h	. . . 4 ⊢ 𝐻 = (Hom ‘𝐶)
4		prfval.c	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
5		prfval.d	. . . 4 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐸))
6	1, 2, 3, 4, 5	prfval 18101	. . 3 ⊢ (𝜑 → 𝑃 = ⟨(𝑥 ∈ 𝐵 ↦ ⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐺)‘𝑥)⟩), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (ℎ ∈ (𝑥𝐻𝑦) ↦ ⟨((𝑥(2nd ‘𝐹)𝑦)‘ℎ), ((𝑥(2nd ‘𝐺)𝑦)‘ℎ)⟩))⟩)
7	2	fvexi 6861	. . . . 5 ⊢ 𝐵 ∈ V
8	7	mptex 7178	. . . 4 ⊢ (𝑥 ∈ 𝐵 ↦ ⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐺)‘𝑥)⟩) ∈ V
9	7, 7	mpoex 8017	. . . 4 ⊢ (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (ℎ ∈ (𝑥𝐻𝑦) ↦ ⟨((𝑥(2nd ‘𝐹)𝑦)‘ℎ), ((𝑥(2nd ‘𝐺)𝑦)‘ℎ)⟩)) ∈ V
10	8, 9	op2ndd 7937	. . 3 ⊢ (𝑃 = ⟨(𝑥 ∈ 𝐵 ↦ ⟨((1st ‘𝐹)‘𝑥), ((1st ‘𝐺)‘𝑥)⟩), (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (ℎ ∈ (𝑥𝐻𝑦) ↦ ⟨((𝑥(2nd ‘𝐹)𝑦)‘ℎ), ((𝑥(2nd ‘𝐺)𝑦)‘ℎ)⟩))⟩ → (2nd ‘𝑃) = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (ℎ ∈ (𝑥𝐻𝑦) ↦ ⟨((𝑥(2nd ‘𝐹)𝑦)‘ℎ), ((𝑥(2nd ‘𝐺)𝑦)‘ℎ)⟩)))
11	6, 10	syl 17	. 2 ⊢ (𝜑 → (2nd ‘𝑃) = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ (ℎ ∈ (𝑥𝐻𝑦) ↦ ⟨((𝑥(2nd ‘𝐹)𝑦)‘ℎ), ((𝑥(2nd ‘𝐺)𝑦)‘ℎ)⟩)))
12		simprl 769	. . . 4 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → 𝑥 = 𝑋)
13		simprr 771	. . . 4 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → 𝑦 = 𝑌)
14	12, 13	oveq12d 7380	. . 3 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (𝑥𝐻𝑦) = (𝑋𝐻𝑌))
15	12, 13	oveq12d 7380	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (𝑥(2nd ‘𝐹)𝑦) = (𝑋(2nd ‘𝐹)𝑌))
16	15	fveq1d 6849	. . . 4 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → ((𝑥(2nd ‘𝐹)𝑦)‘ℎ) = ((𝑋(2nd ‘𝐹)𝑌)‘ℎ))
17	12, 13	oveq12d 7380	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (𝑥(2nd ‘𝐺)𝑦) = (𝑋(2nd ‘𝐺)𝑌))
18	17	fveq1d 6849	. . . 4 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → ((𝑥(2nd ‘𝐺)𝑦)‘ℎ) = ((𝑋(2nd ‘𝐺)𝑌)‘ℎ))
19	16, 18	opeq12d 4843	. . 3 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → ⟨((𝑥(2nd ‘𝐹)𝑦)‘ℎ), ((𝑥(2nd ‘𝐺)𝑦)‘ℎ)⟩ = ⟨((𝑋(2nd ‘𝐹)𝑌)‘ℎ), ((𝑋(2nd ‘𝐺)𝑌)‘ℎ)⟩)
20	14, 19	mpteq12dv 5201	. 2 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (ℎ ∈ (𝑥𝐻𝑦) ↦ ⟨((𝑥(2nd ‘𝐹)𝑦)‘ℎ), ((𝑥(2nd ‘𝐺)𝑦)‘ℎ)⟩) = (ℎ ∈ (𝑋𝐻𝑌) ↦ ⟨((𝑋(2nd ‘𝐹)𝑌)‘ℎ), ((𝑋(2nd ‘𝐺)𝑌)‘ℎ)⟩))
21		prf1.x	. 2 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
22		prf2.y	. 2 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
23		ovex 7395	. . . 4 ⊢ (𝑋𝐻𝑌) ∈ V
24	23	mptex 7178	. . 3 ⊢ (ℎ ∈ (𝑋𝐻𝑌) ↦ ⟨((𝑋(2nd ‘𝐹)𝑌)‘ℎ), ((𝑋(2nd ‘𝐺)𝑌)‘ℎ)⟩) ∈ V
25	24	a1i 11	. 2 ⊢ (𝜑 → (ℎ ∈ (𝑋𝐻𝑌) ↦ ⟨((𝑋(2nd ‘𝐹)𝑌)‘ℎ), ((𝑋(2nd ‘𝐺)𝑌)‘ℎ)⟩) ∈ V)
26	11, 20, 21, 22, 25	ovmpod 7512	1 ⊢ (𝜑 → (𝑋(2nd ‘𝑃)𝑌) = (ℎ ∈ (𝑋𝐻𝑌) ↦ ⟨((𝑋(2nd ‘𝐹)𝑌)‘ℎ), ((𝑋(2nd ‘𝐺)𝑌)‘ℎ)⟩))

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1541   ∈ wcel 2106  Vcvv 3446  ⟨cop 4597   ↦ cmpt 5193  ‘cfv 6501  (class class class)co 7362   ∈ cmpo 7364  1^st c1st 7924  2^nd c2nd 7925  Basecbs 17094  Hom chom 17158   Func cfunc 17754   ⟨,⟩_F cprf 18073

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-ral 3061  df-rex 3070  df-reu 3352  df-rab 3406  df-v 3448  df-sbc 3743  df-csb 3859  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-id 5536  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-ov 7365  df-oprab 7366  df-mpo 7367  df-1st 7926  df-2nd 7927  df-map 8774  df-ixp 8843  df-func 17758  df-prf 18077

This theorem is referenced by:  prf2  18104