hofcllem - Metamath Proof Explorer

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

Theorem hofcllem 18259

Description: Lemma for hofcl 18260. (Contributed by Mario Carneiro, 15-Jan-2017.)

**Hypotheses**
Ref	Expression
hofcl.m	⊢ 𝑀 = (Hom_F‘𝐶)
hofcl.o	⊢ 𝑂 = (oppCat‘𝐶)
hofcl.d	⊢ 𝐷 = (SetCat‘𝑈)
hofcl.c	⊢ (𝜑 → 𝐶 ∈ Cat)
hofcl.u	⊢ (𝜑 → 𝑈 ∈ 𝑉)
hofcl.h	⊢ (𝜑 → ran (Hom_f ‘𝐶) ⊆ 𝑈)
hofcllem.b	⊢ 𝐵 = (Base‘𝐶)
hofcllem.h	⊢ 𝐻 = (Hom ‘𝐶)
hofcllem.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
hofcllem.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
hofcllem.z	⊢ (𝜑 → 𝑍 ∈ 𝐵)
hofcllem.w	⊢ (𝜑 → 𝑊 ∈ 𝐵)
hofcllem.s	⊢ (𝜑 → 𝑆 ∈ 𝐵)
hofcllem.t	⊢ (𝜑 → 𝑇 ∈ 𝐵)
hofcllem.m	⊢ (𝜑 → 𝐾 ∈ (𝑍𝐻𝑋))
hofcllem.n	⊢ (𝜑 → 𝐿 ∈ (𝑌𝐻𝑊))
hofcllem.p	⊢ (𝜑 → 𝑃 ∈ (𝑆𝐻𝑍))
hofcllem.q	⊢ (𝜑 → 𝑄 ∈ (𝑊𝐻𝑇))

**Assertion**
Ref	Expression
hofcllem	⊢ (𝜑 → ((𝐾(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑋)𝑃)(⟨𝑋, 𝑌⟩(2^nd ‘𝑀)⟨𝑆, 𝑇⟩)(𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)) = ((𝑃(⟨𝑍, 𝑊⟩(2^nd ‘𝑀)⟨𝑆, 𝑇⟩)𝑄)(⟨(𝑋𝐻𝑌), (𝑍𝐻𝑊)⟩(comp‘𝐷)(𝑆𝐻𝑇))(𝐾(⟨𝑋, 𝑌⟩(2^nd ‘𝑀)⟨𝑍, 𝑊⟩)𝐿)))

Proof of Theorem hofcllem Dummy variables 𝑓 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		hofcllem.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐶)
2		hofcllem.h	. . . . 5 ⊢ 𝐻 = (Hom ‘𝐶)
3		eqid 2728	. . . . 5 ⊢ (comp‘𝐶) = (comp‘𝐶)
4		hofcl.c	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Cat)
5	4	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝐶 ∈ Cat)
6		hofcllem.s	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ 𝐵)
7	6	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑆 ∈ 𝐵)
8		hofcllem.z	. . . . . 6 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
9	8	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑍 ∈ 𝐵)
10		hofcllem.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
11	10	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑋 ∈ 𝐵)
12		hofcllem.p	. . . . . 6 ⊢ (𝜑 → 𝑃 ∈ (𝑆𝐻𝑍))
13	12	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑃 ∈ (𝑆𝐻𝑍))
14		hofcllem.m	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ (𝑍𝐻𝑋))
15	14	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝐾 ∈ (𝑍𝐻𝑋))
16		hofcllem.t	. . . . . 6 ⊢ (𝜑 → 𝑇 ∈ 𝐵)
17	16	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑇 ∈ 𝐵)
18		hofcllem.y	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
19	18	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑌 ∈ 𝐵)
20		simpr 483	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑓 ∈ (𝑋𝐻𝑌))
21		hofcllem.w	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ 𝐵)
22		hofcllem.n	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ (𝑌𝐻𝑊))
23		hofcllem.q	. . . . . . . 8 ⊢ (𝜑 → 𝑄 ∈ (𝑊𝐻𝑇))
24	1, 2, 3, 4, 18, 21, 16, 22, 23	catcocl 17674	. . . . . . 7 ⊢ (𝜑 → (𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿) ∈ (𝑌𝐻𝑇))
25	24	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → (𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿) ∈ (𝑌𝐻𝑇))
26	1, 2, 3, 5, 11, 19, 17, 20, 25	catcocl 17674	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → ((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓) ∈ (𝑋𝐻𝑇))
27	1, 2, 3, 5, 7, 9, 11, 13, 15, 17, 26	catass 17675	. . . 4 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → ((((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑇)𝐾)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃) = (((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓)(⟨𝑆, 𝑋⟩(comp‘𝐶)𝑇)(𝐾(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑋)𝑃)))
28	21	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑊 ∈ 𝐵)
29	22	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝐿 ∈ (𝑌𝐻𝑊))
30	23	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → 𝑄 ∈ (𝑊𝐻𝑇))
31	1, 2, 3, 5, 11, 19, 28, 20, 29, 17, 30	catass 17675	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → ((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓) = (𝑄(⟨𝑋, 𝑊⟩(comp‘𝐶)𝑇)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)))
32	31	oveq1d 7441	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → (((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑇)𝐾) = ((𝑄(⟨𝑋, 𝑊⟩(comp‘𝐶)𝑇)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓))(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑇)𝐾))
33	1, 2, 3, 5, 11, 19, 28, 20, 29	catcocl 17674	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → (𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓) ∈ (𝑋𝐻𝑊))
34	1, 2, 3, 5, 9, 11, 28, 15, 33, 17, 30	catass 17675	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → ((𝑄(⟨𝑋, 𝑊⟩(comp‘𝐶)𝑇)(𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓))(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑇)𝐾) = (𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾)))
35	32, 34	eqtrd 2768	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → (((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑇)𝐾) = (𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾)))
36	35	oveq1d 7441	. . . 4 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → ((((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑇)𝐾)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃) = ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃))
37	27, 36	eqtr3d 2770	. . 3 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → (((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓)(⟨𝑆, 𝑋⟩(comp‘𝐶)𝑇)(𝐾(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑋)𝑃)) = ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃))
38	37	mpteq2dva 5252	. 2 ⊢ (𝜑 → (𝑓 ∈ (𝑋𝐻𝑌) ↦ (((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓)(⟨𝑆, 𝑋⟩(comp‘𝐶)𝑇)(𝐾(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑋)𝑃))) = (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)))
39		hofcl.m	. . 3 ⊢ 𝑀 = (Hom_F‘𝐶)
40	1, 2, 3, 4, 6, 8, 10, 12, 14	catcocl 17674	. . 3 ⊢ (𝜑 → (𝐾(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑋)𝑃) ∈ (𝑆𝐻𝑋))
41	39, 4, 1, 2, 10, 18, 6, 16, 3, 40, 24	hof2val 18257	. 2 ⊢ (𝜑 → ((𝐾(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑋)𝑃)(⟨𝑋, 𝑌⟩(2^nd ‘𝑀)⟨𝑆, 𝑇⟩)(𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)) = (𝑓 ∈ (𝑋𝐻𝑌) ↦ (((𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑇)𝑓)(⟨𝑆, 𝑋⟩(comp‘𝐶)𝑇)(𝐾(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑋)𝑃))))
42	39, 4, 1, 2, 8, 21, 6, 16, 3, 12, 23	hof2val 18257	. . . 4 ⊢ (𝜑 → (𝑃(⟨𝑍, 𝑊⟩(2^nd ‘𝑀)⟨𝑆, 𝑇⟩)𝑄) = (𝑔 ∈ (𝑍𝐻𝑊) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)))
43	39, 4, 1, 2, 10, 18, 8, 21, 3, 14, 22	hof2val 18257	. . . 4 ⊢ (𝜑 → (𝐾(⟨𝑋, 𝑌⟩(2^nd ‘𝑀)⟨𝑍, 𝑊⟩)𝐿) = (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾)))
44	42, 43	oveq12d 7444	. . 3 ⊢ (𝜑 → ((𝑃(⟨𝑍, 𝑊⟩(2^nd ‘𝑀)⟨𝑆, 𝑇⟩)𝑄)(⟨(𝑋𝐻𝑌), (𝑍𝐻𝑊)⟩(comp‘𝐷)(𝑆𝐻𝑇))(𝐾(⟨𝑋, 𝑌⟩(2^nd ‘𝑀)⟨𝑍, 𝑊⟩)𝐿)) = ((𝑔 ∈ (𝑍𝐻𝑊) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃))(⟨(𝑋𝐻𝑌), (𝑍𝐻𝑊)⟩(comp‘𝐷)(𝑆𝐻𝑇))(𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))))
45		hofcl.d	. . . 4 ⊢ 𝐷 = (SetCat‘𝑈)
46		hofcl.u	. . . 4 ⊢ (𝜑 → 𝑈 ∈ 𝑉)
47		eqid 2728	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
48		eqid 2728	. . . . . 6 ⊢ (Hom_f ‘𝐶) = (Hom_f ‘𝐶)
49	48, 1, 2, 10, 18	homfval 17681	. . . . 5 ⊢ (𝜑 → (𝑋(Hom_f ‘𝐶)𝑌) = (𝑋𝐻𝑌))
50	48, 1	homffn 17682	. . . . . . . 8 ⊢ (Hom_f ‘𝐶) Fn (𝐵 × 𝐵)
51	50	a1i 11	. . . . . . 7 ⊢ (𝜑 → (Hom_f ‘𝐶) Fn (𝐵 × 𝐵))
52		hofcl.h	. . . . . . 7 ⊢ (𝜑 → ran (Hom_f ‘𝐶) ⊆ 𝑈)
53		df-f 6557	. . . . . . 7 ⊢ ((Hom_f ‘𝐶):(𝐵 × 𝐵)⟶𝑈 ↔ ((Hom_f ‘𝐶) Fn (𝐵 × 𝐵) ∧ ran (Hom_f ‘𝐶) ⊆ 𝑈))
54	51, 52, 53	sylanbrc 581	. . . . . 6 ⊢ (𝜑 → (Hom_f ‘𝐶):(𝐵 × 𝐵)⟶𝑈)
55	54, 10, 18	fovcdmd 7600	. . . . 5 ⊢ (𝜑 → (𝑋(Hom_f ‘𝐶)𝑌) ∈ 𝑈)
56	49, 55	eqeltrrd 2830	. . . 4 ⊢ (𝜑 → (𝑋𝐻𝑌) ∈ 𝑈)
57	48, 1, 2, 8, 21	homfval 17681	. . . . 5 ⊢ (𝜑 → (𝑍(Hom_f ‘𝐶)𝑊) = (𝑍𝐻𝑊))
58	54, 8, 21	fovcdmd 7600	. . . . 5 ⊢ (𝜑 → (𝑍(Hom_f ‘𝐶)𝑊) ∈ 𝑈)
59	57, 58	eqeltrrd 2830	. . . 4 ⊢ (𝜑 → (𝑍𝐻𝑊) ∈ 𝑈)
60	48, 1, 2, 6, 16	homfval 17681	. . . . 5 ⊢ (𝜑 → (𝑆(Hom_f ‘𝐶)𝑇) = (𝑆𝐻𝑇))
61	54, 6, 16	fovcdmd 7600	. . . . 5 ⊢ (𝜑 → (𝑆(Hom_f ‘𝐶)𝑇) ∈ 𝑈)
62	60, 61	eqeltrrd 2830	. . . 4 ⊢ (𝜑 → (𝑆𝐻𝑇) ∈ 𝑈)
63	1, 2, 3, 5, 9, 11, 28, 15, 33	catcocl 17674	. . . . 5 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝑋𝐻𝑌)) → ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾) ∈ (𝑍𝐻𝑊))
64	63	fmpttd 7130	. . . 4 ⊢ (𝜑 → (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾)):(𝑋𝐻𝑌)⟶(𝑍𝐻𝑊))
65	4	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → 𝐶 ∈ Cat)
66	6	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → 𝑆 ∈ 𝐵)
67	8	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → 𝑍 ∈ 𝐵)
68	16	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → 𝑇 ∈ 𝐵)
69	12	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → 𝑃 ∈ (𝑆𝐻𝑍))
70	21	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → 𝑊 ∈ 𝐵)
71		simpr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → 𝑔 ∈ (𝑍𝐻𝑊))
72	23	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → 𝑄 ∈ (𝑊𝐻𝑇))
73	1, 2, 3, 65, 67, 70, 68, 71, 72	catcocl 17674	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → (𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔) ∈ (𝑍𝐻𝑇))
74	1, 2, 3, 65, 66, 67, 68, 69, 73	catcocl 17674	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑍𝐻𝑊)) → ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃) ∈ (𝑆𝐻𝑇))
75	74	fmpttd 7130	. . . 4 ⊢ (𝜑 → (𝑔 ∈ (𝑍𝐻𝑊) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)):(𝑍𝐻𝑊)⟶(𝑆𝐻𝑇))
76	45, 46, 47, 56, 59, 62, 64, 75	setcco 18081	. . 3 ⊢ (𝜑 → ((𝑔 ∈ (𝑍𝐻𝑊) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃))(⟨(𝑋𝐻𝑌), (𝑍𝐻𝑊)⟩(comp‘𝐷)(𝑆𝐻𝑇))(𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))) = ((𝑔 ∈ (𝑍𝐻𝑊) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)) ∘ (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))))
77		eqidd 2729	. . . 4 ⊢ (𝜑 → (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾)) = (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾)))
78		eqidd 2729	. . . 4 ⊢ (𝜑 → (𝑔 ∈ (𝑍𝐻𝑊) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)) = (𝑔 ∈ (𝑍𝐻𝑊) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)))
79		oveq2 7434	. . . . 5 ⊢ (𝑔 = ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾) → (𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔) = (𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾)))
80	79	oveq1d 7441	. . . 4 ⊢ (𝑔 = ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾) → ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃) = ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃))
81	63, 77, 78, 80	fmptco 7144	. . 3 ⊢ (𝜑 → ((𝑔 ∈ (𝑍𝐻𝑊) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)𝑔)(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)) ∘ (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))) = (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)))
82	44, 76, 81	3eqtrd 2772	. 2 ⊢ (𝜑 → ((𝑃(⟨𝑍, 𝑊⟩(2^nd ‘𝑀)⟨𝑆, 𝑇⟩)𝑄)(⟨(𝑋𝐻𝑌), (𝑍𝐻𝑊)⟩(comp‘𝐷)(𝑆𝐻𝑇))(𝐾(⟨𝑋, 𝑌⟩(2^nd ‘𝑀)⟨𝑍, 𝑊⟩)𝐿)) = (𝑓 ∈ (𝑋𝐻𝑌) ↦ ((𝑄(⟨𝑍, 𝑊⟩(comp‘𝐶)𝑇)((𝐿(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑊)𝑓)(⟨𝑍, 𝑋⟩(comp‘𝐶)𝑊)𝐾))(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑇)𝑃)))
83	38, 41, 82	3eqtr4d 2778	1 ⊢ (𝜑 → ((𝐾(⟨𝑆, 𝑍⟩(comp‘𝐶)𝑋)𝑃)(⟨𝑋, 𝑌⟩(2^nd ‘𝑀)⟨𝑆, 𝑇⟩)(𝑄(⟨𝑌, 𝑊⟩(comp‘𝐶)𝑇)𝐿)) = ((𝑃(⟨𝑍, 𝑊⟩(2^nd ‘𝑀)⟨𝑆, 𝑇⟩)𝑄)(⟨(𝑋𝐻𝑌), (𝑍𝐻𝑊)⟩(comp‘𝐷)(𝑆𝐻𝑇))(𝐾(⟨𝑋, 𝑌⟩(2^nd ‘𝑀)⟨𝑍, 𝑊⟩)𝐿)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 394 = wceq 1533 ∈ wcel 2098 ⊆ wss 3949 ⟨cop 4638 ↦ cmpt 5235 × cxp 5680 ran crn 5683 ∘ ccom 5686 Fn wfn 6548 ⟶wf 6549 ‘cfv 6553 (class class class)co 7426 2^nd c2nd 8000 Basecbs 17189 Hom chom 17253 compcco 17254 Catccat 17653 Hom_f chomf 17655 oppCatcoppc 17700 SetCatcsetc 18073 Hom_Fchof 18249

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2699 ax-rep 5289 ax-sep 5303 ax-nul 5310 ax-pow 5369 ax-pr 5433 ax-un 7748 ax-cnex 11204 ax-resscn 11205 ax-1cn 11206 ax-icn 11207 ax-addcl 11208 ax-addrcl 11209 ax-mulcl 11210 ax-mulrcl 11211 ax-mulcom 11212 ax-addass 11213 ax-mulass 11214 ax-distr 11215 ax-i2m1 11216 ax-1ne0 11217 ax-1rid 11218 ax-rnegex 11219 ax-rrecex 11220 ax-cnre 11221 ax-pre-lttri 11222 ax-pre-lttrn 11223 ax-pre-ltadd 11224 ax-pre-mulgt0 11225

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2529 df-eu 2558 df-clab 2706 df-cleq 2720 df-clel 2806 df-nfc 2881 df-ne 2938 df-nel 3044 df-ral 3059 df-rex 3068 df-reu 3375 df-rab 3431 df-v 3475 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4327 df-if 4533 df-pw 4608 df-sn 4633 df-pr 4635 df-tp 4637 df-op 4639 df-uni 4913 df-iun 5002 df-br 5153 df-opab 5215 df-mpt 5236 df-tr 5270 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 6310 df-ord 6377 df-on 6378 df-lim 6379 df-suc 6380 df-iota 6505 df-fun 6555 df-fn 6556 df-f 6557 df-f1 6558 df-fo 6559 df-f1o 6560 df-fv 6561 df-riota 7382 df-ov 7429 df-oprab 7430 df-mpo 7431 df-om 7879 df-1st 8001 df-2nd 8002 df-frecs 8295 df-wrecs 8326 df-recs 8400 df-rdg 8439 df-1o 8495 df-er 8733 df-map 8855 df-en 8973 df-dom 8974 df-sdom 8975 df-fin 8976 df-pnf 11290 df-mnf 11291 df-xr 11292 df-ltxr 11293 df-le 11294 df-sub 11486 df-neg 11487 df-nn 12253 df-2 12315 df-3 12316 df-4 12317 df-5 12318 df-6 12319 df-7 12320 df-8 12321 df-9 12322 df-n0 12513 df-z 12599 df-dec 12718 df-uz 12863 df-fz 13527 df-struct 17125 df-slot 17160 df-ndx 17172 df-base 17190 df-hom 17266 df-cco 17267 df-cat 17657 df-homf 17659 df-setc 18074 df-hof 18251

This theorem is referenced by: hofcl 18260

W3C validator