Theorem sectmon 17681

Description: If 𝐹 is a section of 𝐺, then 𝐹 is a monomorphism. Proposition 7.35 of [Adamek] p. 110. A monomorphism that arises from a section is also known as a split monomorphism. (Contributed by Mario Carneiro, 3-Jan-2017.)

Hypotheses

Ref	Expression
sectmon.b	⊢ 𝐵 = (Base‘𝐶)
sectmon.m	⊢ 𝑀 = (Mono‘𝐶)
sectmon.s	⊢ 𝑆 = (Sect‘𝐶)
sectmon.c	⊢ (𝜑 → 𝐶 ∈ Cat)
sectmon.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
sectmon.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
sectmon.1	⊢ (𝜑 → 𝐹(𝑋𝑆𝑌)𝐺)

Assertion

Ref	Expression
sectmon	⊢ (𝜑 → 𝐹 ∈ (𝑋𝑀𝑌))

Proof of Theorem sectmon

Dummy variables 𝑔 ℎ 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		sectmon.1	. . . 4 ⊢ (𝜑 → 𝐹(𝑋𝑆𝑌)𝐺)
2		sectmon.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐶)
3		eqid 2730	. . . . 5 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
4		eqid 2730	. . . . 5 ⊢ (comp‘𝐶) = (comp‘𝐶)
5		eqid 2730	. . . . 5 ⊢ (Id‘𝐶) = (Id‘𝐶)
6		sectmon.s	. . . . 5 ⊢ 𝑆 = (Sect‘𝐶)
7		sectmon.c	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ Cat)
8		sectmon.x	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
9		sectmon.y	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
10	2, 3, 4, 5, 6, 7, 8, 9	issect 17652	. . . 4 ⊢ (𝜑 → (𝐹(𝑋𝑆𝑌)𝐺 ↔ (𝐹 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋))))
11	1, 10	mpbid 232	. . 3 ⊢ (𝜑 → (𝐹 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋)))
12	11	simp1d 1142	. 2 ⊢ (𝜑 → 𝐹 ∈ (𝑋(Hom ‘𝐶)𝑌))
13		oveq2 7349	. . . . 5 ⊢ ((𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ) → (𝐺(⟨𝑥, 𝑌⟩(comp‘𝐶)𝑋)(𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔)) = (𝐺(⟨𝑥, 𝑌⟩(comp‘𝐶)𝑋)(𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ)))
14	11	simp3d 1144	. . . . . . . . 9 ⊢ (𝜑 → (𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋))
15	14	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → (𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋))
16	15	oveq1d 7356	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹)(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑋)𝑔) = (((Id‘𝐶)‘𝑋)(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑋)𝑔))
17	7	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → 𝐶 ∈ Cat)
18		simplr 768	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → 𝑥 ∈ 𝐵)
19	8	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → 𝑋 ∈ 𝐵)
20	9	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → 𝑌 ∈ 𝐵)
21		simprl 770	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋))
22	12	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → 𝐹 ∈ (𝑋(Hom ‘𝐶)𝑌))
23	11	simp2d 1143	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑋))
24	23	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑋))
25	2, 3, 4, 17, 18, 19, 20, 21, 22, 19, 24	catass 17584	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹)(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑋)𝑔) = (𝐺(⟨𝑥, 𝑌⟩(comp‘𝐶)𝑋)(𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔)))
26	2, 3, 5, 17, 18, 4, 19, 21	catlid 17581	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → (((Id‘𝐶)‘𝑋)(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑋)𝑔) = 𝑔)
27	16, 25, 26	3eqtr3d 2773	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → (𝐺(⟨𝑥, 𝑌⟩(comp‘𝐶)𝑋)(𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔)) = 𝑔)
28	15	oveq1d 7356	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹)(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑋)ℎ) = (((Id‘𝐶)‘𝑋)(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑋)ℎ))
29		simprr 772	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))
30	2, 3, 4, 17, 18, 19, 20, 29, 22, 19, 24	catass 17584	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹)(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑋)ℎ) = (𝐺(⟨𝑥, 𝑌⟩(comp‘𝐶)𝑋)(𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ)))
31	2, 3, 5, 17, 18, 4, 19, 29	catlid 17581	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → (((Id‘𝐶)‘𝑋)(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑋)ℎ) = ℎ)
32	28, 30, 31	3eqtr3d 2773	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → (𝐺(⟨𝑥, 𝑌⟩(comp‘𝐶)𝑋)(𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ)) = ℎ)
33	27, 32	eqeq12d 2746	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → ((𝐺(⟨𝑥, 𝑌⟩(comp‘𝐶)𝑋)(𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔)) = (𝐺(⟨𝑥, 𝑌⟩(comp‘𝐶)𝑋)(𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ)) ↔ 𝑔 = ℎ))
34	13, 33	imbitrid 244	. . . 4 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐵) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑋))) → ((𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ) → 𝑔 = ℎ))
35	34	ralrimivva 3173	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ∀𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋)∀ℎ ∈ (𝑥(Hom ‘𝐶)𝑋)((𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ) → 𝑔 = ℎ))
36	35	ralrimiva 3122	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋)∀ℎ ∈ (𝑥(Hom ‘𝐶)𝑋)((𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ) → 𝑔 = ℎ))
37		sectmon.m	. . 3 ⊢ 𝑀 = (Mono‘𝐶)
38	2, 3, 4, 37, 7, 8, 9	ismon2 17633	. 2 ⊢ (𝜑 → (𝐹 ∈ (𝑋𝑀𝑌) ↔ (𝐹 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ ∀𝑥 ∈ 𝐵 ∀𝑔 ∈ (𝑥(Hom ‘𝐶)𝑋)∀ℎ ∈ (𝑥(Hom ‘𝐶)𝑋)((𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹(⟨𝑥, 𝑋⟩(comp‘𝐶)𝑌)ℎ) → 𝑔 = ℎ))))
39	12, 36, 38	mpbir2and 713	1 ⊢ (𝜑 → 𝐹 ∈ (𝑋𝑀𝑌))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2110  ∀wral 3045  ⟨cop 4580   class class class wbr 5089  ‘cfv 6477  (class class class)co 7341  Basecbs 17112  Hom chom 17164  compcco 17165  Catccat 17562  Idccid 17563  Monocmon 17627  Sectcsect 17643

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2112  ax-9 2120  ax-10 2143  ax-11 2159  ax-12 2179  ax-ext 2702  ax-rep 5215  ax-sep 5232  ax-nul 5242  ax-pow 5301  ax-pr 5368  ax-un 7663

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-rmo 3344  df-reu 3345  df-rab 3394  df-v 3436  df-sbc 3740  df-csb 3849  df-dif 3903  df-un 3905  df-in 3907  df-ss 3917  df-nul 4282  df-if 4474  df-pw 4550  df-sn 4575  df-pr 4577  df-op 4581  df-uni 4858  df-iun 4941  df-br 5090  df-opab 5152  df-mpt 5171  df-id 5509  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-iota 6433  df-fun 6479  df-fn 6480  df-f 6481  df-f1 6482  df-fo 6483  df-f1o 6484  df-fv 6485  df-riota 7298  df-ov 7344  df-oprab 7345  df-mpo 7346  df-1st 7916  df-2nd 7917  df-cat 17566  df-cid 17567  df-mon 17629  df-sect 17646

This theorem is referenced by:  sectepi  17683