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

Theorem evlfval 17533
 Description: Value of the evaluation functor. (Contributed by Mario Carneiro, 12-Jan-2017.)
Hypotheses
Ref Expression
evlfval.e 𝐸 = (𝐶 evalF 𝐷)
evlfval.c (𝜑𝐶 ∈ Cat)
evlfval.d (𝜑𝐷 ∈ Cat)
evlfval.b 𝐵 = (Base‘𝐶)
evlfval.h 𝐻 = (Hom ‘𝐶)
evlfval.o · = (comp‘𝐷)
evlfval.n 𝑁 = (𝐶 Nat 𝐷)
Assertion
Ref Expression
evlfval (𝜑𝐸 = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩)
Distinct variable groups:   𝑓,𝑎,𝑔,𝑚,𝑛,𝑥,𝑦,𝐶   𝐷,𝑎,𝑓,𝑔,𝑚,𝑛,𝑥,𝑦   𝑔,𝐻,𝑚,𝑛,𝑥,𝑦   𝑁,𝑎,𝑔,𝑚,𝑛,𝑥,𝑦   𝜑,𝑎,𝑓,𝑔,𝑚,𝑛,𝑥,𝑦   · ,𝑎,𝑔,𝑚,𝑛,𝑥,𝑦   𝑥,𝐵,𝑦
Allowed substitution hints:   𝐵(𝑓,𝑔,𝑚,𝑛,𝑎)   · (𝑓)   𝐸(𝑥,𝑦,𝑓,𝑔,𝑚,𝑛,𝑎)   𝐻(𝑓,𝑎)   𝑁(𝑓)

Proof of Theorem evlfval
Dummy variables 𝑐 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 evlfval.e . 2 𝐸 = (𝐶 evalF 𝐷)
2 df-evlf 17529 . . . 4 evalF = (𝑐 ∈ Cat, 𝑑 ∈ Cat ↦ ⟨(𝑓 ∈ (𝑐 Func 𝑑), 𝑥 ∈ (Base‘𝑐) ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝑐 Func 𝑑) × (Base‘𝑐)), 𝑦 ∈ ((𝑐 Func 𝑑) × (Base‘𝑐)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝑐 Nat 𝑑)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝑐)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩)
32a1i 11 . . 3 (𝜑 → evalF = (𝑐 ∈ Cat, 𝑑 ∈ Cat ↦ ⟨(𝑓 ∈ (𝑐 Func 𝑑), 𝑥 ∈ (Base‘𝑐) ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝑐 Func 𝑑) × (Base‘𝑐)), 𝑦 ∈ ((𝑐 Func 𝑑) × (Base‘𝑐)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝑐 Nat 𝑑)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝑐)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩))
4 simprl 770 . . . . . 6 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → 𝑐 = 𝐶)
5 simprr 772 . . . . . 6 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → 𝑑 = 𝐷)
64, 5oveq12d 7168 . . . . 5 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (𝑐 Func 𝑑) = (𝐶 Func 𝐷))
74fveq2d 6662 . . . . . 6 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (Base‘𝑐) = (Base‘𝐶))
8 evlfval.b . . . . . 6 𝐵 = (Base‘𝐶)
97, 8eqtr4di 2811 . . . . 5 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (Base‘𝑐) = 𝐵)
10 eqidd 2759 . . . . 5 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → ((1st𝑓)‘𝑥) = ((1st𝑓)‘𝑥))
116, 9, 10mpoeq123dv 7223 . . . 4 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (𝑓 ∈ (𝑐 Func 𝑑), 𝑥 ∈ (Base‘𝑐) ↦ ((1st𝑓)‘𝑥)) = (𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)))
126, 9xpeq12d 5555 . . . . 5 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → ((𝑐 Func 𝑑) × (Base‘𝑐)) = ((𝐶 Func 𝐷) × 𝐵))
134, 5oveq12d 7168 . . . . . . . . . 10 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (𝑐 Nat 𝑑) = (𝐶 Nat 𝐷))
14 evlfval.n . . . . . . . . . 10 𝑁 = (𝐶 Nat 𝐷)
1513, 14eqtr4di 2811 . . . . . . . . 9 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (𝑐 Nat 𝑑) = 𝑁)
1615oveqd 7167 . . . . . . . 8 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (𝑚(𝑐 Nat 𝑑)𝑛) = (𝑚𝑁𝑛))
174fveq2d 6662 . . . . . . . . . 10 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (Hom ‘𝑐) = (Hom ‘𝐶))
18 evlfval.h . . . . . . . . . 10 𝐻 = (Hom ‘𝐶)
1917, 18eqtr4di 2811 . . . . . . . . 9 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (Hom ‘𝑐) = 𝐻)
2019oveqd 7167 . . . . . . . 8 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → ((2nd𝑥)(Hom ‘𝑐)(2nd𝑦)) = ((2nd𝑥)𝐻(2nd𝑦)))
215fveq2d 6662 . . . . . . . . . . 11 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (comp‘𝑑) = (comp‘𝐷))
22 evlfval.o . . . . . . . . . . 11 · = (comp‘𝐷)
2321, 22eqtr4di 2811 . . . . . . . . . 10 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (comp‘𝑑) = · )
2423oveqd 7167 . . . . . . . . 9 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦))) = (⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦))))
2524oveqd 7167 . . . . . . . 8 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)) = ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))
2616, 20, 25mpoeq123dv 7223 . . . . . . 7 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (𝑎 ∈ (𝑚(𝑐 Nat 𝑑)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝑐)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) = (𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))
2726csbeq2dv 3812 . . . . . 6 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝑐 Nat 𝑑)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝑐)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) = (1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))
2827csbeq2dv 3812 . . . . 5 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝑐 Nat 𝑑)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝑐)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) = (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))
2912, 12, 28mpoeq123dv 7223 . . . 4 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → (𝑥 ∈ ((𝑐 Func 𝑑) × (Base‘𝑐)), 𝑦 ∈ ((𝑐 Func 𝑑) × (Base‘𝑐)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝑐 Nat 𝑑)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝑐)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))) = (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))))
3011, 29opeq12d 4771 . . 3 ((𝜑 ∧ (𝑐 = 𝐶𝑑 = 𝐷)) → ⟨(𝑓 ∈ (𝑐 Func 𝑑), 𝑥 ∈ (Base‘𝑐) ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝑐 Func 𝑑) × (Base‘𝑐)), 𝑦 ∈ ((𝑐 Func 𝑑) × (Base‘𝑐)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝑐 Nat 𝑑)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝑐)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝑑)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩ = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩)
31 evlfval.c . . 3 (𝜑𝐶 ∈ Cat)
32 evlfval.d . . 3 (𝜑𝐷 ∈ Cat)
33 opex 5324 . . . 4 ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩ ∈ V
3433a1i 11 . . 3 (𝜑 → ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩ ∈ V)
353, 30, 31, 32, 34ovmpod 7297 . 2 (𝜑 → (𝐶 evalF 𝐷) = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩)
361, 35syl5eq 2805 1 (𝜑𝐸 = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩)
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 399   = wceq 1538   ∈ wcel 2111  Vcvv 3409  ⦋csb 3805  ⟨cop 4528   × cxp 5522  ‘cfv 6335  (class class class)co 7150   ∈ cmpo 7152  1st c1st 7691  2nd c2nd 7692  Basecbs 16541  Hom chom 16634  compcco 16635  Catccat 16993   Func cfunc 17183   Nat cnat 17270   evalF cevlf 17525 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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-sep 5169  ax-nul 5176  ax-pr 5298 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ral 3075  df-rex 3076  df-v 3411  df-sbc 3697  df-csb 3806  df-dif 3861  df-un 3863  df-in 3865  df-ss 3875  df-nul 4226  df-if 4421  df-sn 4523  df-pr 4525  df-op 4529  df-uni 4799  df-br 5033  df-opab 5095  df-id 5430  df-xp 5530  df-rel 5531  df-cnv 5532  df-co 5533  df-dm 5534  df-iota 6294  df-fun 6337  df-fv 6343  df-ov 7153  df-oprab 7154  df-mpo 7155  df-evlf 17529 This theorem is referenced by:  evlf2  17534  evlf1  17536  evlfcl  17538
 Copyright terms: Public domain W3C validator