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

Theorem evlf2 16774
Description: Value of the evaluation functor at a morphism. (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 𝐷)
evlf2.f (𝜑𝐹 ∈ (𝐶 Func 𝐷))
evlf2.g (𝜑𝐺 ∈ (𝐶 Func 𝐷))
evlf2.x (𝜑𝑋𝐵)
evlf2.y (𝜑𝑌𝐵)
evlf2.l 𝐿 = (⟨𝐹, 𝑋⟩(2nd𝐸)⟨𝐺, 𝑌⟩)
Assertion
Ref Expression
evlf2 (𝜑𝐿 = (𝑎 ∈ (𝐹𝑁𝐺), 𝑔 ∈ (𝑋𝐻𝑌) ↦ ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔))))
Distinct variable groups:   𝑔,𝑎,𝐶   𝐷,𝑎,𝑔   𝑔,𝐻   𝐹,𝑎,𝑔   𝑁,𝑎,𝑔   𝐺,𝑎,𝑔   𝜑,𝑎,𝑔   · ,𝑎,𝑔   𝑋,𝑎,𝑔   𝑌,𝑎,𝑔
Allowed substitution hints:   𝐵(𝑔,𝑎)   𝐸(𝑔,𝑎)   𝐻(𝑎)   𝐿(𝑔,𝑎)

Proof of Theorem evlf2
Dummy variables 𝑓 𝑚 𝑛 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 evlf2.l . 2 𝐿 = (⟨𝐹, 𝑋⟩(2nd𝐸)⟨𝐺, 𝑌⟩)
2 evlfval.e . . . . 5 𝐸 = (𝐶 evalF 𝐷)
3 evlfval.c . . . . 5 (𝜑𝐶 ∈ Cat)
4 evlfval.d . . . . 5 (𝜑𝐷 ∈ Cat)
5 evlfval.b . . . . 5 𝐵 = (Base‘𝐶)
6 evlfval.h . . . . 5 𝐻 = (Hom ‘𝐶)
7 evlfval.o . . . . 5 · = (comp‘𝐷)
8 evlfval.n . . . . 5 𝑁 = (𝐶 Nat 𝐷)
92, 3, 4, 5, 6, 7, 8evlfval 16773 . . . 4 (𝜑𝐸 = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩)
10 ovex 6633 . . . . . 6 (𝐶 Func 𝐷) ∈ V
11 fvex 6160 . . . . . . 7 (Base‘𝐶) ∈ V
125, 11eqeltri 2700 . . . . . 6 𝐵 ∈ V
1310, 12mpt2ex 7193 . . . . 5 (𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)) ∈ V
1410, 12xpex 6916 . . . . . 6 ((𝐶 Func 𝐷) × 𝐵) ∈ V
1514, 14mpt2ex 7193 . . . . 5 (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))) ∈ V
1613, 15op2ndd 7127 . . . 4 (𝐸 = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥𝐵 ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩ → (2nd𝐸) = (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))))
179, 16syl 17 . . 3 (𝜑 → (2nd𝐸) = (𝑥 ∈ ((𝐶 Func 𝐷) × 𝐵), 𝑦 ∈ ((𝐶 Func 𝐷) × 𝐵) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))))
18 fvex 6160 . . . . 5 (1st𝑥) ∈ V
1918a1i 11 . . . 4 ((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) → (1st𝑥) ∈ V)
20 simprl 793 . . . . . 6 ((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) → 𝑥 = ⟨𝐹, 𝑋⟩)
2120fveq2d 6154 . . . . 5 ((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) → (1st𝑥) = (1st ‘⟨𝐹, 𝑋⟩))
22 evlf2.f . . . . . . 7 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
23 evlf2.x . . . . . . 7 (𝜑𝑋𝐵)
24 op1stg 7128 . . . . . . 7 ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋𝐵) → (1st ‘⟨𝐹, 𝑋⟩) = 𝐹)
2522, 23, 24syl2anc 692 . . . . . 6 (𝜑 → (1st ‘⟨𝐹, 𝑋⟩) = 𝐹)
2625adantr 481 . . . . 5 ((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) → (1st ‘⟨𝐹, 𝑋⟩) = 𝐹)
2721, 26eqtrd 2660 . . . 4 ((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) → (1st𝑥) = 𝐹)
28 fvex 6160 . . . . . 6 (1st𝑦) ∈ V
2928a1i 11 . . . . 5 (((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) → (1st𝑦) ∈ V)
30 simplrr 800 . . . . . . 7 (((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) → 𝑦 = ⟨𝐺, 𝑌⟩)
3130fveq2d 6154 . . . . . 6 (((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) → (1st𝑦) = (1st ‘⟨𝐺, 𝑌⟩))
32 evlf2.g . . . . . . . 8 (𝜑𝐺 ∈ (𝐶 Func 𝐷))
33 evlf2.y . . . . . . . 8 (𝜑𝑌𝐵)
34 op1stg 7128 . . . . . . . 8 ((𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝑌𝐵) → (1st ‘⟨𝐺, 𝑌⟩) = 𝐺)
3532, 33, 34syl2anc 692 . . . . . . 7 (𝜑 → (1st ‘⟨𝐺, 𝑌⟩) = 𝐺)
3635ad2antrr 761 . . . . . 6 (((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) → (1st ‘⟨𝐺, 𝑌⟩) = 𝐺)
3731, 36eqtrd 2660 . . . . 5 (((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) → (1st𝑦) = 𝐺)
38 simplr 791 . . . . . . 7 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → 𝑚 = 𝐹)
39 simpr 477 . . . . . . 7 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → 𝑛 = 𝐺)
4038, 39oveq12d 6623 . . . . . 6 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (𝑚𝑁𝑛) = (𝐹𝑁𝐺))
4120ad2antrr 761 . . . . . . . . 9 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → 𝑥 = ⟨𝐹, 𝑋⟩)
4241fveq2d 6154 . . . . . . . 8 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (2nd𝑥) = (2nd ‘⟨𝐹, 𝑋⟩))
43 op2ndg 7129 . . . . . . . . . 10 ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋𝐵) → (2nd ‘⟨𝐹, 𝑋⟩) = 𝑋)
4422, 23, 43syl2anc 692 . . . . . . . . 9 (𝜑 → (2nd ‘⟨𝐹, 𝑋⟩) = 𝑋)
4544ad3antrrr 765 . . . . . . . 8 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (2nd ‘⟨𝐹, 𝑋⟩) = 𝑋)
4642, 45eqtrd 2660 . . . . . . 7 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (2nd𝑥) = 𝑋)
4730adantr 481 . . . . . . . . 9 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → 𝑦 = ⟨𝐺, 𝑌⟩)
4847fveq2d 6154 . . . . . . . 8 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (2nd𝑦) = (2nd ‘⟨𝐺, 𝑌⟩))
49 op2ndg 7129 . . . . . . . . . 10 ((𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝑌𝐵) → (2nd ‘⟨𝐺, 𝑌⟩) = 𝑌)
5032, 33, 49syl2anc 692 . . . . . . . . 9 (𝜑 → (2nd ‘⟨𝐺, 𝑌⟩) = 𝑌)
5150ad3antrrr 765 . . . . . . . 8 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (2nd ‘⟨𝐺, 𝑌⟩) = 𝑌)
5248, 51eqtrd 2660 . . . . . . 7 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (2nd𝑦) = 𝑌)
5346, 52oveq12d 6623 . . . . . 6 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → ((2nd𝑥)𝐻(2nd𝑦)) = (𝑋𝐻𝑌))
5438fveq2d 6154 . . . . . . . . . 10 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (1st𝑚) = (1st𝐹))
5554, 46fveq12d 6156 . . . . . . . . 9 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → ((1st𝑚)‘(2nd𝑥)) = ((1st𝐹)‘𝑋))
5654, 52fveq12d 6156 . . . . . . . . 9 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → ((1st𝑚)‘(2nd𝑦)) = ((1st𝐹)‘𝑌))
5755, 56opeq12d 4383 . . . . . . . 8 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → ⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ = ⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩)
5839fveq2d 6154 . . . . . . . . 9 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (1st𝑛) = (1st𝐺))
5958, 52fveq12d 6156 . . . . . . . 8 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → ((1st𝑛)‘(2nd𝑦)) = ((1st𝐺)‘𝑌))
6057, 59oveq12d 6623 . . . . . . 7 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦))) = (⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌)))
6152fveq2d 6154 . . . . . . 7 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (𝑎‘(2nd𝑦)) = (𝑎𝑌))
6238fveq2d 6154 . . . . . . . . 9 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (2nd𝑚) = (2nd𝐹))
6362, 46, 52oveq123d 6626 . . . . . . . 8 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → ((2nd𝑥)(2nd𝑚)(2nd𝑦)) = (𝑋(2nd𝐹)𝑌))
6463fveq1d 6152 . . . . . . 7 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔) = ((𝑋(2nd𝐹)𝑌)‘𝑔))
6560, 61, 64oveq123d 6626 . . . . . 6 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)) = ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔)))
6640, 53, 65mpt2eq123dv 6671 . . . . 5 ((((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) ∧ 𝑛 = 𝐺) → (𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) = (𝑎 ∈ (𝐹𝑁𝐺), 𝑔 ∈ (𝑋𝐻𝑌) ↦ ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔))))
6729, 37, 66csbied2 3547 . . . 4 (((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) ∧ 𝑚 = 𝐹) → (1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) = (𝑎 ∈ (𝐹𝑁𝐺), 𝑔 ∈ (𝑋𝐻𝑌) ↦ ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔))))
6819, 27, 67csbied2 3547 . . 3 ((𝜑 ∧ (𝑥 = ⟨𝐹, 𝑋⟩ ∧ 𝑦 = ⟨𝐺, 𝑌⟩)) → (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚𝑁𝑛), 𝑔 ∈ ((2nd𝑥)𝐻(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩ · ((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) = (𝑎 ∈ (𝐹𝑁𝐺), 𝑔 ∈ (𝑋𝐻𝑌) ↦ ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔))))
69 opelxpi 5113 . . . 4 ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋𝐵) → ⟨𝐹, 𝑋⟩ ∈ ((𝐶 Func 𝐷) × 𝐵))
7022, 23, 69syl2anc 692 . . 3 (𝜑 → ⟨𝐹, 𝑋⟩ ∈ ((𝐶 Func 𝐷) × 𝐵))
71 opelxpi 5113 . . . 4 ((𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝑌𝐵) → ⟨𝐺, 𝑌⟩ ∈ ((𝐶 Func 𝐷) × 𝐵))
7232, 33, 71syl2anc 692 . . 3 (𝜑 → ⟨𝐺, 𝑌⟩ ∈ ((𝐶 Func 𝐷) × 𝐵))
73 ovex 6633 . . . . 5 (𝐹𝑁𝐺) ∈ V
74 ovex 6633 . . . . 5 (𝑋𝐻𝑌) ∈ V
7573, 74mpt2ex 7193 . . . 4 (𝑎 ∈ (𝐹𝑁𝐺), 𝑔 ∈ (𝑋𝐻𝑌) ↦ ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔))) ∈ V
7675a1i 11 . . 3 (𝜑 → (𝑎 ∈ (𝐹𝑁𝐺), 𝑔 ∈ (𝑋𝐻𝑌) ↦ ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔))) ∈ V)
7717, 68, 70, 72, 76ovmpt2d 6742 . 2 (𝜑 → (⟨𝐹, 𝑋⟩(2nd𝐸)⟨𝐺, 𝑌⟩) = (𝑎 ∈ (𝐹𝑁𝐺), 𝑔 ∈ (𝑋𝐻𝑌) ↦ ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔))))
781, 77syl5eq 2672 1 (𝜑𝐿 = (𝑎 ∈ (𝐹𝑁𝐺), 𝑔 ∈ (𝑋𝐻𝑌) ↦ ((𝑎𝑌)(⟨((1st𝐹)‘𝑋), ((1st𝐹)‘𝑌)⟩ · ((1st𝐺)‘𝑌))((𝑋(2nd𝐹)𝑌)‘𝑔))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 384   = wceq 1480  wcel 1992  Vcvv 3191  csb 3519  cop 4159   × cxp 5077  cfv 5850  (class class class)co 6605  cmpt2 6607  1st c1st 7114  2nd c2nd 7115  Basecbs 15776  Hom chom 15868  compcco 15869  Catccat 16241   Func cfunc 16430   Nat cnat 16517   evalF cevlf 16765
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 1841  ax-6 1890  ax-7 1937  ax-8 1994  ax-9 2001  ax-10 2021  ax-11 2036  ax-12 2049  ax-13 2250  ax-ext 2606  ax-rep 4736  ax-sep 4746  ax-nul 4754  ax-pow 4808  ax-pr 4872  ax-un 6903
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 1883  df-eu 2478  df-mo 2479  df-clab 2613  df-cleq 2619  df-clel 2622  df-nfc 2756  df-ne 2797  df-ral 2917  df-rex 2918  df-reu 2919  df-rab 2921  df-v 3193  df-sbc 3423  df-csb 3520  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-nul 3897  df-if 4064  df-pw 4137  df-sn 4154  df-pr 4156  df-op 4160  df-uni 4408  df-iun 4492  df-br 4619  df-opab 4679  df-mpt 4680  df-id 4994  df-xp 5085  df-rel 5086  df-cnv 5087  df-co 5088  df-dm 5089  df-rn 5090  df-res 5091  df-ima 5092  df-iota 5813  df-fun 5852  df-fn 5853  df-f 5854  df-f1 5855  df-fo 5856  df-f1o 5857  df-fv 5858  df-ov 6608  df-oprab 6609  df-mpt2 6610  df-1st 7116  df-2nd 7117  df-evlf 16769
This theorem is referenced by:  evlf2val  16775  evlfcl  16778
  Copyright terms: Public domain W3C validator