Metamath Proof Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >  curfval Structured version   Visualization version   GIF version

Theorem curfval 16784
 Description: Value of the curry functor. (Contributed by Mario Carneiro, 12-Jan-2017.)
Hypotheses
Ref Expression
curfval.g 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
curfval.a 𝐴 = (Base‘𝐶)
curfval.c (𝜑𝐶 ∈ Cat)
curfval.d (𝜑𝐷 ∈ Cat)
curfval.f (𝜑𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
curfval.b 𝐵 = (Base‘𝐷)
curfval.j 𝐽 = (Hom ‘𝐷)
curfval.1 1 = (Id‘𝐶)
curfval.h 𝐻 = (Hom ‘𝐶)
curfval.i 𝐼 = (Id‘𝐷)
Assertion
Ref Expression
curfval (𝜑𝐺 = ⟨(𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))⟩)
Distinct variable groups:   𝑥,𝑔,𝑦,𝑧, 1   𝑥,𝐴,𝑦   𝐵,𝑔,𝑥,𝑦,𝑧   𝐶,𝑔,𝑥,𝑦,𝑧   𝐷,𝑔,𝑥,𝑦,𝑧   𝑔,𝐻,𝑦,𝑧   𝜑,𝑔,𝑥,𝑦,𝑧   𝑔,𝐸,𝑦,𝑧   𝑔,𝐽,𝑥   𝑔,𝐹,𝑥,𝑦,𝑧
Allowed substitution hints:   𝐴(𝑧,𝑔)   𝐸(𝑥)   𝐺(𝑥,𝑦,𝑧,𝑔)   𝐻(𝑥)   𝐼(𝑥,𝑦,𝑧,𝑔)   𝐽(𝑦,𝑧)

Proof of Theorem curfval
Dummy variables 𝑐 𝑑 𝑒 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 curfval.g . 2 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
2 df-curf 16775 . . . 4 curryF = (𝑒 ∈ V, 𝑓 ∈ V ↦ (1st𝑒) / 𝑐(2nd𝑒) / 𝑑⟨(𝑥 ∈ (Base‘𝑐) ↦ ⟨(𝑦 ∈ (Base‘𝑑) ↦ (𝑥(1st𝑓)𝑦)), (𝑦 ∈ (Base‘𝑑), 𝑧 ∈ (Base‘𝑑) ↦ (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝑐), 𝑦 ∈ (Base‘𝑐) ↦ (𝑔 ∈ (𝑥(Hom ‘𝑐)𝑦) ↦ (𝑧 ∈ (Base‘𝑑) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧)))))⟩)
32a1i 11 . . 3 (𝜑 → curryF = (𝑒 ∈ V, 𝑓 ∈ V ↦ (1st𝑒) / 𝑐(2nd𝑒) / 𝑑⟨(𝑥 ∈ (Base‘𝑐) ↦ ⟨(𝑦 ∈ (Base‘𝑑) ↦ (𝑥(1st𝑓)𝑦)), (𝑦 ∈ (Base‘𝑑), 𝑧 ∈ (Base‘𝑑) ↦ (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝑐), 𝑦 ∈ (Base‘𝑐) ↦ (𝑔 ∈ (𝑥(Hom ‘𝑐)𝑦) ↦ (𝑧 ∈ (Base‘𝑑) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧)))))⟩))
4 fvex 6158 . . . . 5 (1st𝑒) ∈ V
54a1i 11 . . . 4 ((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) → (1st𝑒) ∈ V)
6 simprl 793 . . . . . 6 ((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) → 𝑒 = ⟨𝐶, 𝐷⟩)
76fveq2d 6152 . . . . 5 ((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) → (1st𝑒) = (1st ‘⟨𝐶, 𝐷⟩))
8 curfval.c . . . . . . 7 (𝜑𝐶 ∈ Cat)
9 curfval.d . . . . . . 7 (𝜑𝐷 ∈ Cat)
10 op1stg 7125 . . . . . . 7 ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (1st ‘⟨𝐶, 𝐷⟩) = 𝐶)
118, 9, 10syl2anc 692 . . . . . 6 (𝜑 → (1st ‘⟨𝐶, 𝐷⟩) = 𝐶)
1211adantr 481 . . . . 5 ((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) → (1st ‘⟨𝐶, 𝐷⟩) = 𝐶)
137, 12eqtrd 2655 . . . 4 ((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) → (1st𝑒) = 𝐶)
14 fvex 6158 . . . . . 6 (2nd𝑒) ∈ V
1514a1i 11 . . . . 5 (((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) → (2nd𝑒) ∈ V)
166adantr 481 . . . . . . 7 (((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) → 𝑒 = ⟨𝐶, 𝐷⟩)
1716fveq2d 6152 . . . . . 6 (((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) → (2nd𝑒) = (2nd ‘⟨𝐶, 𝐷⟩))
18 op2ndg 7126 . . . . . . . 8 ((𝐶 ∈ Cat ∧ 𝐷 ∈ Cat) → (2nd ‘⟨𝐶, 𝐷⟩) = 𝐷)
198, 9, 18syl2anc 692 . . . . . . 7 (𝜑 → (2nd ‘⟨𝐶, 𝐷⟩) = 𝐷)
2019ad2antrr 761 . . . . . 6 (((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) → (2nd ‘⟨𝐶, 𝐷⟩) = 𝐷)
2117, 20eqtrd 2655 . . . . 5 (((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) → (2nd𝑒) = 𝐷)
22 simplr 791 . . . . . . . . 9 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → 𝑐 = 𝐶)
2322fveq2d 6152 . . . . . . . 8 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Base‘𝑐) = (Base‘𝐶))
24 curfval.a . . . . . . . 8 𝐴 = (Base‘𝐶)
2523, 24syl6eqr 2673 . . . . . . 7 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Base‘𝑐) = 𝐴)
26 simpr 477 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → 𝑑 = 𝐷)
2726fveq2d 6152 . . . . . . . . . 10 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Base‘𝑑) = (Base‘𝐷))
28 curfval.b . . . . . . . . . 10 𝐵 = (Base‘𝐷)
2927, 28syl6eqr 2673 . . . . . . . . 9 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Base‘𝑑) = 𝐵)
30 simprr 795 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) → 𝑓 = 𝐹)
3130ad2antrr 761 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → 𝑓 = 𝐹)
3231fveq2d 6152 . . . . . . . . . 10 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (1st𝑓) = (1st𝐹))
3332oveqd 6621 . . . . . . . . 9 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑥(1st𝑓)𝑦) = (𝑥(1st𝐹)𝑦))
3429, 33mpteq12dv 4693 . . . . . . . 8 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑦 ∈ (Base‘𝑑) ↦ (𝑥(1st𝑓)𝑦)) = (𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)))
3526fveq2d 6152 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Hom ‘𝑑) = (Hom ‘𝐷))
36 curfval.j . . . . . . . . . . . 12 𝐽 = (Hom ‘𝐷)
3735, 36syl6eqr 2673 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Hom ‘𝑑) = 𝐽)
3837oveqd 6621 . . . . . . . . . 10 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑦(Hom ‘𝑑)𝑧) = (𝑦𝐽𝑧))
3931fveq2d 6152 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (2nd𝑓) = (2nd𝐹))
4039oveqd 6621 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩) = (⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩))
4122fveq2d 6152 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Id‘𝑐) = (Id‘𝐶))
42 curfval.1 . . . . . . . . . . . . 13 1 = (Id‘𝐶)
4341, 42syl6eqr 2673 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Id‘𝑐) = 1 )
4443fveq1d 6150 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ((Id‘𝑐)‘𝑥) = ( 1𝑥))
45 eqidd 2622 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → 𝑔 = 𝑔)
4640, 44, 45oveq123d 6625 . . . . . . . . . 10 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔) = (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔))
4738, 46mpteq12dv 4693 . . . . . . . . 9 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔)) = (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))
4829, 29, 47mpt2eq123dv 6670 . . . . . . . 8 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑦 ∈ (Base‘𝑑), 𝑧 ∈ (Base‘𝑑) ↦ (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔))) = (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔))))
4934, 48opeq12d 4378 . . . . . . 7 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ⟨(𝑦 ∈ (Base‘𝑑) ↦ (𝑥(1st𝑓)𝑦)), (𝑦 ∈ (Base‘𝑑), 𝑧 ∈ (Base‘𝑑) ↦ (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔)))⟩ = ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩)
5025, 49mpteq12dv 4693 . . . . . 6 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑥 ∈ (Base‘𝑐) ↦ ⟨(𝑦 ∈ (Base‘𝑑) ↦ (𝑥(1st𝑓)𝑦)), (𝑦 ∈ (Base‘𝑑), 𝑧 ∈ (Base‘𝑑) ↦ (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔)))⟩) = (𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩))
5122fveq2d 6152 . . . . . . . . . 10 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Hom ‘𝑐) = (Hom ‘𝐶))
52 curfval.h . . . . . . . . . 10 𝐻 = (Hom ‘𝐶)
5351, 52syl6eqr 2673 . . . . . . . . 9 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Hom ‘𝑐) = 𝐻)
5453oveqd 6621 . . . . . . . 8 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑥(Hom ‘𝑐)𝑦) = (𝑥𝐻𝑦))
5539oveqd 6621 . . . . . . . . . 10 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩) = (⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩))
5626fveq2d 6152 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Id‘𝑑) = (Id‘𝐷))
57 curfval.i . . . . . . . . . . . 12 𝐼 = (Id‘𝐷)
5856, 57syl6eqr 2673 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (Id‘𝑑) = 𝐼)
5958fveq1d 6150 . . . . . . . . . 10 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ((Id‘𝑑)‘𝑧) = (𝐼𝑧))
6055, 45, 59oveq123d 6625 . . . . . . . . 9 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧)) = (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))
6129, 60mpteq12dv 4693 . . . . . . . 8 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑧 ∈ (Base‘𝑑) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧))) = (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧))))
6254, 61mpteq12dv 4693 . . . . . . 7 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑔 ∈ (𝑥(Hom ‘𝑐)𝑦) ↦ (𝑧 ∈ (Base‘𝑑) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧)))) = (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))
6325, 25, 62mpt2eq123dv 6670 . . . . . 6 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑥 ∈ (Base‘𝑐), 𝑦 ∈ (Base‘𝑐) ↦ (𝑔 ∈ (𝑥(Hom ‘𝑐)𝑦) ↦ (𝑧 ∈ (Base‘𝑑) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧))))) = (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧))))))
6450, 63opeq12d 4378 . . . . 5 ((((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ⟨(𝑥 ∈ (Base‘𝑐) ↦ ⟨(𝑦 ∈ (Base‘𝑑) ↦ (𝑥(1st𝑓)𝑦)), (𝑦 ∈ (Base‘𝑑), 𝑧 ∈ (Base‘𝑑) ↦ (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝑐), 𝑦 ∈ (Base‘𝑐) ↦ (𝑔 ∈ (𝑥(Hom ‘𝑐)𝑦) ↦ (𝑧 ∈ (Base‘𝑑) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧)))))⟩ = ⟨(𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))⟩)
6515, 21, 64csbied2 3542 . . . 4 (((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) ∧ 𝑐 = 𝐶) → (2nd𝑒) / 𝑑⟨(𝑥 ∈ (Base‘𝑐) ↦ ⟨(𝑦 ∈ (Base‘𝑑) ↦ (𝑥(1st𝑓)𝑦)), (𝑦 ∈ (Base‘𝑑), 𝑧 ∈ (Base‘𝑑) ↦ (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝑐), 𝑦 ∈ (Base‘𝑐) ↦ (𝑔 ∈ (𝑥(Hom ‘𝑐)𝑦) ↦ (𝑧 ∈ (Base‘𝑑) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧)))))⟩ = ⟨(𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))⟩)
665, 13, 65csbied2 3542 . . 3 ((𝜑 ∧ (𝑒 = ⟨𝐶, 𝐷⟩ ∧ 𝑓 = 𝐹)) → (1st𝑒) / 𝑐(2nd𝑒) / 𝑑⟨(𝑥 ∈ (Base‘𝑐) ↦ ⟨(𝑦 ∈ (Base‘𝑑) ↦ (𝑥(1st𝑓)𝑦)), (𝑦 ∈ (Base‘𝑑), 𝑧 ∈ (Base‘𝑑) ↦ (𝑔 ∈ (𝑦(Hom ‘𝑑)𝑧) ↦ (((Id‘𝑐)‘𝑥)(⟨𝑥, 𝑦⟩(2nd𝑓)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝑐), 𝑦 ∈ (Base‘𝑐) ↦ (𝑔 ∈ (𝑥(Hom ‘𝑐)𝑦) ↦ (𝑧 ∈ (Base‘𝑑) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝑓)⟨𝑦, 𝑧⟩)((Id‘𝑑)‘𝑧)))))⟩ = ⟨(𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))⟩)
67 opex 4893 . . . 4 𝐶, 𝐷⟩ ∈ V
6867a1i 11 . . 3 (𝜑 → ⟨𝐶, 𝐷⟩ ∈ V)
69 curfval.f . . . 4 (𝜑𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
70 elex 3198 . . . 4 (𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸) → 𝐹 ∈ V)
7169, 70syl 17 . . 3 (𝜑𝐹 ∈ V)
72 opex 4893 . . . 4 ⟨(𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))⟩ ∈ V
7372a1i 11 . . 3 (𝜑 → ⟨(𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))⟩ ∈ V)
743, 66, 68, 71, 73ovmpt2d 6741 . 2 (𝜑 → (⟨𝐶, 𝐷⟩ curryF 𝐹) = ⟨(𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))⟩)
751, 74syl5eq 2667 1 (𝜑𝐺 = ⟨(𝑥𝐴 ↦ ⟨(𝑦𝐵 ↦ (𝑥(1st𝐹)𝑦)), (𝑦𝐵, 𝑧𝐵 ↦ (𝑔 ∈ (𝑦𝐽𝑧) ↦ (( 1𝑥)(⟨𝑥, 𝑦⟩(2nd𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥𝐴, 𝑦𝐴 ↦ (𝑔 ∈ (𝑥𝐻𝑦) ↦ (𝑧𝐵 ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd𝐹)⟨𝑦, 𝑧⟩)(𝐼𝑧)))))⟩)
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 384   = wceq 1480   ∈ wcel 1987  Vcvv 3186  ⦋csb 3514  ⟨cop 4154   ↦ cmpt 4673  ‘cfv 5847  (class class class)co 6604   ↦ cmpt2 6606  1st c1st 7111  2nd c2nd 7112  Basecbs 15781  Hom chom 15873  Catccat 16246  Idccid 16247   Func cfunc 16435   ×c cxpc 16729   curryF ccurf 16771 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-sep 4741  ax-nul 4749  ax-pow 4803  ax-pr 4867  ax-un 6902 This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ral 2912  df-rex 2913  df-rab 2916  df-v 3188  df-sbc 3418  df-csb 3515  df-dif 3558  df-un 3560  df-in 3562  df-ss 3569  df-nul 3892  df-if 4059  df-sn 4149  df-pr 4151  df-op 4155  df-uni 4403  df-br 4614  df-opab 4674  df-mpt 4675  df-id 4989  df-xp 5080  df-rel 5081  df-cnv 5082  df-co 5083  df-dm 5084  df-rn 5085  df-iota 5810  df-fun 5849  df-fv 5855  df-ov 6607  df-oprab 6608  df-mpt2 6609  df-1st 7113  df-2nd 7114  df-curf 16775 This theorem is referenced by:  curf1fval  16785  curf2  16790  curfcl  16793  curfpropd  16794  curfuncf  16799
 Copyright terms: Public domain W3C validator