Theorem discsubc 50171

Description: A discrete category, whose only morphisms are the identity morphisms, is a subcategory. (Contributed by Zhi Wang, 1-Nov-2025.)

Hypotheses

Ref	Expression
discsubc.j	⊢ 𝐽 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅))
discsubc.b	⊢ 𝐵 = (Base‘𝐶)
discsubc.i	⊢ 𝐼 = (Id‘𝐶)
discsubc.s	⊢ (𝜑 → 𝑆 ⊆ 𝐵)
discsubc.c	⊢ (𝜑 → 𝐶 ∈ Cat)

Assertion

Ref	Expression
discsubc	⊢ (𝜑 → 𝐽 ∈ (Subcat‘𝐶))

Distinct variable groups:   𝑥,𝑆,𝑦   𝑥,𝐼,𝑦

Allowed substitution hints:   𝜑(𝑥, 𝑦)   𝐵(𝑥, 𝑦)   𝐶(𝑥, 𝑦)   𝐽(𝑥, 𝑦)

Proof of Theorem discsubc

Dummy variables 𝑎 𝑏 𝑐 𝑓 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		discsubc.s	. . 3 ⊢ (𝜑 → 𝑆 ⊆ 𝐵)
2		eqeq12 2778	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝑥 = 𝑦 ↔ 𝑎 = 𝑏))
3		simpl 488	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝑥 = 𝑎)
4	3	fveq2d 6889	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝐼‘𝑥) = (𝐼‘𝑎))
5	4	sneqd 4596	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → {(𝐼‘𝑥)} = {(𝐼‘𝑎)})
6	2, 5	ifbieq1d 4507	. . . . . . 7 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
7		discsubc.j	. . . . . . 7 ⊢ 𝐽 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅))
8		snex 5397	. . . . . . . 8 ⊢ {(𝐼‘𝑎)} ∈ V
9		0ex 5261	. . . . . . . 8 ⊢ ∅ ∈ V
10	8, 9	ifex 4533	. . . . . . 7 ⊢ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ∈ V
11	6, 7, 10	ovmpoa 7575	. . . . . 6 ⊢ ((𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
12	11	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
13		sseq1 3956	. . . . . 6 ⊢ ({(𝐼‘𝑎)} = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) → ({(𝐼‘𝑎)} ⊆ (𝑎(Homf ‘𝐶)𝑏) ↔ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏)))
14		sseq1 3956	. . . . . 6 ⊢ (∅ = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) → (∅ ⊆ (𝑎(Homf ‘𝐶)𝑏) ↔ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏)))
15		discsubc.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐶)
16		eqid 2761	. . . . . . . . 9 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
17		discsubc.i	. . . . . . . . 9 ⊢ 𝐼 = (Id‘𝐶)
18		discsubc.c	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ Cat)
19	18	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝐶 ∈ Cat)
20	1	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑆 ⊆ 𝐵)
21		simplrl 789	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 ∈ 𝑆)
22	20, 21	sseldd 3932	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 ∈ 𝐵)
23	15, 16, 17, 19, 22	catidcl 17856	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝐼‘𝑎) ∈ (𝑎(Hom ‘𝐶)𝑎))
24		eqid 2761	. . . . . . . . . 10 ⊢ (Homf ‘𝐶) = (Homf ‘𝐶)
25	24, 15, 16, 22, 22	homfval 17866	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Homf ‘𝐶)𝑎) = (𝑎(Hom ‘𝐶)𝑎))
26		simpr 490	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 = 𝑏)
27	26	oveq2d 7436	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Homf ‘𝐶)𝑎) = (𝑎(Homf ‘𝐶)𝑏))
28	25, 27	eqtr3d 2798	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Hom ‘𝐶)𝑎) = (𝑎(Homf ‘𝐶)𝑏))
29	23, 28	eleqtrd 2863	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝐼‘𝑎) ∈ (𝑎(Homf ‘𝐶)𝑏))
30	29	snssd 4747	. . . . . 6 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → {(𝐼‘𝑎)} ⊆ (𝑎(Homf ‘𝐶)𝑏))
31		0ss 4350	. . . . . . 7 ⊢ ∅ ⊆ (𝑎(Homf ‘𝐶)𝑏)
32	31	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ ¬ 𝑎 = 𝑏) → ∅ ⊆ (𝑎(Homf ‘𝐶)𝑏))
33	13, 14, 30, 32	ifbothda 4521	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏))
34	12, 33	eqsstrd 3965	. . . 4 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))
35	34	ralrimivva 3206	. . 3 ⊢ (𝜑 → ∀𝑎 ∈ 𝑆 ∀𝑏 ∈ 𝑆 (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))
36	7	discsubclem 50170	. . . . 5 ⊢ 𝐽 Fn (𝑆 × 𝑆)
37	36	a1i 11	. . . 4 ⊢ (𝜑 → 𝐽 Fn (𝑆 × 𝑆))
38	24, 15	homffn 17867	. . . . 5 ⊢ (Homf ‘𝐶) Fn (𝐵 × 𝐵)
39	38	a1i 11	. . . 4 ⊢ (𝜑 → (Homf ‘𝐶) Fn (𝐵 × 𝐵))
40	15	fvexi 6899	. . . . 5 ⊢ 𝐵 ∈ V
41	40	a1i 11	. . . 4 ⊢ (𝜑 → 𝐵 ∈ V)
42	37, 39, 41	isssc 17995	. . 3 ⊢ (𝜑 → (𝐽 ⊆cat (Homf ‘𝐶) ↔ (𝑆 ⊆ 𝐵 ∧ ∀𝑎 ∈ 𝑆 ∀𝑏 ∈ 𝑆 (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))))
43	1, 35, 42	mpbir2and 726	. 2 ⊢ (𝜑 → 𝐽 ⊆cat (Homf ‘𝐶))
44		fvex 6898	. . . . . 6 ⊢ (𝐼‘𝑎) ∈ V
45	44	snid 4623	. . . . 5 ⊢ (𝐼‘𝑎) ∈ {(𝐼‘𝑎)}
46		simpr 490	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑎 ∈ 𝑆)
47		equtr2 2060	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → 𝑥 = 𝑦)
48	47	iftrued 4490	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = {(𝐼‘𝑥)})
49		simpl 488	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → 𝑥 = 𝑎)
50	49	fveq2d 6889	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → (𝐼‘𝑥) = (𝐼‘𝑎))
51	50	sneqd 4596	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → {(𝐼‘𝑥)} = {(𝐼‘𝑎)})
52	48, 51	eqtrd 2796	. . . . . . 7 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = {(𝐼‘𝑎)})
53	52, 7, 8	ovmpoa 7575	. . . . . 6 ⊢ ((𝑎 ∈ 𝑆 ∧ 𝑎 ∈ 𝑆) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
54	46, 46, 53	syl2anc 596	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
55	45, 54	eleqtrrid 2868	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝐼‘𝑎) ∈ (𝑎𝐽𝑎))
56	45	a1i 11	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) ∈ {(𝐼‘𝑎)})
57		simprl 783	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ (𝑎𝐽𝑏))
58	46	ad2antrr 739	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 ∈ 𝑆)
59		simplrl 789	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑏 ∈ 𝑆)
60	58, 59, 11	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
61	57, 60	eleqtrd 2863	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
62	61	ne0d 4288	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ≠ ∅)
63		iffalse 4491	. . . . . . . . . . . . . 14 ⊢ (¬ 𝑎 = 𝑏 → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) = ∅)
64	63	necon1ai 2983	. . . . . . . . . . . . 13 ⊢ (if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ≠ ∅ → 𝑎 = 𝑏)
65	62, 64	syl 18	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 = 𝑏)
66	65	opeq2d 4840	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → ⟨𝑎, 𝑎⟩ = ⟨𝑎, 𝑏⟩)
67		simprr 785	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ (𝑏𝐽𝑐))
68		eqeq12 2778	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → (𝑥 = 𝑦 ↔ 𝑏 = 𝑐))
69		simpl 488	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → 𝑥 = 𝑏)
70	69	fveq2d 6889	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → (𝐼‘𝑥) = (𝐼‘𝑏))
71	70	sneqd 4596	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → {(𝐼‘𝑥)} = {(𝐼‘𝑏)})
72	68, 71	ifbieq1d 4507	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
73		snex 5397	. . . . . . . . . . . . . . . . . 18 ⊢ {(𝐼‘𝑏)} ∈ V
74	73, 9	ifex 4533	. . . . . . . . . . . . . . . . 17 ⊢ if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ∈ V
75	72, 7, 74	ovmpoa 7575	. . . . . . . . . . . . . . . 16 ⊢ ((𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆) → (𝑏𝐽𝑐) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
76	75	ad2antlr 740	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑏𝐽𝑐) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
77	67, 76	eleqtrd 2863	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
78	77	ne0d 4288	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ≠ ∅)
79		iffalse 4491	. . . . . . . . . . . . . 14 ⊢ (¬ 𝑏 = 𝑐 → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) = ∅)
80	79	necon1ai 2983	. . . . . . . . . . . . 13 ⊢ (if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ≠ ∅ → 𝑏 = 𝑐)
81	78, 80	syl 18	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑏 = 𝑐)
82	65, 81	eqtrd 2796	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 = 𝑐)
83	66, 82	oveq12d 7438	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎) = (⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐))
84	83	eqcomd 2767	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐) = (⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎))
85	81	iftrued 4490	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) = {(𝐼‘𝑏)})
86	77, 85	eleqtrd 2863	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ {(𝐼‘𝑏)})
87	86	elsnd 4602	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 = (𝐼‘𝑏))
88	65	fveq2d 6889	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) = (𝐼‘𝑏))
89	87, 88	eqtr4d 2799	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 = (𝐼‘𝑎))
90	65	iftrued 4490	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) = {(𝐼‘𝑎)})
91	61, 90	eleqtrd 2863	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ {(𝐼‘𝑎)})
92	91	elsnd 4602	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 = (𝐼‘𝑎))
93	84, 89, 92	oveq123d 7441	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) = ((𝐼‘𝑎)(⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎)(𝐼‘𝑎)))
94	18	ad3antrrr 743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝐶 ∈ Cat)
95	1	ad3antrrr 743	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑆 ⊆ 𝐵)
96	95, 58	sseldd 3932	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 ∈ 𝐵)
97		eqid 2761	. . . . . . . . 9 ⊢ (comp‘𝐶) = (comp‘𝐶)
98	15, 16, 17, 94, 96	catidcl 17856	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) ∈ (𝑎(Hom ‘𝐶)𝑎))
99	15, 16, 17, 94, 96, 97, 96, 98	catlid 17857	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → ((𝐼‘𝑎)(⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎)(𝐼‘𝑎)) = (𝐼‘𝑎))
100	93, 99	eqtrd 2796	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) = (𝐼‘𝑎))
101	82	oveq2d 7436	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑎) = (𝑎𝐽𝑐))
102	58, 58, 53	syl2anc 596	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
103	101, 102	eqtr3d 2798	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑐) = {(𝐼‘𝑎)})
104	56, 100, 103	3eltr4d 2876	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
105	104	ralrimivva 3206	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) → ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
106	105	ralrimivva 3206	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
107	55, 106	jca 521	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))
108	107	ralrimiva 3155	. 2 ⊢ (𝜑 → ∀𝑎 ∈ 𝑆 ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))
109	24, 17, 97, 18, 37	issubc2 18011	. 2 ⊢ (𝜑 → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽 ⊆cat (Homf ‘𝐶) ∧ ∀𝑎 ∈ 𝑆 ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))))
110	43, 108, 109	mpbir2and 726	1 ⊢ (𝜑 → 𝐽 ∈ (Subcat‘𝐶))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2145   ≠ wne 2956  ∀wral 3077  Vcvv 3451   ⊆ wss 3899  ∅c0 4279  ifcif 4482  {csn 4584  ⟨cop 4590   class class class wbr 5103   × cxp 5649   Fn wfn 6533  ‘cfv 6538  (class class class)co 7420   ∈ cmpo 7422  Basecbs 17387  Hom chom 17439  compcco 17440  Catccat 17838  Idccid 17839  Hom_f chomf 17840   ⊆_cat cssc 17982  Subcatcsubc 17984

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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7751

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 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-1st 8001  df-2nd 8002  df-pm 8850  df-ixp 8926  df-cat 17842  df-cid 17843  df-homf 17844  df-ssc 17985  df-subc 17987

This theorem is used by:  iinfconstbaslem  50172