Theorem sectcan 17003

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 2820	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
3		eqid 2820	. . . 4 ⊢ (comp‘𝐶) = (comp‘𝐶)
4		sectcan.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
5		sectcan.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
6		sectcan.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
7		sectcan.1	. . . . . 6 ⊢ (𝜑 → 𝐺(𝑋𝑆𝑌)𝐹)
8		eqid 2820	. . . . . . 7 ⊢ (Id‘𝐶) = (Id‘𝐶)
9		sectcan.s	. . . . . . 7 ⊢ 𝑆 = (Sect‘𝐶)
10	1, 2, 3, 8, 9, 4, 5, 6	issect 17001	. . . . . 6 ⊢ (𝜑 → (𝐺(𝑋𝑆𝑌)𝐹 ↔ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋))))
11	7, 10	mpbid 234	. . . . 5 ⊢ (𝜑 → (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋)))
12	11	simp1d 1138	. . . 4 ⊢ (𝜑 → 𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌))
13		sectcan.2	. . . . . 6 ⊢ (𝜑 → 𝐹(𝑌𝑆𝑋)𝐻)
14	1, 2, 3, 8, 9, 4, 6, 5	issect 17001	. . . . . 6 ⊢ (𝜑 → (𝐹(𝑌𝑆𝑋)𝐻 ↔ (𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ (𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹) = ((Id‘𝐶)‘𝑌))))
15	13, 14	mpbid 234	. . . . 5 ⊢ (𝜑 → (𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ (𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹) = ((Id‘𝐶)‘𝑌)))
16	15	simp1d 1138	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))
17	15	simp2d 1139	. . . 4 ⊢ (𝜑 → 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌))
18	1, 2, 3, 4, 5, 6, 5, 12, 16, 6, 17	catass 16935	. . 3 ⊢ (𝜑 → ((𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺) = (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)(𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺)))
19	15	simp3d 1140	. . . 4 ⊢ (𝜑 → (𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹) = ((Id‘𝐶)‘𝑌))
20	19	oveq1d 7152	. . 3 ⊢ (𝜑 → ((𝐻(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺) = (((Id‘𝐶)‘𝑌)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺))
21	11	simp3d 1140	. . . 4 ⊢ (𝜑 → (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋))
22	21	oveq2d 7153	. . 3 ⊢ (𝜑 → (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)(𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺)) = (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)((Id‘𝐶)‘𝑋)))
23	18, 20, 22	3eqtr3d 2863	. 2 ⊢ (𝜑 → (((Id‘𝐶)‘𝑌)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺) = (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)((Id‘𝐶)‘𝑋)))
24	1, 2, 8, 4, 5, 3, 6, 12	catlid 16932	. 2 ⊢ (𝜑 → (((Id‘𝐶)‘𝑌)(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑌)𝐺) = 𝐺)
25	1, 2, 8, 4, 5, 3, 6, 17	catrid 16933	. 2 ⊢ (𝜑 → (𝐻(⟨𝑋, 𝑋⟩(comp‘𝐶)𝑌)((Id‘𝐶)‘𝑋)) = 𝐻)
26	23, 24, 25	3eqtr3d 2863	1 ⊢ (𝜑 → 𝐺 = 𝐻)

Syntax hints:   → wi 4   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114  ⟨cop 4554   class class class wbr 5047  ‘cfv 6336  (class class class)co 7137  Basecbs 16461  Hom chom 16554  compcco 16555  Catccat 16913  Idccid 16914  Sectcsect 16992

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 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2792  ax-rep 5171  ax-sep 5184  ax-nul 5191  ax-pow 5247  ax-pr 5311  ax-un 7442

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2653  df-clab 2799  df-cleq 2813  df-clel 2891  df-nfc 2959  df-ne 3012  df-ral 3138  df-rex 3139  df-reu 3140  df-rmo 3141  df-rab 3142  df-v 3483  df-sbc 3759  df-csb 3867  df-dif 3922  df-un 3924  df-in 3926  df-ss 3935  df-nul 4275  df-if 4449  df-pw 4522  df-sn 4549  df-pr 4551  df-op 4555  df-uni 4820  df-iun 4902  df-br 5048  df-opab 5110  df-mpt 5128  df-id 5441  df-xp 5542  df-rel 5543  df-cnv 5544  df-co 5545  df-dm 5546  df-rn 5547  df-res 5548  df-ima 5549  df-iota 6295  df-fun 6338  df-fn 6339  df-f 6340  df-f1 6341  df-fo 6342  df-f1o 6343  df-fv 6344  df-riota 7095  df-ov 7140  df-oprab 7141  df-mpo 7142  df-1st 7670  df-2nd 7671  df-cat 16917  df-cid 16918  df-sect 16995

This theorem is referenced by:  invfun  17012  inveq  17022