isfunc - Metamath Proof Explorer

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

Theorem isfunc 17579

Description: Value of the set of functors between two categories. (Contributed by Mario Carneiro, 2-Jan-2017.)

**Hypotheses**
Ref	Expression
isfunc.b	⊢ 𝐵 = (Base‘𝐷)
isfunc.c	⊢ 𝐶 = (Base‘𝐸)
isfunc.h	⊢ 𝐻 = (Hom ‘𝐷)
isfunc.j	⊢ 𝐽 = (Hom ‘𝐸)
isfunc.1	⊢ 1 = (Id‘𝐷)
isfunc.i	⊢ 𝐼 = (Id‘𝐸)
isfunc.x	⊢ · = (comp‘𝐷)
isfunc.o	⊢ 𝑂 = (comp‘𝐸)
isfunc.d	⊢ (𝜑 → 𝐷 ∈ Cat)
isfunc.e	⊢ (𝜑 → 𝐸 ∈ Cat)

**Assertion**
Ref	Expression
isfunc	⊢ (𝜑 → (𝐹(𝐷 Func 𝐸)𝐺 ↔ (𝐹:𝐵⟶𝐶 ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))))

Distinct variable groups: 𝑚,𝑛,𝑥,𝑦,𝑧,𝐵 𝐷,𝑚,𝑛,𝑥,𝑦,𝑧 𝑚,𝐸,𝑛,𝑥,𝑦,𝑧 𝑚,𝐻,𝑛,𝑥,𝑦,𝑧 𝑚,𝐹,𝑛,𝑥,𝑦,𝑧 𝑚,𝐺,𝑛,𝑥,𝑦,𝑧 𝑥,𝐽,𝑦,𝑧 𝜑,𝑚,𝑛,𝑥,𝑦,𝑧 Allowed substitution hints: 𝐶(𝑥,𝑦,𝑧,𝑚,𝑛) · (𝑥,𝑦,𝑧,𝑚,𝑛) 1 (𝑥,𝑦,𝑧,𝑚,𝑛) 𝐼(𝑥,𝑦,𝑧,𝑚,𝑛) 𝐽(𝑚,𝑛) 𝑂(𝑥,𝑦,𝑧,𝑚,𝑛)

Proof of Theorem isfunc Dummy variables 𝑏 𝑑 𝑒 𝑓 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		isfunc.d	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
2		isfunc.e	. . . 4 ⊢ (𝜑 → 𝐸 ∈ Cat)
3		fvexd 6789	. . . . . . 7 ⊢ ((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) → (Base‘𝑑) ∈ V)
4		simpl 483	. . . . . . . . 9 ⊢ ((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) → 𝑑 = 𝐷)
5	4	fveq2d 6778	. . . . . . . 8 ⊢ ((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) → (Base‘𝑑) = (Base‘𝐷))
6		isfunc.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐷)
7	5, 6	eqtr4di 2796	. . . . . . 7 ⊢ ((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) → (Base‘𝑑) = 𝐵)
8		simpr 485	. . . . . . . . . . 11 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → 𝑏 = 𝐵)
9		simplr 766	. . . . . . . . . . . . 13 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → 𝑒 = 𝐸)
10	9	fveq2d 6778	. . . . . . . . . . . 12 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Base‘𝑒) = (Base‘𝐸))
11		isfunc.c	. . . . . . . . . . . 12 ⊢ 𝐶 = (Base‘𝐸)
12	10, 11	eqtr4di 2796	. . . . . . . . . . 11 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Base‘𝑒) = 𝐶)
13	8, 12	feq23d 6595	. . . . . . . . . 10 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (𝑓:𝑏⟶(Base‘𝑒) ↔ 𝑓:𝐵⟶𝐶))
14	11	fvexi 6788	. . . . . . . . . . 11 ⊢ 𝐶 ∈ V
15	6	fvexi 6788	. . . . . . . . . . 11 ⊢ 𝐵 ∈ V
16	14, 15	elmap 8659	. . . . . . . . . 10 ⊢ (𝑓 ∈ (𝐶 ↑_m 𝐵) ↔ 𝑓:𝐵⟶𝐶)
17	13, 16	bitr4di 289	. . . . . . . . 9 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (𝑓:𝑏⟶(Base‘𝑒) ↔ 𝑓 ∈ (𝐶 ↑_m 𝐵)))
18	8	sqxpeqd 5621	. . . . . . . . . . . 12 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (𝑏 × 𝑏) = (𝐵 × 𝐵))
19	18	ixpeq1d 8697	. . . . . . . . . . 11 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → X𝑧 ∈ (𝑏 × 𝑏)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) = X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)))
20	9	fveq2d 6778	. . . . . . . . . . . . . . 15 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Hom ‘𝑒) = (Hom ‘𝐸))
21		isfunc.j	. . . . . . . . . . . . . . 15 ⊢ 𝐽 = (Hom ‘𝐸)
22	20, 21	eqtr4di 2796	. . . . . . . . . . . . . 14 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Hom ‘𝑒) = 𝐽)
23	22	oveqd 7292	. . . . . . . . . . . . 13 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) = ((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))))
24		simpll 764	. . . . . . . . . . . . . . . 16 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → 𝑑 = 𝐷)
25	24	fveq2d 6778	. . . . . . . . . . . . . . 15 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Hom ‘𝑑) = (Hom ‘𝐷))
26		isfunc.h	. . . . . . . . . . . . . . 15 ⊢ 𝐻 = (Hom ‘𝐷)
27	25, 26	eqtr4di 2796	. . . . . . . . . . . . . 14 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Hom ‘𝑑) = 𝐻)
28	27	fveq1d 6776	. . . . . . . . . . . . 13 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((Hom ‘𝑑)‘𝑧) = (𝐻‘𝑧))
29	23, 28	oveq12d 7293	. . . . . . . . . . . 12 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) = (((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))
30	29	ixpeq2dv 8701	. . . . . . . . . . 11 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) = X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))
31	19, 30	eqtrd 2778	. . . . . . . . . 10 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → X𝑧 ∈ (𝑏 × 𝑏)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) = X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))
32	31	eleq2d 2824	. . . . . . . . 9 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (𝑔 ∈ X𝑧 ∈ (𝑏 × 𝑏)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) ↔ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))))
33	24	fveq2d 6778	. . . . . . . . . . . . . . 15 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Id‘𝑑) = (Id‘𝐷))
34		isfunc.1	. . . . . . . . . . . . . . 15 ⊢ 1 = (Id‘𝐷)
35	33, 34	eqtr4di 2796	. . . . . . . . . . . . . 14 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Id‘𝑑) = 1 )
36	35	fveq1d 6776	. . . . . . . . . . . . 13 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((Id‘𝑑)‘𝑥) = ( 1 ‘𝑥))
37	36	fveq2d 6778	. . . . . . . . . . . 12 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((𝑥𝑔𝑥)‘( 1 ‘𝑥)))
38	9	fveq2d 6778	. . . . . . . . . . . . . 14 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Id‘𝑒) = (Id‘𝐸))
39		isfunc.i	. . . . . . . . . . . . . 14 ⊢ 𝐼 = (Id‘𝐸)
40	38, 39	eqtr4di 2796	. . . . . . . . . . . . 13 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (Id‘𝑒) = 𝐼)
41	40	fveq1d 6776	. . . . . . . . . . . 12 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((Id‘𝑒)‘(𝑓‘𝑥)) = (𝐼‘(𝑓‘𝑥)))
42	37, 41	eqeq12d 2754	. . . . . . . . . . 11 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((Id‘𝑒)‘(𝑓‘𝑥)) ↔ ((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥))))
43	27	oveqd 7292	. . . . . . . . . . . . . 14 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (𝑥(Hom ‘𝑑)𝑦) = (𝑥𝐻𝑦))
44	27	oveqd 7292	. . . . . . . . . . . . . . 15 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (𝑦(Hom ‘𝑑)𝑧) = (𝑦𝐻𝑧))
45	24	fveq2d 6778	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (comp‘𝑑) = (comp‘𝐷))
46		isfunc.x	. . . . . . . . . . . . . . . . . . . 20 ⊢ · = (comp‘𝐷)
47	45, 46	eqtr4di 2796	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (comp‘𝑑) = · )
48	47	oveqd 7292	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧) = (⟨𝑥, 𝑦⟩ · 𝑧))
49	48	oveqd 7292	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚) = (𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚))
50	49	fveq2d 6778	. . . . . . . . . . . . . . . 16 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)))
51	9	fveq2d 6778	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (comp‘𝑒) = (comp‘𝐸))
52		isfunc.o	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑂 = (comp‘𝐸)
53	51, 52	eqtr4di 2796	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (comp‘𝑒) = 𝑂)
54	53	oveqd 7292	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧)) = (⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧)))
55	54	oveqd 7292	. . . . . . . . . . . . . . . 16 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))
56	50, 55	eqeq12d 2754	. . . . . . . . . . . . . . 15 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
57	44, 56	raleqbidv 3336	. . . . . . . . . . . . . 14 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
58	43, 57	raleqbidv 3336	. . . . . . . . . . . . 13 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
59	8, 58	raleqbidv 3336	. . . . . . . . . . . 12 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
60	8, 59	raleqbidv 3336	. . . . . . . . . . 11 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
61	42, 60	anbi12d 631	. . . . . . . . . 10 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((Id‘𝑒)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
62	8, 61	raleqbidv 3336	. . . . . . . . 9 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → (∀𝑥 ∈ 𝑏 (((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((Id‘𝑒)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
63	17, 32, 62	3anbi123d 1435	. . . . . . . 8 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((𝑓:𝑏⟶(Base‘𝑒) ∧ 𝑔 ∈ X𝑧 ∈ (𝑏 × 𝑏)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) ∧ ∀𝑥 ∈ 𝑏 (((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((Id‘𝑒)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ (𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
64		df-3an 1088	. . . . . . . 8 ⊢ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
65	63, 64	bitrdi 287	. . . . . . 7 ⊢ (((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) ∧ 𝑏 = 𝐵) → ((𝑓:𝑏⟶(Base‘𝑒) ∧ 𝑔 ∈ X𝑧 ∈ (𝑏 × 𝑏)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) ∧ ∀𝑥 ∈ 𝑏 (((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((Id‘𝑒)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
66	3, 7, 65	sbcied2 3763	. . . . . 6 ⊢ ((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) → ([(Base‘𝑑) / 𝑏](𝑓:𝑏⟶(Base‘𝑒) ∧ 𝑔 ∈ X𝑧 ∈ (𝑏 × 𝑏)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) ∧ ∀𝑥 ∈ 𝑏 (((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((Id‘𝑒)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
67	66	opabbidv 5140	. . . . 5 ⊢ ((𝑑 = 𝐷 ∧ 𝑒 = 𝐸) → {⟨𝑓, 𝑔⟩ ∣ [(Base‘𝑑) / 𝑏](𝑓:𝑏⟶(Base‘𝑒) ∧ 𝑔 ∈ X𝑧 ∈ (𝑏 × 𝑏)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) ∧ ∀𝑥 ∈ 𝑏 (((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((Id‘𝑒)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))} = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))})
68		df-func 17573	. . . . 5 ⊢ Func = (𝑑 ∈ Cat, 𝑒 ∈ Cat ↦ {⟨𝑓, 𝑔⟩ ∣ [(Base‘𝑑) / 𝑏](𝑓:𝑏⟶(Base‘𝑒) ∧ 𝑔 ∈ X𝑧 ∈ (𝑏 × 𝑏)(((𝑓‘(1^st ‘𝑧))(Hom ‘𝑒)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝑑)‘𝑧)) ∧ ∀𝑥 ∈ 𝑏 (((𝑥𝑔𝑥)‘((Id‘𝑑)‘𝑥)) = ((Id‘𝑒)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝑏 ∀𝑧 ∈ 𝑏 ∀𝑚 ∈ (𝑥(Hom ‘𝑑)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝑑)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝑑)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝑒)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))})
69		ovex 7308	. . . . . . 7 ⊢ (𝐶 ↑_m 𝐵) ∈ V
70		snex 5354	. . . . . . . 8 ⊢ {𝑓} ∈ V
71		ovex 7308	. . . . . . . . . 10 ⊢ (((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∈ V
72	71	rgenw 3076	. . . . . . . . 9 ⊢ ∀𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∈ V
73		ixpexg 8710	. . . . . . . . 9 ⊢ (∀𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∈ V → X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∈ V)
74	72, 73	ax-mp 5	. . . . . . . 8 ⊢ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∈ V
75	70, 74	xpex 7603	. . . . . . 7 ⊢ ({𝑓} × X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∈ V
76	69, 75	iunex 7811	. . . . . 6 ⊢ ∪ 𝑓 ∈ (𝐶 ↑_m 𝐵)({𝑓} × X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∈ V
77		simpl 483	. . . . . . . . . 10 ⊢ (((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) → (𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))))
78	77	anim2i 617	. . . . . . . . 9 ⊢ ((𝑑 = ⟨𝑓, 𝑔⟩ ∧ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))) → (𝑑 = ⟨𝑓, 𝑔⟩ ∧ (𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))))
79	78	2eximi 1838	. . . . . . . 8 ⊢ (∃𝑓∃𝑔(𝑑 = ⟨𝑓, 𝑔⟩ ∧ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))) → ∃𝑓∃𝑔(𝑑 = ⟨𝑓, 𝑔⟩ ∧ (𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))))
80		elopab 5440	. . . . . . . 8 ⊢ (𝑑 ∈ {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))} ↔ ∃𝑓∃𝑔(𝑑 = ⟨𝑓, 𝑔⟩ ∧ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
81		eliunxp 5746	. . . . . . . 8 ⊢ (𝑑 ∈ ∪ 𝑓 ∈ (𝐶 ↑_m 𝐵)({𝑓} × X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ↔ ∃𝑓∃𝑔(𝑑 = ⟨𝑓, 𝑔⟩ ∧ (𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))))
82	79, 80, 81	3imtr4i 292	. . . . . . 7 ⊢ (𝑑 ∈ {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))} → 𝑑 ∈ ∪ 𝑓 ∈ (𝐶 ↑_m 𝐵)({𝑓} × X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))))
83	82	ssriv 3925	. . . . . 6 ⊢ {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))} ⊆ ∪ 𝑓 ∈ (𝐶 ↑_m 𝐵)({𝑓} × X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))
84	76, 83	ssexi 5246	. . . . 5 ⊢ {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))} ∈ V
85	67, 68, 84	ovmpoa 7428	. . . 4 ⊢ ((𝐷 ∈ Cat ∧ 𝐸 ∈ Cat) → (𝐷 Func 𝐸) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))})
86	1, 2, 85	syl2anc 584	. . 3 ⊢ (𝜑 → (𝐷 Func 𝐸) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))})
87	86	breqd 5085	. 2 ⊢ (𝜑 → (𝐹(𝐷 Func 𝐸)𝐺 ↔ 𝐹{⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))}𝐺))
88		brabv 5482	. . . 4 ⊢ (𝐹{⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))}𝐺 → (𝐹 ∈ V ∧ 𝐺 ∈ V))
89		elex 3450	. . . . . 6 ⊢ (𝐹 ∈ (𝐶 ↑_m 𝐵) → 𝐹 ∈ V)
90		elex 3450	. . . . . 6 ⊢ (𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) → 𝐺 ∈ V)
91	89, 90	anim12i 613	. . . . 5 ⊢ ((𝐹 ∈ (𝐶 ↑_m 𝐵) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) → (𝐹 ∈ V ∧ 𝐺 ∈ V))
92	91	3adant3 1131	. . . 4 ⊢ ((𝐹 ∈ (𝐶 ↑_m 𝐵) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))) → (𝐹 ∈ V ∧ 𝐺 ∈ V))
93		simpl 483	. . . . . . . 8 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → 𝑓 = 𝐹)
94	93	eleq1d 2823	. . . . . . 7 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑓 ∈ (𝐶 ↑_m 𝐵) ↔ 𝐹 ∈ (𝐶 ↑_m 𝐵)))
95		simpr 485	. . . . . . . 8 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → 𝑔 = 𝐺)
96	93	fveq1d 6776	. . . . . . . . . . 11 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑓‘(1^st ‘𝑧)) = (𝐹‘(1^st ‘𝑧)))
97	93	fveq1d 6776	. . . . . . . . . . 11 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑓‘(2^nd ‘𝑧)) = (𝐹‘(2^nd ‘𝑧)))
98	96, 97	oveq12d 7293	. . . . . . . . . 10 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → ((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) = ((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))))
99	98	oveq1d 7290	. . . . . . . . 9 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) = (((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))
100	99	ixpeq2dv 8701	. . . . . . . 8 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) = X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)))
101	95, 100	eleq12d 2833	. . . . . . 7 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ↔ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))))
102	95	oveqd 7292	. . . . . . . . . . 11 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑥𝑔𝑥) = (𝑥𝐺𝑥))
103	102	fveq1d 6776	. . . . . . . . . 10 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → ((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = ((𝑥𝐺𝑥)‘( 1 ‘𝑥)))
104	93	fveq1d 6776	. . . . . . . . . . 11 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑓‘𝑥) = (𝐹‘𝑥))
105	104	fveq2d 6778	. . . . . . . . . 10 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝐼‘(𝑓‘𝑥)) = (𝐼‘(𝐹‘𝑥)))
106	103, 105	eqeq12d 2754	. . . . . . . . 9 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ↔ ((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥))))
107	95	oveqd 7292	. . . . . . . . . . . . 13 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑥𝑔𝑧) = (𝑥𝐺𝑧))
108	107	fveq1d 6776	. . . . . . . . . . . 12 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = ((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)))
109	93	fveq1d 6776	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑓‘𝑦) = (𝐹‘𝑦))
110	104, 109	opeq12d 4812	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → ⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
111	93	fveq1d 6776	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑓‘𝑧) = (𝐹‘𝑧))
112	110, 111	oveq12d 7293	. . . . . . . . . . . . 13 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧)) = (⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧)))
113	95	oveqd 7292	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑦𝑔𝑧) = (𝑦𝐺𝑧))
114	113	fveq1d 6776	. . . . . . . . . . . . 13 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → ((𝑦𝑔𝑧)‘𝑛) = ((𝑦𝐺𝑧)‘𝑛))
115	95	oveqd 7292	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (𝑥𝑔𝑦) = (𝑥𝐺𝑦))
116	115	fveq1d 6776	. . . . . . . . . . . . 13 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → ((𝑥𝑔𝑦)‘𝑚) = ((𝑥𝐺𝑦)‘𝑚))
117	112, 114, 116	oveq123d 7296	. . . . . . . . . . . 12 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))
118	108, 117	eqeq12d 2754	. . . . . . . . . . 11 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))
119	118	2ralbidv 3129	. . . . . . . . . 10 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))
120	119	2ralbidv 3129	. . . . . . . . 9 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))
121	106, 120	anbi12d 631	. . . . . . . 8 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → ((((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))))
122	121	ralbidv 3112	. . . . . . 7 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))))
123	94, 101, 122	3anbi123d 1435	. . . . . 6 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ (𝐹 ∈ (𝐶 ↑_m 𝐵) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))))
124	64, 123	bitr3id 285	. . . . 5 ⊢ ((𝑓 = 𝐹 ∧ 𝑔 = 𝐺) → (((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ (𝐹 ∈ (𝐶 ↑_m 𝐵) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))))
125		eqid 2738	. . . . 5 ⊢ {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))} = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))}
126	124, 125	brabga 5447	. . . 4 ⊢ ((𝐹 ∈ V ∧ 𝐺 ∈ V) → (𝐹{⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))}𝐺 ↔ (𝐹 ∈ (𝐶 ↑_m 𝐵) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))))
127	88, 92, 126	pm5.21nii 380	. . 3 ⊢ (𝐹{⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))}𝐺 ↔ (𝐹 ∈ (𝐶 ↑_m 𝐵) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))))
128	14, 15	elmap 8659	. . . 4 ⊢ (𝐹 ∈ (𝐶 ↑_m 𝐵) ↔ 𝐹:𝐵⟶𝐶)
129	128	3anbi1i 1156	. . 3 ⊢ ((𝐹 ∈ (𝐶 ↑_m 𝐵) ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))) ↔ (𝐹:𝐵⟶𝐶 ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))))
130	127, 129	bitri 274	. 2 ⊢ (𝐹{⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝐶 ↑_m 𝐵) ∧ 𝑔 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝑓‘(1^st ‘𝑧))𝐽(𝑓‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧))) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝑔𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩𝑂(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))}𝐺 ↔ (𝐹:𝐵⟶𝐶 ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚)))))
131	87, 130	bitrdi 287	1 ⊢ (𝜑 → (𝐹(𝐷 Func 𝐸)𝐺 ↔ (𝐹:𝐵⟶𝐶 ∧ 𝐺 ∈ X𝑧 ∈ (𝐵 × 𝐵)(((𝐹‘(1^st ‘𝑧))𝐽(𝐹‘(2^nd ‘𝑧))) ↑_m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝐵 (((𝑥𝐺𝑥)‘( 1 ‘𝑥)) = (𝐼‘(𝐹‘𝑥)) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝐺𝑧)‘(𝑛(⟨𝑥, 𝑦⟩ · 𝑧)𝑚)) = (((𝑦𝐺𝑧)‘𝑛)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩𝑂(𝐹‘𝑧))((𝑥𝐺𝑦)‘𝑚))))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1086 = wceq 1539 ∃wex 1782 ∈ wcel 2106 ∀wral 3064 Vcvv 3432 [wsbc 3716 {csn 4561 ⟨cop 4567 ∪ ciun 4924 class class class wbr 5074 {copab 5136 × cxp 5587 ⟶wf 6429 ‘cfv 6433 (class class class)co 7275 1^st c1st 7829 2^nd c2nd 7830 ↑_m cmap 8615 Xcixp 8685 Basecbs 16912 Hom chom 16973 compcco 16974 Catccat 17373 Idccid 17374 Func cfunc 17569

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2709 ax-rep 5209 ax-sep 5223 ax-nul 5230 ax-pow 5288 ax-pr 5352 ax-un 7588

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ne 2944 df-ral 3069 df-rex 3070 df-rab 3073 df-v 3434 df-sbc 3717 df-csb 3833 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-nul 4257 df-if 4460 df-pw 4535 df-sn 4562 df-pr 4564 df-op 4568 df-uni 4840 df-iun 4926 df-br 5075 df-opab 5137 df-mpt 5158 df-id 5489 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-fv 6441 df-ov 7278 df-oprab 7279 df-mpo 7280 df-map 8617 df-ixp 8686 df-func 17573

This theorem is referenced by: isfuncd 17580 funcf1 17581 funcixp 17582 funcid 17585 funcco 17586 idfucl 17596 cofucl 17603 funcres2b 17612 funcpropd 17616 functhinc 46326

W3C validator