Theorem discsubc 49554

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 2754	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝑥 = 𝑦 ↔ 𝑎 = 𝑏))
3		simpl 482	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝑥 = 𝑎)
4	3	fveq2d 6839	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝐼‘𝑥) = (𝐼‘𝑎))
5	4	sneqd 4580	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → {(𝐼‘𝑥)} = {(𝐼‘𝑎)})
6	2, 5	ifbieq1d 4492	. . . . . . 7 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
7		discsubc.j	. . . . . . 7 ⊢ 𝐽 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅))
8		snex 5377	. . . . . . . 8 ⊢ {(𝐼‘𝑎)} ∈ V
9		0ex 5243	. . . . . . . 8 ⊢ ∅ ∈ V
10	8, 9	ifex 4518	. . . . . . 7 ⊢ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ∈ V
11	6, 7, 10	ovmpoa 7516	. . . . . 6 ⊢ ((𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
12	11	adantl 481	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
13		sseq1 3948	. . . . . 6 ⊢ ({(𝐼‘𝑎)} = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) → ({(𝐼‘𝑎)} ⊆ (𝑎(Homf ‘𝐶)𝑏) ↔ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏)))
14		sseq1 3948	. . . . . 6 ⊢ (∅ = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) → (∅ ⊆ (𝑎(Homf ‘𝐶)𝑏) ↔ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏)))
15		discsubc.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐶)
16		eqid 2737	. . . . . . . . 9 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
17		discsubc.i	. . . . . . . . 9 ⊢ 𝐼 = (Id‘𝐶)
18		discsubc.c	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ Cat)
19	18	ad2antrr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝐶 ∈ Cat)
20	1	ad2antrr 727	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑆 ⊆ 𝐵)
21		simplrl 777	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 ∈ 𝑆)
22	20, 21	sseldd 3923	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 ∈ 𝐵)
23	15, 16, 17, 19, 22	catidcl 17642	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝐼‘𝑎) ∈ (𝑎(Hom ‘𝐶)𝑎))
24		eqid 2737	. . . . . . . . . 10 ⊢ (Homf ‘𝐶) = (Homf ‘𝐶)
25	24, 15, 16, 22, 22	homfval 17652	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Homf ‘𝐶)𝑎) = (𝑎(Hom ‘𝐶)𝑎))
26		simpr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 = 𝑏)
27	26	oveq2d 7377	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Homf ‘𝐶)𝑎) = (𝑎(Homf ‘𝐶)𝑏))
28	25, 27	eqtr3d 2774	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Hom ‘𝐶)𝑎) = (𝑎(Homf ‘𝐶)𝑏))
29	23, 28	eleqtrd 2839	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝐼‘𝑎) ∈ (𝑎(Homf ‘𝐶)𝑏))
30	29	snssd 4753	. . . . . 6 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → {(𝐼‘𝑎)} ⊆ (𝑎(Homf ‘𝐶)𝑏))
31		0ss 4341	. . . . . . 7 ⊢ ∅ ⊆ (𝑎(Homf ‘𝐶)𝑏)
32	31	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ ¬ 𝑎 = 𝑏) → ∅ ⊆ (𝑎(Homf ‘𝐶)𝑏))
33	13, 14, 30, 32	ifbothda 4506	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏))
34	12, 33	eqsstrd 3957	. . . 4 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))
35	34	ralrimivva 3181	. . 3 ⊢ (𝜑 → ∀𝑎 ∈ 𝑆 ∀𝑏 ∈ 𝑆 (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))
36	7	discsubclem 49553	. . . . 5 ⊢ 𝐽 Fn (𝑆 × 𝑆)
37	36	a1i 11	. . . 4 ⊢ (𝜑 → 𝐽 Fn (𝑆 × 𝑆))
38	24, 15	homffn 17653	. . . . 5 ⊢ (Homf ‘𝐶) Fn (𝐵 × 𝐵)
39	38	a1i 11	. . . 4 ⊢ (𝜑 → (Homf ‘𝐶) Fn (𝐵 × 𝐵))
40	15	fvexi 6849	. . . . 5 ⊢ 𝐵 ∈ V
41	40	a1i 11	. . . 4 ⊢ (𝜑 → 𝐵 ∈ V)
42	37, 39, 41	isssc 17781	. . 3 ⊢ (𝜑 → (𝐽 ⊆cat (Homf ‘𝐶) ↔ (𝑆 ⊆ 𝐵 ∧ ∀𝑎 ∈ 𝑆 ∀𝑏 ∈ 𝑆 (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))))
43	1, 35, 42	mpbir2and 714	. 2 ⊢ (𝜑 → 𝐽 ⊆cat (Homf ‘𝐶))
44		fvex 6848	. . . . . 6 ⊢ (𝐼‘𝑎) ∈ V
45	44	snid 4607	. . . . 5 ⊢ (𝐼‘𝑎) ∈ {(𝐼‘𝑎)}
46		simpr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑎 ∈ 𝑆)
47		equtr2 2029	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → 𝑥 = 𝑦)
48	47	iftrued 4475	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = {(𝐼‘𝑥)})
49		simpl 482	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → 𝑥 = 𝑎)
50	49	fveq2d 6839	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → (𝐼‘𝑥) = (𝐼‘𝑎))
51	50	sneqd 4580	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → {(𝐼‘𝑥)} = {(𝐼‘𝑎)})
52	48, 51	eqtrd 2772	. . . . . . 7 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = {(𝐼‘𝑎)})
53	52, 7, 8	ovmpoa 7516	. . . . . 6 ⊢ ((𝑎 ∈ 𝑆 ∧ 𝑎 ∈ 𝑆) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
54	46, 46, 53	syl2anc 585	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
55	45, 54	eleqtrrid 2844	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝐼‘𝑎) ∈ (𝑎𝐽𝑎))
56	45	a1i 11	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) ∈ {(𝐼‘𝑎)})
57		simprl 771	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ (𝑎𝐽𝑏))
58	46	ad2antrr 727	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 ∈ 𝑆)
59		simplrl 777	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑏 ∈ 𝑆)
60	58, 59, 11	syl2anc 585	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
61	57, 60	eleqtrd 2839	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
62	61	ne0d 4283	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ≠ ∅)
63		iffalse 4476	. . . . . . . . . . . . . 14 ⊢ (¬ 𝑎 = 𝑏 → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) = ∅)
64	63	necon1ai 2960	. . . . . . . . . . . . 13 ⊢ (if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ≠ ∅ → 𝑎 = 𝑏)
65	62, 64	syl 17	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 = 𝑏)
66	65	opeq2d 4824	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → ⟨𝑎, 𝑎⟩ = ⟨𝑎, 𝑏⟩)
67		simprr 773	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ (𝑏𝐽𝑐))
68		eqeq12 2754	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → (𝑥 = 𝑦 ↔ 𝑏 = 𝑐))
69		simpl 482	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → 𝑥 = 𝑏)
70	69	fveq2d 6839	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → (𝐼‘𝑥) = (𝐼‘𝑏))
71	70	sneqd 4580	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → {(𝐼‘𝑥)} = {(𝐼‘𝑏)})
72	68, 71	ifbieq1d 4492	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
73		snex 5377	. . . . . . . . . . . . . . . . . 18 ⊢ {(𝐼‘𝑏)} ∈ V
74	73, 9	ifex 4518	. . . . . . . . . . . . . . . . 17 ⊢ if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ∈ V
75	72, 7, 74	ovmpoa 7516	. . . . . . . . . . . . . . . 16 ⊢ ((𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆) → (𝑏𝐽𝑐) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
76	75	ad2antlr 728	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑏𝐽𝑐) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
77	67, 76	eleqtrd 2839	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
78	77	ne0d 4283	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ≠ ∅)
79		iffalse 4476	. . . . . . . . . . . . . 14 ⊢ (¬ 𝑏 = 𝑐 → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) = ∅)
80	79	necon1ai 2960	. . . . . . . . . . . . 13 ⊢ (if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ≠ ∅ → 𝑏 = 𝑐)
81	78, 80	syl 17	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑏 = 𝑐)
82	65, 81	eqtrd 2772	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 = 𝑐)
83	66, 82	oveq12d 7379	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎) = (⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐))
84	83	eqcomd 2743	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐) = (⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎))
85	81	iftrued 4475	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) = {(𝐼‘𝑏)})
86	77, 85	eleqtrd 2839	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ {(𝐼‘𝑏)})
87	86	elsnd 4586	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 = (𝐼‘𝑏))
88	65	fveq2d 6839	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) = (𝐼‘𝑏))
89	87, 88	eqtr4d 2775	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 = (𝐼‘𝑎))
90	65	iftrued 4475	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) = {(𝐼‘𝑎)})
91	61, 90	eleqtrd 2839	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ {(𝐼‘𝑎)})
92	91	elsnd 4586	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 = (𝐼‘𝑎))
93	84, 89, 92	oveq123d 7382	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) = ((𝐼‘𝑎)(⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎)(𝐼‘𝑎)))
94	18	ad3antrrr 731	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝐶 ∈ Cat)
95	1	ad3antrrr 731	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑆 ⊆ 𝐵)
96	95, 58	sseldd 3923	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 ∈ 𝐵)
97		eqid 2737	. . . . . . . . 9 ⊢ (comp‘𝐶) = (comp‘𝐶)
98	15, 16, 17, 94, 96	catidcl 17642	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) ∈ (𝑎(Hom ‘𝐶)𝑎))
99	15, 16, 17, 94, 96, 97, 96, 98	catlid 17643	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → ((𝐼‘𝑎)(⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎)(𝐼‘𝑎)) = (𝐼‘𝑎))
100	93, 99	eqtrd 2772	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) = (𝐼‘𝑎))
101	82	oveq2d 7377	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑎) = (𝑎𝐽𝑐))
102	58, 58, 53	syl2anc 585	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
103	101, 102	eqtr3d 2774	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑐) = {(𝐼‘𝑎)})
104	56, 100, 103	3eltr4d 2852	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
105	104	ralrimivva 3181	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) → ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
106	105	ralrimivva 3181	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
107	55, 106	jca 511	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))
108	107	ralrimiva 3130	. 2 ⊢ (𝜑 → ∀𝑎 ∈ 𝑆 ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))
109	24, 17, 97, 18, 37	issubc2 17797	. 2 ⊢ (𝜑 → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽 ⊆cat (Homf ‘𝐶) ∧ ∀𝑎 ∈ 𝑆 ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))))
110	43, 108, 109	mpbir2and 714	1 ⊢ (𝜑 → 𝐽 ∈ (Subcat‘𝐶))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114   ≠ wne 2933  ∀wral 3052  Vcvv 3430   ⊆ wss 3890  ∅c0 4274  ifcif 4467  {csn 4568  ⟨cop 4574   class class class wbr 5086   × cxp 5623   Fn wfn 6488  ‘cfv 6493  (class class class)co 7361   ∈ cmpo 7363  Basecbs 17173  Hom chom 17225  compcco 17226  Catccat 17624  Idccid 17625  Hom_f chomf 17626   ⊆_cat cssc 17768  Subcatcsubc 17770

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5303  ax-pr 5371  ax-un 7683

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7318  df-ov 7364  df-oprab 7365  df-mpo 7366  df-1st 7936  df-2nd 7937  df-pm 8770  df-ixp 8840  df-cat 17628  df-cid 17629  df-homf 17630  df-ssc 17771  df-subc 17773

This theorem is referenced by:  iinfconstbaslem  49555