Theorem imaidfu 49964

Description: The image of the identity functor. (Contributed by Zhi Wang, 10-Nov-2025.)

Hypotheses

Ref	Expression
imaidfu.i	⊢ 𝐼 = (idfunc‘𝐶)
imaidfu.d	⊢ (𝜑 → 𝐼 ∈ (𝐷 Func 𝐸))
imaidfu.h	⊢ 𝐻 = (Hom ‘𝐷)
imaidfu.j	⊢ 𝐽 = (Homf ‘𝐷)
imaidfu.k	⊢ 𝐾 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ ∪ 𝑝 ∈ ((◡(1st ‘𝐼) “ {𝑥}) × (◡(1st ‘𝐼) “ {𝑦}))(((2nd ‘𝐼)‘𝑝) “ (𝐻‘𝑝)))
imaidfu.s	⊢ 𝑆 = ((1st ‘𝐼) “ 𝐴)

Assertion

Ref	Expression
imaidfu	⊢ (𝜑 → (𝐽 ↾ (𝑆 × 𝑆)) = 𝐾)

Distinct variable groups:   𝐻,𝑝,𝑥,𝑦   𝐼,𝑝,𝑥,𝑦   𝑥,𝑆,𝑦   𝜑,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑝)   𝐴(𝑥, 𝑦, 𝑝)   𝐶(𝑥, 𝑦, 𝑝)   𝐷(𝑥, 𝑦, 𝑝)   𝑆(𝑝)   𝐸(𝑥, 𝑦, 𝑝)   𝐽(𝑥, 𝑦, 𝑝)   𝐾(𝑥, 𝑦, 𝑝)

Proof of Theorem imaidfu

Dummy variables 𝑞 𝑤 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		imaidfu.i	. . . . . . . . . . . . 13 ⊢ 𝐼 = (idfunc‘𝐶)
2		imaidfu.d	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐼 ∈ (𝐷 Func 𝐸))
3		eqidd 2766	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐷) = (Base‘𝐷))
4	1, 2, 3	idfu1sta 49955	. . . . . . . . . . . 12 ⊢ (𝜑 → (1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
5	4	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
6	5	cnveqd 5863	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ◡(1st ‘𝐼) = ◡( I ↾ (Base‘𝐷)))
7		cnvresid 6619	. . . . . . . . . 10 ⊢ ◡( I ↾ (Base‘𝐷)) = ( I ↾ (Base‘𝐷))
8	6, 7	eqtrdi 2816	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ◡(1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
9	8	fveq1d 6887	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑧) = (( I ↾ (Base‘𝐷))‘𝑧))
10		imaidfu.s	. . . . . . . . . . . . 13 ⊢ 𝑆 = ((1st ‘𝐼) “ 𝐴)
11		imassrn 6075	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝐼) “ 𝐴) ⊆ ran (1st ‘𝐼)
12	10, 11	eqsstri 3984	. . . . . . . . . . . 12 ⊢ 𝑆 ⊆ ran (1st ‘𝐼)
13	4	rneqd 5930	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (1st ‘𝐼) = ran ( I ↾ (Base‘𝐷)))
14		rnresi 6079	. . . . . . . . . . . . 13 ⊢ ran ( I ↾ (Base‘𝐷)) = (Base‘𝐷)
15	13, 14	eqtrdi 2816	. . . . . . . . . . . 12 ⊢ (𝜑 → ran (1st ‘𝐼) = (Base‘𝐷))
16	12, 15	sseqtrid 3980	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ⊆ (Base‘𝐷))
17	16	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑆 ⊆ (Base‘𝐷))
18		simprl 783	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑧 ∈ 𝑆)
19	17, 18	sseldd 3939	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑧 ∈ (Base‘𝐷))
20		fvresi 7177	. . . . . . . . 9 ⊢ (𝑧 ∈ (Base‘𝐷) → (( I ↾ (Base‘𝐷))‘𝑧) = 𝑧)
21	19, 20	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (( I ↾ (Base‘𝐷))‘𝑧) = 𝑧)
22	9, 21	eqtrd 2800	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑧) = 𝑧)
23	8	fveq1d 6887	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑤) = (( I ↾ (Base‘𝐷))‘𝑤))
24		simprr 785	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑤 ∈ 𝑆)
25	17, 24	sseldd 3939	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑤 ∈ (Base‘𝐷))
26		fvresi 7177	. . . . . . . . 9 ⊢ (𝑤 ∈ (Base‘𝐷) → (( I ↾ (Base‘𝐷))‘𝑤) = 𝑤)
27	25, 26	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (( I ↾ (Base‘𝐷))‘𝑤) = 𝑤)
28	23, 27	eqtrd 2800	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑤) = 𝑤)
29	22, 28	oveq12d 7437	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) = (𝑧(2nd ‘𝐼)𝑤))
30	22, 28	oveq12d 7437	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤)) = (𝑧𝐻𝑤))
31	29, 30	imaeq12d 6065	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) “ ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤))) = ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)))
32		f1oi 6863	. . . . . . . 8 ⊢ ( I ↾ (Base‘𝐷)):(Base‘𝐷)–1-1-onto→(Base‘𝐷)
33	5	f1oeq1d 6819	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((1st ‘𝐼):(Base‘𝐷)–1-1-onto→(Base‘𝐷) ↔ ( I ↾ (Base‘𝐷)):(Base‘𝐷)–1-1-onto→(Base‘𝐷)))
34	32, 33	mpbiri 261	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼):(Base‘𝐷)–1-1-onto→(Base‘𝐷))
35		f1of1 6823	. . . . . . 7 ⊢ ((1st ‘𝐼):(Base‘𝐷)–1-1-onto→(Base‘𝐷) → (1st ‘𝐼):(Base‘𝐷)–1-1→(Base‘𝐷))
36	34, 35	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼):(Base‘𝐷)–1-1→(Base‘𝐷))
37		fvexd 6900	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼) ∈ V)
38		imaidfu.k	. . . . . 6 ⊢ 𝐾 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ ∪ 𝑝 ∈ ((◡(1st ‘𝐼) “ {𝑥}) × (◡(1st ‘𝐼) “ {𝑦}))(((2nd ‘𝐼)‘𝑝) “ (𝐻‘𝑝)))
39	10, 36, 18, 24, 37, 38	imaf1hom 49962	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐾𝑤) = (((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) “ ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤))))
40		imaidfu.j	. . . . . . 7 ⊢ 𝐽 = (Homf ‘𝐷)
41		eqid 2765	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
42		imaidfu.h	. . . . . . 7 ⊢ 𝐻 = (Hom ‘𝐷)
43	40, 41, 42, 19, 25	homfval 17774	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = (𝑧𝐻𝑤))
44	2	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝐼 ∈ (𝐷 Func 𝐸))
45		eqidd 2766	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (Base‘𝐷) = (Base‘𝐷))
46	42	oveqi 7432	. . . . . . . . . 10 ⊢ (𝑧𝐻𝑤) = (𝑧(Hom ‘𝐷)𝑤)
47	46	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐻𝑤) = (𝑧(Hom ‘𝐷)𝑤))
48	1, 44, 45, 19, 25, 47	idfu2nda 49957	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧(2nd ‘𝐼)𝑤) = ( I ↾ (𝑧𝐻𝑤)))
49	48	imaeq1d 6063	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)) = (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)))
50		ssid 3960	. . . . . . . 8 ⊢ (𝑧𝐻𝑤) ⊆ (𝑧𝐻𝑤)
51		resiima 6080	. . . . . . . 8 ⊢ ((𝑧𝐻𝑤) ⊆ (𝑧𝐻𝑤) → (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤))
52	50, 51	ax-mp 5	. . . . . . 7 ⊢ (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤)
53	49, 52	eqtrdi 2816	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤))
54	43, 53	eqtr4d 2803	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)))
55	31, 39, 54	3eqtr4rd 2811	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
56	55	ralrimivva 3210	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝑆 ∀𝑤 ∈ 𝑆 (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
57		fveq2 6885	. . . . . 6 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐽‘𝑞) = (𝐽‘⟨𝑧, 𝑤⟩))
58		df-ov 7422	. . . . . 6 ⊢ (𝑧𝐽𝑤) = (𝐽‘⟨𝑧, 𝑤⟩)
59	57, 58	eqtr4di 2818	. . . . 5 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐽‘𝑞) = (𝑧𝐽𝑤))
60		fveq2 6885	. . . . . 6 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐾‘𝑞) = (𝐾‘⟨𝑧, 𝑤⟩))
61		df-ov 7422	. . . . . 6 ⊢ (𝑧𝐾𝑤) = (𝐾‘⟨𝑧, 𝑤⟩)
62	60, 61	eqtr4di 2818	. . . . 5 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐾‘𝑞) = (𝑧𝐾𝑤))
63	59, 62	eqeq12d 2781	. . . 4 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → ((𝐽‘𝑞) = (𝐾‘𝑞) ↔ (𝑧𝐽𝑤) = (𝑧𝐾𝑤)))
64	63	ralxp 5829	. . 3 ⊢ (∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞) ↔ ∀𝑧 ∈ 𝑆 ∀𝑤 ∈ 𝑆 (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
65	56, 64	sylibr 237	. 2 ⊢ (𝜑 → ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞))
66	40, 41	homffn 17775	. . . 4 ⊢ 𝐽 Fn ((Base‘𝐷) × (Base‘𝐷))
67	66	a1i 11	. . 3 ⊢ (𝜑 → 𝐽 Fn ((Base‘𝐷) × (Base‘𝐷)))
68		fvexd 6900	. . . 4 ⊢ (𝜑 → (1st ‘𝐼) ∈ V)
69	68, 68, 38	imasubclem2 49959	. . 3 ⊢ (𝜑 → 𝐾 Fn (𝑆 × 𝑆))
70		xpss12 5678	. . . 4 ⊢ ((𝑆 ⊆ (Base‘𝐷) ∧ 𝑆 ⊆ (Base‘𝐷)) → (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷)))
71	16, 16, 70	syl2anc 596	. . 3 ⊢ (𝜑 → (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷)))
72		fvreseq1 7038	. . 3 ⊢ (((𝐽 Fn ((Base‘𝐷) × (Base‘𝐷)) ∧ 𝐾 Fn (𝑆 × 𝑆)) ∧ (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷))) → ((𝐽 ↾ (𝑆 × 𝑆)) = 𝐾 ↔ ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞)))
73	67, 69, 71, 72	syl21anc 851	. 2 ⊢ (𝜑 → ((𝐽 ↾ (𝑆 × 𝑆)) = 𝐾 ↔ ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞)))
74	65, 73	mpbird 260	1 ⊢ (𝜑 → (𝐽 ↾ (𝑆 × 𝑆)) = 𝐾)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3081  Vcvv 3457   ⊆ wss 3906  {csn 4591  ⟨cop 4597  ∪ ciun 4958   I cid 5557   × cxp 5661  ^◡ccnv 5662  ran crn 5664   ↾ cres 5665   “ cima 5666   Fn wfn 6535  –1-1→wf1 6537  –1-1-onto→wf1o 6539  ‘cfv 6540  (class class class)co 7419   ∈ cmpo 7421  1^st c1st 7990  2^nd c2nd 7991  Basecbs 17295  Hom chom 17347  Hom_f chomf 17748   Func cfunc 17937  id_funccidfu 17938

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 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742

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 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-id 5558  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-1st 7992  df-2nd 7993  df-map 8832  df-ixp 8902  df-cat 17750  df-cid 17751  df-homf 17752  df-func 17941  df-idfu 17942

This theorem is used by:  imaidfu2  49965