Theorem sectco 17721

Description: Composition of two sections. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
sectco.b	⊢ 𝐵 = (Base‘𝐶)
sectco.o	⊢ · = (comp‘𝐶)
sectco.s	⊢ 𝑆 = (Sect‘𝐶)
sectco.c	⊢ (𝜑 → 𝐶 ∈ Cat)
sectco.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
sectco.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
sectco.z	⊢ (𝜑 → 𝑍 ∈ 𝐵)
sectco.1	⊢ (𝜑 → 𝐹(𝑋𝑆𝑌)𝐺)
sectco.2	⊢ (𝜑 → 𝐻(𝑌𝑆𝑍)𝐾)

Assertion

Ref	Expression
sectco	⊢ (𝜑 → (𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)(𝑋𝑆𝑍)(𝐺(⟨𝑍, 𝑌⟩ · 𝑋)𝐾))

Proof of Theorem sectco

Step	Hyp	Ref	Expression
1		sectco.b	. . . 4 ⊢ 𝐵 = (Base‘𝐶)
2		eqid 2740	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
3		sectco.o	. . . 4 ⊢ · = (comp‘𝐶)
4		sectco.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
5		sectco.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
6		sectco.z	. . . 4 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
7		sectco.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
8		sectco.1	. . . . . . 7 ⊢ (𝜑 → 𝐹(𝑋𝑆𝑌)𝐺)
9		eqid 2740	. . . . . . . 8 ⊢ (Id‘𝐶) = (Id‘𝐶)
10		sectco.s	. . . . . . . 8 ⊢ 𝑆 = (Sect‘𝐶)
11	1, 2, 3, 9, 10, 4, 5, 7	issect 17718	. . . . . . 7 ⊢ (𝜑 → (𝐹(𝑋𝑆𝑌)𝐺 ↔ (𝐹 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐺(⟨𝑋, 𝑌⟩ · 𝑋)𝐹) = ((Id‘𝐶)‘𝑋))))
12	8, 11	mpbid 233	. . . . . 6 ⊢ (𝜑 → (𝐹 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐺(⟨𝑋, 𝑌⟩ · 𝑋)𝐹) = ((Id‘𝐶)‘𝑋)))
13	12	simp1d 1148	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ (𝑋(Hom ‘𝐶)𝑌))
14		sectco.2	. . . . . . 7 ⊢ (𝜑 → 𝐻(𝑌𝑆𝑍)𝐾)
15	1, 2, 3, 9, 10, 4, 7, 6	issect 17718	. . . . . . 7 ⊢ (𝜑 → (𝐻(𝑌𝑆𝑍)𝐾 ↔ (𝐻 ∈ (𝑌(Hom ‘𝐶)𝑍) ∧ 𝐾 ∈ (𝑍(Hom ‘𝐶)𝑌) ∧ (𝐾(⟨𝑌, 𝑍⟩ · 𝑌)𝐻) = ((Id‘𝐶)‘𝑌))))
16	14, 15	mpbid 233	. . . . . 6 ⊢ (𝜑 → (𝐻 ∈ (𝑌(Hom ‘𝐶)𝑍) ∧ 𝐾 ∈ (𝑍(Hom ‘𝐶)𝑌) ∧ (𝐾(⟨𝑌, 𝑍⟩ · 𝑌)𝐻) = ((Id‘𝐶)‘𝑌)))
17	16	simp1d 1148	. . . . 5 ⊢ (𝜑 → 𝐻 ∈ (𝑌(Hom ‘𝐶)𝑍))
18	1, 2, 3, 4, 5, 7, 6, 13, 17	catcocl 17649	. . . 4 ⊢ (𝜑 → (𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) ∈ (𝑋(Hom ‘𝐶)𝑍))
19	16	simp2d 1149	. . . 4 ⊢ (𝜑 → 𝐾 ∈ (𝑍(Hom ‘𝐶)𝑌))
20	12	simp2d 1149	. . . 4 ⊢ (𝜑 → 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑋))
21	1, 2, 3, 4, 5, 6, 7, 18, 19, 5, 20	catass 17650	. . 3 ⊢ (𝜑 → ((𝐺(⟨𝑍, 𝑌⟩ · 𝑋)𝐾)(⟨𝑋, 𝑍⟩ · 𝑋)(𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)) = (𝐺(⟨𝑋, 𝑌⟩ · 𝑋)(𝐾(⟨𝑋, 𝑍⟩ · 𝑌)(𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹))))
22	16	simp3d 1150	. . . . . 6 ⊢ (𝜑 → (𝐾(⟨𝑌, 𝑍⟩ · 𝑌)𝐻) = ((Id‘𝐶)‘𝑌))
23	22	oveq1d 7378	. . . . 5 ⊢ (𝜑 → ((𝐾(⟨𝑌, 𝑍⟩ · 𝑌)𝐻)(⟨𝑋, 𝑌⟩ · 𝑌)𝐹) = (((Id‘𝐶)‘𝑌)(⟨𝑋, 𝑌⟩ · 𝑌)𝐹))
24	1, 2, 3, 4, 5, 7, 6, 13, 17, 7, 19	catass 17650	. . . . 5 ⊢ (𝜑 → ((𝐾(⟨𝑌, 𝑍⟩ · 𝑌)𝐻)(⟨𝑋, 𝑌⟩ · 𝑌)𝐹) = (𝐾(⟨𝑋, 𝑍⟩ · 𝑌)(𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)))
25	1, 2, 9, 4, 5, 3, 7, 13	catlid 17647	. . . . 5 ⊢ (𝜑 → (((Id‘𝐶)‘𝑌)(⟨𝑋, 𝑌⟩ · 𝑌)𝐹) = 𝐹)
26	23, 24, 25	3eqtr3d 2783	. . . 4 ⊢ (𝜑 → (𝐾(⟨𝑋, 𝑍⟩ · 𝑌)(𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)) = 𝐹)
27	26	oveq2d 7379	. . 3 ⊢ (𝜑 → (𝐺(⟨𝑋, 𝑌⟩ · 𝑋)(𝐾(⟨𝑋, 𝑍⟩ · 𝑌)(𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹))) = (𝐺(⟨𝑋, 𝑌⟩ · 𝑋)𝐹))
28	12	simp3d 1150	. . 3 ⊢ (𝜑 → (𝐺(⟨𝑋, 𝑌⟩ · 𝑋)𝐹) = ((Id‘𝐶)‘𝑋))
29	21, 27, 28	3eqtrd 2779	. 2 ⊢ (𝜑 → ((𝐺(⟨𝑍, 𝑌⟩ · 𝑋)𝐾)(⟨𝑋, 𝑍⟩ · 𝑋)(𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)) = ((Id‘𝐶)‘𝑋))
30	1, 2, 3, 4, 6, 7, 5, 19, 20	catcocl 17649	. . 3 ⊢ (𝜑 → (𝐺(⟨𝑍, 𝑌⟩ · 𝑋)𝐾) ∈ (𝑍(Hom ‘𝐶)𝑋))
31	1, 2, 3, 9, 10, 4, 5, 6, 18, 30	issect2 17719	. 2 ⊢ (𝜑 → ((𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)(𝑋𝑆𝑍)(𝐺(⟨𝑍, 𝑌⟩ · 𝑋)𝐾) ↔ ((𝐺(⟨𝑍, 𝑌⟩ · 𝑋)𝐾)(⟨𝑋, 𝑍⟩ · 𝑋)(𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)) = ((Id‘𝐶)‘𝑋)))
32	29, 31	mpbird 258	1 ⊢ (𝜑 → (𝐻(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)(𝑋𝑆𝑍)(𝐺(⟨𝑍, 𝑌⟩ · 𝑋)𝐾))

Syntax hints:   → wi 4   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119  ⟨cop 4568   class class class wbr 5079  ‘cfv 6492  (class class class)co 7363  Basecbs 17177  Hom chom 17229  compcco 17230  Catccat 17628  Idccid 17629  Sectcsect 17709

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 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-1st 7938  df-2nd 7939  df-cat 17632  df-cid 17633  df-sect 17712

This theorem is referenced by:  invco  17736