Theorem funcsect 17932

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 2737	. . . . . . 7 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
4		eqid 2737	. . . . . . 7 ⊢ (comp‘𝐷) = (comp‘𝐷)
5		eqid 2737	. . . . . . 7 ⊢ (Id‘𝐷) = (Id‘𝐷)
6		funcsect.s	. . . . . . 7 ⊢ 𝑆 = (Sect‘𝐷)
7		funcsect.f	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
8		df-br 5152	. . . . . . . . . 10 ⊢ (𝐹(𝐷 Func 𝐸)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸))
9	7, 8	sylib 218	. . . . . . . . 9 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸))
10		funcrcl 17923	. . . . . . . . 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 17810	. . . . . 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 6918	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑋)‘(𝑁(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑀)) = ((𝑋𝐺𝑋)‘((Id‘𝐷)‘𝑋)))
19		eqid 2737	. . . 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 17931	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑋)‘(𝑁(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑀)) = (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐸)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)))
23		eqid 2737	. . . 4 ⊢ (Id‘𝐸) = (Id‘𝐸)
24	2, 5, 23, 7, 13	funcid 17930	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑋)‘((Id‘𝐷)‘𝑋)) = ((Id‘𝐸)‘(𝐹‘𝑋)))
25	18, 22, 24	3eqtr3d 2785	. 2 ⊢ (𝜑 → (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐸)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)) = ((Id‘𝐸)‘(𝐹‘𝑋)))
26		eqid 2737	. . 3 ⊢ (Base‘𝐸) = (Base‘𝐸)
27		eqid 2737	. . 3 ⊢ (Hom ‘𝐸) = (Hom ‘𝐸)
28		funcsect.t	. . 3 ⊢ 𝑇 = (Sect‘𝐸)
29	11	simprd 495	. . 3 ⊢ (𝜑 → 𝐸 ∈ Cat)
30	2, 26, 7	funcf1 17926	. . . 4 ⊢ (𝜑 → 𝐹:𝐵⟶(Base‘𝐸))
31	30, 13	ffvelcdmd 7112	. . 3 ⊢ (𝜑 → (𝐹‘𝑋) ∈ (Base‘𝐸))
32	30, 14	ffvelcdmd 7112	. . 3 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝐸))
33	2, 3, 27, 7, 13, 14	funcf2 17928	. . . 4 ⊢ (𝜑 → (𝑋𝐺𝑌):(𝑋(Hom ‘𝐷)𝑌)⟶((𝐹‘𝑋)(Hom ‘𝐸)(𝐹‘𝑌)))
34	33, 20	ffvelcdmd 7112	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀) ∈ ((𝐹‘𝑋)(Hom ‘𝐸)(𝐹‘𝑌)))
35	2, 3, 27, 7, 14, 13	funcf2 17928	. . . 4 ⊢ (𝜑 → (𝑌𝐺𝑋):(𝑌(Hom ‘𝐷)𝑋)⟶((𝐹‘𝑌)(Hom ‘𝐸)(𝐹‘𝑋)))
36	35, 21	ffvelcdmd 7112	. . 3 ⊢ (𝜑 → ((𝑌𝐺𝑋)‘𝑁) ∈ ((𝐹‘𝑌)(Hom ‘𝐸)(𝐹‘𝑋)))
37	26, 27, 19, 23, 28, 29, 31, 32, 34, 36	issect2 17811	. 2 ⊢ (𝜑 → (((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝑇(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁) ↔ (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐸)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)) = ((Id‘𝐸)‘(𝐹‘𝑋))))
38	25, 37	mpbird 257	1 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝑇(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1539   ∈ wcel 2108  ⟨cop 4640   class class class wbr 5151  ‘cfv 6569  (class class class)co 7438  Basecbs 17254  Hom chom 17318  compcco 17319  Catccat 17718  Idccid 17719  Sectcsect 17801   Func cfunc 17914

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5288  ax-sep 5305  ax-nul 5315  ax-pow 5374  ax-pr 5441  ax-un 7761

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3381  df-rab 3437  df-v 3483  df-sbc 3795  df-csb 3912  df-dif 3969  df-un 3971  df-in 3973  df-ss 3983  df-nul 4343  df-if 4535  df-pw 4610  df-sn 4635  df-pr 4637  df-op 4641  df-uni 4916  df-iun 5001  df-br 5152  df-opab 5214  df-mpt 5235  df-id 5587  df-xp 5699  df-rel 5700  df-cnv 5701  df-co 5702  df-dm 5703  df-rn 5704  df-res 5705  df-ima 5706  df-iota 6522  df-fun 6571  df-fn 6572  df-f 6573  df-f1 6574  df-fo 6575  df-f1o 6576  df-fv 6577  df-ov 7441  df-oprab 7442  df-mpo 7443  df-1st 8022  df-2nd 8023  df-map 8876  df-ixp 8946  df-sect 17804  df-func 17918

This theorem is referenced by:  funcinv  17933