Theorem funcco 17953

Description: A functor maps composition in the source category to composition in the target. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
funcco.b	⊢ 𝐵 = (Base‘𝐷)
funcco.h	⊢ 𝐻 = (Hom ‘𝐷)
funcco.o	⊢ · = (comp‘𝐷)
funcco.O	⊢ 𝑂 = (comp‘𝐸)
funcco.f	⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
funcco.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
funcco.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
funcco.z	⊢ (𝜑 → 𝑍 ∈ 𝐵)
funcco.m	⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
funcco.n	⊢ (𝜑 → 𝑁 ∈ (𝑌𝐻𝑍))

Assertion

Ref	Expression
funcco	⊢ (𝜑 → ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀)))

Proof of Theorem funcco

Dummy variables 𝑚 𝑛 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		funcco.f	. . . 4 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
2		funcco.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐷)
3		eqid 2766	. . . . 5 ⊢ (Base‘𝐸) = (Base‘𝐸)
4		funcco.h	. . . . 5 ⊢ 𝐻 = (Hom ‘𝐷)
5		eqid 2766	. . . . 5 ⊢ (Hom ‘𝐸) = (Hom ‘𝐸)
6		eqid 2766	. . . . 5 ⊢ (Id‘𝐷) = (Id‘𝐷)
7		eqid 2766	. . . . 5 ⊢ (Id‘𝐸) = (Id‘𝐸)
8		funcco.o	. . . . 5 ⊢ · = (comp‘𝐷)
9		funcco.O	. . . . 5 ⊢ 𝑂 = (comp‘𝐸)
10		df-br 5115	. . . . . . . 8 ⊢ (𝐹(𝐷 Func 𝐸)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸))
11	1, 10	sylib 221	. . . . . . 7 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸))
12		funcrcl 17945	. . . . . . 7 ⊢ (⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸) → (𝐷 ∈ Cat ∧ 𝐸 ∈ Cat))
13	11, 12	syl 18	. . . . . 6 ⊢ (𝜑 → (𝐷 ∈ Cat ∧ 𝐸 ∈ Cat))
14	13	simpld 500	. . . . 5 ⊢ (𝜑 → 𝐷 ∈ Cat)
15	13	simprd 501	. . . . 5 ⊢ (𝜑 → 𝐸 ∈ Cat)
16	2, 3, 4, 5, 6, 7, 8, 9, 14, 15	isfunc 17946	. . . 4 ⊢ (𝜑 → (𝐹(𝐷 Func 𝐸)𝐺 ↔ (𝐹:𝐵⟶(Base‘𝐸) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1st ‘𝑧))(Hom ‘𝐸)(𝐹‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘((Id‘𝐷)‘𝑥)) = ((Id‘𝐸)‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))))
17	1, 16	mpbid 235	. . 3 ⊢ (𝜑 → (𝐹:𝐵⟶(Base‘𝐸) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1st ‘𝑧))(Hom ‘𝐸)(𝐹‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘((Id‘𝐷)‘𝑥)) = ((Id‘𝐸)‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))))
18	17	simp3d 1162	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘((Id‘𝐷)‘𝑥)) = ((Id‘𝐸)‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))
19		funcco.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
20		funcco.y	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
21	20	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → 𝑌 ∈ 𝐵)
22		funcco.z	. . . . . . 7 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
23	22	ad2antrr 739	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) → 𝑍 ∈ 𝐵)
24		funcco.m	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
25	24	ad3antrrr 743	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) → 𝑀 ∈ (𝑋𝐻𝑌))
26		simpllr 788	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) → 𝑥 = 𝑋)
27		simplr 781	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) → 𝑦 = 𝑌)
28	26, 27	oveq12d 7441	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) → (𝑥𝐻𝑦) = (𝑋𝐻𝑌))
29	25, 28	eleqtrrd 2869	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) → 𝑀 ∈ (𝑥𝐻𝑦))
30		funcco.n	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ (𝑌𝐻𝑍))
31	30	ad4antr 745	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) → 𝑁 ∈ (𝑌𝐻𝑍))
32		simpllr 788	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) → 𝑦 = 𝑌)
33		simplr 781	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) → 𝑧 = 𝑍)
34	32, 33	oveq12d 7441	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) → (𝑦𝐻𝑧) = (𝑌𝐻𝑍))
35	31, 34	eleqtrrd 2869	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) → 𝑁 ∈ (𝑦𝐻𝑧))
36		simp-5r 798	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → 𝑥 = 𝑋)
37		simpllr 788	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → 𝑧 = 𝑍)
38	36, 37	oveq12d 7441	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (𝑥𝐺𝑧) = (𝑋𝐺𝑍))
39		simp-4r 796	. . . . . . . . . . . . 13 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → 𝑦 = 𝑌)
40	36, 39	opeq12d 4851	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → ⟨𝑥, 𝑦⟩ = ⟨𝑋, 𝑌⟩)
41	40, 37	oveq12d 7441	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (⟨𝑥, 𝑦⟩ · 𝑧) = (⟨𝑋, 𝑌⟩ · 𝑍))
42		simpr 490	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
43		simplr 781	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → 𝑚 = 𝑀)
44	41, 42, 43	oveq123d 7444	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚) = (𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀))
45	38, 44	fveq12d 6895	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → ((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)))
46	36	fveq2d 6892	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (𝐹‘𝑥) = (𝐹‘𝑋))
47	39	fveq2d 6892	. . . . . . . . . . . 12 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (𝐹‘𝑦) = (𝐹‘𝑌))
48	46, 47	opeq12d 4851	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ = ⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩)
49	37	fveq2d 6892	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (𝐹‘𝑧) = (𝐹‘𝑍))
50	48, 49	oveq12d 7441	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧)) = (⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍)))
51	39, 37	oveq12d 7441	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (𝑦𝐺𝑧) = (𝑌𝐺𝑍))
52	51, 42	fveq12d 6895	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → ((𝑦𝐺𝑧)‘𝑛) = ((𝑌𝐺𝑍)‘𝑁))
53	36, 39	oveq12d 7441	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (𝑥𝐺𝑦) = (𝑋𝐺𝑌))
54	53, 43	fveq12d 6895	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → ((𝑥𝐺𝑦)‘𝑚) = ((𝑋𝐺𝑌)‘𝑀))
55	50, 52, 54	oveq123d 7444	. . . . . . . . 9 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀)))
56	45, 55	eqeq12d 2782	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) ∧ 𝑛 = 𝑁) → (((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)) ↔ ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀))))
57	35, 56	rspcdv 3576	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) ∧ 𝑚 = 𝑀) → (∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)) → ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀))))
58	29, 57	rspcimdv 3574	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑧 = 𝑍) → (∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)) → ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀))))
59	23, 58	rspcimdv 3574	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) → (∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)) → ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀))))
60	21, 59	rspcimdv 3574	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)) → ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀))))
61	60	adantld 496	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → ((((𝑥𝐺𝑥)‘((Id‘𝐷)‘𝑥)) = ((Id‘𝐸)‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))) → ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀))))
62	19, 61	rspcimdv 3574	. 2 ⊢ (𝜑 → (∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘((Id‘𝐷)‘𝑥)) = ((Id‘𝐸)‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))) → ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀))))
63	18, 62	mpd 16	1 ⊢ (𝜑 → ((𝑋𝐺𝑍)‘(𝑁(⟨𝑋, 𝑌⟩ · 𝑍)𝑀)) = (((𝑌𝐺𝑍)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩𝑂(𝐹‘𝑍))((𝑋𝐺𝑌)‘𝑀)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2146  ∀wral 3082  ⟨cop 4600   class class class wbr 5114   × cxp 5664  ⟶wf 6539  ‘cfv 6543  (class class class)co 7423  1^st c1st 7993  2^nd c2nd 7994   ↑_m cmap 8833  Xcixp 8904  Basecbs 17294  Hom chom 17346  compcco 17347  Catccat 17745  Idccid 17746   Func cfunc 17936

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-fv 6551  df-ov 7426  df-oprab 7427  df-mpo 7428  df-map 8835  df-ixp 8905  df-func 17940

This theorem is used by:  funcsect  17954  funcoppc  17957  cofucl  17970  funcres  17978  fthsect  18009  fthmon  18011  catcisolem  18192  prfcl  18284  evlfcllem  18302  curf1cl  18309  curf2cl  18312  curfcl  18313  uncfcurf  18320  yonedalem4c  18358  imaf1co  49974  fthcomf  49976  upciclem2  49986  uptrlem1  50029  fuco22natlem1  50161  fucocolem3  50174