evlfcllem - Metamath Proof Explorer

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

Theorem evlfcllem 17304

Description: Lemma for evlfcl 17305. (Contributed by Mario Carneiro, 12-Jan-2017.)

**Hypotheses**
Ref	Expression
evlfcl.e	⊢ 𝐸 = (𝐶 eval_F 𝐷)
evlfcl.q	⊢ 𝑄 = (𝐶 FuncCat 𝐷)
evlfcl.c	⊢ (𝜑 → 𝐶 ∈ Cat)
evlfcl.d	⊢ (𝜑 → 𝐷 ∈ Cat)
evlfcl.n	⊢ 𝑁 = (𝐶 Nat 𝐷)
evlfcl.f	⊢ (𝜑 → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (Base‘𝐶)))
evlfcl.g	⊢ (𝜑 → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝑌 ∈ (Base‘𝐶)))
evlfcl.h	⊢ (𝜑 → (𝐻 ∈ (𝐶 Func 𝐷) ∧ 𝑍 ∈ (Base‘𝐶)))
evlfcl.a	⊢ (𝜑 → (𝐴 ∈ (𝐹𝑁𝐺) ∧ 𝐾 ∈ (𝑋(Hom ‘𝐶)𝑌)))
evlfcl.b	⊢ (𝜑 → (𝐵 ∈ (𝐺𝑁𝐻) ∧ 𝐿 ∈ (𝑌(Hom ‘𝐶)𝑍)))

**Assertion**
Ref	Expression
evlfcllem	⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘(⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩)) = (((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩)(⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩(comp‘𝐷)((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩))((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩)))

**Proof of Theorem evlfcllem**
Step	Hyp	Ref	Expression
1		evlfcl.e	. . . 4 ⊢ 𝐸 = (𝐶 eval_F 𝐷)
2		evlfcl.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
3		evlfcl.d	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
4		eqid 2797	. . . 4 ⊢ (Base‘𝐶) = (Base‘𝐶)
5		eqid 2797	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
6		eqid 2797	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
7		evlfcl.n	. . . 4 ⊢ 𝑁 = (𝐶 Nat 𝐷)
8		evlfcl.f	. . . . 5 ⊢ (𝜑 → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (Base‘𝐶)))
9	8	simpld 495	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
10		evlfcl.h	. . . . 5 ⊢ (𝜑 → (𝐻 ∈ (𝐶 Func 𝐷) ∧ 𝑍 ∈ (Base‘𝐶)))
11	10	simpld 495	. . . 4 ⊢ (𝜑 → 𝐻 ∈ (𝐶 Func 𝐷))
12	8	simprd 496	. . . 4 ⊢ (𝜑 → 𝑋 ∈ (Base‘𝐶))
13	10	simprd 496	. . . 4 ⊢ (𝜑 → 𝑍 ∈ (Base‘𝐶))
14		eqid 2797	. . . 4 ⊢ (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩) = (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)
15		evlfcl.q	. . . . 5 ⊢ 𝑄 = (𝐶 FuncCat 𝐷)
16		eqid 2797	. . . . 5 ⊢ (comp‘𝑄) = (comp‘𝑄)
17		evlfcl.a	. . . . . 6 ⊢ (𝜑 → (𝐴 ∈ (𝐹𝑁𝐺) ∧ 𝐾 ∈ (𝑋(Hom ‘𝐶)𝑌)))
18	17	simpld 495	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ (𝐹𝑁𝐺))
19		evlfcl.b	. . . . . 6 ⊢ (𝜑 → (𝐵 ∈ (𝐺𝑁𝐻) ∧ 𝐿 ∈ (𝑌(Hom ‘𝐶)𝑍)))
20	19	simpld 495	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ (𝐺𝑁𝐻))
21	15, 7, 16, 18, 20	fuccocl 17067	. . . 4 ⊢ (𝜑 → (𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴) ∈ (𝐹𝑁𝐻))
22		eqid 2797	. . . . 5 ⊢ (comp‘𝐶) = (comp‘𝐶)
23		evlfcl.g	. . . . . 6 ⊢ (𝜑 → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝑌 ∈ (Base‘𝐶)))
24	23	simprd 496	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (Base‘𝐶))
25	17	simprd 496	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ (𝑋(Hom ‘𝐶)𝑌))
26	19	simprd 496	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ (𝑌(Hom ‘𝐶)𝑍))
27	4, 5, 22, 2, 12, 24, 13, 25, 26	catcocl 16789	. . . 4 ⊢ (𝜑 → (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾) ∈ (𝑋(Hom ‘𝐶)𝑍))
28	1, 2, 3, 4, 5, 6, 7, 9, 11, 12, 13, 14, 21, 27	evlf2val 17302	. . 3 ⊢ (𝜑 → ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)) = (((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)‘𝑍)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑍)‘(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾))))
29	15, 7, 4, 6, 16, 18, 20, 13	fuccoval 17066	. . . 4 ⊢ (𝜑 → ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)‘𝑍) = ((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍)))
30	29	oveq1d 7038	. . 3 ⊢ (𝜑 → (((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)‘𝑍)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑍)‘(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾))) = (((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑍)‘(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾))))
31		relfunc 16965	. . . . . . 7 ⊢ Rel (𝐶 Func 𝐷)
32		1st2ndbr 7604	. . . . . . 7 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
33	31, 9, 32	sylancr 587	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
34	4, 5, 22, 6, 33, 12, 24, 13, 25, 26	funcco 16974	. . . . 5 ⊢ (𝜑 → ((𝑋(2^nd ‘𝐹)𝑍)‘(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)) = (((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
35	34	oveq2d 7039	. . . 4 ⊢ (𝜑 → (((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑍)‘(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾))) = (((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾))))
36	7, 18	nat1st2nd 17054	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩))
37	7, 36, 4, 5, 6, 24, 13, 26	nati 17058	. . . . . . . 8 ⊢ (𝜑 → ((𝐴‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)) = (((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))(𝐴‘𝑌)))
38	37	oveq2d 7039	. . . . . . 7 ⊢ (𝜑 → ((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝐴‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿))) = ((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))(𝐴‘𝑌))))
39		eqid 2797	. . . . . . . 8 ⊢ (Base‘𝐷) = (Base‘𝐷)
40		eqid 2797	. . . . . . . 8 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
41	4, 39, 33	funcf1 16969	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
42	41, 24	ffvelrnd 6724	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑌) ∈ (Base‘𝐷))
43	41, 13	ffvelrnd 6724	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑍) ∈ (Base‘𝐷))
44	23	simpld 495	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
45		1st2ndbr 7604	. . . . . . . . . . 11 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
46	31, 44, 45	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
47	4, 39, 46	funcf1 16969	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐺):(Base‘𝐶)⟶(Base‘𝐷))
48	47, 13	ffvelrnd 6724	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐺)‘𝑍) ∈ (Base‘𝐷))
49	4, 5, 40, 33, 24, 13	funcf2 16971	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2^nd ‘𝐹)𝑍):(𝑌(Hom ‘𝐶)𝑍)⟶(((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑍)))
50	49, 26	ffvelrnd 6724	. . . . . . . 8 ⊢ (𝜑 → ((𝑌(2^nd ‘𝐹)𝑍)‘𝐿) ∈ (((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑍)))
51	7, 36, 4, 40, 13	natcl 17056	. . . . . . . 8 ⊢ (𝜑 → (𝐴‘𝑍) ∈ (((1^st ‘𝐹)‘𝑍)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
52		1st2ndbr 7604	. . . . . . . . . . 11 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐻 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐻)(𝐶 Func 𝐷)(2^nd ‘𝐻))
53	31, 11, 52	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘𝐻)(𝐶 Func 𝐷)(2^nd ‘𝐻))
54	4, 39, 53	funcf1 16969	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐻):(Base‘𝐶)⟶(Base‘𝐷))
55	54, 13	ffvelrnd 6724	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐻)‘𝑍) ∈ (Base‘𝐷))
56	7, 20	nat1st2nd 17054	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ (⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩𝑁⟨(1^st ‘𝐻), (2^nd ‘𝐻)⟩))
57	7, 56, 4, 40, 13	natcl 17056	. . . . . . . 8 ⊢ (𝜑 → (𝐵‘𝑍) ∈ (((1^st ‘𝐺)‘𝑍)(Hom ‘𝐷)((1^st ‘𝐻)‘𝑍)))
58	39, 40, 6, 3, 42, 43, 48, 50, 51, 55, 57	catass 16790	. . . . . . 7 ⊢ (𝜑 → (((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)) = ((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝐴‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿))))
59	47, 24	ffvelrnd 6724	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐺)‘𝑌) ∈ (Base‘𝐷))
60	7, 36, 4, 40, 24	natcl 17056	. . . . . . . 8 ⊢ (𝜑 → (𝐴‘𝑌) ∈ (((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑌)))
61	4, 5, 40, 46, 24, 13	funcf2 16971	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2^nd ‘𝐺)𝑍):(𝑌(Hom ‘𝐶)𝑍)⟶(((1^st ‘𝐺)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
62	61, 26	ffvelrnd 6724	. . . . . . . 8 ⊢ (𝜑 → ((𝑌(2^nd ‘𝐺)𝑍)‘𝐿) ∈ (((1^st ‘𝐺)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
63	39, 40, 6, 3, 42, 59, 48, 60, 62, 55, 57	catass 16790	. . . . . . 7 ⊢ (𝜑 → (((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑌)) = ((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))(𝐴‘𝑌))))
64	38, 58, 63	3eqtr4d 2843	. . . . . 6 ⊢ (𝜑 → (((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)) = (((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑌)))
65	64	oveq1d 7038	. . . . 5 ⊢ (𝜑 → ((((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)) = ((((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑌))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
66	41, 12	ffvelrnd 6724	. . . . . 6 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑋) ∈ (Base‘𝐷))
67	4, 5, 40, 33, 12, 24	funcf2 16971	. . . . . . 7 ⊢ (𝜑 → (𝑋(2^nd ‘𝐹)𝑌):(𝑋(Hom ‘𝐶)𝑌)⟶(((1^st ‘𝐹)‘𝑋)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑌)))
68	67, 25	ffvelrnd 6724	. . . . . 6 ⊢ (𝜑 → ((𝑋(2^nd ‘𝐹)𝑌)‘𝐾) ∈ (((1^st ‘𝐹)‘𝑋)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑌)))
69	39, 40, 6, 3, 43, 48, 55, 51, 57	catcocl 16789	. . . . . 6 ⊢ (𝜑 → ((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍)) ∈ (((1^st ‘𝐹)‘𝑍)(Hom ‘𝐷)((1^st ‘𝐻)‘𝑍)))
70	39, 40, 6, 3, 66, 42, 43, 68, 50, 55, 69	catass 16790	. . . . 5 ⊢ (𝜑 → ((((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)) = (((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾))))
71	39, 40, 6, 3, 59, 48, 55, 62, 57	catcocl 16789	. . . . . 6 ⊢ (𝜑 → ((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)) ∈ (((1^st ‘𝐺)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐻)‘𝑍)))
72	39, 40, 6, 3, 66, 42, 59, 68, 60, 55, 71	catass 16790	. . . . 5 ⊢ (𝜑 → ((((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑌))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)) = (((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾))))
73	65, 70, 72	3eqtr3d 2841	. . . 4 ⊢ (𝜑 → (((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾))) = (((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾))))
74	35, 73	eqtrd 2833	. . 3 ⊢ (𝜑 → (((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑋(2^nd ‘𝐹)𝑍)‘(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾))) = (((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾))))
75	28, 30, 74	3eqtrd 2837	. 2 ⊢ (𝜑 → ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)) = (((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾))))
76		eqid 2797	. . . . 5 ⊢ (𝑄 ×_c 𝐶) = (𝑄 ×_c 𝐶)
77	15	fucbas 17063	. . . . 5 ⊢ (𝐶 Func 𝐷) = (Base‘𝑄)
78	15, 7	fuchom 17064	. . . . 5 ⊢ 𝑁 = (Hom ‘𝑄)
79		eqid 2797	. . . . 5 ⊢ (comp‘(𝑄 ×_c 𝐶)) = (comp‘(𝑄 ×_c 𝐶))
80	76, 77, 4, 78, 5, 9, 12, 44, 24, 16, 22, 79, 11, 13, 18, 25, 20, 26	xpcco2 17270	. . . 4 ⊢ (𝜑 → (⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩) = ⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩)
81	80	fveq2d 6549	. . 3 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘(⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩)) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩))
82		df-ov 7026	. . 3 ⊢ ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩)
83	81, 82	syl6eqr 2851	. 2 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘(⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩)) = ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)))
84		df-ov 7026	. . . . . 6 ⊢ (𝐹(1^st ‘𝐸)𝑋) = ((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩)
85	1, 2, 3, 4, 9, 12	evlf1 17303	. . . . . 6 ⊢ (𝜑 → (𝐹(1^st ‘𝐸)𝑋) = ((1^st ‘𝐹)‘𝑋))
86	84, 85	syl5eqr 2847	. . . . 5 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩) = ((1^st ‘𝐹)‘𝑋))
87		df-ov 7026	. . . . . 6 ⊢ (𝐺(1^st ‘𝐸)𝑌) = ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)
88	1, 2, 3, 4, 44, 24	evlf1 17303	. . . . . 6 ⊢ (𝜑 → (𝐺(1^st ‘𝐸)𝑌) = ((1^st ‘𝐺)‘𝑌))
89	87, 88	syl5eqr 2847	. . . . 5 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩) = ((1^st ‘𝐺)‘𝑌))
90	86, 89	opeq12d 4724	. . . 4 ⊢ (𝜑 → ⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩ = ⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩)
91		df-ov 7026	. . . . 5 ⊢ (𝐻(1^st ‘𝐸)𝑍) = ((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩)
92	1, 2, 3, 4, 11, 13	evlf1 17303	. . . . 5 ⊢ (𝜑 → (𝐻(1^st ‘𝐸)𝑍) = ((1^st ‘𝐻)‘𝑍))
93	91, 92	syl5eqr 2847	. . . 4 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩) = ((1^st ‘𝐻)‘𝑍))
94	90, 93	oveq12d 7041	. . 3 ⊢ (𝜑 → (⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩(comp‘𝐷)((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩)) = (⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍)))
95		df-ov 7026	. . . 4 ⊢ (𝐵(⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)𝐿) = ((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩)
96		eqid 2797	. . . . 5 ⊢ (⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩) = (⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)
97	1, 2, 3, 4, 5, 6, 7, 44, 11, 24, 13, 96, 20, 26	evlf2val 17302	. . . 4 ⊢ (𝜑 → (𝐵(⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)𝐿) = ((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)))
98	95, 97	syl5eqr 2847	. . 3 ⊢ (𝜑 → ((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩) = ((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)))
99		df-ov 7026	. . . 4 ⊢ (𝐴(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)𝐾) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩)
100		eqid 2797	. . . . 5 ⊢ (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩) = (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)
101	1, 2, 3, 4, 5, 6, 7, 9, 44, 12, 24, 100, 18, 25	evlf2val 17302	. . . 4 ⊢ (𝜑 → (𝐴(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)𝐾) = ((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
102	99, 101	syl5eqr 2847	. . 3 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩) = ((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
103	94, 98, 102	oveq123d 7044	. 2 ⊢ (𝜑 → (((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩)(⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩(comp‘𝐷)((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩))((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩)) = (((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿))(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾))))
104	75, 83, 103	3eqtr4d 2843	1 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘(⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩)) = (((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩)(⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩(comp‘𝐷)((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩))((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 = wceq 1525 ∈ wcel 2083 ⟨cop 4484 class class class wbr 4968 Rel wrel 5455 ‘cfv 6232 (class class class)co 7023 1^st c1st 7550 2^nd c2nd 7551 Basecbs 16316 Hom chom 16409 compcco 16410 Catccat 16768 Func cfunc 16957 Nat cnat 17044 FuncCat cfuc 17045 ×_c cxpc 17251 eval_F cevlf 17292

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1781 ax-4 1795 ax-5 1892 ax-6 1951 ax-7 1996 ax-8 2085 ax-9 2093 ax-10 2114 ax-11 2128 ax-12 2143 ax-13 2346 ax-ext 2771 ax-rep 5088 ax-sep 5101 ax-nul 5108 ax-pow 5164 ax-pr 5228 ax-un 7326 ax-cnex 10446 ax-resscn 10447 ax-1cn 10448 ax-icn 10449 ax-addcl 10450 ax-addrcl 10451 ax-mulcl 10452 ax-mulrcl 10453 ax-mulcom 10454 ax-addass 10455 ax-mulass 10456 ax-distr 10457 ax-i2m1 10458 ax-1ne0 10459 ax-1rid 10460 ax-rnegex 10461 ax-rrecex 10462 ax-cnre 10463 ax-pre-lttri 10464 ax-pre-lttrn 10465 ax-pre-ltadd 10466 ax-pre-mulgt0 10467

This theorem depends on definitions: df-bi 208 df-an 397 df-or 843 df-3or 1081 df-3an 1082 df-tru 1528 df-fal 1538 df-ex 1766 df-nf 1770 df-sb 2045 df-mo 2578 df-eu 2614 df-clab 2778 df-cleq 2790 df-clel 2865 df-nfc 2937 df-ne 2987 df-nel 3093 df-ral 3112 df-rex 3113 df-reu 3114 df-rab 3116 df-v 3442 df-sbc 3712 df-csb 3818 df-dif 3868 df-un 3870 df-in 3872 df-ss 3880 df-pss 3882 df-nul 4218 df-if 4388 df-pw 4461 df-sn 4479 df-pr 4481 df-tp 4483 df-op 4485 df-uni 4752 df-int 4789 df-iun 4833 df-br 4969 df-opab 5031 df-mpt 5048 df-tr 5071 df-id 5355 df-eprel 5360 df-po 5369 df-so 5370 df-fr 5409 df-we 5411 df-xp 5456 df-rel 5457 df-cnv 5458 df-co 5459 df-dm 5460 df-rn 5461 df-res 5462 df-ima 5463 df-pred 6030 df-ord 6076 df-on 6077 df-lim 6078 df-suc 6079 df-iota 6196 df-fun 6234 df-fn 6235 df-f 6236 df-f1 6237 df-fo 6238 df-f1o 6239 df-fv 6240 df-riota 6984 df-ov 7026 df-oprab 7027 df-mpo 7028 df-om 7444 df-1st 7552 df-2nd 7553 df-wrecs 7805 df-recs 7867 df-rdg 7905 df-1o 7960 df-oadd 7964 df-er 8146 df-map 8265 df-ixp 8318 df-en 8365 df-dom 8366 df-sdom 8367 df-fin 8368 df-pnf 10530 df-mnf 10531 df-xr 10532 df-ltxr 10533 df-le 10534 df-sub 10725 df-neg 10726 df-nn 11493 df-2 11554 df-3 11555 df-4 11556 df-5 11557 df-6 11558 df-7 11559 df-8 11560 df-9 11561 df-n0 11752 df-z 11836 df-dec 11953 df-uz 12098 df-fz 12747 df-struct 16318 df-ndx 16319 df-slot 16320 df-base 16322 df-hom 16422 df-cco 16423 df-cat 16772 df-func 16961 df-nat 17046 df-fuc 17047 df-xpc 17255 df-evlf 17296

This theorem is referenced by: evlfcl 17305

W3C validator