Theorem sectcan 17652

Description: If 𝐺 is a section of 𝐹 and 𝐹 is a section of 𝐻, then 𝐺 = 𝐻. Proposition 3.10 of [Adamek] p. 28. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
sectcan.b	⊢ 𝐵 = (Base‘𝐶)
sectcan.s	⊢ 𝑆 = (Sect‘𝐶)
sectcan.c	⊢ (𝜑 → 𝐶 ∈ Cat)
sectcan.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
sectcan.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
sectcan.1	⊢ (𝜑 → 𝐺(𝑋𝑆𝑌)𝐹)
sectcan.2	⊢ (𝜑 → 𝐹(𝑌𝑆𝑋)𝐻)

Assertion

Ref	Expression
sectcan	⊢ (𝜑 → 𝐺 = 𝐻)

Proof of Theorem sectcan

Step	Hyp	Ref	Expression
1		sectcan.b	. . . 4 ⊢ 𝐵 = (Base‘𝐶)
2		eqid 2731	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
3		eqid 2731	. . . 4 ⊢ (comp‘𝐶) = (comp‘𝐶)
4		sectcan.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
5		sectcan.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
6		sectcan.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
7		sectcan.1	. . . . . 6 ⊢ (𝜑 → 𝐺(𝑋𝑆𝑌)𝐹)
8		eqid 2731	. . . . . . 7 ⊢ (Id‘𝐶) = (Id‘𝐶)
9		sectcan.s	. . . . . . 7 ⊢ 𝑆 = (Sect‘𝐶)
10	1, 2, 3, 8, 9, 4, 5, 6	issect 17650	. . . . . 6 ⊢ (𝜑 → (𝐺(𝑋𝑆𝑌)𝐹 ↔ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋))))
11	7, 10	mpbid 231	. . . . 5 ⊢ (𝜑 → (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋)))
12	11	simp1d 1142	. . . 4 ⊢ (𝜑 → 𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌))
13		sectcan.2	. . . . . 6 ⊢ (𝜑 → 𝐹(𝑌𝑆𝑋)𝐻)
14	1, 2, 3, 8, 9, 4, 6, 5	issect 17650	. . . . . 6 ⊢ (𝜑 → (𝐹(𝑌𝑆𝑋)𝐻 ↔ (𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ (𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹) = ((Id‘𝐶)‘𝑌))))
15	13, 14	mpbid 231	. . . . 5 ⊢ (𝜑 → (𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ (𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹) = ((Id‘𝐶)‘𝑌)))
16	15	simp1d 1142	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))
17	15	simp2d 1143	. . . 4 ⊢ (𝜑 → 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌))
18	1, 2, 3, 4, 5, 6, 5, 12, 16, 6, 17	catass 17580	. . 3 ⊢ (𝜑 → ((𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺) = (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)(𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺)))
19	15	simp3d 1144	. . . 4 ⊢ (𝜑 → (𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹) = ((Id‘𝐶)‘𝑌))
20	19	oveq1d 7377	. . 3 ⊢ (𝜑 → ((𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺) = (((Id‘𝐶)‘𝑌)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺))
21	11	simp3d 1144	. . . 4 ⊢ (𝜑 → (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋))
22	21	oveq2d 7378	. . 3 ⊢ (𝜑 → (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)(𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺)) = (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)((Id‘𝐶)‘𝑋)))
23	18, 20, 22	3eqtr3d 2779	. 2 ⊢ (𝜑 → (((Id‘𝐶)‘𝑌)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺) = (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)((Id‘𝐶)‘𝑋)))
24	1, 2, 8, 4, 5, 3, 6, 12	catlid 17577	. 2 ⊢ (𝜑 → (((Id‘𝐶)‘𝑌)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺) = 𝐺)
25	1, 2, 8, 4, 5, 3, 6, 17	catrid 17578	. 2 ⊢ (𝜑 → (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)((Id‘𝐶)‘𝑋)) = 𝐻)
26	23, 24, 25	3eqtr3d 2779	1 ⊢ (𝜑 → 𝐺 = 𝐻)

Syntax hints:   → wi 4   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  ⟨cop 4597   class class class wbr 5110  ‘cfv 6501  (class class class)co 7362  Basecbs 17094  Hom chom 17158  compcco 17159  Catccat 17558  Idccid 17559  Sectcsect 17641

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-ral 3061  df-rex 3070  df-rmo 3351  df-reu 3352  df-rab 3406  df-v 3448  df-sbc 3743  df-csb 3859  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-id 5536  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-1st 7926  df-2nd 7927  df-cat 17562  df-cid 17563  df-sect 17644

This theorem is referenced by:  invfun  17661  inveq  17671