Theorem termcfuncval 50445

Description: The value of a functor from a terminal category. (Contributed by Zhi Wang, 20-Oct-2025.)

Hypotheses

Ref	Expression
diag1f1o.a	⊢ 𝐴 = (Base‘𝐶)
diag1f1o.d	⊢ (𝜑 → 𝐷 ∈ TermCat)
termcfuncval.k	⊢ (𝜑 → 𝐾 ∈ (𝐷 Func 𝐶))
termcfuncval.b	⊢ 𝐵 = (Base‘𝐷)
termcfuncval.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
termcfuncval.x	⊢ 𝑋 = ((1st ‘𝐾)‘𝑌)
termcfuncval.1	⊢ 1 = (Id‘𝐶)
termcfuncval.i	⊢ 𝐼 = (Id‘𝐷)

Assertion

Ref	Expression
termcfuncval	⊢ (𝜑 → (𝑋 ∈ 𝐴 ∧ 𝐾 = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩))

Proof of Theorem termcfuncval

Step	Hyp	Ref	Expression
1		termcfuncval.x	. . 3 ⊢ 𝑋 = ((1st ‘𝐾)‘𝑌)
2		termcfuncval.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐷)
3		diag1f1o.a	. . . . 5 ⊢ 𝐴 = (Base‘𝐶)
4		termcfuncval.k	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ (𝐷 Func 𝐶))
5	4	func1st2nd 49989	. . . . 5 ⊢ (𝜑 → (1st ‘𝐾)(𝐷 Func 𝐶)(2nd ‘𝐾))
6	2, 3, 5	funcf1 17959	. . . 4 ⊢ (𝜑 → (1st ‘𝐾):𝐵⟶𝐴)
7		termcfuncval.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
8	6, 7	ffvelcdmd 7081	. . 3 ⊢ (𝜑 → ((1st ‘𝐾)‘𝑌) ∈ 𝐴)
9	1, 8	eqeltrid 2866	. 2 ⊢ (𝜑 → 𝑋 ∈ 𝐴)
10		relfunc 17955	. . . 4 ⊢ Rel (𝐷 Func 𝐶)
11		1st2nd 8039	. . . 4 ⊢ ((Rel (𝐷 Func 𝐶) ∧ 𝐾 ∈ (𝐷 Func 𝐶)) → 𝐾 = ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩)
12	10, 4, 11	sylancr 599	. . 3 ⊢ (𝜑 → 𝐾 = ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩)
13		diag1f1o.d	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ TermCat)
14	13, 2, 7	termcbas2 50395	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 = {𝑌})
15	14	feq2d 6690	. . . . . . . 8 ⊢ (𝜑 → ((1st ‘𝐾):𝐵⟶𝐴 ↔ (1st ‘𝐾):{𝑌}⟶𝐴))
16	6, 15	mpbid 235	. . . . . . 7 ⊢ (𝜑 → (1st ‘𝐾):{𝑌}⟶𝐴)
17		fsn2g 7135	. . . . . . . 8 ⊢ (𝑌 ∈ 𝐵 → ((1st ‘𝐾):{𝑌}⟶𝐴 ↔ (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})))
18	7, 17	syl 18	. . . . . . 7 ⊢ (𝜑 → ((1st ‘𝐾):{𝑌}⟶𝐴 ↔ (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})))
19	16, 18	mpbid 235	. . . . . 6 ⊢ (𝜑 → (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩}))
20	19	simprd 501	. . . . 5 ⊢ (𝜑 → (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})
21	1	opeq2i 4840	. . . . . 6 ⊢ ⟨𝑌, 𝑋⟩ = ⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩
22	21	sneqi 4598	. . . . 5 ⊢ {⟨𝑌, 𝑋⟩} = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩}
23	20, 22	eqtr4di 2815	. . . 4 ⊢ (𝜑 → (1st ‘𝐾) = {⟨𝑌, 𝑋⟩})
24	2, 5	funcfn2 17962	. . . . . . 7 ⊢ (𝜑 → (2nd ‘𝐾) Fn (𝐵 × 𝐵))
25	14	sqxpeqd 5691	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 × 𝐵) = ({𝑌} × {𝑌}))
26		xpsng 7136	. . . . . . . . . 10 ⊢ ((𝑌 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ({𝑌} × {𝑌}) = {⟨𝑌, 𝑌⟩})
27	7, 7, 26	syl2anc 596	. . . . . . . . 9 ⊢ (𝜑 → ({𝑌} × {𝑌}) = {⟨𝑌, 𝑌⟩})
28	25, 27	eqtrd 2797	. . . . . . . 8 ⊢ (𝜑 → (𝐵 × 𝐵) = {⟨𝑌, 𝑌⟩})
29	28	fneq2d 6630	. . . . . . 7 ⊢ (𝜑 → ((2nd ‘𝐾) Fn (𝐵 × 𝐵) ↔ (2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩}))
30	24, 29	mpbid 235	. . . . . 6 ⊢ (𝜑 → (2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩})
31		opex 5443	. . . . . . 7 ⊢ ⟨𝑌, 𝑌⟩ ∈ V
32	31	fnsnb 7166	. . . . . 6 ⊢ ((2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩} ↔ (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩})
33	30, 32	sylib 221	. . . . 5 ⊢ (𝜑 → (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩})
34		df-ov 7419	. . . . . . . 8 ⊢ (𝑌(2nd ‘𝐾)𝑌) = ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)
35		eqid 2762	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
36		eqid 2762	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
37	2, 35, 36, 5, 7, 7	funcf2 17961	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌):(𝑌(Hom ‘𝐷)𝑌)⟶(((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌)))
38		termcfuncval.i	. . . . . . . . . . . . . . 15 ⊢ 𝐼 = (Id‘𝐷)
39	13, 2, 7, 7, 35, 38	termchom 50401	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌(Hom ‘𝐷)𝑌) = {(𝐼‘𝑌)})
40	39	eqcomd 2768	. . . . . . . . . . . . 13 ⊢ (𝜑 → {(𝐼‘𝑌)} = (𝑌(Hom ‘𝐷)𝑌))
41	1, 1	oveq12i 7428	. . . . . . . . . . . . . 14 ⊢ (𝑋(Hom ‘𝐶)𝑋) = (((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌))
42	41	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋(Hom ‘𝐶)𝑋) = (((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌)))
43	40, 42	feq23d 6701	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋) ↔ (𝑌(2nd ‘𝐾)𝑌):(𝑌(Hom ‘𝐷)𝑌)⟶(((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌))))
44	37, 43	mpbird 260	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋))
45		fvex 6895	. . . . . . . . . . . 12 ⊢ (𝐼‘𝑌) ∈ V
46	45	fsn2 7133	. . . . . . . . . . 11 ⊢ ((𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋) ↔ (((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) ∈ (𝑋(Hom ‘𝐶)𝑋) ∧ (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩}))
47	44, 46	sylib 221	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) ∈ (𝑋(Hom ‘𝐶)𝑋) ∧ (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩}))
48	47	simprd 501	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩})
49		termcfuncval.1	. . . . . . . . . . . . 13 ⊢ 1 = (Id‘𝐶)
50	2, 38, 49, 5, 7	funcid 17963	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) = ( 1 ‘((1st ‘𝐾)‘𝑌)))
51	1	fveq2i 6885	. . . . . . . . . . . 12 ⊢ ( 1 ‘𝑋) = ( 1 ‘((1st ‘𝐾)‘𝑌))
52	50, 51	eqtr4di 2815	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) = ( 1 ‘𝑋))
53	52	opeq2d 4843	. . . . . . . . . 10 ⊢ (𝜑 → ⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩ = ⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩)
54	53	sneqd 4599	. . . . . . . . 9 ⊢ (𝜑 → {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩} = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
55	48, 54	eqtrd 2797	. . . . . . . 8 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
56	34, 55	eqtr3id 2811	. . . . . . 7 ⊢ (𝜑 → ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩) = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
57	56	opeq2d 4843	. . . . . 6 ⊢ (𝜑 → ⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩ = ⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩)
58	57	sneqd 4599	. . . . 5 ⊢ (𝜑 → {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩} = {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩})
59	33, 58	eqtrd 2797	. . . 4 ⊢ (𝜑 → (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩})
60	23, 59	opeq12d 4844	. . 3 ⊢ (𝜑 → ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩ = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩)
61	12, 60	eqtrd 2797	. 2 ⊢ (𝜑 → 𝐾 = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩)
62	9, 61	jca 521	1 ⊢ (𝜑 → (𝑋 ∈ 𝐴 ∧ 𝐾 = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2145  {csn 4587  ⟨cop 4593   × cxp 5657  Rel wrel 5664   Fn wfn 6532  ⟶wf 6533  ‘cfv 6537  (class class class)co 7416  1^st c1st 7987  2^nd c2nd 7988  Basecbs 17305  Hom chom 17357  Idccid 17757   Func cfunc 17947  TermCatctermc 50385

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 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-rep 5236  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7739

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3079  df-rex 3089  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-iun 4956  df-br 5108  df-opab 5172  df-mpt 5191  df-id 5554  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7373  df-ov 7419  df-oprab 7420  df-mpo 7421  df-1st 7989  df-2nd 7990  df-map 8831  df-ixp 8908  df-cat 17760  df-cid 17761  df-func 17951  df-thinc 50331  df-termc 50386

This theorem is used by:  diag1f1olem  50446