Theorem termcfuncval 49813

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 49357	. . . . 5 ⊢ (𝜑 → (1st ‘𝐾)(𝐷 Func 𝐶)(2nd ‘𝐾))
6	2, 3, 5	funcf1 17794	. . . 4 ⊢ (𝜑 → (1st ‘𝐾):𝐵⟶𝐴)
7		termcfuncval.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
8	6, 7	ffvelcdmd 7032	. . 3 ⊢ (𝜑 → ((1st ‘𝐾)‘𝑌) ∈ 𝐴)
9	1, 8	eqeltrid 2841	. 2 ⊢ (𝜑 → 𝑋 ∈ 𝐴)
10		relfunc 17790	. . . 4 ⊢ Rel (𝐷 Func 𝐶)
11		1st2nd 7985	. . . 4 ⊢ ((Rel (𝐷 Func 𝐶) ∧ 𝐾 ∈ (𝐷 Func 𝐶)) → 𝐾 = ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩)
12	10, 4, 11	sylancr 588	. . 3 ⊢ (𝜑 → 𝐾 = ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩)
13		diag1f1o.d	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ TermCat)
14	13, 2, 7	termcbas2 49763	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 = {𝑌})
15	14	feq2d 6647	. . . . . . . 8 ⊢ (𝜑 → ((1st ‘𝐾):𝐵⟶𝐴 ↔ (1st ‘𝐾):{𝑌}⟶𝐴))
16	6, 15	mpbid 232	. . . . . . 7 ⊢ (𝜑 → (1st ‘𝐾):{𝑌}⟶𝐴)
17		fsn2g 7085	. . . . . . . 8 ⊢ (𝑌 ∈ 𝐵 → ((1st ‘𝐾):{𝑌}⟶𝐴 ↔ (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})))
18	7, 17	syl 17	. . . . . . 7 ⊢ (𝜑 → ((1st ‘𝐾):{𝑌}⟶𝐴 ↔ (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})))
19	16, 18	mpbid 232	. . . . . 6 ⊢ (𝜑 → (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩}))
20	19	simprd 495	. . . . 5 ⊢ (𝜑 → (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})
21	1	opeq2i 4834	. . . . . 6 ⊢ ⟨𝑌, 𝑋⟩ = ⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩
22	21	sneqi 4592	. . . . 5 ⊢ {⟨𝑌, 𝑋⟩} = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩}
23	20, 22	eqtr4di 2790	. . . 4 ⊢ (𝜑 → (1st ‘𝐾) = {⟨𝑌, 𝑋⟩})
24	2, 5	funcfn2 17797	. . . . . . 7 ⊢ (𝜑 → (2nd ‘𝐾) Fn (𝐵 × 𝐵))
25	14	sqxpeqd 5657	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 × 𝐵) = ({𝑌} × {𝑌}))
26		xpsng 7086	. . . . . . . . . 10 ⊢ ((𝑌 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ({𝑌} × {𝑌}) = {⟨𝑌, 𝑌⟩})
27	7, 7, 26	syl2anc 585	. . . . . . . . 9 ⊢ (𝜑 → ({𝑌} × {𝑌}) = {⟨𝑌, 𝑌⟩})
28	25, 27	eqtrd 2772	. . . . . . . 8 ⊢ (𝜑 → (𝐵 × 𝐵) = {⟨𝑌, 𝑌⟩})
29	28	fneq2d 6587	. . . . . . 7 ⊢ (𝜑 → ((2nd ‘𝐾) Fn (𝐵 × 𝐵) ↔ (2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩}))
30	24, 29	mpbid 232	. . . . . 6 ⊢ (𝜑 → (2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩})
31		opex 5413	. . . . . . 7 ⊢ ⟨𝑌, 𝑌⟩ ∈ V
32	31	fnsnb 7113	. . . . . 6 ⊢ ((2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩} ↔ (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩})
33	30, 32	sylib 218	. . . . 5 ⊢ (𝜑 → (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩})
34		df-ov 7363	. . . . . . . 8 ⊢ (𝑌(2nd ‘𝐾)𝑌) = ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)
35		eqid 2737	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
36		eqid 2737	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
37	2, 35, 36, 5, 7, 7	funcf2 17796	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌):(𝑌(Hom ‘𝐷)𝑌)⟶(((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌)))
38		termcfuncval.i	. . . . . . . . . . . . . . 15 ⊢ 𝐼 = (Id‘𝐷)
39	13, 2, 7, 7, 35, 38	termchom 49769	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌(Hom ‘𝐷)𝑌) = {(𝐼‘𝑌)})
40	39	eqcomd 2743	. . . . . . . . . . . . 13 ⊢ (𝜑 → {(𝐼‘𝑌)} = (𝑌(Hom ‘𝐷)𝑌))
41	1, 1	oveq12i 7372	. . . . . . . . . . . . . 14 ⊢ (𝑋(Hom ‘𝐶)𝑋) = (((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌))
42	41	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋(Hom ‘𝐶)𝑋) = (((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌)))
43	40, 42	feq23d 6658	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋) ↔ (𝑌(2nd ‘𝐾)𝑌):(𝑌(Hom ‘𝐷)𝑌)⟶(((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌))))
44	37, 43	mpbird 257	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋))
45		fvex 6848	. . . . . . . . . . . 12 ⊢ (𝐼‘𝑌) ∈ V
46	45	fsn2 7083	. . . . . . . . . . 11 ⊢ ((𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋) ↔ (((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) ∈ (𝑋(Hom ‘𝐶)𝑋) ∧ (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩}))
47	44, 46	sylib 218	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) ∈ (𝑋(Hom ‘𝐶)𝑋) ∧ (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩}))
48	47	simprd 495	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩})
49		termcfuncval.1	. . . . . . . . . . . . 13 ⊢ 1 = (Id‘𝐶)
50	2, 38, 49, 5, 7	funcid 17798	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) = ( 1 ‘((1st ‘𝐾)‘𝑌)))
51	1	fveq2i 6838	. . . . . . . . . . . 12 ⊢ ( 1 ‘𝑋) = ( 1 ‘((1st ‘𝐾)‘𝑌))
52	50, 51	eqtr4di 2790	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) = ( 1 ‘𝑋))
53	52	opeq2d 4837	. . . . . . . . . 10 ⊢ (𝜑 → ⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩ = ⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩)
54	53	sneqd 4593	. . . . . . . . 9 ⊢ (𝜑 → {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩} = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
55	48, 54	eqtrd 2772	. . . . . . . 8 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
56	34, 55	eqtr3id 2786	. . . . . . 7 ⊢ (𝜑 → ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩) = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
57	56	opeq2d 4837	. . . . . 6 ⊢ (𝜑 → ⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩ = ⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩)
58	57	sneqd 4593	. . . . 5 ⊢ (𝜑 → {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩} = {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩})
59	33, 58	eqtrd 2772	. . . 4 ⊢ (𝜑 → (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩})
60	23, 59	opeq12d 4838	. . 3 ⊢ (𝜑 → ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩ = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩)
61	12, 60	eqtrd 2772	. 2 ⊢ (𝜑 → 𝐾 = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩)
62	9, 61	jca 511	1 ⊢ (𝜑 → (𝑋 ∈ 𝐴 ∧ 𝐾 = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114  {csn 4581  ⟨cop 4587   × cxp 5623  Rel wrel 5630   Fn wfn 6488  ⟶wf 6489  ‘cfv 6493  (class class class)co 7360  1^st c1st 7933  2^nd c2nd 7934  Basecbs 17140  Hom chom 17192  Idccid 17592   Func cfunc 17782  TermCatctermc 49753

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5225  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378  ax-un 7682

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3062  df-rmo 3351  df-reu 3352  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-op 4588  df-uni 4865  df-iun 4949  df-br 5100  df-opab 5162  df-mpt 5181  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-1st 7935  df-2nd 7936  df-map 8769  df-ixp 8840  df-cat 17595  df-cid 17596  df-func 17786  df-thinc 49699  df-termc 49754

This theorem is referenced by:  diag1f1olem  49814