Theorem funcsect 17828

Description: The image of a section under a functor is a section. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
funcsect.b	⊢ 𝐵 = (Base‘𝐷)
funcsect.s	⊢ 𝑆 = (Sect‘𝐷)
funcsect.t	⊢ 𝑇 = (Sect‘𝐸)
funcsect.f	⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
funcsect.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
funcsect.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
funcsect.m	⊢ (𝜑 → 𝑀(𝑋𝑆𝑌)𝑁)

Assertion

Ref	Expression
funcsect	⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝑇(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁))

Proof of Theorem funcsect

Step	Hyp	Ref	Expression
1		funcsect.m	. . . . . 6 ⊢ (𝜑 → 𝑀(𝑋𝑆𝑌)𝑁)
2		funcsect.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐷)
3		eqid 2735	. . . . . . 7 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
4		eqid 2735	. . . . . . 7 ⊢ (comp‘𝐷) = (comp‘𝐷)
5		eqid 2735	. . . . . . 7 ⊢ (Id‘𝐷) = (Id‘𝐷)
6		funcsect.s	. . . . . . 7 ⊢ 𝑆 = (Sect‘𝐷)
7		funcsect.f	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
8		df-br 5075	. . . . . . . . . 10 ⊢ (𝐹(𝐷 Func 𝐸)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸))
9	7, 8	sylib 218	. . . . . . . . 9 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸))
10		funcrcl 17819	. . . . . . . . 9 ⊢ (⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸) → (𝐷 ∈ Cat ∧ 𝐸 ∈ Cat))
11	9, 10	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐷 ∈ Cat ∧ 𝐸 ∈ Cat))
12	11	simpld 494	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ Cat)
13		funcsect.x	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
14		funcsect.y	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
15	2, 3, 4, 5, 6, 12, 13, 14	issect 17709	. . . . . 6 ⊢ (𝜑 → (𝑀(𝑋𝑆𝑌)𝑁 ↔ (𝑀 ∈ (𝑋(Hom ‘𝐷)𝑌) ∧ 𝑁 ∈ (𝑌(Hom ‘𝐷)𝑋) ∧ (𝑁(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑀) = ((Id‘𝐷)‘𝑋))))
16	1, 15	mpbid 232	. . . . 5 ⊢ (𝜑 → (𝑀 ∈ (𝑋(Hom ‘𝐷)𝑌) ∧ 𝑁 ∈ (𝑌(Hom ‘𝐷)𝑋) ∧ (𝑁(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑀) = ((Id‘𝐷)‘𝑋)))
17	16	simp3d 1145	. . . 4 ⊢ (𝜑 → (𝑁(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑀) = ((Id‘𝐷)‘𝑋))
18	17	fveq2d 6833	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑋)‘(𝑁(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑀)) = ((𝑋𝐺𝑋)‘((Id‘𝐷)‘𝑋)))
19		eqid 2735	. . . 4 ⊢ (comp‘𝐸) = (comp‘𝐸)
20	16	simp1d 1143	. . . 4 ⊢ (𝜑 → 𝑀 ∈ (𝑋(Hom ‘𝐷)𝑌))
21	16	simp2d 1144	. . . 4 ⊢ (𝜑 → 𝑁 ∈ (𝑌(Hom ‘𝐷)𝑋))
22	2, 3, 4, 19, 7, 13, 14, 13, 20, 21	funcco 17827	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑋)‘(𝑁(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑀)) = (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐸)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)))
23		eqid 2735	. . . 4 ⊢ (Id‘𝐸) = (Id‘𝐸)
24	2, 5, 23, 7, 13	funcid 17826	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑋)‘((Id‘𝐷)‘𝑋)) = ((Id‘𝐸)‘(𝐹‘𝑋)))
25	18, 22, 24	3eqtr3d 2778	. 2 ⊢ (𝜑 → (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐸)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)) = ((Id‘𝐸)‘(𝐹‘𝑋)))
26		eqid 2735	. . 3 ⊢ (Base‘𝐸) = (Base‘𝐸)
27		eqid 2735	. . 3 ⊢ (Hom ‘𝐸) = (Hom ‘𝐸)
28		funcsect.t	. . 3 ⊢ 𝑇 = (Sect‘𝐸)
29	11	simprd 495	. . 3 ⊢ (𝜑 → 𝐸 ∈ Cat)
30	2, 26, 7	funcf1 17822	. . . 4 ⊢ (𝜑 → 𝐹:𝐵⟶(Base‘𝐸))
31	30, 13	ffvelcdmd 7026	. . 3 ⊢ (𝜑 → (𝐹‘𝑋) ∈ (Base‘𝐸))
32	30, 14	ffvelcdmd 7026	. . 3 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝐸))
33	2, 3, 27, 7, 13, 14	funcf2 17824	. . . 4 ⊢ (𝜑 → (𝑋𝐺𝑌):(𝑋(Hom ‘𝐷)𝑌)⟶((𝐹‘𝑋)(Hom ‘𝐸)(𝐹‘𝑌)))
34	33, 20	ffvelcdmd 7026	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀) ∈ ((𝐹‘𝑋)(Hom ‘𝐸)(𝐹‘𝑌)))
35	2, 3, 27, 7, 14, 13	funcf2 17824	. . . 4 ⊢ (𝜑 → (𝑌𝐺𝑋):(𝑌(Hom ‘𝐷)𝑋)⟶((𝐹‘𝑌)(Hom ‘𝐸)(𝐹‘𝑋)))
36	35, 21	ffvelcdmd 7026	. . 3 ⊢ (𝜑 → ((𝑌𝐺𝑋)‘𝑁) ∈ ((𝐹‘𝑌)(Hom ‘𝐸)(𝐹‘𝑋)))
37	26, 27, 19, 23, 28, 29, 31, 32, 34, 36	issect2 17710	. 2 ⊢ (𝜑 → (((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝑇(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁) ↔ (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐸)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)) = ((Id‘𝐸)‘(𝐹‘𝑋))))
38	25, 37	mpbird 257	1 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝑇(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ⟨cop 4563   class class class wbr 5074  ‘cfv 6487  (class class class)co 7356  Basecbs 17168  Hom chom 17220  compcco 17221  Catccat 17619  Idccid 17620  Sectcsect 17700   Func cfunc 17810

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2184  ax-ext 2707  ax-rep 5201  ax-sep 5220  ax-nul 5230  ax-pow 5296  ax-pr 5364  ax-un 7678

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2538  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2810  df-nfc 2884  df-ne 2931  df-ral 3050  df-rex 3060  df-reu 3341  df-rab 3388  df-v 3429  df-sbc 3726  df-csb 3834  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-op 4564  df-uni 4841  df-iun 4925  df-br 5075  df-opab 5137  df-mpt 5156  df-id 5515  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-iota 6443  df-fun 6489  df-fn 6490  df-f 6491  df-f1 6492  df-fo 6493  df-f1o 6494  df-fv 6495  df-ov 7359  df-oprab 7360  df-mpo 7361  df-1st 7931  df-2nd 7932  df-map 8764  df-ixp 8835  df-sect 17703  df-func 17814

This theorem is referenced by:  funcinv  17829