Theorem issubc3 17894

Description: Alternate definition of a subcategory, as a subset of the category which is itself a category. The assumption that the identity be closed is necessary just as in the case of a monoid, issubm2 18817, for the same reasons, since categories are a generalization of monoids. (Contributed by Mario Carneiro, 6-Jan-2017.)

Hypotheses

Ref	Expression
issubc3.h	⊢ 𝐻 = (Homf ‘𝐶)
issubc3.i	⊢ 1 = (Id‘𝐶)
issubc3.1	⊢ 𝐷 = (𝐶 ↾cat 𝐽)
issubc3.c	⊢ (𝜑 → 𝐶 ∈ Cat)
issubc3.a	⊢ (𝜑 → 𝐽 Fn (𝑆 × 𝑆))

Assertion

Ref	Expression
issubc3	⊢ (𝜑 → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)))

Distinct variable groups:   𝑥,𝐶   𝑥,𝐷   𝑥,𝐻   𝜑,𝑥   𝑥,𝐽   𝑥,𝑆

Allowed substitution hint:   1 (𝑥)

Proof of Theorem issubc3

Dummy variables 𝑓 𝑔 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 484	. . . 4 ⊢ ((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) → 𝐽 ∈ (Subcat‘𝐶))
2		issubc3.h	. . . 4 ⊢ 𝐻 = (Homf ‘𝐶)
3	1, 2	subcssc 17885	. . 3 ⊢ ((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) → 𝐽 ⊆cat 𝐻)
4	1	adantr 480	. . . . 5 ⊢ (((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) ∧ 𝑥 ∈ 𝑆) → 𝐽 ∈ (Subcat‘𝐶))
5		issubc3.a	. . . . . 6 ⊢ (𝜑 → 𝐽 Fn (𝑆 × 𝑆))
6	5	ad2antrr 726	. . . . 5 ⊢ (((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) ∧ 𝑥 ∈ 𝑆) → 𝐽 Fn (𝑆 × 𝑆))
7		simpr 484	. . . . 5 ⊢ (((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ 𝑆)
8		issubc3.i	. . . . 5 ⊢ 1 = (Id‘𝐶)
9	4, 6, 7, 8	subcidcl 17889	. . . 4 ⊢ (((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) ∧ 𝑥 ∈ 𝑆) → ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥))
10	9	ralrimiva 3146	. . 3 ⊢ ((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) → ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥))
11		issubc3.1	. . . 4 ⊢ 𝐷 = (𝐶 ↾cat 𝐽)
12	11, 1	subccat 17893	. . 3 ⊢ ((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) → 𝐷 ∈ Cat)
13	3, 10, 12	3jca 1129	. 2 ⊢ ((𝜑 ∧ 𝐽 ∈ (Subcat‘𝐶)) → (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat))
14		simpr1 1195	. . 3 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)) → 𝐽 ⊆cat 𝐻)
15		simpr2 1196	. . . 4 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)) → ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥))
16		eqid 2737	. . . . . . . . . 10 ⊢ (Base‘𝐷) = (Base‘𝐷)
17		eqid 2737	. . . . . . . . . 10 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
18		eqid 2737	. . . . . . . . . 10 ⊢ (comp‘𝐷) = (comp‘𝐷)
19		simplrr 778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝐷 ∈ Cat)
20		simprl1 1219	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑥 ∈ 𝑆)
21		eqid 2737	. . . . . . . . . . . 12 ⊢ (Base‘𝐶) = (Base‘𝐶)
22		issubc3.c	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶 ∈ Cat)
23	22	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝐶 ∈ Cat)
24	5	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝐽 Fn (𝑆 × 𝑆))
25	2, 21	homffn 17736	. . . . . . . . . . . . . 14 ⊢ 𝐻 Fn ((Base‘𝐶) × (Base‘𝐶))
26	25	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝐻 Fn ((Base‘𝐶) × (Base‘𝐶)))
27		simplrl 777	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝐽 ⊆cat 𝐻)
28	24, 26, 27	ssc1 17865	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑆 ⊆ (Base‘𝐶))
29	11, 21, 23, 24, 28	rescbas 17873	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑆 = (Base‘𝐷))
30	20, 29	eleqtrd 2843	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑥 ∈ (Base‘𝐷))
31		simprl2 1220	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑦 ∈ 𝑆)
32	31, 29	eleqtrd 2843	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑦 ∈ (Base‘𝐷))
33		simprl3 1221	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑧 ∈ 𝑆)
34	33, 29	eleqtrd 2843	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑧 ∈ (Base‘𝐷))
35		simprrl 781	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑓 ∈ (𝑥𝐽𝑦))
36	11, 21, 23, 24, 28	reschom 17874	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝐽 = (Hom ‘𝐷))
37	36	oveqd 7448	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → (𝑥𝐽𝑦) = (𝑥(Hom ‘𝐷)𝑦))
38	35, 37	eleqtrd 2843	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦))
39		simprrr 782	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑔 ∈ (𝑦𝐽𝑧))
40	36	oveqd 7448	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → (𝑦𝐽𝑧) = (𝑦(Hom ‘𝐷)𝑧))
41	39, 40	eleqtrd 2843	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → 𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧))
42	16, 17, 18, 19, 30, 32, 34, 38, 41	catcocl 17728	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐷)𝑧)𝑓) ∈ (𝑥(Hom ‘𝐷)𝑧))
43		eqid 2737	. . . . . . . . . . . 12 ⊢ (comp‘𝐶) = (comp‘𝐶)
44	11, 21, 23, 24, 28, 43	rescco 17876	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → (comp‘𝐶) = (comp‘𝐷))
45	44	oveqd 7448	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → (⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧) = (⟨𝑥, 𝑦⟩(comp‘𝐷)𝑧))
46	45	oveqd 7448	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐷)𝑧)𝑓))
47	36	oveqd 7448	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → (𝑥𝐽𝑧) = (𝑥(Hom ‘𝐷)𝑧))
48	42, 46, 47	3eltr4d 2856	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ ((𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧)))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧))
49	48	anassrs 467	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆)) ∧ (𝑓 ∈ (𝑥𝐽𝑦) ∧ 𝑔 ∈ (𝑦𝐽𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧))
50	49	ralrimivva 3202	. . . . . 6 ⊢ (((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) ∧ (𝑥 ∈ 𝑆 ∧ 𝑦 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆)) → ∀𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧))
51	50	ralrimivvva 3205	. . . . 5 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ 𝐷 ∈ Cat)) → ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 ∀𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧))
52	51	3adantr2 1171	. . . 4 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)) → ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 ∀𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧))
53		r19.26 3111	. . . 4 ⊢ (∀𝑥 ∈ 𝑆 (( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 ∀𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧)) ↔ (∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 ∀𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧)))
54	15, 52, 53	sylanbrc 583	. . 3 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)) → ∀𝑥 ∈ 𝑆 (( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 ∀𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧)))
55	22	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)) → 𝐶 ∈ Cat)
56	5	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)) → 𝐽 Fn (𝑆 × 𝑆))
57	2, 8, 43, 55, 56	issubc2 17881	. . 3 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)) → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 (( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 ∀𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
58	14, 54, 57	mpbir2and 713	. 2 ⊢ ((𝜑 ∧ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)) → 𝐽 ∈ (Subcat‘𝐶))
59	13, 58	impbida 801	1 ⊢ (𝜑 → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽 ⊆cat 𝐻 ∧ ∀𝑥 ∈ 𝑆 ( 1 ‘𝑥) ∈ (𝑥𝐽𝑥) ∧ 𝐷 ∈ Cat)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1540   ∈ wcel 2108  ∀wral 3061  ⟨cop 4632   class class class wbr 5143   × cxp 5683   Fn wfn 6556  ‘cfv 6561  (class class class)co 7431  Basecbs 17247  Hom chom 17308  compcco 17309  Catccat 17707  Idccid 17708  Hom_f chomf 17709   ⊆_cat cssc 17851   ↾_cat cresc 17852  Subcatcsubc 17853

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5279  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755  ax-cnex 11211  ax-resscn 11212  ax-1cn 11213  ax-icn 11214  ax-addcl 11215  ax-addrcl 11216  ax-mulcl 11217  ax-mulrcl 11218  ax-mulcom 11219  ax-addass 11220  ax-mulass 11221  ax-distr 11222  ax-i2m1 11223  ax-1ne0 11224  ax-1rid 11225  ax-rnegex 11226  ax-rrecex 11227  ax-cnre 11228  ax-pre-lttri 11229  ax-pre-lttrn 11230  ax-pre-ltadd 11231  ax-pre-mulgt0 11232

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3380  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-om 7888  df-1st 8014  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-rdg 8450  df-er 8745  df-pm 8869  df-ixp 8938  df-en 8986  df-dom 8987  df-sdom 8988  df-pnf 11297  df-mnf 11298  df-xr 11299  df-ltxr 11300  df-le 11301  df-sub 11494  df-neg 11495  df-nn 12267  df-2 12329  df-3 12330  df-4 12331  df-5 12332  df-6 12333  df-7 12334  df-8 12335  df-9 12336  df-n0 12527  df-z 12614  df-dec 12734  df-sets 17201  df-slot 17219  df-ndx 17231  df-base 17248  df-ress 17275  df-hom 17321  df-cco 17322  df-cat 17711  df-cid 17712  df-homf 17713  df-ssc 17854  df-resc 17855  df-subc 17856

This theorem is referenced by:  subsubc  17898