Theorem imaidfu 49103

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 2731	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐷) = (Base‘𝐷))
4	1, 2, 3	idfu1sta 49094	. . . . . . . . . . . 12 ⊢ (𝜑 → (1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
5	4	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
6	5	cnveqd 5842	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ◡(1st ‘𝐼) = ◡( I ↾ (Base‘𝐷)))
7		cnvresid 6598	. . . . . . . . . 10 ⊢ ◡( I ↾ (Base‘𝐷)) = ( I ↾ (Base‘𝐷))
8	6, 7	eqtrdi 2781	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ◡(1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
9	8	fveq1d 6863	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑧) = (( I ↾ (Base‘𝐷))‘𝑧))
10		imaidfu.s	. . . . . . . . . . . . 13 ⊢ 𝑆 = ((1st ‘𝐼) “ 𝐴)
11		imassrn 6045	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝐼) “ 𝐴) ⊆ ran (1st ‘𝐼)
12	10, 11	eqsstri 3996	. . . . . . . . . . . 12 ⊢ 𝑆 ⊆ ran (1st ‘𝐼)
13	4	rneqd 5905	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (1st ‘𝐼) = ran ( I ↾ (Base‘𝐷)))
14		rnresi 6049	. . . . . . . . . . . . 13 ⊢ ran ( I ↾ (Base‘𝐷)) = (Base‘𝐷)
15	13, 14	eqtrdi 2781	. . . . . . . . . . . 12 ⊢ (𝜑 → ran (1st ‘𝐼) = (Base‘𝐷))
16	12, 15	sseqtrid 3992	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ⊆ (Base‘𝐷))
17	16	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑆 ⊆ (Base‘𝐷))
18		simprl 770	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑧 ∈ 𝑆)
19	17, 18	sseldd 3950	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑧 ∈ (Base‘𝐷))
20		fvresi 7150	. . . . . . . . 9 ⊢ (𝑧 ∈ (Base‘𝐷) → (( I ↾ (Base‘𝐷))‘𝑧) = 𝑧)
21	19, 20	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (( I ↾ (Base‘𝐷))‘𝑧) = 𝑧)
22	9, 21	eqtrd 2765	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑧) = 𝑧)
23	8	fveq1d 6863	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑤) = (( I ↾ (Base‘𝐷))‘𝑤))
24		simprr 772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑤 ∈ 𝑆)
25	17, 24	sseldd 3950	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑤 ∈ (Base‘𝐷))
26		fvresi 7150	. . . . . . . . 9 ⊢ (𝑤 ∈ (Base‘𝐷) → (( I ↾ (Base‘𝐷))‘𝑤) = 𝑤)
27	25, 26	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (( I ↾ (Base‘𝐷))‘𝑤) = 𝑤)
28	23, 27	eqtrd 2765	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑤) = 𝑤)
29	22, 28	oveq12d 7408	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) = (𝑧(2nd ‘𝐼)𝑤))
30	22, 28	oveq12d 7408	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤)) = (𝑧𝐻𝑤))
31	29, 30	imaeq12d 6035	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) “ ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤))) = ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)))
32		f1oi 6841	. . . . . . . 8 ⊢ ( I ↾ (Base‘𝐷)):(Base‘𝐷)–1-1-onto→(Base‘𝐷)
33	5	f1oeq1d 6798	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((1st ‘𝐼):(Base‘𝐷)–1-1-onto→(Base‘𝐷) ↔ ( I ↾ (Base‘𝐷)):(Base‘𝐷)–1-1-onto→(Base‘𝐷)))
34	32, 33	mpbiri 258	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼):(Base‘𝐷)–1-1-onto→(Base‘𝐷))
35		f1of1 6802	. . . . . . 7 ⊢ ((1st ‘𝐼):(Base‘𝐷)–1-1-onto→(Base‘𝐷) → (1st ‘𝐼):(Base‘𝐷)–1-1→(Base‘𝐷))
36	34, 35	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼):(Base‘𝐷)–1-1→(Base‘𝐷))
37		fvexd 6876	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼) ∈ V)
38		imaidfu.k	. . . . . 6 ⊢ 𝐾 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ ∪ 𝑝 ∈ ((◡(1st ‘𝐼) “ {𝑥}) × (◡(1st ‘𝐼) “ {𝑦}))(((2nd ‘𝐼)‘𝑝) “ (𝐻‘𝑝)))
39	10, 36, 18, 24, 37, 38	imaf1hom 49101	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐾𝑤) = (((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) “ ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤))))
40		imaidfu.j	. . . . . . 7 ⊢ 𝐽 = (Homf ‘𝐷)
41		eqid 2730	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
42		imaidfu.h	. . . . . . 7 ⊢ 𝐻 = (Hom ‘𝐷)
43	40, 41, 42, 19, 25	homfval 17660	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = (𝑧𝐻𝑤))
44	2	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝐼 ∈ (𝐷 Func 𝐸))
45		eqidd 2731	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (Base‘𝐷) = (Base‘𝐷))
46	42	oveqi 7403	. . . . . . . . . 10 ⊢ (𝑧𝐻𝑤) = (𝑧(Hom ‘𝐷)𝑤)
47	46	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐻𝑤) = (𝑧(Hom ‘𝐷)𝑤))
48	1, 44, 45, 19, 25, 47	idfu2nda 49096	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧(2nd ‘𝐼)𝑤) = ( I ↾ (𝑧𝐻𝑤)))
49	48	imaeq1d 6033	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)) = (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)))
50		ssid 3972	. . . . . . . 8 ⊢ (𝑧𝐻𝑤) ⊆ (𝑧𝐻𝑤)
51		resiima 6050	. . . . . . . 8 ⊢ ((𝑧𝐻𝑤) ⊆ (𝑧𝐻𝑤) → (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤))
52	50, 51	ax-mp 5	. . . . . . 7 ⊢ (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤)
53	49, 52	eqtrdi 2781	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤))
54	43, 53	eqtr4d 2768	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)))
55	31, 39, 54	3eqtr4rd 2776	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
56	55	ralrimivva 3181	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝑆 ∀𝑤 ∈ 𝑆 (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
57		fveq2 6861	. . . . . 6 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐽‘𝑞) = (𝐽‘⟨𝑧, 𝑤⟩))
58		df-ov 7393	. . . . . 6 ⊢ (𝑧𝐽𝑤) = (𝐽‘⟨𝑧, 𝑤⟩)
59	57, 58	eqtr4di 2783	. . . . 5 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐽‘𝑞) = (𝑧𝐽𝑤))
60		fveq2 6861	. . . . . 6 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐾‘𝑞) = (𝐾‘⟨𝑧, 𝑤⟩))
61		df-ov 7393	. . . . . 6 ⊢ (𝑧𝐾𝑤) = (𝐾‘⟨𝑧, 𝑤⟩)
62	60, 61	eqtr4di 2783	. . . . 5 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐾‘𝑞) = (𝑧𝐾𝑤))
63	59, 62	eqeq12d 2746	. . . 4 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → ((𝐽‘𝑞) = (𝐾‘𝑞) ↔ (𝑧𝐽𝑤) = (𝑧𝐾𝑤)))
64	63	ralxp 5808	. . 3 ⊢ (∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞) ↔ ∀𝑧 ∈ 𝑆 ∀𝑤 ∈ 𝑆 (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
65	56, 64	sylibr 234	. 2 ⊢ (𝜑 → ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞))
66	40, 41	homffn 17661	. . . 4 ⊢ 𝐽 Fn ((Base‘𝐷) × (Base‘𝐷))
67	66	a1i 11	. . 3 ⊢ (𝜑 → 𝐽 Fn ((Base‘𝐷) × (Base‘𝐷)))
68		fvexd 6876	. . . 4 ⊢ (𝜑 → (1st ‘𝐼) ∈ V)
69	68, 68, 38	imasubclem2 49098	. . 3 ⊢ (𝜑 → 𝐾 Fn (𝑆 × 𝑆))
70		xpss12 5656	. . . 4 ⊢ ((𝑆 ⊆ (Base‘𝐷) ∧ 𝑆 ⊆ (Base‘𝐷)) → (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷)))
71	16, 16, 70	syl2anc 584	. . 3 ⊢ (𝜑 → (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷)))
72		fvreseq1 7014	. . 3 ⊢ (((𝐽 Fn ((Base‘𝐷) × (Base‘𝐷)) ∧ 𝐾 Fn (𝑆 × 𝑆)) ∧ (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷))) → ((𝐽 ↾ (𝑆 × 𝑆)) = 𝐾 ↔ ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞)))
73	67, 69, 71, 72	syl21anc 837	. 2 ⊢ (𝜑 → ((𝐽 ↾ (𝑆 × 𝑆)) = 𝐾 ↔ ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞)))
74	65, 73	mpbird 257	1 ⊢ (𝜑 → (𝐽 ↾ (𝑆 × 𝑆)) = 𝐾)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ∀wral 3045  Vcvv 3450   ⊆ wss 3917  {csn 4592  ⟨cop 4598  ∪ ciun 4958   I cid 5535   × cxp 5639  ^◡ccnv 5640  ran crn 5642   ↾ cres 5643   “ cima 5644   Fn wfn 6509  –1-1→wf1 6511  –1-1-onto→wf1o 6513  ‘cfv 6514  (class class class)co 7390   ∈ cmpo 7392  1^st c1st 7969  2^nd c2nd 7970  Basecbs 17186  Hom chom 17238  Hom_f chomf 17634   Func cfunc 17823  id_funccidfu 17824

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-1st 7971  df-2nd 7972  df-map 8804  df-ixp 8874  df-cat 17636  df-cid 17637  df-homf 17638  df-func 17827  df-idfu 17828

This theorem is referenced by:  imaidfu2  49104