Theorem oppcsect 17793

Description: A section in the opposite category. (Contributed by Mario Carneiro, 3-Jan-2017.)

Hypotheses

Ref	Expression
oppcsect.b	⊢ 𝐵 = (Base‘𝐶)
oppcsect.o	⊢ 𝑂 = (oppCat‘𝐶)
oppcsect.c	⊢ (𝜑 → 𝐶 ∈ Cat)
oppcsect.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
oppcsect.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
oppcsect.s	⊢ 𝑆 = (Sect‘𝐶)
oppcsect.t	⊢ 𝑇 = (Sect‘𝑂)

Assertion

Ref	Expression
oppcsect	⊢ (𝜑 → (𝐹(𝑋𝑇𝑌)𝐺 ↔ 𝐺(𝑋𝑆𝑌)𝐹))

Proof of Theorem oppcsect

Step	Hyp	Ref	Expression
1		oppcsect.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐶)
2		eqid 2734	. . . . . 6 ⊢ (comp‘𝐶) = (comp‘𝐶)
3		oppcsect.o	. . . . . 6 ⊢ 𝑂 = (oppCat‘𝐶)
4		oppcsect.x	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
5	4	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))) → 𝑋 ∈ 𝐵)
6		oppcsect.y	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
7	6	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))) → 𝑌 ∈ 𝐵)
8	1, 2, 3, 5, 7, 5	oppcco 17731	. . . . 5 ⊢ ((𝜑 ∧ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))) → (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺))
9		oppcsect.c	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ Cat)
10	9	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))) → 𝐶 ∈ Cat)
11		eqid 2734	. . . . . . . 8 ⊢ (Id‘𝐶) = (Id‘𝐶)
12	3, 11	oppcid 17735	. . . . . . 7 ⊢ (𝐶 ∈ Cat → (Id‘𝑂) = (Id‘𝐶))
13	10, 12	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))) → (Id‘𝑂) = (Id‘𝐶))
14	13	fveq1d 6888	. . . . 5 ⊢ ((𝜑 ∧ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))) → ((Id‘𝑂)‘𝑋) = ((Id‘𝐶)‘𝑋))
15	8, 14	eqeq12d 2750	. . . 4 ⊢ ((𝜑 ∧ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))) → ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋) ↔ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋)))
16	15	pm5.32da 579	. . 3 ⊢ (𝜑 → (((𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋)) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋)) ↔ ((𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋)) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋))))
17		df-3an 1088	. . . 4 ⊢ ((𝐹 ∈ (𝑋(Hom ‘𝑂)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝑂)𝑋) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋)) ↔ ((𝐹 ∈ (𝑋(Hom ‘𝑂)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝑂)𝑋)) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋)))
18		eqid 2734	. . . . . . . 8 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
19	18, 3	oppchom 17729	. . . . . . 7 ⊢ (𝑋(Hom ‘𝑂)𝑌) = (𝑌(Hom ‘𝐶)𝑋)
20	19	eleq2i 2825	. . . . . 6 ⊢ (𝐹 ∈ (𝑋(Hom ‘𝑂)𝑌) ↔ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))
21	18, 3	oppchom 17729	. . . . . . 7 ⊢ (𝑌(Hom ‘𝑂)𝑋) = (𝑋(Hom ‘𝐶)𝑌)
22	21	eleq2i 2825	. . . . . 6 ⊢ (𝐺 ∈ (𝑌(Hom ‘𝑂)𝑋) ↔ 𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌))
23	20, 22	anbi12ci 629	. . . . 5 ⊢ ((𝐹 ∈ (𝑋(Hom ‘𝑂)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝑂)𝑋)) ↔ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋)))
24	23	anbi1i 624	. . . 4 ⊢ (((𝐹 ∈ (𝑋(Hom ‘𝑂)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝑂)𝑋)) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋)) ↔ ((𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋)) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋)))
25	17, 24	bitri 275	. . 3 ⊢ ((𝐹 ∈ (𝑋(Hom ‘𝑂)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝑂)𝑋) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋)) ↔ ((𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋)) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋)))
26		df-3an 1088	. . 3 ⊢ ((𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋)) ↔ ((𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋)) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋)))
27	16, 25, 26	3bitr4g 314	. 2 ⊢ (𝜑 → ((𝐹 ∈ (𝑋(Hom ‘𝑂)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝑂)𝑋) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋)) ↔ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋))))
28	3, 1	oppcbas 17732	. . 3 ⊢ 𝐵 = (Base‘𝑂)
29		eqid 2734	. . 3 ⊢ (Hom ‘𝑂) = (Hom ‘𝑂)
30		eqid 2734	. . 3 ⊢ (comp‘𝑂) = (comp‘𝑂)
31		eqid 2734	. . 3 ⊢ (Id‘𝑂) = (Id‘𝑂)
32		oppcsect.t	. . 3 ⊢ 𝑇 = (Sect‘𝑂)
33	3	oppccat 17736	. . . 4 ⊢ (𝐶 ∈ Cat → 𝑂 ∈ Cat)
34	9, 33	syl 17	. . 3 ⊢ (𝜑 → 𝑂 ∈ Cat)
35	28, 29, 30, 31, 32, 34, 4, 6	issect 17768	. 2 ⊢ (𝜑 → (𝐹(𝑋𝑇𝑌)𝐺 ↔ (𝐹 ∈ (𝑋(Hom ‘𝑂)𝑌) ∧ 𝐺 ∈ (𝑌(Hom ‘𝑂)𝑋) ∧ (𝐺(⟨𝑋, 𝑌⟩(comp‘𝑂)𝑋)𝐹) = ((Id‘𝑂)‘𝑋))))
36		oppcsect.s	. . 3 ⊢ 𝑆 = (Sect‘𝐶)
37	1, 18, 2, 11, 36, 9, 4, 6	issect 17768	. 2 ⊢ (𝜑 → (𝐺(𝑋𝑆𝑌)𝐹 ↔ (𝐺 ∈ (𝑋(Hom ‘𝐶)𝑌) ∧ 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋) ∧ (𝐹(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐺) = ((Id‘𝐶)‘𝑋))))
38	27, 35, 37	3bitr4d 311	1 ⊢ (𝜑 → (𝐹(𝑋𝑇𝑌)𝐺 ↔ 𝐺(𝑋𝑆𝑌)𝐹))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1539   ∈ wcel 2107  ⟨cop 4612   class class class wbr 5123  ‘cfv 6541  (class class class)co 7413  Basecbs 17229  Hom chom 17284  compcco 17285  Catccat 17678  Idccid 17679  oppCatcoppc 17725  Sectcsect 17759

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 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2706  ax-rep 5259  ax-sep 5276  ax-nul 5286  ax-pow 5345  ax-pr 5412  ax-un 7737  ax-cnex 11193  ax-resscn 11194  ax-1cn 11195  ax-icn 11196  ax-addcl 11197  ax-addrcl 11198  ax-mulcl 11199  ax-mulrcl 11200  ax-mulcom 11201  ax-addass 11202  ax-mulass 11203  ax-distr 11204  ax-i2m1 11205  ax-1ne0 11206  ax-1rid 11207  ax-rnegex 11208  ax-rrecex 11209  ax-cnre 11210  ax-pre-lttri 11211  ax-pre-lttrn 11212  ax-pre-ltadd 11213  ax-pre-mulgt0 11214

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2808  df-nfc 2884  df-ne 2932  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-op 4613  df-uni 4888  df-iun 4973  df-br 5124  df-opab 5186  df-mpt 5206  df-tr 5240  df-id 5558  df-eprel 5564  df-po 5572  df-so 5573  df-fr 5617  df-we 5619  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-pred 6301  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-riota 7370  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7870  df-1st 7996  df-2nd 7997  df-tpos 8233  df-frecs 8288  df-wrecs 8319  df-recs 8393  df-rdg 8432  df-er 8727  df-en 8968  df-dom 8969  df-sdom 8970  df-pnf 11279  df-mnf 11280  df-xr 11281  df-ltxr 11282  df-le 11283  df-sub 11476  df-neg 11477  df-nn 12249  df-2 12311  df-3 12312  df-4 12313  df-5 12314  df-6 12315  df-7 12316  df-8 12317  df-9 12318  df-n0 12510  df-z 12597  df-dec 12717  df-sets 17183  df-slot 17201  df-ndx 17213  df-base 17230  df-hom 17297  df-cco 17298  df-cat 17682  df-cid 17683  df-oppc 17726  df-sect 17762

This theorem is referenced by:  oppcsect2  17794  sectepi  17799  episect  17800