Theorem fthmon 17295

Description: A faithful functor reflects monomorphisms. (Contributed by Mario Carneiro, 27-Jan-2017.)

Hypotheses

Ref	Expression
fthmon.b	⊢ 𝐵 = (Base‘𝐶)
fthmon.h	⊢ 𝐻 = (Hom ‘𝐶)
fthmon.f	⊢ (𝜑 → 𝐹(𝐶 Faith 𝐷)𝐺)
fthmon.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
fthmon.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
fthmon.r	⊢ (𝜑 → 𝑅 ∈ (𝑋𝐻𝑌))
fthmon.m	⊢ 𝑀 = (Mono‘𝐶)
fthmon.n	⊢ 𝑁 = (Mono‘𝐷)
fthmon.1	⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝑁(𝐹‘𝑌)))

Assertion

Ref	Expression
fthmon	⊢ (𝜑 → 𝑅 ∈ (𝑋𝑀𝑌))

Proof of Theorem fthmon

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

Step	Hyp	Ref	Expression
1		fthmon.r	. 2 ⊢ (𝜑 → 𝑅 ∈ (𝑋𝐻𝑌))
2		eqid 2738	. . . . . 6 ⊢ (Base‘𝐷) = (Base‘𝐷)
3		eqid 2738	. . . . . 6 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
4		eqid 2738	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
5		fthmon.n	. . . . . 6 ⊢ 𝑁 = (Mono‘𝐷)
6		fthmon.f	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹(𝐶 Faith 𝐷)𝐺)
7		fthfunc 17275	. . . . . . . . . . . 12 ⊢ (𝐶 Faith 𝐷) ⊆ (𝐶 Func 𝐷)
8	7	ssbri 5072	. . . . . . . . . . 11 ⊢ (𝐹(𝐶 Faith 𝐷)𝐺 → 𝐹(𝐶 Func 𝐷)𝐺)
9	6, 8	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
10		df-br 5028	. . . . . . . . . 10 ⊢ (𝐹(𝐶 Func 𝐷)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
11	9, 10	sylib 221	. . . . . . . . 9 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
12		funcrcl 17231	. . . . . . . . 9 ⊢ (⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
13	11, 12	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
14	13	simprd 499	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ Cat)
15	14	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝐷 ∈ Cat)
16		fthmon.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐶)
17	9	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝐹(𝐶 Func 𝐷)𝐺)
18	16, 2, 17	funcf1 17234	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝐹:𝐵⟶(Base‘𝐷))
19		fthmon.x	. . . . . . . 8 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
20	19	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝑋 ∈ 𝐵)
21	18, 20	ffvelrnd 6856	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (𝐹‘𝑋) ∈ (Base‘𝐷))
22		fthmon.y	. . . . . . . 8 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
23	22	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝑌 ∈ 𝐵)
24	18, 23	ffvelrnd 6856	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (𝐹‘𝑌) ∈ (Base‘𝐷))
25		simpr1 1195	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝑧 ∈ 𝐵)
26	18, 25	ffvelrnd 6856	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (𝐹‘𝑧) ∈ (Base‘𝐷))
27		fthmon.1	. . . . . . 7 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝑁(𝐹‘𝑌)))
28	27	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝑁(𝐹‘𝑌)))
29		fthmon.h	. . . . . . . 8 ⊢ 𝐻 = (Hom ‘𝐶)
30	16, 29, 3, 17, 25, 20	funcf2 17236	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (𝑧𝐺𝑋):(𝑧𝐻𝑋)⟶((𝐹‘𝑧)(Hom ‘𝐷)(𝐹‘𝑋)))
31		simpr2 1196	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝑓 ∈ (𝑧𝐻𝑋))
32	30, 31	ffvelrnd 6856	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((𝑧𝐺𝑋)‘𝑓) ∈ ((𝐹‘𝑧)(Hom ‘𝐷)(𝐹‘𝑋)))
33		simpr3 1197	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝑔 ∈ (𝑧𝐻𝑋))
34	30, 33	ffvelrnd 6856	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((𝑧𝐺𝑋)‘𝑔) ∈ ((𝐹‘𝑧)(Hom ‘𝐷)(𝐹‘𝑋)))
35	2, 3, 4, 5, 15, 21, 24, 26, 28, 32, 34	moni 17104	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((((𝑋𝐺𝑌)‘𝑅)(⟨(𝐹‘𝑧), (𝐹‘𝑋)⟩(comp‘𝐷)(𝐹‘𝑌))((𝑧𝐺𝑋)‘𝑓)) = (((𝑋𝐺𝑌)‘𝑅)(⟨(𝐹‘𝑧), (𝐹‘𝑋)⟩(comp‘𝐷)(𝐹‘𝑌))((𝑧𝐺𝑋)‘𝑔)) ↔ ((𝑧𝐺𝑋)‘𝑓) = ((𝑧𝐺𝑋)‘𝑔)))
36		eqid 2738	. . . . . . . 8 ⊢ (comp‘𝐶) = (comp‘𝐶)
37	1	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝑅 ∈ (𝑋𝐻𝑌))
38	16, 29, 36, 4, 17, 25, 20, 23, 31, 37	funcco 17239	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((𝑧𝐺𝑌)‘(𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓)) = (((𝑋𝐺𝑌)‘𝑅)(⟨(𝐹‘𝑧), (𝐹‘𝑋)⟩(comp‘𝐷)(𝐹‘𝑌))((𝑧𝐺𝑋)‘𝑓)))
39	16, 29, 36, 4, 17, 25, 20, 23, 33, 37	funcco 17239	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((𝑧𝐺𝑌)‘(𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔)) = (((𝑋𝐺𝑌)‘𝑅)(⟨(𝐹‘𝑧), (𝐹‘𝑋)⟩(comp‘𝐷)(𝐹‘𝑌))((𝑧𝐺𝑋)‘𝑔)))
40	38, 39	eqeq12d 2754	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (((𝑧𝐺𝑌)‘(𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓)) = ((𝑧𝐺𝑌)‘(𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔)) ↔ (((𝑋𝐺𝑌)‘𝑅)(⟨(𝐹‘𝑧), (𝐹‘𝑋)⟩(comp‘𝐷)(𝐹‘𝑌))((𝑧𝐺𝑋)‘𝑓)) = (((𝑋𝐺𝑌)‘𝑅)(⟨(𝐹‘𝑧), (𝐹‘𝑋)⟩(comp‘𝐷)(𝐹‘𝑌))((𝑧𝐺𝑋)‘𝑔))))
41	6	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝐹(𝐶 Faith 𝐷)𝐺)
42	13	simpld 498	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ Cat)
43	42	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → 𝐶 ∈ Cat)
44	16, 29, 36, 43, 25, 20, 23, 31, 37	catcocl 17052	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓) ∈ (𝑧𝐻𝑌))
45	16, 29, 36, 43, 25, 20, 23, 33, 37	catcocl 17052	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔) ∈ (𝑧𝐻𝑌))
46	16, 29, 3, 41, 25, 23, 44, 45	fthi 17286	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (((𝑧𝐺𝑌)‘(𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓)) = ((𝑧𝐺𝑌)‘(𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔)) ↔ (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓) = (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔)))
47	40, 46	bitr3d 284	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((((𝑋𝐺𝑌)‘𝑅)(⟨(𝐹‘𝑧), (𝐹‘𝑋)⟩(comp‘𝐷)(𝐹‘𝑌))((𝑧𝐺𝑋)‘𝑓)) = (((𝑋𝐺𝑌)‘𝑅)(⟨(𝐹‘𝑧), (𝐹‘𝑋)⟩(comp‘𝐷)(𝐹‘𝑌))((𝑧𝐺𝑋)‘𝑔)) ↔ (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓) = (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔)))
48	16, 29, 3, 41, 25, 20, 31, 33	fthi 17286	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → (((𝑧𝐺𝑋)‘𝑓) = ((𝑧𝐺𝑋)‘𝑔) ↔ 𝑓 = 𝑔))
49	35, 47, 48	3bitr3d 312	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓) = (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔) ↔ 𝑓 = 𝑔))
50	49	biimpd 232	. . 3 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑓 ∈ (𝑧𝐻𝑋) ∧ 𝑔 ∈ (𝑧𝐻𝑋))) → ((𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓) = (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔) → 𝑓 = 𝑔))
51	50	ralrimivvva 3104	. 2 ⊢ (𝜑 → ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑧𝐻𝑋)∀𝑔 ∈ (𝑧𝐻𝑋)((𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓) = (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔) → 𝑓 = 𝑔))
52		fthmon.m	. . 3 ⊢ 𝑀 = (Mono‘𝐶)
53	16, 29, 36, 52, 42, 19, 22	ismon2 17102	. 2 ⊢ (𝜑 → (𝑅 ∈ (𝑋𝑀𝑌) ↔ (𝑅 ∈ (𝑋𝐻𝑌) ∧ ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑧𝐻𝑋)∀𝑔 ∈ (𝑧𝐻𝑋)((𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑓) = (𝑅(⟨𝑧, 𝑋⟩(comp‘𝐶)𝑌)𝑔) → 𝑓 = 𝑔))))
54	1, 51, 53	mpbir2and 713	1 ⊢ (𝜑 → 𝑅 ∈ (𝑋𝑀𝑌))

Syntax hints:   → wi 4   ∧ wa 399   ∧ w3a 1088   = wceq 1542   ∈ wcel 2113  ∀wral 3053  ⟨cop 4519   class class class wbr 5027  ‘cfv 6333  (class class class)co 7164  Basecbs 16579  Hom chom 16672  compcco 16673  Catccat 17031  Monocmon 17096   Func cfunc 17222   Faith cfth 17271

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1916  ax-6 1974  ax-7 2019  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2161  ax-12 2178  ax-ext 2710  ax-rep 5151  ax-sep 5164  ax-nul 5171  ax-pow 5229  ax-pr 5293  ax-un 7473

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-ral 3058  df-rex 3059  df-reu 3060  df-rab 3062  df-v 3399  df-sbc 3680  df-csb 3789  df-dif 3844  df-un 3846  df-in 3848  df-ss 3858  df-nul 4210  df-if 4412  df-pw 4487  df-sn 4514  df-pr 4516  df-op 4520  df-uni 4794  df-iun 4880  df-br 5028  df-opab 5090  df-mpt 5108  df-id 5425  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6291  df-fun 6335  df-fn 6336  df-f 6337  df-f1 6338  df-fo 6339  df-f1o 6340  df-fv 6341  df-ov 7167  df-oprab 7168  df-mpo 7169  df-1st 7707  df-2nd 7708  df-map 8432  df-ixp 8501  df-cat 17035  df-mon 17098  df-func 17226  df-fth 17273

This theorem is referenced by:  fthepi  17296