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 18187

Description: Lemma for evlfcl 18188. (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 2736	. . . 4 ⊢ (Base‘𝐶) = (Base‘𝐶)
5		eqid 2736	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
6		eqid 2736	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
7		evlfcl.n	. . . 4 ⊢ 𝑁 = (𝐶 Nat 𝐷)
8		evlfcl.f	. . . . 5 ⊢ (𝜑 → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (Base‘𝐶)))
9	8	simpld 494	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
10		evlfcl.h	. . . . 5 ⊢ (𝜑 → (𝐻 ∈ (𝐶 Func 𝐷) ∧ 𝑍 ∈ (Base‘𝐶)))
11	10	simpld 494	. . . 4 ⊢ (𝜑 → 𝐻 ∈ (𝐶 Func 𝐷))
12	8	simprd 495	. . . 4 ⊢ (𝜑 → 𝑋 ∈ (Base‘𝐶))
13	10	simprd 495	. . . 4 ⊢ (𝜑 → 𝑍 ∈ (Base‘𝐶))
14		eqid 2736	. . . 4 ⊢ (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩) = (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)
15		evlfcl.q	. . . . 5 ⊢ 𝑄 = (𝐶 FuncCat 𝐷)
16		eqid 2736	. . . . 5 ⊢ (comp‘𝑄) = (comp‘𝑄)
17		evlfcl.a	. . . . . 6 ⊢ (𝜑 → (𝐴 ∈ (𝐹𝑁𝐺) ∧ 𝐾 ∈ (𝑋(Hom ‘𝐶)𝑌)))
18	17	simpld 494	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ (𝐹𝑁𝐺))
19		evlfcl.b	. . . . . 6 ⊢ (𝜑 → (𝐵 ∈ (𝐺𝑁𝐻) ∧ 𝐿 ∈ (𝑌(Hom ‘𝐶)𝑍)))
20	19	simpld 494	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ (𝐺𝑁𝐻))
21	15, 7, 16, 18, 20	fuccocl 17934	. . . 4 ⊢ (𝜑 → (𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴) ∈ (𝐹𝑁𝐻))
22		eqid 2736	. . . . 5 ⊢ (comp‘𝐶) = (comp‘𝐶)
23		evlfcl.g	. . . . . 6 ⊢ (𝜑 → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝑌 ∈ (Base‘𝐶)))
24	23	simprd 495	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (Base‘𝐶))
25	17	simprd 495	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ (𝑋(Hom ‘𝐶)𝑌))
26	19	simprd 495	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ (𝑌(Hom ‘𝐶)𝑍))
27	4, 5, 22, 2, 12, 24, 13, 25, 26	catcocl 17651	. . . 4 ⊢ (𝜑 → (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾) ∈ (𝑋(Hom ‘𝐶)𝑍))
28	1, 2, 3, 4, 5, 6, 7, 9, 11, 12, 13, 14, 21, 27	evlf2val 18185	. . 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 17933	. . . 4 ⊢ (𝜑 → ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)‘𝑍) = ((𝐵‘𝑍)(⟨((1^st ‘𝐹)‘𝑍), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))(𝐴‘𝑍)))
30	29	oveq1d 7382	. . 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 17829	. . . . . . 7 ⊢ Rel (𝐶 Func 𝐷)
32		1st2ndbr 7995	. . . . . . 7 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
33	31, 9, 32	sylancr 588	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
34	4, 5, 22, 6, 33, 12, 24, 13, 25, 26	funcco 17838	. . . . 5 ⊢ (𝜑 → ((𝑋(2^nd ‘𝐹)𝑍)‘(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)) = (((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑍))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
35	34	oveq2d 7383	. . . 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 17921	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩))
37	7, 36, 4, 5, 6, 24, 13, 26	nati 17925	. . . . . . . 8 ⊢ (𝜑 → ((𝐴‘𝑍)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐹)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))((𝑌(2^nd ‘𝐹)𝑍)‘𝐿)) = (((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)(⟨((1^st ‘𝐹)‘𝑌), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑍))(𝐴‘𝑌)))
38	37	oveq2d 7383	. . . . . . 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 2736	. . . . . . . 8 ⊢ (Base‘𝐷) = (Base‘𝐷)
40		eqid 2736	. . . . . . . 8 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
41	4, 39, 33	funcf1 17833	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
42	41, 24	ffvelcdmd 7037	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑌) ∈ (Base‘𝐷))
43	41, 13	ffvelcdmd 7037	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑍) ∈ (Base‘𝐷))
44	23	simpld 494	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
45		1st2ndbr 7995	. . . . . . . . . . 11 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
46	31, 44, 45	sylancr 588	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
47	4, 39, 46	funcf1 17833	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐺):(Base‘𝐶)⟶(Base‘𝐷))
48	47, 13	ffvelcdmd 7037	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐺)‘𝑍) ∈ (Base‘𝐷))
49	4, 5, 40, 33, 24, 13	funcf2 17835	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2^nd ‘𝐹)𝑍):(𝑌(Hom ‘𝐶)𝑍)⟶(((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑍)))
50	49, 26	ffvelcdmd 7037	. . . . . . . 8 ⊢ (𝜑 → ((𝑌(2^nd ‘𝐹)𝑍)‘𝐿) ∈ (((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑍)))
51	7, 36, 4, 40, 13	natcl 17923	. . . . . . . 8 ⊢ (𝜑 → (𝐴‘𝑍) ∈ (((1^st ‘𝐹)‘𝑍)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
52		1st2ndbr 7995	. . . . . . . . . . 11 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐻 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐻)(𝐶 Func 𝐷)(2^nd ‘𝐻))
53	31, 11, 52	sylancr 588	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘𝐻)(𝐶 Func 𝐷)(2^nd ‘𝐻))
54	4, 39, 53	funcf1 17833	. . . . . . . . 9 ⊢ (𝜑 → (1^st ‘𝐻):(Base‘𝐶)⟶(Base‘𝐷))
55	54, 13	ffvelcdmd 7037	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐻)‘𝑍) ∈ (Base‘𝐷))
56	7, 20	nat1st2nd 17921	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ (⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩𝑁⟨(1^st ‘𝐻), (2^nd ‘𝐻)⟩))
57	7, 56, 4, 40, 13	natcl 17923	. . . . . . . 8 ⊢ (𝜑 → (𝐵‘𝑍) ∈ (((1^st ‘𝐺)‘𝑍)(Hom ‘𝐷)((1^st ‘𝐻)‘𝑍)))
58	39, 40, 6, 3, 42, 43, 48, 50, 51, 55, 57	catass 17652	. . . . . . 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 7037	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘𝐺)‘𝑌) ∈ (Base‘𝐷))
60	7, 36, 4, 40, 24	natcl 17923	. . . . . . . 8 ⊢ (𝜑 → (𝐴‘𝑌) ∈ (((1^st ‘𝐹)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑌)))
61	4, 5, 40, 46, 24, 13	funcf2 17835	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2^nd ‘𝐺)𝑍):(𝑌(Hom ‘𝐶)𝑍)⟶(((1^st ‘𝐺)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
62	61, 26	ffvelcdmd 7037	. . . . . . . 8 ⊢ (𝜑 → ((𝑌(2^nd ‘𝐺)𝑍)‘𝐿) ∈ (((1^st ‘𝐺)‘𝑌)(Hom ‘𝐷)((1^st ‘𝐺)‘𝑍)))
63	39, 40, 6, 3, 42, 59, 48, 60, 62, 55, 57	catass 17652	. . . . . . 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 2781	. . . . . 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 7382	. . . . 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 7037	. . . . . 6 ⊢ (𝜑 → ((1^st ‘𝐹)‘𝑋) ∈ (Base‘𝐷))
67	4, 5, 40, 33, 12, 24	funcf2 17835	. . . . . . 7 ⊢ (𝜑 → (𝑋(2^nd ‘𝐹)𝑌):(𝑋(Hom ‘𝐶)𝑌)⟶(((1^st ‘𝐹)‘𝑋)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑌)))
68	67, 25	ffvelcdmd 7037	. . . . . 6 ⊢ (𝜑 → ((𝑋(2^nd ‘𝐹)𝑌)‘𝐾) ∈ (((1^st ‘𝐹)‘𝑋)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑌)))
69	39, 40, 6, 3, 43, 48, 55, 51, 57	catcocl 17651	. . . . . 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 17652	. . . . 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 17651	. . . . . 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 17652	. . . . 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 2779	. . . 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 2771	. . 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 2775	. 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 2736	. . . . 5 ⊢ (𝑄 ×_c 𝐶) = (𝑄 ×_c 𝐶)
77	15	fucbas 17930	. . . . 5 ⊢ (𝐶 Func 𝐷) = (Base‘𝑄)
78	15, 7	fuchom 17931	. . . . 5 ⊢ 𝑁 = (Hom ‘𝑄)
79		eqid 2736	. . . . 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 18153	. . . 4 ⊢ (𝜑 → (⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩) = ⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩)
81	80	fveq2d 6844	. . 3 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘(⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩)) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩))
82		df-ov 7370	. . 3 ⊢ ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨(𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴), (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)⟩)
83	81, 82	eqtr4di 2789	. 2 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘(⟨𝐵, 𝐿⟩(⟨⟨𝐹, 𝑋⟩, ⟨𝐺, 𝑌⟩⟩(comp‘(𝑄 ×_c 𝐶))⟨𝐻, 𝑍⟩)⟨𝐴, 𝐾⟩)) = ((𝐵(⟨𝐹, 𝐺⟩(comp‘𝑄)𝐻)𝐴)(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝐾)))
84		df-ov 7370	. . . . . 6 ⊢ (𝐹(1^st ‘𝐸)𝑋) = ((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩)
85	1, 2, 3, 4, 9, 12	evlf1 18186	. . . . . 6 ⊢ (𝜑 → (𝐹(1^st ‘𝐸)𝑋) = ((1^st ‘𝐹)‘𝑋))
86	84, 85	eqtr3id 2785	. . . . 5 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩) = ((1^st ‘𝐹)‘𝑋))
87		df-ov 7370	. . . . . 6 ⊢ (𝐺(1^st ‘𝐸)𝑌) = ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)
88	1, 2, 3, 4, 44, 24	evlf1 18186	. . . . . 6 ⊢ (𝜑 → (𝐺(1^st ‘𝐸)𝑌) = ((1^st ‘𝐺)‘𝑌))
89	87, 88	eqtr3id 2785	. . . . 5 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩) = ((1^st ‘𝐺)‘𝑌))
90	86, 89	opeq12d 4824	. . . 4 ⊢ (𝜑 → ⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩ = ⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩)
91		df-ov 7370	. . . . 5 ⊢ (𝐻(1^st ‘𝐸)𝑍) = ((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩)
92	1, 2, 3, 4, 11, 13	evlf1 18186	. . . . 5 ⊢ (𝜑 → (𝐻(1^st ‘𝐸)𝑍) = ((1^st ‘𝐻)‘𝑍))
93	91, 92	eqtr3id 2785	. . . 4 ⊢ (𝜑 → ((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩) = ((1^st ‘𝐻)‘𝑍))
94	90, 93	oveq12d 7385	. . 3 ⊢ (𝜑 → (⟨((1^st ‘𝐸)‘⟨𝐹, 𝑋⟩), ((1^st ‘𝐸)‘⟨𝐺, 𝑌⟩)⟩(comp‘𝐷)((1^st ‘𝐸)‘⟨𝐻, 𝑍⟩)) = (⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐺)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍)))
95		df-ov 7370	. . . 4 ⊢ (𝐵(⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)𝐿) = ((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩)
96		eqid 2736	. . . . 5 ⊢ (⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩) = (⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)
97	1, 2, 3, 4, 5, 6, 7, 44, 11, 24, 13, 96, 20, 26	evlf2val 18185	. . . 4 ⊢ (𝜑 → (𝐵(⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)𝐿) = ((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)))
98	95, 97	eqtr3id 2785	. . 3 ⊢ (𝜑 → ((⟨𝐺, 𝑌⟩(2^nd ‘𝐸)⟨𝐻, 𝑍⟩)‘⟨𝐵, 𝐿⟩) = ((𝐵‘𝑍)(⟨((1^st ‘𝐺)‘𝑌), ((1^st ‘𝐺)‘𝑍)⟩(comp‘𝐷)((1^st ‘𝐻)‘𝑍))((𝑌(2^nd ‘𝐺)𝑍)‘𝐿)))
99		df-ov 7370	. . . 4 ⊢ (𝐴(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)𝐾) = ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩)
100		eqid 2736	. . . . 5 ⊢ (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩) = (⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)
101	1, 2, 3, 4, 5, 6, 7, 9, 44, 12, 24, 100, 18, 25	evlf2val 18185	. . . 4 ⊢ (𝜑 → (𝐴(⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)𝐾) = ((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
102	99, 101	eqtr3id 2785	. . 3 ⊢ (𝜑 → ((⟨𝐹, 𝑋⟩(2^nd ‘𝐸)⟨𝐺, 𝑌⟩)‘⟨𝐴, 𝐾⟩) = ((𝐴‘𝑌)(⟨((1^st ‘𝐹)‘𝑋), ((1^st ‘𝐹)‘𝑌)⟩(comp‘𝐷)((1^st ‘𝐺)‘𝑌))((𝑋(2^nd ‘𝐹)𝑌)‘𝐾)))
103	94, 98, 102	oveq123d 7388	. 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 2781	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 395 = wceq 1542 ∈ wcel 2114 ⟨cop 4573 class class class wbr 5085 Rel wrel 5636 ‘cfv 6498 (class class class)co 7367 1^st c1st 7940 2^nd c2nd 7941 Basecbs 17179 Hom chom 17231 compcco 17232 Catccat 17630 Func cfunc 17821 Nat cnat 17911 FuncCat cfuc 17912 ×_c cxpc 18134 eval_F cevlf 18175

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 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2708 ax-rep 5212 ax-sep 5231 ax-nul 5241 ax-pow 5307 ax-pr 5375 ax-un 7689 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3062 df-reu 3343 df-rab 3390 df-v 3431 df-sbc 3729 df-csb 3838 df-dif 3892 df-un 3894 df-in 3896 df-ss 3906 df-pss 3909 df-nul 4274 df-if 4467 df-pw 4543 df-sn 4568 df-pr 4570 df-tp 4572 df-op 4574 df-uni 4851 df-iun 4935 df-br 5086 df-opab 5148 df-mpt 5167 df-tr 5193 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6265 df-ord 6326 df-on 6327 df-lim 6328 df-suc 6329 df-iota 6454 df-fun 6500 df-fn 6501 df-f 6502 df-f1 6503 df-fo 6504 df-f1o 6505 df-fv 6506 df-riota 7324 df-ov 7370 df-oprab 7371 df-mpo 7372 df-om 7818 df-1st 7942 df-2nd 7943 df-frecs 8231 df-wrecs 8262 df-recs 8311 df-rdg 8349 df-1o 8405 df-er 8643 df-map 8775 df-ixp 8846 df-en 8894 df-dom 8895 df-sdom 8896 df-fin 8897 df-pnf 11181 df-mnf 11182 df-xr 11183 df-ltxr 11184 df-le 11185 df-sub 11379 df-neg 11380 df-nn 12175 df-2 12244 df-3 12245 df-4 12246 df-5 12247 df-6 12248 df-7 12249 df-8 12250 df-9 12251 df-n0 12438 df-z 12525 df-dec 12645 df-uz 12789 df-fz 13462 df-struct 17117 df-slot 17152 df-ndx 17164 df-base 17180 df-hom 17244 df-cco 17245 df-cat 17634 df-func 17825 df-nat 17913 df-fuc 17914 df-xpc 18138 df-evlf 18179

This theorem is referenced by: evlfcl 18188

W3C validator