fuccofval - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > fuccofval		Structured version Visualization version GIF version

Theorem fuccofval 18169

Description: Value of the functor category. (Contributed by Mario Carneiro, 6-Jan-2017.)

**Hypotheses**
Ref	Expression
fucval.q	⊢ 𝑄 = (𝐶 FuncCat 𝐷)
fucval.b	⊢ 𝐵 = (𝐶 Func 𝐷)
fucval.n	⊢ 𝑁 = (𝐶 Nat 𝐷)
fucval.a	⊢ 𝐴 = (Base‘𝐶)
fucval.o	⊢ · = (comp‘𝐷)
fucval.c	⊢ (𝜑 → 𝐶 ∈ Cat)
fucval.d	⊢ (𝜑 → 𝐷 ∈ Cat)
fuccofval.x	⊢ ∙ = (comp‘𝑄)

**Assertion**
Ref	Expression
fuccofval	⊢ (𝜑 → ∙ = (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥))))))

Distinct variable groups: 𝑣,ℎ,𝐵 𝑎,𝑏,𝑓,𝑔,ℎ,𝑣,𝑥,𝜑 𝐶,𝑎,𝑏,𝑓,𝑔,ℎ,𝑣,𝑥 𝐷,𝑎,𝑏,𝑓,𝑔,ℎ,𝑣,𝑥 Allowed substitution hints: 𝐴(𝑥, 𝑣, 𝑓, 𝑔, ℎ, 𝑎, 𝑏) 𝐵(𝑥, 𝑓, 𝑔, 𝑎, 𝑏) 𝑄(𝑥, 𝑣, 𝑓, 𝑔, ℎ, 𝑎, 𝑏) ∙ (𝑥, 𝑣, 𝑓, 𝑔, ℎ, 𝑎, 𝑏) · (𝑥, 𝑣, 𝑓, 𝑔, ℎ, 𝑎, 𝑏) 𝑁(𝑥, 𝑣, 𝑓, 𝑔, ℎ, 𝑎, 𝑏)

**Proof of Theorem fuccofval**
Step	Hyp	Ref	Expression
1		fucval.q	. . . 4 ⊢ 𝑄 = (𝐶 FuncCat 𝐷)
2		fucval.b	. . . 4 ⊢ 𝐵 = (𝐶 Func 𝐷)
3		fucval.n	. . . 4 ⊢ 𝑁 = (𝐶 Nat 𝐷)
4		fucval.a	. . . 4 ⊢ 𝐴 = (Base‘𝐶)
5		fucval.o	. . . 4 ⊢ · = (comp‘𝐷)
6		fucval.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
7		fucval.d	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
8		eqidd 2764	. . . 4 ⊢ (𝜑 → (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) = (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥))))))
9	1, 2, 3, 4, 5, 6, 7, 8	fucval 18168	. . 3 ⊢ (𝜑 → 𝑄 = {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))⟩})
10	9	fveq2d 6915	. 2 ⊢ (𝜑 → (comp‘𝑄) = (comp‘{⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))⟩}))
11		fuccofval.x	. 2 ⊢ ∙ = (comp‘𝑄)
12	2	ovexi 7480	. . . . 5 ⊢ 𝐵 ∈ V
13	12, 12	xpex 7794	. . . 4 ⊢ (𝐵 × 𝐵) ∈ V
14	13, 12	mpoex 8120	. . 3 ⊢ (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) ∈ V
15		catstr 18167	. . . 4 ⊢ {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))⟩} Struct ⟨1, ;15⟩
16		ccoid 17617	. . . 4 ⊢ comp = Slot (comp‘ndx)
17		snsstp3 4777	. . . 4 ⊢ {⟨(comp‘ndx), (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))⟩} ⊆ {⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))⟩}
18	15, 16, 17	strfv 17413	. . 3 ⊢ ((𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) ∈ V → (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) = (comp‘{⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))⟩}))
19	14, 18	ax-mp 5	. 2 ⊢ (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) = (comp‘{⟨(Base‘ndx), 𝐵⟩, ⟨(Hom ‘ndx), 𝑁⟩, ⟨(comp‘ndx), (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))⟩})
20	10, 11, 19	3eqtr4g 2823	1 ⊢ (𝜑 → ∙ = (𝑣 ∈ (𝐵 × 𝐵), ℎ ∈ 𝐵 ↦ ⦋(1^st ‘𝑣) / 𝑓⦌⦋(2^nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔𝑁ℎ), 𝑎 ∈ (𝑓𝑁𝑔) ↦ (𝑥 ∈ 𝐴 ↦ ((𝑏‘𝑥)(⟨((1^st ‘𝑓)‘𝑥), ((1^st ‘𝑔)‘𝑥)⟩ · ((1^st ‘ℎ)‘𝑥))(𝑎‘𝑥))))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 = wceq 1570 ∈ wcel 2147 Vcvv 3454 ⦋csb 3851 {ctp 4592 ⟨cop 4838 ↦ cmpt 5190 × cxp 5654 ‘cfv 6561 (class class class)co 7446 ∈ cmpo 7448 1^st c1st 8026 2^nd c2nd 8027 1c1 11231 5c5 12430 cdc 12844 ndxcnx 17403 Basecbs 17419 Hom chom 17471 compcco 17472 Catccat 17870 Func cfunc 18061 Nat cnat 18151 FuncCat cfuc 18152

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1945 ax-6 2002 ax-7 2043 ax-8 2149 ax-9 2157 ax-10 2180 ax-11 2197 ax-12 2216 ax-ext 2735 ax-rep 5236 ax-sep 5253 ax-nul 5264 ax-pow 5332 ax-pr 5396 ax-un 7778 ax-cnex 11286 ax-resscn 11287 ax-1cn 11288 ax-icn 11289 ax-addcl 11290 ax-addrcl 11291 ax-mulcl 11292 ax-mulrcl 11293 ax-mulcom 11294 ax-addass 11295 ax-mulass 11296 ax-distr 11297 ax-i2m1 11298 ax-1ne0 11299 ax-1rid 11300 ax-rnegex 11301 ax-rrecex 11302 ax-cnre 11303 ax-pre-lttri 11304 ax-pre-lttrn 11305 ax-pre-ltadd 11306 ax-pre-mulgt0 11307

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2102 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-pss 4017 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-tp 4593 df-op 4839 df-uni 4871 df-iun 4956 df-br 5107 df-opab 5172 df-mpt 5191 df-tr 5217 df-id 5551 df-eprel 5556 df-po 5564 df-so 5565 df-fr 5609 df-we 5611 df-xp 5662 df-rel 5663 df-cnv 5664 df-co 5665 df-dm 5666 df-rn 5667 df-res 5668 df-ima 5669 df-pred 6325 df-ord 6386 df-on 6387 df-lim 6388 df-suc 6389 df-iota 6515 df-fun 6563 df-fn 6564 df-f 6565 df-f1 6566 df-fo 6567 df-f1o 6568 df-fv 6569 df-riota 7403 df-ov 7449 df-oprab 7450 df-mpo 7451 df-om 7905 df-1st 8028 df-2nd 8029 df-frecs 8330 df-wrecs 8361 df-recs 8410 df-rdg 8449 df-1o 8507 df-er 8748 df-en 9005 df-dom 9006 df-sdom 9007 df-fin 9008 df-pnf 11375 df-mnf 11376 df-xr 11377 df-ltxr 11378 df-le 11379 df-sub 11573 df-neg 11574 df-nn 12366 df-2 12435 df-3 12436 df-4 12437 df-5 12438 df-6 12439 df-7 12440 df-8 12441 df-9 12442 df-n0 12637 df-z 12724 df-dec 12845 df-uz 12996 df-fz 13670 df-struct 17357 df-slot 17392 df-ndx 17404 df-base 17420 df-hom 17484 df-cco 17485 df-fuc 18154

This theorem is used by: fucbas 18170 fuchom 18171 fucco 18172

W3C validator