Theorem fucoppcffth 49970

Description: A fully faithful functor from the opposite category of functors to the category of opposite functors. (Contributed by Zhi Wang, 19-Nov-2025.)

Hypotheses

Ref	Expression
fucoppc.o	⊢ 𝑂 = (oppCat‘𝐶)
fucoppc.p	⊢ 𝑃 = (oppCat‘𝐷)
fucoppc.q	⊢ 𝑄 = (𝐶 FuncCat 𝐷)
fucoppc.r	⊢ 𝑅 = (oppCat‘𝑄)
fucoppc.s	⊢ 𝑆 = (𝑂 FuncCat 𝑃)
fucoppc.n	⊢ 𝑁 = (𝐶 Nat 𝐷)
fucoppc.f	⊢ (𝜑 → 𝐹 = ( oppFunc ↾ (𝐶 Func 𝐷)))
fucoppc.g	⊢ (𝜑 → 𝐺 = (𝑥 ∈ (𝐶 Func 𝐷), 𝑦 ∈ (𝐶 Func 𝐷) ↦ ( I ↾ (𝑦𝑁𝑥))))
fucoppcffth.c	⊢ (𝜑 → 𝐶 ∈ Cat)
fucoppcffth.d	⊢ (𝜑 → 𝐷 ∈ Cat)

Assertion

Ref	Expression
fucoppcffth	⊢ (𝜑 → 𝐹((𝑅 Full 𝑆) ∩ (𝑅 Faith 𝑆))𝐺)

Distinct variable groups:   𝑥,𝐶,𝑦   𝑥,𝐷,𝑦   𝑥,𝑁,𝑦   𝑥,𝑅,𝑦   𝜑,𝑥,𝑦

Allowed substitution hints:   𝑃(𝑥,𝑦)   𝑄(𝑥,𝑦)   𝑆(𝑥,𝑦)   𝐹(𝑥,𝑦)   𝐺(𝑥,𝑦)   𝑂(𝑥,𝑦)

Proof of Theorem fucoppcffth

Step	Hyp	Ref	Expression
1		eqid 2752	. . . 4 ⊢ (CatCat‘{𝑅, 𝑆}) = (CatCat‘{𝑅, 𝑆})
2		eqid 2752	. . . 4 ⊢ (Base‘𝑅) = (Base‘𝑅)
3		eqid 2752	. . . 4 ⊢ (Base‘𝑆) = (Base‘𝑆)
4		eqid 2752	. . . 4 ⊢ (Iso‘(CatCat‘{𝑅, 𝑆})) = (Iso‘(CatCat‘{𝑅, 𝑆}))
5		fucoppc.o	. . . . . 6 ⊢ 𝑂 = (oppCat‘𝐶)
6		fucoppc.p	. . . . . 6 ⊢ 𝑃 = (oppCat‘𝐷)
7		fucoppc.q	. . . . . 6 ⊢ 𝑄 = (𝐶 FuncCat 𝐷)
8		fucoppc.r	. . . . . 6 ⊢ 𝑅 = (oppCat‘𝑄)
9		fucoppc.s	. . . . . 6 ⊢ 𝑆 = (𝑂 FuncCat 𝑃)
10		fucoppc.n	. . . . . 6 ⊢ 𝑁 = (𝐶 Nat 𝐷)
11		fucoppc.f	. . . . . 6 ⊢ (𝜑 → 𝐹 = ( oppFunc ↾ (𝐶 Func 𝐷)))
12		fucoppc.g	. . . . . 6 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ (𝐶 Func 𝐷), 𝑦 ∈ (𝐶 Func 𝐷) ↦ ( I ↾ (𝑦𝑁𝑥))))
13		eqid 2752	. . . . . 6 ⊢ (Base‘(CatCat‘{𝑅, 𝑆})) = (Base‘(CatCat‘{𝑅, 𝑆}))
14		fucoppcffth.c	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Cat)
15		fucoppcffth.d	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ Cat)
16	7, 14, 15	fuccat 17978	. . . . . . . . . 10 ⊢ (𝜑 → 𝑄 ∈ Cat)
17	8	oppccat 17726	. . . . . . . . . 10 ⊢ (𝑄 ∈ Cat → 𝑅 ∈ Cat)
18	16, 17	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ Cat)
19		prid1g 4709	. . . . . . . . 9 ⊢ (𝑅 ∈ Cat → 𝑅 ∈ {𝑅, 𝑆})
20	18, 19	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ {𝑅, 𝑆})
21	20, 18	elind 4143	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ ({𝑅, 𝑆} ∩ Cat))
22		prex 5385	. . . . . . . . 9 ⊢ {𝑅, 𝑆} ∈ V
23	22	a1i 11	. . . . . . . 8 ⊢ (𝜑 → {𝑅, 𝑆} ∈ V)
24	1, 13, 23	catcbas 18106	. . . . . . 7 ⊢ (𝜑 → (Base‘(CatCat‘{𝑅, 𝑆})) = ({𝑅, 𝑆} ∩ Cat))
25	21, 24	eleqtrrd 2855	. . . . . 6 ⊢ (𝜑 → 𝑅 ∈ (Base‘(CatCat‘{𝑅, 𝑆})))
26	5	oppccat 17726	. . . . . . . . . . 11 ⊢ (𝐶 ∈ Cat → 𝑂 ∈ Cat)
27	14, 26	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑂 ∈ Cat)
28	6	oppccat 17726	. . . . . . . . . . 11 ⊢ (𝐷 ∈ Cat → 𝑃 ∈ Cat)
29	15, 28	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ Cat)
30	9, 27, 29	fuccat 17978	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ Cat)
31		prid2g 4710	. . . . . . . . 9 ⊢ (𝑆 ∈ Cat → 𝑆 ∈ {𝑅, 𝑆})
32	30, 31	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ {𝑅, 𝑆})
33	32, 30	elind 4143	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ ({𝑅, 𝑆} ∩ Cat))
34	33, 24	eleqtrrd 2855	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ (Base‘(CatCat‘{𝑅, 𝑆})))
35	5, 6, 7, 8, 9, 10, 11, 12, 1, 13, 4, 14, 15, 25, 34	fucoppc 49969	. . . . 5 ⊢ (𝜑 → 𝐹(𝑅(Iso‘(CatCat‘{𝑅, 𝑆}))𝑆)𝐺)
36		df-br 5091	. . . . 5 ⊢ (𝐹(𝑅(Iso‘(CatCat‘{𝑅, 𝑆}))𝑆)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝑅(Iso‘(CatCat‘{𝑅, 𝑆}))𝑆))
37	35, 36	sylib 220	. . . 4 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝑅(Iso‘(CatCat‘{𝑅, 𝑆}))𝑆))
38	1, 2, 3, 4, 37	catcisoi 49959	. . 3 ⊢ (𝜑 → (⟨𝐹, 𝐺⟩ ∈ ((𝑅 Full 𝑆) ∩ (𝑅 Faith 𝑆)) ∧ (1st ‘⟨𝐹, 𝐺⟩):(Base‘𝑅)–1-1-onto→(Base‘𝑆)))
39	38	simpld 497	. 2 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ ((𝑅 Full 𝑆) ∩ (𝑅 Faith 𝑆)))
40		df-br 5091	. 2 ⊢ (𝐹((𝑅 Full 𝑆) ∩ (𝑅 Faith 𝑆))𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ ((𝑅 Full 𝑆) ∩ (𝑅 Faith 𝑆)))
41	39, 40	sylibr 236	1 ⊢ (𝜑 → 𝐹((𝑅 Full 𝑆) ∩ (𝑅 Faith 𝑆))𝐺)

Syntax hints:   → wi 4   = wceq 1550   ∈ wcel 2132  Vcvv 3444   ∩ cin 3894  {cpr 4574  ⟨cop 4578   class class class wbr 5090   I cid 5530   ↾ cres 5638  –1-1-onto→wf1o 6505  ‘cfv 6506  (class class class)co 7381   ∈ cmpo 7383  1^st c1st 7953  Basecbs 17217  Catccat 17668  oppCatcoppc 17715  Isociso 17751   Func cfunc 17859   Full cful 17909   Faith cfth 17910   Nat cnat 17949   FuncCat cfuc 17950  CatCatccatc 18103   oppFunc coppf 49681

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1805  ax-4 1819  ax-5 1920  ax-6 1977  ax-7 2018  ax-8 2134  ax-9 2142  ax-10 2165  ax-11 2181  ax-12 2202  ax-ext 2724  ax-rep 5217  ax-sep 5236  ax-nul 5246  ax-pow 5312  ax-pr 5380  ax-un 7703  ax-cnex 11115  ax-resscn 11116  ax-1cn 11117  ax-icn 11118  ax-addcl 11119  ax-addrcl 11120  ax-mulcl 11121  ax-mulrcl 11122  ax-mulcom 11123  ax-addass 11124  ax-mulass 11125  ax-distr 11126  ax-i2m1 11127  ax-1ne0 11128  ax-1rid 11129  ax-rnegex 11130  ax-rrecex 11131  ax-cnre 11132  ax-pre-lttri 11133  ax-pre-lttrn 11134  ax-pre-ltadd 11135  ax-pre-mulgt0 11136

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 857  df-3or 1096  df-3an 1097  df-tru 1553  df-fal 1563  df-ex 1790  df-nf 1794  df-sb 2081  df-mo 2556  df-eu 2586  df-clab 2731  df-cleq 2744  df-clel 2827  df-nfc 2901  df-ne 2948  df-nel 3052  df-ral 3067  df-rex 3077  df-rmo 3357  df-reu 3358  df-rab 3405  df-v 3446  df-sbc 3736  df-csb 3844  df-dif 3898  df-un 3900  df-in 3902  df-ss 3912  df-pss 3915  df-nul 4277  df-if 4471  df-pw 4547  df-sn 4573  df-pr 4575  df-tp 4577  df-op 4579  df-uni 4856  df-iun 4941  df-br 5091  df-opab 5153  df-mpt 5172  df-tr 5198  df-id 5531  df-eprel 5536  df-po 5544  df-so 5545  df-fr 5589  df-we 5591  df-xp 5642  df-rel 5643  df-cnv 5644  df-co 5645  df-dm 5646  df-rn 5647  df-res 5648  df-ima 5649  df-pred 6273  df-ord 6334  df-on 6335  df-lim 6336  df-suc 6337  df-iota 6462  df-fun 6508  df-fn 6509  df-f 6510  df-f1 6511  df-fo 6512  df-f1o 6513  df-fv 6514  df-riota 7338  df-ov 7384  df-oprab 7385  df-mpo 7386  df-om 7832  df-1st 7955  df-2nd 7956  df-tpos 8190  df-frecs 8246  df-wrecs 8277  df-recs 8326  df-rdg 8365  df-1o 8421  df-er 8662  df-map 8794  df-ixp 8865  df-en 8913  df-dom 8914  df-sdom 8915  df-fin 8916  df-pnf 11204  df-mnf 11205  df-xr 11206  df-ltxr 11207  df-le 11208  df-sub 11402  df-neg 11403  df-nn 12197  df-2 12266  df-3 12267  df-4 12268  df-5 12269  df-6 12270  df-7 12271  df-8 12272  df-9 12273  df-n0 12468  df-z 12555  df-dec 12675  df-uz 12826  df-fz 13499  df-struct 17155  df-sets 17172  df-slot 17190  df-ndx 17202  df-base 17218  df-hom 17282  df-cco 17283  df-cat 17672  df-cid 17673  df-homf 17674  df-comf 17675  df-oppc 17716  df-sect 17752  df-inv 17753  df-iso 17754  df-func 17863  df-idfu 17864  df-cofu 17865  df-full 17911  df-fth 17912  df-nat 17951  df-fuc 17952  df-catc 18104  df-oppf 49682

This theorem is referenced by:  fucoppcfunc  49971  lmddu  50226