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 18246

Description: Lemma for evlfcl 18247. (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 2726	. . . 4 ⊢ (Base‘𝐶) = (Base‘𝐶)
5		eqid 2726	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
6		eqid 2726	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
7		evlfcl.n	. . . 4 ⊢ 𝑁 = (𝐶 Nat 𝐷)
8		evlfcl.f	. . . . 5 ⊢ (𝜑 → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (Base‘𝐶)))
9	8	simpld 493	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
10		evlfcl.h	. . . . 5 ⊢ (𝜑 → (𝐻 ∈ (𝐶 Func 𝐷) ∧ 𝑍 ∈ (Base‘𝐶)))
11	10	simpld 493	. . . 4 ⊢ (𝜑 → 𝐻 ∈ (𝐶 Func 𝐷))
12	8	simprd 494	. . . 4 ⊢ (𝜑 → 𝑋 ∈ (Base‘𝐶))
13	10	simprd 494	. . . 4 ⊢ (𝜑 → 𝑍 ∈ (Base‘𝐶))
14		eqid 2726	. . . 4 ⊢ (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩) = (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)
15		evlfcl.q	. . . . 5 ⊢ 𝑄 = (𝐶 FuncCat 𝐷)
16		eqid 2726	. . . . 5 ⊢ (comp‘𝑄) = (comp‘𝑄)
17		evlfcl.a	. . . . . 6 ⊢ (𝜑 → (𝐴 ∈ (𝐹𝑁𝐺) ∧ 𝐾 ∈ (𝑋(Hom ‘𝐶)𝑌)))
18	17	simpld 493	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ (𝐹𝑁𝐺))
19		evlfcl.b	. . . . . 6 ⊢ (𝜑 → (𝐵 ∈ (𝐺𝑁𝐻) ∧ 𝐿 ∈ (𝑌(Hom ‘𝐶)𝑍)))
20	19	simpld 493	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ (𝐺𝑁𝐻))
21	15, 7, 16, 18, 20	fuccocl 17989	. . . 4 ⊢ (𝜑 → (𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴) ∈ (𝐹𝑁𝐻))
22		eqid 2726	. . . . 5 ⊢ (comp‘𝐶) = (comp‘𝐶)
23		evlfcl.g	. . . . . 6 ⊢ (𝜑 → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝑌 ∈ (Base‘𝐶)))
24	23	simprd 494	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (Base‘𝐶))
25	17	simprd 494	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ (𝑋(Hom ‘𝐶)𝑌))
26	19	simprd 494	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ (𝑌(Hom ‘𝐶)𝑍))
27	4, 5, 22, 2, 12, 24, 13, 25, 26	catcocl 17698	. . . 4 ⊢ (𝜑 → (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾) ∈ (𝑋(Hom ‘𝐶)𝑍))
28	1, 2, 3, 4, 5, 6, 7, 9, 11, 12, 13, 14, 21, 27	evlf2val 18244	. . 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 17988	. . . 4 ⊢ (𝜑 → ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)‘𝑍) = ((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍)))
30	29	oveq1d 7439	. . 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 17881	. . . . . . 7 ⊢ Rel (𝐶 Func 𝐷)
32		1st2ndbr 8056	. . . . . . 7 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
33	31, 9, 32	sylancr 585	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
34	4, 5, 22, 6, 33, 12, 24, 13, 25, 26	funcco 17890	. . . . 5 ⊢ (𝜑 → ((𝑋(2^nd ‘𝐹)𝑍)‘(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)) = (((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
35	34	oveq2d 7440	. . . 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 17974	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩))
37	7, 36, 4, 5, 6, 24, 13, 26	nati 17978	. . . . . . . 8 ⊢ (𝜑 → ((𝐴‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)) = (((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))(𝐴‘𝑌)))
38	37	oveq2d 7440	. . . . . . 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 2726	. . . . . . . 8 ⊢ (Base‘𝐷) = (Base‘𝐷)
40		eqid 2726	. . . . . . . 8 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
41	4, 39, 33	funcf1 17885	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
42	41, 24	ffvelcdmd 7099	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑌) ∈ (Base‘𝐷))
43	41, 13	ffvelcdmd 7099	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑍) ∈ (Base‘𝐷))
44	23	simpld 493	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
45		1st2ndbr 8056	. . . . . . . . . . 11 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
46	31, 44, 45	sylancr 585	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
47	4, 39, 46	funcf1 17885	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐺):(Base‘𝐶)⟶(Base‘𝐷))
48	47, 13	ffvelcdmd 7099	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐺)‘𝑍) ∈ (Base‘𝐷))
49	4, 5, 40, 33, 24, 13	funcf2 17887	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2^nd ‘𝐹)𝑍):(𝑌(Hom ‘𝐶)𝑍)⟶(((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑍)))
50	49, 26	ffvelcdmd 7099	. . . . . . . 8 ⊢ (𝜑 → ((𝑌(2^nd ‘𝐹)𝑍)‘𝐿) ∈ (((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑍)))
51	7, 36, 4, 40, 13	natcl 17976	. . . . . . . 8 ⊢ (𝜑 → (𝐴‘𝑍) ∈ (((1^st ‘𝐹)‘𝑍)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
52		1st2ndbr 8056	. . . . . . . . . . 11 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐻 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐻)(𝐶 Func 𝐷)(2^nd ‘𝐻))
53	31, 11, 52	sylancr 585	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘𝐻)(𝐶 Func 𝐷)(2^nd ‘𝐻))
54	4, 39, 53	funcf1 17885	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐻):(Base‘𝐶)⟶(Base‘𝐷))
55	54, 13	ffvelcdmd 7099	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐻)‘𝑍) ∈ (Base‘𝐷))
56	7, 20	nat1st2nd 17974	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ (⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩𝑁⟨(1^st ‘𝐻), (2^nd ‘𝐻)⟩))
57	7, 56, 4, 40, 13	natcl 17976	. . . . . . . 8 ⊢ (𝜑 → (𝐵‘𝑍) ∈ (((1^st ‘𝐺)‘𝑍)(Hom ‘𝐷)((1^st ‘𝐻)‘𝑍)))
58	39, 40, 6, 3, 42, 43, 48, 50, 51, 55, 57	catass 17699	. . . . . . 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	ffvelcdmd 7099	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐺)‘𝑌) ∈ (Base‘𝐷))
60	7, 36, 4, 40, 24	natcl 17976	. . . . . . . 8 ⊢ (𝜑 → (𝐴‘𝑌) ∈ (((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑌)))
61	4, 5, 40, 46, 24, 13	funcf2 17887	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2^nd ‘𝐺)𝑍):(𝑌(Hom ‘𝐶)𝑍)⟶(((1^st ‘𝐺)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
62	61, 26	ffvelcdmd 7099	. . . . . . . 8 ⊢ (𝜑 → ((𝑌(2^nd ‘𝐺)𝑍)‘𝐿) ∈ (((1^st ‘𝐺)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
63	39, 40, 6, 3, 42, 59, 48, 60, 62, 55, 57	catass 17699	. . . . . . 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 2776	. . . . . 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 7439	. . . . 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	ffvelcdmd 7099	. . . . . 6 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑋) ∈ (Base‘𝐷))
67	4, 5, 40, 33, 12, 24	funcf2 17887	. . . . . . 7 ⊢ (𝜑 → (𝑋(2^nd ‘𝐹)𝑌):(𝑋(Hom ‘𝐶)𝑌)⟶(((1^st ‘𝐹)‘𝑋)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑌)))
68	67, 25	ffvelcdmd 7099	. . . . . 6 ⊢ (𝜑 → ((𝑋(2^nd ‘𝐹)𝑌)‘𝐾) ∈ (((1^st ‘𝐹)‘𝑋)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑌)))
69	39, 40, 6, 3, 43, 48, 55, 51, 57	catcocl 17698	. . . . . 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 17699	. . . . 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 17698	. . . . . 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 17699	. . . . 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 2774	. . . 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 2766	. . 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 2770	. 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 2726	. . . . 5 ⊢ (𝑄 ×_c 𝐶) = (𝑄 ×_c 𝐶)
77	15	fucbas 17984	. . . . 5 ⊢ (𝐶 Func 𝐷) = (Base‘𝑄)
78	15, 7	fuchom 17985	. . . . 5 ⊢ 𝑁 = (Hom ‘𝑄)
79		eqid 2726	. . . . 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 18211	. . . 4 ⊢ (𝜑 → (⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩) = ⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩)
81	80	fveq2d 6905	. . 3 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘(⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩)) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩))
82		df-ov 7427	. . 3 ⊢ ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩)
83	81, 82	eqtr4di 2784	. 2 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘(⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩)) = ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)))
84		df-ov 7427	. . . . . 6 ⊢ (𝐹(1^st ‘𝐸)𝑋) = ((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩)
85	1, 2, 3, 4, 9, 12	evlf1 18245	. . . . . 6 ⊢ (𝜑 → (𝐹(1^st ‘𝐸)𝑋) = ((1^st ‘𝐹)‘𝑋))
86	84, 85	eqtr3id 2780	. . . . 5 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩) = ((1^st ‘𝐹)‘𝑋))
87		df-ov 7427	. . . . . 6 ⊢ (𝐺(1^st ‘𝐸)𝑌) = ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)
88	1, 2, 3, 4, 44, 24	evlf1 18245	. . . . . 6 ⊢ (𝜑 → (𝐺(1^st ‘𝐸)𝑌) = ((1^st ‘𝐺)‘𝑌))
89	87, 88	eqtr3id 2780	. . . . 5 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩) = ((1^st ‘𝐺)‘𝑌))
90	86, 89	opeq12d 4887	. . . 4 ⊢ (𝜑 → ⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩ = ⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩)
91		df-ov 7427	. . . . 5 ⊢ (𝐻(1^st ‘𝐸)𝑍) = ((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩)
92	1, 2, 3, 4, 11, 13	evlf1 18245	. . . . 5 ⊢ (𝜑 → (𝐻(1^st ‘𝐸)𝑍) = ((1^st ‘𝐻)‘𝑍))
93	91, 92	eqtr3id 2780	. . . 4 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩) = ((1^st ‘𝐻)‘𝑍))
94	90, 93	oveq12d 7442	. . 3 ⊢ (𝜑 → (⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩(comp‘𝐷)((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩)) = (⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍)))
95		df-ov 7427	. . . 4 ⊢ (𝐵(⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)𝐿) = ((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩)
96		eqid 2726	. . . . 5 ⊢ (⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩) = (⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)
97	1, 2, 3, 4, 5, 6, 7, 44, 11, 24, 13, 96, 20, 26	evlf2val 18244	. . . 4 ⊢ (𝜑 → (𝐵(⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)𝐿) = ((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)))
98	95, 97	eqtr3id 2780	. . 3 ⊢ (𝜑 → ((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩) = ((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)))
99		df-ov 7427	. . . 4 ⊢ (𝐴(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)𝐾) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩)
100		eqid 2726	. . . . 5 ⊢ (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩) = (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)
101	1, 2, 3, 4, 5, 6, 7, 9, 44, 12, 24, 100, 18, 25	evlf2val 18244	. . . 4 ⊢ (𝜑 → (𝐴(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)𝐾) = ((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
102	99, 101	eqtr3id 2780	. . 3 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩) = ((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
103	94, 98, 102	oveq123d 7445	. 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 2776	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 394 = wceq 1534 ∈ wcel 2099 ⟨cop 4639 class class class wbr 5153 Rel wrel 5687 ‘cfv 6554 (class class class)co 7424 1^st c1st 8001 2^nd c2nd 8002 Basecbs 17213 Hom chom 17277 compcco 17278 Catccat 17677 Func cfunc 17873 Nat cnat 17964 FuncCat cfuc 17965 ×_c cxpc 18192 eval_F cevlf 18234

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2167 ax-ext 2697 ax-rep 5290 ax-sep 5304 ax-nul 5311 ax-pow 5369 ax-pr 5433 ax-un 7746 ax-cnex 11214 ax-resscn 11215 ax-1cn 11216 ax-icn 11217 ax-addcl 11218 ax-addrcl 11219 ax-mulcl 11220 ax-mulrcl 11221 ax-mulcom 11222 ax-addass 11223 ax-mulass 11224 ax-distr 11225 ax-i2m1 11226 ax-1ne0 11227 ax-1rid 11228 ax-rnegex 11229 ax-rrecex 11230 ax-cnre 11231 ax-pre-lttri 11232 ax-pre-lttrn 11233 ax-pre-ltadd 11234 ax-pre-mulgt0 11235

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2529 df-eu 2558 df-clab 2704 df-cleq 2718 df-clel 2803 df-nfc 2878 df-ne 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-reu 3365 df-rab 3420 df-v 3464 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3967 df-nul 4326 df-if 4534 df-pw 4609 df-sn 4634 df-pr 4636 df-tp 4638 df-op 4640 df-uni 4914 df-iun 5003 df-br 5154 df-opab 5216 df-mpt 5237 df-tr 5271 df-id 5580 df-eprel 5586 df-po 5594 df-so 5595 df-fr 5637 df-we 5639 df-xp 5688 df-rel 5689 df-cnv 5690 df-co 5691 df-dm 5692 df-rn 5693 df-res 5694 df-ima 5695 df-pred 6312 df-ord 6379 df-on 6380 df-lim 6381 df-suc 6382 df-iota 6506 df-fun 6556 df-fn 6557 df-f 6558 df-f1 6559 df-fo 6560 df-f1o 6561 df-fv 6562 df-riota 7380 df-ov 7427 df-oprab 7428 df-mpo 7429 df-om 7877 df-1st 8003 df-2nd 8004 df-frecs 8296 df-wrecs 8327 df-recs 8401 df-rdg 8440 df-1o 8496 df-er 8734 df-map 8857 df-ixp 8927 df-en 8975 df-dom 8976 df-sdom 8977 df-fin 8978 df-pnf 11300 df-mnf 11301 df-xr 11302 df-ltxr 11303 df-le 11304 df-sub 11496 df-neg 11497 df-nn 12265 df-2 12327 df-3 12328 df-4 12329 df-5 12330 df-6 12331 df-7 12332 df-8 12333 df-9 12334 df-n0 12525 df-z 12611 df-dec 12730 df-uz 12875 df-fz 13539 df-struct 17149 df-slot 17184 df-ndx 17196 df-base 17214 df-hom 17290 df-cco 17291 df-cat 17681 df-func 17877 df-nat 17966 df-fuc 17967 df-xpc 18196 df-evlf 18238

This theorem is referenced by: evlfcl 18247

W3C validator