Theorem imaidfu 49422

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 2738	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐷) = (Base‘𝐷))
4	1, 2, 3	idfu1sta 49413	. . . . . . . . . . . 12 ⊢ (𝜑 → (1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
5	4	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
6	5	cnveqd 5825	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ◡(1st ‘𝐼) = ◡( I ↾ (Base‘𝐷)))
7		cnvresid 6572	. . . . . . . . . 10 ⊢ ◡( I ↾ (Base‘𝐷)) = ( I ↾ (Base‘𝐷))
8	6, 7	eqtrdi 2788	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ◡(1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
9	8	fveq1d 6837	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑧) = (( I ↾ (Base‘𝐷))‘𝑧))
10		imaidfu.s	. . . . . . . . . . . . 13 ⊢ 𝑆 = ((1st ‘𝐼) “ 𝐴)
11		imassrn 6031	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝐼) “ 𝐴) ⊆ ran (1st ‘𝐼)
12	10, 11	eqsstri 3981	. . . . . . . . . . . 12 ⊢ 𝑆 ⊆ ran (1st ‘𝐼)
13	4	rneqd 5888	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (1st ‘𝐼) = ran ( I ↾ (Base‘𝐷)))
14		rnresi 6035	. . . . . . . . . . . . 13 ⊢ ran ( I ↾ (Base‘𝐷)) = (Base‘𝐷)
15	13, 14	eqtrdi 2788	. . . . . . . . . . . 12 ⊢ (𝜑 → ran (1st ‘𝐼) = (Base‘𝐷))
16	12, 15	sseqtrid 3977	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ⊆ (Base‘𝐷))
17	16	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑆 ⊆ (Base‘𝐷))
18		simprl 771	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑧 ∈ 𝑆)
19	17, 18	sseldd 3935	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑧 ∈ (Base‘𝐷))
20		fvresi 7121	. . . . . . . . 9 ⊢ (𝑧 ∈ (Base‘𝐷) → (( I ↾ (Base‘𝐷))‘𝑧) = 𝑧)
21	19, 20	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (( I ↾ (Base‘𝐷))‘𝑧) = 𝑧)
22	9, 21	eqtrd 2772	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑧) = 𝑧)
23	8	fveq1d 6837	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑤) = (( I ↾ (Base‘𝐷))‘𝑤))
24		simprr 773	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑤 ∈ 𝑆)
25	17, 24	sseldd 3935	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑤 ∈ (Base‘𝐷))
26		fvresi 7121	. . . . . . . . 9 ⊢ (𝑤 ∈ (Base‘𝐷) → (( I ↾ (Base‘𝐷))‘𝑤) = 𝑤)
27	25, 26	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (( I ↾ (Base‘𝐷))‘𝑤) = 𝑤)
28	23, 27	eqtrd 2772	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑤) = 𝑤)
29	22, 28	oveq12d 7378	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) = (𝑧(2nd ‘𝐼)𝑤))
30	22, 28	oveq12d 7378	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤)) = (𝑧𝐻𝑤))
31	29, 30	imaeq12d 6021	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) “ ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤))) = ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)))
32		f1oi 6813	. . . . . . . 8 ⊢ ( I ↾ (Base‘𝐷)):(Base‘𝐷)–1-1-onto→(Base‘𝐷)
33	5	f1oeq1d 6770	. . . . . . . 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 6774	. . . . . . 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 6850	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼) ∈ V)
38		imaidfu.k	. . . . . 6 ⊢ 𝐾 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ ∪ 𝑝 ∈ ((◡(1st ‘𝐼) “ {𝑥}) × (◡(1st ‘𝐼) “ {𝑦}))(((2nd ‘𝐼)‘𝑝) “ (𝐻‘𝑝)))
39	10, 36, 18, 24, 37, 38	imaf1hom 49420	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐾𝑤) = (((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) “ ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤))))
40		imaidfu.j	. . . . . . 7 ⊢ 𝐽 = (Homf ‘𝐷)
41		eqid 2737	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
42		imaidfu.h	. . . . . . 7 ⊢ 𝐻 = (Hom ‘𝐷)
43	40, 41, 42, 19, 25	homfval 17619	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = (𝑧𝐻𝑤))
44	2	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝐼 ∈ (𝐷 Func 𝐸))
45		eqidd 2738	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (Base‘𝐷) = (Base‘𝐷))
46	42	oveqi 7373	. . . . . . . . . 10 ⊢ (𝑧𝐻𝑤) = (𝑧(Hom ‘𝐷)𝑤)
47	46	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐻𝑤) = (𝑧(Hom ‘𝐷)𝑤))
48	1, 44, 45, 19, 25, 47	idfu2nda 49415	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧(2nd ‘𝐼)𝑤) = ( I ↾ (𝑧𝐻𝑤)))
49	48	imaeq1d 6019	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)) = (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)))
50		ssid 3957	. . . . . . . 8 ⊢ (𝑧𝐻𝑤) ⊆ (𝑧𝐻𝑤)
51		resiima 6036	. . . . . . . 8 ⊢ ((𝑧𝐻𝑤) ⊆ (𝑧𝐻𝑤) → (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤))
52	50, 51	ax-mp 5	. . . . . . 7 ⊢ (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤)
53	49, 52	eqtrdi 2788	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤))
54	43, 53	eqtr4d 2775	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)))
55	31, 39, 54	3eqtr4rd 2783	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
56	55	ralrimivva 3180	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝑆 ∀𝑤 ∈ 𝑆 (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
57		fveq2 6835	. . . . . 6 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐽‘𝑞) = (𝐽‘⟨𝑧, 𝑤⟩))
58		df-ov 7363	. . . . . 6 ⊢ (𝑧𝐽𝑤) = (𝐽‘⟨𝑧, 𝑤⟩)
59	57, 58	eqtr4di 2790	. . . . 5 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐽‘𝑞) = (𝑧𝐽𝑤))
60		fveq2 6835	. . . . . 6 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐾‘𝑞) = (𝐾‘⟨𝑧, 𝑤⟩))
61		df-ov 7363	. . . . . 6 ⊢ (𝑧𝐾𝑤) = (𝐾‘⟨𝑧, 𝑤⟩)
62	60, 61	eqtr4di 2790	. . . . 5 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐾‘𝑞) = (𝑧𝐾𝑤))
63	59, 62	eqeq12d 2753	. . . 4 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → ((𝐽‘𝑞) = (𝐾‘𝑞) ↔ (𝑧𝐽𝑤) = (𝑧𝐾𝑤)))
64	63	ralxp 5791	. . 3 ⊢ (∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞) ↔ ∀𝑧 ∈ 𝑆 ∀𝑤 ∈ 𝑆 (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
65	56, 64	sylibr 234	. 2 ⊢ (𝜑 → ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞))
66	40, 41	homffn 17620	. . . 4 ⊢ 𝐽 Fn ((Base‘𝐷) × (Base‘𝐷))
67	66	a1i 11	. . 3 ⊢ (𝜑 → 𝐽 Fn ((Base‘𝐷) × (Base‘𝐷)))
68		fvexd 6850	. . . 4 ⊢ (𝜑 → (1st ‘𝐼) ∈ V)
69	68, 68, 38	imasubclem2 49417	. . 3 ⊢ (𝜑 → 𝐾 Fn (𝑆 × 𝑆))
70		xpss12 5640	. . . 4 ⊢ ((𝑆 ⊆ (Base‘𝐷) ∧ 𝑆 ⊆ (Base‘𝐷)) → (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷)))
71	16, 16, 70	syl2anc 585	. . 3 ⊢ (𝜑 → (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷)))
72		fvreseq1 6986	. . 3 ⊢ (((𝐽 Fn ((Base‘𝐷) × (Base‘𝐷)) ∧ 𝐾 Fn (𝑆 × 𝑆)) ∧ (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷))) → ((𝐽 ↾ (𝑆 × 𝑆)) = 𝐾 ↔ ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞)))
73	67, 69, 71, 72	syl21anc 838	. 2 ⊢ (𝜑 → ((𝐽 ↾ (𝑆 × 𝑆)) = 𝐾 ↔ ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞)))
74	65, 73	mpbird 257	1 ⊢ (𝜑 → (𝐽 ↾ (𝑆 × 𝑆)) = 𝐾)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ∀wral 3052  Vcvv 3441   ⊆ wss 3902  {csn 4581  ⟨cop 4587  ∪ ciun 4947   I cid 5519   × cxp 5623  ^◡ccnv 5624  ran crn 5626   ↾ cres 5627   “ cima 5628   Fn wfn 6488  –1-1→wf1 6490  –1-1-onto→wf1o 6492  ‘cfv 6493  (class class class)co 7360   ∈ cmpo 7362  1^st c1st 7933  2^nd c2nd 7934  Basecbs 17140  Hom chom 17192  Hom_f chomf 17593   Func cfunc 17782  id_funccidfu 17783

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-homf 17597  df-func 17786  df-idfu 17787

This theorem is referenced by:  imaidfu2  49423