Theorem discsubc 49862

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 2780	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝑥 = 𝑦 ↔ 𝑎 = 𝑏))
3		simpl 487	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝑥 = 𝑎)
4	3	fveq2d 6885	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝐼‘𝑥) = (𝐼‘𝑎))
5	4	sneqd 4601	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → {(𝐼‘𝑥)} = {(𝐼‘𝑎)})
6	2, 5	ifbieq1d 4512	. . . . . . 7 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
7		discsubc.j	. . . . . . 7 ⊢ 𝐽 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅))
8		snex 5410	. . . . . . . 8 ⊢ {(𝐼‘𝑎)} ∈ V
9		0ex 5270	. . . . . . . 8 ⊢ ∅ ∈ V
10	8, 9	ifex 4538	. . . . . . 7 ⊢ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ∈ V
11	6, 7, 10	ovmpoa 7565	. . . . . 6 ⊢ ((𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
12	11	adantl 486	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
13		sseq1 3962	. . . . . 6 ⊢ ({(𝐼‘𝑎)} = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) → ({(𝐼‘𝑎)} ⊆ (𝑎(Homf ‘𝐶)𝑏) ↔ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏)))
14		sseq1 3962	. . . . . 6 ⊢ (∅ = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) → (∅ ⊆ (𝑎(Homf ‘𝐶)𝑏) ↔ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏)))
15		discsubc.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐶)
16		eqid 2763	. . . . . . . . 9 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
17		discsubc.i	. . . . . . . . 9 ⊢ 𝐼 = (Id‘𝐶)
18		discsubc.c	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ Cat)
19	18	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝐶 ∈ Cat)
20	1	ad2antrr 738	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑆 ⊆ 𝐵)
21		simplrl 788	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 ∈ 𝑆)
22	20, 21	sseldd 3938	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 ∈ 𝐵)
23	15, 16, 17, 19, 22	catidcl 17733	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝐼‘𝑎) ∈ (𝑎(Hom ‘𝐶)𝑎))
24		eqid 2763	. . . . . . . . . 10 ⊢ (Homf ‘𝐶) = (Homf ‘𝐶)
25	24, 15, 16, 22, 22	homfval 17743	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Homf ‘𝐶)𝑎) = (𝑎(Hom ‘𝐶)𝑎))
26		simpr 489	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → 𝑎 = 𝑏)
27	26	oveq2d 7426	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Homf ‘𝐶)𝑎) = (𝑎(Homf ‘𝐶)𝑏))
28	25, 27	eqtr3d 2800	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝑎(Hom ‘𝐶)𝑎) = (𝑎(Homf ‘𝐶)𝑏))
29	23, 28	eleqtrd 2865	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → (𝐼‘𝑎) ∈ (𝑎(Homf ‘𝐶)𝑏))
30	29	snssd 4752	. . . . . 6 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ 𝑎 = 𝑏) → {(𝐼‘𝑎)} ⊆ (𝑎(Homf ‘𝐶)𝑏))
31		0ss 4357	. . . . . . 7 ⊢ ∅ ⊆ (𝑎(Homf ‘𝐶)𝑏)
32	31	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) ∧ ¬ 𝑎 = 𝑏) → ∅ ⊆ (𝑎(Homf ‘𝐶)𝑏))
33	13, 14, 30, 32	ifbothda 4526	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ⊆ (𝑎(Homf ‘𝐶)𝑏))
34	12, 33	eqsstrd 3971	. . . 4 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑆 ∧ 𝑏 ∈ 𝑆)) → (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))
35	34	ralrimivva 3208	. . 3 ⊢ (𝜑 → ∀𝑎 ∈ 𝑆 ∀𝑏 ∈ 𝑆 (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))
36	7	discsubclem 49861	. . . . 5 ⊢ 𝐽 Fn (𝑆 × 𝑆)
37	36	a1i 11	. . . 4 ⊢ (𝜑 → 𝐽 Fn (𝑆 × 𝑆))
38	24, 15	homffn 17744	. . . . 5 ⊢ (Homf ‘𝐶) Fn (𝐵 × 𝐵)
39	38	a1i 11	. . . 4 ⊢ (𝜑 → (Homf ‘𝐶) Fn (𝐵 × 𝐵))
40	15	fvexi 6895	. . . . 5 ⊢ 𝐵 ∈ V
41	40	a1i 11	. . . 4 ⊢ (𝜑 → 𝐵 ∈ V)
42	37, 39, 41	isssc 17872	. . 3 ⊢ (𝜑 → (𝐽 ⊆cat (Homf ‘𝐶) ↔ (𝑆 ⊆ 𝐵 ∧ ∀𝑎 ∈ 𝑆 ∀𝑏 ∈ 𝑆 (𝑎𝐽𝑏) ⊆ (𝑎(Homf ‘𝐶)𝑏))))
43	1, 35, 42	mpbir2and 725	. 2 ⊢ (𝜑 → 𝐽 ⊆cat (Homf ‘𝐶))
44		fvex 6894	. . . . . 6 ⊢ (𝐼‘𝑎) ∈ V
45	44	snid 4628	. . . . 5 ⊢ (𝐼‘𝑎) ∈ {(𝐼‘𝑎)}
46		simpr 489	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → 𝑎 ∈ 𝑆)
47		equtr2 2057	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → 𝑥 = 𝑦)
48	47	iftrued 4495	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = {(𝐼‘𝑥)})
49		simpl 487	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → 𝑥 = 𝑎)
50	49	fveq2d 6885	. . . . . . . . 9 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → (𝐼‘𝑥) = (𝐼‘𝑎))
51	50	sneqd 4601	. . . . . . . 8 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → {(𝐼‘𝑥)} = {(𝐼‘𝑎)})
52	48, 51	eqtrd 2798	. . . . . . 7 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑎) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = {(𝐼‘𝑎)})
53	52, 7, 8	ovmpoa 7565	. . . . . 6 ⊢ ((𝑎 ∈ 𝑆 ∧ 𝑎 ∈ 𝑆) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
54	46, 46, 53	syl2anc 595	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
55	45, 54	eleqtrrid 2870	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → (𝐼‘𝑎) ∈ (𝑎𝐽𝑎))
56	45	a1i 11	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) ∈ {(𝐼‘𝑎)})
57		simprl 782	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ (𝑎𝐽𝑏))
58	46	ad2antrr 738	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 ∈ 𝑆)
59		simplrl 788	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑏 ∈ 𝑆)
60	58, 59, 11	syl2anc 595	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑏) = if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
61	57, 60	eleqtrd 2865	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅))
62	61	ne0d 4295	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ≠ ∅)
63		iffalse 4496	. . . . . . . . . . . . . 14 ⊢ (¬ 𝑎 = 𝑏 → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) = ∅)
64	63	necon1ai 2985	. . . . . . . . . . . . 13 ⊢ (if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) ≠ ∅ → 𝑎 = 𝑏)
65	62, 64	syl 18	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 = 𝑏)
66	65	opeq2d 4845	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → ⟨𝑎, 𝑎⟩ = ⟨𝑎, 𝑏⟩)
67		simprr 784	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ (𝑏𝐽𝑐))
68		eqeq12 2780	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → (𝑥 = 𝑦 ↔ 𝑏 = 𝑐))
69		simpl 487	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → 𝑥 = 𝑏)
70	69	fveq2d 6885	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → (𝐼‘𝑥) = (𝐼‘𝑏))
71	70	sneqd 4601	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → {(𝐼‘𝑥)} = {(𝐼‘𝑏)})
72	68, 71	ifbieq1d 4512	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑏 ∧ 𝑦 = 𝑐) → if(𝑥 = 𝑦, {(𝐼‘𝑥)}, ∅) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
73		snex 5410	. . . . . . . . . . . . . . . . . 18 ⊢ {(𝐼‘𝑏)} ∈ V
74	73, 9	ifex 4538	. . . . . . . . . . . . . . . . 17 ⊢ if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ∈ V
75	72, 7, 74	ovmpoa 7565	. . . . . . . . . . . . . . . 16 ⊢ ((𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆) → (𝑏𝐽𝑐) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
76	75	ad2antlr 739	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑏𝐽𝑐) = if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
77	67, 76	eleqtrd 2865	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅))
78	77	ne0d 4295	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ≠ ∅)
79		iffalse 4496	. . . . . . . . . . . . . 14 ⊢ (¬ 𝑏 = 𝑐 → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) = ∅)
80	79	necon1ai 2985	. . . . . . . . . . . . 13 ⊢ (if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) ≠ ∅ → 𝑏 = 𝑐)
81	78, 80	syl 18	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑏 = 𝑐)
82	65, 81	eqtrd 2798	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 = 𝑐)
83	66, 82	oveq12d 7428	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎) = (⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐))
84	83	eqcomd 2769	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐) = (⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎))
85	81	iftrued 4495	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑏 = 𝑐, {(𝐼‘𝑏)}, ∅) = {(𝐼‘𝑏)})
86	77, 85	eleqtrd 2865	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 ∈ {(𝐼‘𝑏)})
87	86	elsnd 4607	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 = (𝐼‘𝑏))
88	65	fveq2d 6885	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) = (𝐼‘𝑏))
89	87, 88	eqtr4d 2801	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑔 = (𝐼‘𝑎))
90	65	iftrued 4495	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → if(𝑎 = 𝑏, {(𝐼‘𝑎)}, ∅) = {(𝐼‘𝑎)})
91	61, 90	eleqtrd 2865	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 ∈ {(𝐼‘𝑎)})
92	91	elsnd 4607	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑓 = (𝐼‘𝑎))
93	84, 89, 92	oveq123d 7431	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) = ((𝐼‘𝑎)(⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎)(𝐼‘𝑎)))
94	18	ad3antrrr 742	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝐶 ∈ Cat)
95	1	ad3antrrr 742	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑆 ⊆ 𝐵)
96	95, 58	sseldd 3938	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → 𝑎 ∈ 𝐵)
97		eqid 2763	. . . . . . . . 9 ⊢ (comp‘𝐶) = (comp‘𝐶)
98	15, 16, 17, 94, 96	catidcl 17733	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝐼‘𝑎) ∈ (𝑎(Hom ‘𝐶)𝑎))
99	15, 16, 17, 94, 96, 97, 96, 98	catlid 17734	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → ((𝐼‘𝑎)(⟨𝑎, 𝑎⟩(comp‘𝐶)𝑎)(𝐼‘𝑎)) = (𝐼‘𝑎))
100	93, 99	eqtrd 2798	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) = (𝐼‘𝑎))
101	82	oveq2d 7426	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑎) = (𝑎𝐽𝑐))
102	58, 58, 53	syl2anc 595	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑎) = {(𝐼‘𝑎)})
103	101, 102	eqtr3d 2800	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑎𝐽𝑐) = {(𝐼‘𝑎)})
104	56, 100, 103	3eltr4d 2878	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑎𝐽𝑏) ∧ 𝑔 ∈ (𝑏𝐽𝑐))) → (𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
105	104	ralrimivva 3208	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝑆) ∧ (𝑏 ∈ 𝑆 ∧ 𝑐 ∈ 𝑆)) → ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
106	105	ralrimivva 3208	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐))
107	55, 106	jca 520	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝑆) → ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))
108	107	ralrimiva 3157	. 2 ⊢ (𝜑 → ∀𝑎 ∈ 𝑆 ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))
109	24, 17, 97, 18, 37	issubc2 17888	. 2 ⊢ (𝜑 → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽 ⊆cat (Homf ‘𝐶) ∧ ∀𝑎 ∈ 𝑆 ((𝐼‘𝑎) ∈ (𝑎𝐽𝑎) ∧ ∀𝑏 ∈ 𝑆 ∀𝑐 ∈ 𝑆 ∀𝑓 ∈ (𝑎𝐽𝑏)∀𝑔 ∈ (𝑏𝐽𝑐)(𝑔(⟨𝑎, 𝑏⟩(comp‘𝐶)𝑐)𝑓) ∈ (𝑎𝐽𝑐)))))
110	43, 108, 109	mpbir2and 725	1 ⊢ (𝜑 → 𝐽 ∈ (Subcat‘𝐶))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   = wceq 1570   ∈ wcel 2143   ≠ wne 2958  ∀wral 3079  Vcvv 3455   ⊆ wss 3905  ∅c0 4286  ifcif 4487  {csn 4589  ⟨cop 4595   class class class wbr 5109   × cxp 5659   Fn wfn 6531  ‘cfv 6536  (class class class)co 7410   ∈ cmpo 7412  Basecbs 17264  Hom chom 17316  compcco 17317  Catccat 17715  Idccid 17716  Hom_f chomf 17717   ⊆_cat cssc 17859  Subcatcsubc 17861

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-1st 7982  df-2nd 7983  df-pm 8823  df-ixp 8892  df-cat 17719  df-cid 17720  df-homf 17721  df-ssc 17862  df-subc 17864

This theorem is referenced by:  iinfconstbaslem  49863