Theorem catideu 17727

Description: Each object in a category has a unique identity arrow. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
catidex.b	⊢ 𝐵 = (Base‘𝐶)
catidex.h	⊢ 𝐻 = (Hom ‘𝐶)
catidex.o	⊢ · = (comp‘𝐶)
catidex.c	⊢ (𝜑 → 𝐶 ∈ Cat)
catidex.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)

Assertion

Ref	Expression
catideu	⊢ (𝜑 → ∃!𝑔 ∈ (𝑋𝐻𝑋)∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓))

Distinct variable groups:   𝑓,𝑔,𝑦,𝐵   𝐶,𝑓,𝑔,𝑦   𝜑,𝑔   𝑓,𝑋,𝑔,𝑦   𝑓,𝐻,𝑔,𝑦   · ,𝑓,𝑔,𝑦

Allowed substitution hints:   𝜑(𝑦,𝑓)

Proof of Theorem catideu

Dummy variable ℎ is distinct from all other variables.

Step	Hyp	Ref	Expression
1		catidex.b	. . 3 ⊢ 𝐵 = (Base‘𝐶)
2		catidex.h	. . 3 ⊢ 𝐻 = (Hom ‘𝐶)
3		catidex.o	. . 3 ⊢ · = (comp‘𝐶)
4		catidex.c	. . 3 ⊢ (𝜑 → 𝐶 ∈ Cat)
5		catidex.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
6	1, 2, 3, 4, 5	catidex 17726	. 2 ⊢ (𝜑 → ∃𝑔 ∈ (𝑋𝐻𝑋)∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓))
7		oveq1 7415	. . . . . . . 8 ⊢ (𝑦 = 𝑋 → (𝑦𝐻𝑋) = (𝑋𝐻𝑋))
8		opeq1 4839	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑋 → ⟨𝑦, 𝑋⟩ = ⟨𝑋, 𝑋⟩)
9	8	oveq1d 7423	. . . . . . . . . 10 ⊢ (𝑦 = 𝑋 → (⟨𝑦, 𝑋⟩ · 𝑋) = (⟨𝑋, 𝑋⟩ · 𝑋))
10	9	oveqd 7425	. . . . . . . . 9 ⊢ (𝑦 = 𝑋 → (𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
11	10	eqeq1d 2771	. . . . . . . 8 ⊢ (𝑦 = 𝑋 → ((𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ↔ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓))
12	7, 11	raleqbidv 3345	. . . . . . 7 ⊢ (𝑦 = 𝑋 → (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ↔ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓))
13		oveq2 7416	. . . . . . . 8 ⊢ (𝑦 = 𝑋 → (𝑋𝐻𝑦) = (𝑋𝐻𝑋))
14		oveq2 7416	. . . . . . . . . 10 ⊢ (𝑦 = 𝑋 → (⟨𝑋, 𝑋⟩ · 𝑦) = (⟨𝑋, 𝑋⟩ · 𝑋))
15	14	oveqd 7425	. . . . . . . . 9 ⊢ (𝑦 = 𝑋 → (𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = (𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔))
16	15	eqeq1d 2771	. . . . . . . 8 ⊢ (𝑦 = 𝑋 → ((𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓 ↔ (𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓))
17	13, 16	raleqbidv 3345	. . . . . . 7 ⊢ (𝑦 = 𝑋 → (∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓 ↔ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓))
18	12, 17	anbi12d 643	. . . . . 6 ⊢ (𝑦 = 𝑋 → ((∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓) ↔ (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓)))
19	18	rspcv 3586	. . . . 5 ⊢ (𝑋 ∈ 𝐵 → (∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓) → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓)))
20	5, 19	syl 18	. . . 4 ⊢ (𝜑 → (∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓) → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓)))
21	20	ralrimivw 3167	. . 3 ⊢ (𝜑 → ∀𝑔 ∈ (𝑋𝐻𝑋)(∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓) → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓)))
22		an3 671	. . . . . . 7 ⊢ (((∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓) ∧ (∀𝑓 ∈ (𝑋𝐻𝑋)(ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓)) → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓))
23		oveq2 7416	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ))
24		id 23	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → 𝑓 = ℎ)
25	23, 24	eqeq12d 2785	. . . . . . . . 9 ⊢ (𝑓 = ℎ → ((𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ↔ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = ℎ))
26	25	rspcv 3586	. . . . . . . 8 ⊢ (ℎ ∈ (𝑋𝐻𝑋) → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = ℎ))
27		oveq1 7415	. . . . . . . . . 10 ⊢ (𝑓 = 𝑔 → (𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ))
28		id 23	. . . . . . . . . 10 ⊢ (𝑓 = 𝑔 → 𝑓 = 𝑔)
29	27, 28	eqeq12d 2785	. . . . . . . . 9 ⊢ (𝑓 = 𝑔 → ((𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓 ↔ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑔))
30	29	rspcv 3586	. . . . . . . 8 ⊢ (𝑔 ∈ (𝑋𝐻𝑋) → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓 → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑔))
31	26, 30	im2anan9r 632	. . . . . . 7 ⊢ ((𝑔 ∈ (𝑋𝐻𝑋) ∧ ℎ ∈ (𝑋𝐻𝑋)) → ((∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓) → ((𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = ℎ ∧ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑔)))
32		eqtr2 2790	. . . . . . . 8 ⊢ (((𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = ℎ ∧ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑔) → ℎ = 𝑔)
33	32	equcomd 2046	. . . . . . 7 ⊢ (((𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = ℎ ∧ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑔) → 𝑔 = ℎ)
34	22, 31, 33	syl56 37	. . . . . 6 ⊢ ((𝑔 ∈ (𝑋𝐻𝑋) ∧ ℎ ∈ (𝑋𝐻𝑋)) → (((∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓) ∧ (∀𝑓 ∈ (𝑋𝐻𝑋)(ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓)) → 𝑔 = ℎ))
35	34	rgen2 3211	. . . . 5 ⊢ ∀𝑔 ∈ (𝑋𝐻𝑋)∀ℎ ∈ (𝑋𝐻𝑋)(((∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓) ∧ (∀𝑓 ∈ (𝑋𝐻𝑋)(ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓)) → 𝑔 = ℎ)
36	35	a1i 11	. . . 4 ⊢ (𝜑 → ∀𝑔 ∈ (𝑋𝐻𝑋)∀ℎ ∈ (𝑋𝐻𝑋)(((∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓) ∧ (∀𝑓 ∈ (𝑋𝐻𝑋)(ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓)) → 𝑔 = ℎ))
37		oveq1 7415	. . . . . . . 8 ⊢ (𝑔 = ℎ → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
38	37	eqeq1d 2771	. . . . . . 7 ⊢ (𝑔 = ℎ → ((𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ↔ (ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓))
39	38	ralbidv 3194	. . . . . 6 ⊢ (𝑔 = ℎ → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ↔ ∀𝑓 ∈ (𝑋𝐻𝑋)(ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓))
40		oveq2 7416	. . . . . . . 8 ⊢ (𝑔 = ℎ → (𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = (𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ))
41	40	eqeq1d 2771	. . . . . . 7 ⊢ (𝑔 = ℎ → ((𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓 ↔ (𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓))
42	41	ralbidv 3194	. . . . . 6 ⊢ (𝑔 = ℎ → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓 ↔ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓))
43	39, 42	anbi12d 643	. . . . 5 ⊢ (𝑔 = ℎ → ((∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓) ↔ (∀𝑓 ∈ (𝑋𝐻𝑋)(ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓)))
44	43	rmo4 3702	. . . 4 ⊢ (∃*𝑔 ∈ (𝑋𝐻𝑋)(∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓) ↔ ∀𝑔 ∈ (𝑋𝐻𝑋)∀ℎ ∈ (𝑋𝐻𝑋)(((∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓) ∧ (∀𝑓 ∈ (𝑋𝐻𝑋)(ℎ(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)ℎ) = 𝑓)) → 𝑔 = ℎ))
45	36, 44	sylibr 237	. . 3 ⊢ (𝜑 → ∃*𝑔 ∈ (𝑋𝐻𝑋)(∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓))
46		rmoim 3712	. . 3 ⊢ (∀𝑔 ∈ (𝑋𝐻𝑋)(∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓) → (∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓)) → (∃*𝑔 ∈ (𝑋𝐻𝑋)(∀𝑓 ∈ (𝑋𝐻𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑋)(𝑓(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑓) → ∃*𝑔 ∈ (𝑋𝐻𝑋)∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓)))
47	21, 45, 46	sylc 66	. 2 ⊢ (𝜑 → ∃*𝑔 ∈ (𝑋𝐻𝑋)∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓))
48		reu5 3378	. 2 ⊢ (∃!𝑔 ∈ (𝑋𝐻𝑋)∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓) ↔ (∃𝑔 ∈ (𝑋𝐻𝑋)∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓) ∧ ∃*𝑔 ∈ (𝑋𝐻𝑋)∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓)))
49	6, 47, 48	sylanbrc 594	1 ⊢ (𝜑 → ∃!𝑔 ∈ (𝑋𝐻𝑋)∀𝑦 ∈ 𝐵 (∀𝑓 ∈ (𝑦𝐻𝑋)(𝑔(⟨𝑦, 𝑋⟩ · 𝑋)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑋𝐻𝑦)(𝑓(⟨𝑋, 𝑋⟩ · 𝑦)𝑔) = 𝑓))

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1567   ∈ wcel 2149  ∀wral 3085  ∃wrex 3095  ∃!wreu 3374  ∃*wrmo 3375  ⟨cop 4597  ‘cfv 6534  (class class class)co 7408  Basecbs 17265  Hom chom 17317  compcco 17318  Catccat 17716

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-ext 2741  ax-nul 5268

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-dif 3916  df-un 3918  df-ss 3930  df-nul 4295  df-if 4490  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-br 5111  df-iota 6490  df-fv 6542  df-ov 7411  df-cat 17720

This theorem is referenced by:  catidd  17732  catidcl  17734  catlid  17735  catrid  17736