Theorem termcfuncval 50144

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 49688	. . . . 5 ⊢ (𝜑 → (1st ‘𝐾)(𝐷 Func 𝐶)(2nd ‘𝐾))
6	2, 3, 5	funcf1 17909	. . . 4 ⊢ (𝜑 → (1st ‘𝐾):𝐵⟶𝐴)
7		termcfuncval.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
8	6, 7	ffvelcdmd 7066	. . 3 ⊢ (𝜑 → ((1st ‘𝐾)‘𝑌) ∈ 𝐴)
9	1, 8	eqeltrid 2867	. 2 ⊢ (𝜑 → 𝑋 ∈ 𝐴)
10		relfunc 17905	. . . 4 ⊢ Rel (𝐷 Func 𝐶)
11		1st2nd 8020	. . . 4 ⊢ ((Rel (𝐷 Func 𝐶) ∧ 𝐾 ∈ (𝐷 Func 𝐶)) → 𝐾 = ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩)
12	10, 4, 11	sylancr 596	. . 3 ⊢ (𝜑 → 𝐾 = ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩)
13		diag1f1o.d	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ TermCat)
14	13, 2, 7	termcbas2 50094	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 = {𝑌})
15	14	feq2d 6675	. . . . . . . 8 ⊢ (𝜑 → ((1st ‘𝐾):𝐵⟶𝐴 ↔ (1st ‘𝐾):{𝑌}⟶𝐴))
16	6, 15	mpbid 234	. . . . . . 7 ⊢ (𝜑 → (1st ‘𝐾):{𝑌}⟶𝐴)
17		fsn2g 7120	. . . . . . . 8 ⊢ (𝑌 ∈ 𝐵 → ((1st ‘𝐾):{𝑌}⟶𝐴 ↔ (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})))
18	7, 17	syl 17	. . . . . . 7 ⊢ (𝜑 → ((1st ‘𝐾):{𝑌}⟶𝐴 ↔ (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})))
19	16, 18	mpbid 234	. . . . . 6 ⊢ (𝜑 → (((1st ‘𝐾)‘𝑌) ∈ 𝐴 ∧ (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩}))
20	19	simprd 499	. . . . 5 ⊢ (𝜑 → (1st ‘𝐾) = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩})
21	1	opeq2i 4836	. . . . . 6 ⊢ ⟨𝑌, 𝑋⟩ = ⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩
22	21	sneqi 4594	. . . . 5 ⊢ {⟨𝑌, 𝑋⟩} = {⟨𝑌, ((1st ‘𝐾)‘𝑌)⟩}
23	20, 22	eqtr4di 2816	. . . 4 ⊢ (𝜑 → (1st ‘𝐾) = {⟨𝑌, 𝑋⟩})
24	2, 5	funcfn2 17912	. . . . . . 7 ⊢ (𝜑 → (2nd ‘𝐾) Fn (𝐵 × 𝐵))
25	14	sqxpeqd 5680	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 × 𝐵) = ({𝑌} × {𝑌}))
26		xpsng 7121	. . . . . . . . . 10 ⊢ ((𝑌 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ({𝑌} × {𝑌}) = {⟨𝑌, 𝑌⟩})
27	7, 7, 26	syl2anc 593	. . . . . . . . 9 ⊢ (𝜑 → ({𝑌} × {𝑌}) = {⟨𝑌, 𝑌⟩})
28	25, 27	eqtrd 2798	. . . . . . . 8 ⊢ (𝜑 → (𝐵 × 𝐵) = {⟨𝑌, 𝑌⟩})
29	28	fneq2d 6615	. . . . . . 7 ⊢ (𝜑 → ((2nd ‘𝐾) Fn (𝐵 × 𝐵) ↔ (2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩}))
30	24, 29	mpbid 234	. . . . . 6 ⊢ (𝜑 → (2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩})
31		opex 5432	. . . . . . 7 ⊢ ⟨𝑌, 𝑌⟩ ∈ V
32	31	fnsnb 7149	. . . . . 6 ⊢ ((2nd ‘𝐾) Fn {⟨𝑌, 𝑌⟩} ↔ (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩})
33	30, 32	sylib 220	. . . . 5 ⊢ (𝜑 → (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩})
34		df-ov 7399	. . . . . . . 8 ⊢ (𝑌(2nd ‘𝐾)𝑌) = ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)
35		eqid 2763	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
36		eqid 2763	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
37	2, 35, 36, 5, 7, 7	funcf2 17911	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌):(𝑌(Hom ‘𝐷)𝑌)⟶(((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌)))
38		termcfuncval.i	. . . . . . . . . . . . . . 15 ⊢ 𝐼 = (Id‘𝐷)
39	13, 2, 7, 7, 35, 38	termchom 50100	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑌(Hom ‘𝐷)𝑌) = {(𝐼‘𝑌)})
40	39	eqcomd 2769	. . . . . . . . . . . . 13 ⊢ (𝜑 → {(𝐼‘𝑌)} = (𝑌(Hom ‘𝐷)𝑌))
41	1, 1	oveq12i 7408	. . . . . . . . . . . . . 14 ⊢ (𝑋(Hom ‘𝐶)𝑋) = (((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌))
42	41	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋(Hom ‘𝐶)𝑋) = (((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌)))
43	40, 42	feq23d 6686	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋) ↔ (𝑌(2nd ‘𝐾)𝑌):(𝑌(Hom ‘𝐷)𝑌)⟶(((1st ‘𝐾)‘𝑌)(Hom ‘𝐶)((1st ‘𝐾)‘𝑌))))
44	37, 43	mpbird 259	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋))
45		fvex 6880	. . . . . . . . . . . 12 ⊢ (𝐼‘𝑌) ∈ V
46	45	fsn2 7118	. . . . . . . . . . 11 ⊢ ((𝑌(2nd ‘𝐾)𝑌):{(𝐼‘𝑌)}⟶(𝑋(Hom ‘𝐶)𝑋) ↔ (((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) ∈ (𝑋(Hom ‘𝐶)𝑋) ∧ (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩}))
47	44, 46	sylib 220	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) ∈ (𝑋(Hom ‘𝐶)𝑋) ∧ (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩}))
48	47	simprd 499	. . . . . . . . 9 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩})
49		termcfuncval.1	. . . . . . . . . . . . 13 ⊢ 1 = (Id‘𝐶)
50	2, 38, 49, 5, 7	funcid 17913	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) = ( 1 ‘((1st ‘𝐾)‘𝑌)))
51	1	fveq2i 6870	. . . . . . . . . . . 12 ⊢ ( 1 ‘𝑋) = ( 1 ‘((1st ‘𝐾)‘𝑌))
52	50, 51	eqtr4di 2816	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌)) = ( 1 ‘𝑋))
53	52	opeq2d 4839	. . . . . . . . . 10 ⊢ (𝜑 → ⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩ = ⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩)
54	53	sneqd 4595	. . . . . . . . 9 ⊢ (𝜑 → {⟨(𝐼‘𝑌), ((𝑌(2nd ‘𝐾)𝑌)‘(𝐼‘𝑌))⟩} = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
55	48, 54	eqtrd 2798	. . . . . . . 8 ⊢ (𝜑 → (𝑌(2nd ‘𝐾)𝑌) = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
56	34, 55	eqtr3id 2812	. . . . . . 7 ⊢ (𝜑 → ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩) = {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩})
57	56	opeq2d 4839	. . . . . 6 ⊢ (𝜑 → ⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩ = ⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩)
58	57	sneqd 4595	. . . . 5 ⊢ (𝜑 → {⟨⟨𝑌, 𝑌⟩, ((2nd ‘𝐾)‘⟨𝑌, 𝑌⟩)⟩} = {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩})
59	33, 58	eqtrd 2798	. . . 4 ⊢ (𝜑 → (2nd ‘𝐾) = {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩})
60	23, 59	opeq12d 4840	. . 3 ⊢ (𝜑 → ⟨(1st ‘𝐾), (2nd ‘𝐾)⟩ = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩)
61	12, 60	eqtrd 2798	. 2 ⊢ (𝜑 → 𝐾 = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩)
62	9, 61	jca 519	1 ⊢ (𝜑 → (𝑋 ∈ 𝐴 ∧ 𝐾 = ⟨{⟨𝑌, 𝑋⟩}, {⟨⟨𝑌, 𝑌⟩, {⟨(𝐼‘𝑌), ( 1 ‘𝑋)⟩}⟩}⟩))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   = wceq 1561   ∈ wcel 2143  {csn 4583  ⟨cop 4589   × cxp 5646  Rel wrel 5653   Fn wfn 6516  ⟶wf 6517  ‘cfv 6521  (class class class)co 7396  1^st c1st 7968  2^nd c2nd 7969  Basecbs 17255  Hom chom 17307  Idccid 17707   Func cfunc 17897  TermCatctermc 50084

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1816  ax-4 1830  ax-5 1931  ax-6 1988  ax-7 2029  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5228  ax-sep 5247  ax-nul 5257  ax-pow 5323  ax-pr 5391  ax-un 7718

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1101  df-tru 1564  df-fal 1574  df-ex 1801  df-nf 1805  df-sb 2092  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3078  df-rex 3088  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3457  df-sbc 3746  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5102  df-opab 5164  df-mpt 5183  df-id 5543  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-1st 7970  df-2nd 7971  df-map 8810  df-ixp 8880  df-cat 17710  df-cid 17711  df-func 17901  df-thinc 50030  df-termc 50085

This theorem is referenced by:  diag1f1olem  50145