Theorem imaidfu 50050

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 2761	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐷) = (Base‘𝐷))
4	1, 2, 3	idfu1sta 50041	. . . . . . . . . . . 12 ⊢ (𝜑 → (1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
5	4	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
6	5	cnveqd 5856	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ◡(1st ‘𝐼) = ◡( I ↾ (Base‘𝐷)))
7		cnvresid 6614	. . . . . . . . . 10 ⊢ ◡( I ↾ (Base‘𝐷)) = ( I ↾ (Base‘𝐷))
8	6, 7	eqtrdi 2811	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ◡(1st ‘𝐼) = ( I ↾ (Base‘𝐷)))
9	8	fveq1d 6882	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑧) = (( I ↾ (Base‘𝐷))‘𝑧))
10		imaidfu.s	. . . . . . . . . . . . 13 ⊢ 𝑆 = ((1st ‘𝐼) “ 𝐴)
11		imassrn 6068	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝐼) “ 𝐴) ⊆ ran (1st ‘𝐼)
12	10, 11	eqsstri 3977	. . . . . . . . . . . 12 ⊢ 𝑆 ⊆ ran (1st ‘𝐼)
13	4	rneqd 5923	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran (1st ‘𝐼) = ran ( I ↾ (Base‘𝐷)))
14		rnresi 6072	. . . . . . . . . . . . 13 ⊢ ran ( I ↾ (Base‘𝐷)) = (Base‘𝐷)
15	13, 14	eqtrdi 2811	. . . . . . . . . . . 12 ⊢ (𝜑 → ran (1st ‘𝐼) = (Base‘𝐷))
16	12, 15	sseqtrid 3973	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ⊆ (Base‘𝐷))
17	16	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑆 ⊆ (Base‘𝐷))
18		simprl 783	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑧 ∈ 𝑆)
19	17, 18	sseldd 3932	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑧 ∈ (Base‘𝐷))
20		fvresi 7173	. . . . . . . . 9 ⊢ (𝑧 ∈ (Base‘𝐷) → (( I ↾ (Base‘𝐷))‘𝑧) = 𝑧)
21	19, 20	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (( I ↾ (Base‘𝐷))‘𝑧) = 𝑧)
22	9, 21	eqtrd 2795	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑧) = 𝑧)
23	8	fveq1d 6882	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑤) = (( I ↾ (Base‘𝐷))‘𝑤))
24		simprr 785	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑤 ∈ 𝑆)
25	17, 24	sseldd 3932	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝑤 ∈ (Base‘𝐷))
26		fvresi 7173	. . . . . . . . 9 ⊢ (𝑤 ∈ (Base‘𝐷) → (( I ↾ (Base‘𝐷))‘𝑤) = 𝑤)
27	25, 26	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (( I ↾ (Base‘𝐷))‘𝑤) = 𝑤)
28	23, 27	eqtrd 2795	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (◡(1st ‘𝐼)‘𝑤) = 𝑤)
29	22, 28	oveq12d 7433	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) = (𝑧(2nd ‘𝐼)𝑤))
30	22, 28	oveq12d 7433	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤)) = (𝑧𝐻𝑤))
31	29, 30	imaeq12d 6058	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) “ ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤))) = ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)))
32		f1oi 6858	. . . . . . . 8 ⊢ ( I ↾ (Base‘𝐷)):(Base‘𝐷)–1-1-onto→(Base‘𝐷)
33	5	f1oeq1d 6814	. . . . . . . 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 6818	. . . . . . 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 6895	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (1st ‘𝐼) ∈ V)
38		imaidfu.k	. . . . . 6 ⊢ 𝐾 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ ∪ 𝑝 ∈ ((◡(1st ‘𝐼) “ {𝑥}) × (◡(1st ‘𝐼) “ {𝑦}))(((2nd ‘𝐼)‘𝑝) “ (𝐻‘𝑝)))
39	10, 36, 18, 24, 37, 38	imaf1hom 50048	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐾𝑤) = (((◡(1st ‘𝐼)‘𝑧)(2nd ‘𝐼)(◡(1st ‘𝐼)‘𝑤)) “ ((◡(1st ‘𝐼)‘𝑧)𝐻(◡(1st ‘𝐼)‘𝑤))))
40		imaidfu.j	. . . . . . 7 ⊢ 𝐽 = (Homf ‘𝐷)
41		eqid 2760	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
42		imaidfu.h	. . . . . . 7 ⊢ 𝐻 = (Hom ‘𝐷)
43	40, 41, 42, 19, 25	homfval 17802	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = (𝑧𝐻𝑤))
44	2	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → 𝐼 ∈ (𝐷 Func 𝐸))
45		eqidd 2761	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (Base‘𝐷) = (Base‘𝐷))
46	42	oveqi 7428	. . . . . . . . . 10 ⊢ (𝑧𝐻𝑤) = (𝑧(Hom ‘𝐷)𝑤)
47	46	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐻𝑤) = (𝑧(Hom ‘𝐷)𝑤))
48	1, 44, 45, 19, 25, 47	idfu2nda 50043	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧(2nd ‘𝐼)𝑤) = ( I ↾ (𝑧𝐻𝑤)))
49	48	imaeq1d 6056	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)) = (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)))
50		ssid 3953	. . . . . . . 8 ⊢ (𝑧𝐻𝑤) ⊆ (𝑧𝐻𝑤)
51		resiima 6073	. . . . . . . 8 ⊢ ((𝑧𝐻𝑤) ⊆ (𝑧𝐻𝑤) → (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤))
52	50, 51	ax-mp 5	. . . . . . 7 ⊢ (( I ↾ (𝑧𝐻𝑤)) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤)
53	49, 52	eqtrdi 2811	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)) = (𝑧𝐻𝑤))
54	43, 53	eqtr4d 2798	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = ((𝑧(2nd ‘𝐼)𝑤) “ (𝑧𝐻𝑤)))
55	31, 39, 54	3eqtr4rd 2806	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑤 ∈ 𝑆)) → (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
56	55	ralrimivva 3205	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝑆 ∀𝑤 ∈ 𝑆 (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
57		fveq2 6880	. . . . . 6 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐽‘𝑞) = (𝐽‘⟨𝑧, 𝑤⟩))
58		df-ov 7418	. . . . . 6 ⊢ (𝑧𝐽𝑤) = (𝐽‘⟨𝑧, 𝑤⟩)
59	57, 58	eqtr4di 2813	. . . . 5 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐽‘𝑞) = (𝑧𝐽𝑤))
60		fveq2 6880	. . . . . 6 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐾‘𝑞) = (𝐾‘⟨𝑧, 𝑤⟩))
61		df-ov 7418	. . . . . 6 ⊢ (𝑧𝐾𝑤) = (𝐾‘⟨𝑧, 𝑤⟩)
62	60, 61	eqtr4di 2813	. . . . 5 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → (𝐾‘𝑞) = (𝑧𝐾𝑤))
63	59, 62	eqeq12d 2776	. . . 4 ⊢ (𝑞 = ⟨𝑧, 𝑤⟩ → ((𝐽‘𝑞) = (𝐾‘𝑞) ↔ (𝑧𝐽𝑤) = (𝑧𝐾𝑤)))
64	63	ralxp 5822	. . 3 ⊢ (∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞) ↔ ∀𝑧 ∈ 𝑆 ∀𝑤 ∈ 𝑆 (𝑧𝐽𝑤) = (𝑧𝐾𝑤))
65	56, 64	sylibr 237	. 2 ⊢ (𝜑 → ∀𝑞 ∈ (𝑆 × 𝑆)(𝐽‘𝑞) = (𝐾‘𝑞))
66	40, 41	homffn 17803	. . . 4 ⊢ 𝐽 Fn ((Base‘𝐷) × (Base‘𝐷))
67	66	a1i 11	. . 3 ⊢ (𝜑 → 𝐽 Fn ((Base‘𝐷) × (Base‘𝐷)))
68		fvexd 6895	. . . 4 ⊢ (𝜑 → (1st ‘𝐼) ∈ V)
69	68, 68, 38	imasubclem2 50045	. . 3 ⊢ (𝜑 → 𝐾 Fn (𝑆 × 𝑆))
70		xpss12 5670	. . . 4 ⊢ ((𝑆 ⊆ (Base‘𝐷) ∧ 𝑆 ⊆ (Base‘𝐷)) → (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷)))
71	16, 16, 70	syl2anc 596	. . 3 ⊢ (𝜑 → (𝑆 × 𝑆) ⊆ ((Base‘𝐷) × (Base‘𝐷)))
72		fvreseq1 7033	. . 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 2145  ∀wral 3076  Vcvv 3450   ⊆ wss 3899  {csn 4584  ⟨cop 4590  ∪ ciun 4951   I cid 5549   × cxp 5653  ^◡ccnv 5654  ran crn 5656   ↾ cres 5657   “ cima 5658   Fn wfn 6529  –1-1→wf1 6531  –1-1-onto→wf1o 6533  ‘cfv 6534  (class class class)co 7415   ∈ cmpo 7417  1^st c1st 7986  2^nd c2nd 7987  Basecbs 17323  Hom chom 17375  Hom_f chomf 17776   Func cfunc 17965  id_funccidfu 17966

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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7738

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 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6490  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-riota 7372  df-ov 7418  df-oprab 7419  df-mpo 7420  df-1st 7988  df-2nd 7989  df-map 8832  df-ixp 8909  df-cat 17778  df-cid 17779  df-homf 17780  df-func 17969  df-idfu 17970

This theorem is used by:  imaidfu2  50051