Theorem fthsect 17178

Description: A faithful functor reflects sections. (Contributed by Mario Carneiro, 27-Jan-2017.)

Hypotheses

Ref	Expression
fthsect.b	⊢ 𝐵 = (Base‘𝐶)
fthsect.h	⊢ 𝐻 = (Hom ‘𝐶)
fthsect.f	⊢ (𝜑 → 𝐹(𝐶 Faith 𝐷)𝐺)
fthsect.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
fthsect.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
fthsect.m	⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
fthsect.n	⊢ (𝜑 → 𝑁 ∈ (𝑌𝐻𝑋))
fthsect.s	⊢ 𝑆 = (Sect‘𝐶)
fthsect.t	⊢ 𝑇 = (Sect‘𝐷)

Assertion

Ref	Expression
fthsect	⊢ (𝜑 → (𝑀(𝑋𝑆𝑌)𝑁 ↔ ((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝑇(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁)))

Proof of Theorem fthsect

Step	Hyp	Ref	Expression
1		fthsect.b	. . . 4 ⊢ 𝐵 = (Base‘𝐶)
2		fthsect.h	. . . 4 ⊢ 𝐻 = (Hom ‘𝐶)
3		eqid 2821	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
4		fthsect.f	. . . 4 ⊢ (𝜑 → 𝐹(𝐶 Faith 𝐷)𝐺)
5		fthsect.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
6		eqid 2821	. . . . 5 ⊢ (comp‘𝐶) = (comp‘𝐶)
7		fthfunc 17160	. . . . . . . . . 10 ⊢ (𝐶 Faith 𝐷) ⊆ (𝐶 Func 𝐷)
8	7	ssbri 5097	. . . . . . . . 9 ⊢ (𝐹(𝐶 Faith 𝐷)𝐺 → 𝐹(𝐶 Func 𝐷)𝐺)
9	4, 8	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
10		df-br 5053	. . . . . . . 8 ⊢ (𝐹(𝐶 Func 𝐷)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
11	9, 10	sylib 220	. . . . . . 7 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
12		funcrcl 17116	. . . . . . 7 ⊢ (⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
13	11, 12	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
14	13	simpld 497	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ Cat)
15		fthsect.y	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
16		fthsect.m	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ (𝑋𝐻𝑌))
17		fthsect.n	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (𝑌𝐻𝑋))
18	1, 2, 6, 14, 5, 15, 5, 16, 17	catcocl 16939	. . . 4 ⊢ (𝜑 → (𝑁(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑀) ∈ (𝑋𝐻𝑋))
19		eqid 2821	. . . . 5 ⊢ (Id‘𝐶) = (Id‘𝐶)
20	1, 2, 19, 14, 5	catidcl 16936	. . . 4 ⊢ (𝜑 → ((Id‘𝐶)‘𝑋) ∈ (𝑋𝐻𝑋))
21	1, 2, 3, 4, 5, 5, 18, 20	fthi 17171	. . 3 ⊢ (𝜑 → (((𝑋𝐺𝑋)‘(𝑁(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑀)) = ((𝑋𝐺𝑋)‘((Id‘𝐶)‘𝑋)) ↔ (𝑁(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑀) = ((Id‘𝐶)‘𝑋)))
22		eqid 2821	. . . . 5 ⊢ (comp‘𝐷) = (comp‘𝐷)
23	1, 2, 6, 22, 9, 5, 15, 5, 16, 17	funcco 17124	. . . 4 ⊢ (𝜑 → ((𝑋𝐺𝑋)‘(𝑁(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑀)) = (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐷)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)))
24		eqid 2821	. . . . 5 ⊢ (Id‘𝐷) = (Id‘𝐷)
25	1, 19, 24, 9, 5	funcid 17123	. . . 4 ⊢ (𝜑 → ((𝑋𝐺𝑋)‘((Id‘𝐶)‘𝑋)) = ((Id‘𝐷)‘(𝐹‘𝑋)))
26	23, 25	eqeq12d 2837	. . 3 ⊢ (𝜑 → (((𝑋𝐺𝑋)‘(𝑁(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑀)) = ((𝑋𝐺𝑋)‘((Id‘𝐶)‘𝑋)) ↔ (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐷)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)) = ((Id‘𝐷)‘(𝐹‘𝑋))))
27	21, 26	bitr3d 283	. 2 ⊢ (𝜑 → ((𝑁(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑀) = ((Id‘𝐶)‘𝑋) ↔ (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐷)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)) = ((Id‘𝐷)‘(𝐹‘𝑋))))
28		fthsect.s	. . 3 ⊢ 𝑆 = (Sect‘𝐶)
29	1, 2, 6, 19, 28, 14, 5, 15, 16, 17	issect2 17007	. 2 ⊢ (𝜑 → (𝑀(𝑋𝑆𝑌)𝑁 ↔ (𝑁(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑀) = ((Id‘𝐶)‘𝑋)))
30		eqid 2821	. . 3 ⊢ (Base‘𝐷) = (Base‘𝐷)
31		fthsect.t	. . 3 ⊢ 𝑇 = (Sect‘𝐷)
32	13	simprd 498	. . 3 ⊢ (𝜑 → 𝐷 ∈ Cat)
33	1, 30, 9	funcf1 17119	. . . 4 ⊢ (𝜑 → 𝐹:𝐵⟶(Base‘𝐷))
34	33, 5	ffvelrnd 6838	. . 3 ⊢ (𝜑 → (𝐹‘𝑋) ∈ (Base‘𝐷))
35	33, 15	ffvelrnd 6838	. . 3 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝐷))
36	1, 2, 3, 9, 5, 15	funcf2 17121	. . . 4 ⊢ (𝜑 → (𝑋𝐺𝑌):(𝑋𝐻𝑌)⟶((𝐹‘𝑋)(Hom ‘𝐷)(𝐹‘𝑌)))
37	36, 16	ffvelrnd 6838	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀) ∈ ((𝐹‘𝑋)(Hom ‘𝐷)(𝐹‘𝑌)))
38	1, 2, 3, 9, 15, 5	funcf2 17121	. . . 4 ⊢ (𝜑 → (𝑌𝐺𝑋):(𝑌𝐻𝑋)⟶((𝐹‘𝑌)(Hom ‘𝐷)(𝐹‘𝑋)))
39	38, 17	ffvelrnd 6838	. . 3 ⊢ (𝜑 → ((𝑌𝐺𝑋)‘𝑁) ∈ ((𝐹‘𝑌)(Hom ‘𝐷)(𝐹‘𝑋)))
40	30, 3, 22, 24, 31, 32, 34, 35, 37, 39	issect2 17007	. 2 ⊢ (𝜑 → (((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝑇(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁) ↔ (((𝑌𝐺𝑋)‘𝑁)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐷)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀)) = ((Id‘𝐷)‘(𝐹‘𝑋))))
41	27, 29, 40	3bitr4d 313	1 ⊢ (𝜑 → (𝑀(𝑋𝑆𝑌)𝑁 ↔ ((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝑇(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1537   ∈ wcel 2114  ⟨cop 4559   class class class wbr 5052  ‘cfv 6341  (class class class)co 7142  Basecbs 16466  Hom chom 16559  compcco 16560  Catccat 16918  Idccid 16919  Sectcsect 16997   Func cfunc 17107   Faith cfth 17156

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 2793  ax-rep 5176  ax-sep 5189  ax-nul 5196  ax-pow 5252  ax-pr 5316  ax-un 7447

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 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3488  df-sbc 3764  df-csb 3872  df-dif 3927  df-un 3929  df-in 3931  df-ss 3940  df-nul 4280  df-if 4454  df-pw 4527  df-sn 4554  df-pr 4556  df-op 4560  df-uni 4825  df-iun 4907  df-br 5053  df-opab 5115  df-mpt 5133  df-id 5446  df-xp 5547  df-rel 5548  df-cnv 5549  df-co 5550  df-dm 5551  df-rn 5552  df-res 5553  df-ima 5554  df-iota 6300  df-fun 6343  df-fn 6344  df-f 6345  df-f1 6346  df-fo 6347  df-f1o 6348  df-fv 6349  df-riota 7100  df-ov 7145  df-oprab 7146  df-mpo 7147  df-1st 7675  df-2nd 7676  df-map 8394  df-ixp 8448  df-cat 16922  df-cid 16923  df-sect 17000  df-func 17111  df-fth 17158

This theorem is referenced by:  fthinv  17179