fucidcl - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > fucidcl		Structured version Visualization version GIF version

Theorem fucidcl 17926

Description: The identity natural transformation. (Contributed by Mario Carneiro, 6-Jan-2017.)

**Hypotheses**
Ref	Expression
fucidcl.q	⊢ 𝑄 = (𝐶 FuncCat 𝐷)
fucidcl.n	⊢ 𝑁 = (𝐶 Nat 𝐷)
fucidcl.x	⊢ 1 = (Id‘𝐷)
fucidcl.f	⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))

**Assertion**
Ref	Expression
fucidcl	⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ (𝐹𝑁𝐹))

Proof of Theorem fucidcl Dummy variables 𝑥 𝑓 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fucidcl.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
2		funcrcl 17821	. . . . . . . 8 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
3	1, 2	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
4	3	simprd 495	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ Cat)
5		eqid 2737	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
6		fucidcl.x	. . . . . . 7 ⊢ 1 = (Id‘𝐷)
7	5, 6	cidfn 17636	. . . . . 6 ⊢ (𝐷 ∈ Cat → 1 Fn (Base‘𝐷))
8	4, 7	syl 17	. . . . 5 ⊢ (𝜑 → 1 Fn (Base‘𝐷))
9		dffn2 6664	. . . . 5 ⊢ ( 1 Fn (Base‘𝐷) ↔ 1 :(Base‘𝐷)⟶V)
10	8, 9	sylib 218	. . . 4 ⊢ (𝜑 → 1 :(Base‘𝐷)⟶V)
11		eqid 2737	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝐶)
12		relfunc 17820	. . . . . 6 ⊢ Rel (𝐶 Func 𝐷)
13		1st2ndbr 7988	. . . . . 6 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
14	12, 1, 13	sylancr 588	. . . . 5 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
15	11, 5, 14	funcf1 17824	. . . 4 ⊢ (𝜑 → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
16		fcompt 7080	. . . 4 ⊢ (( 1 :(Base‘𝐷)⟶V ∧ (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷)) → ( 1 ∘ (1^st ‘𝐹)) = (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))))
17	10, 15, 16	syl2anc 585	. . 3 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) = (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))))
18		eqid 2737	. . . . . 6 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
19	4	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
20	15	ffvelcdmda 7030	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
21	5, 18, 6, 19, 20	catidcl 17639	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
22	21	ralrimiva 3130	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
23		fvex 6847	. . . . 5 ⊢ (Base‘𝐶) ∈ V
24		mptelixpg 8876	. . . . 5 ⊢ ((Base‘𝐶) ∈ V → ((𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) ↔ ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥))))
25	23, 24	ax-mp 5	. . . 4 ⊢ ((𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) ↔ ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
26	22, 25	sylibr 234	. . 3 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
27	17, 26	eqeltrd 2837	. 2 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
28	4	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝐷 ∈ Cat)
29		simpr1 1196	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑥 ∈ (Base‘𝐶))
30	29, 20	syldan 592	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
31		eqid 2737	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
32	15	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33		simpr2 1197	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑦 ∈ (Base‘𝐶))
34	32, 33	ffvelcdmd 7031	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1^st ‘𝐹)‘𝑦) ∈ (Base‘𝐷))
35		eqid 2737	. . . . . . . 8 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
36	14	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
37	11, 35, 18, 36, 29, 33	funcf2 17826	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑥(2^nd ‘𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
38		simpr3 1198	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
39	37, 38	ffvelcdmd 7031	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
40	5, 18, 6, 28, 30, 31, 34, 39	catlid 17640	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ‘((1^st ‘𝐹)‘𝑦))(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)) = ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓))
41	5, 18, 6, 28, 30, 31, 34, 39	catrid 17641	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))( 1 ‘((1^st ‘𝐹)‘𝑥))) = ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓))
42	40, 41	eqtr4d 2775	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ‘((1^st ‘𝐹)‘𝑦))(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)) = (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))( 1 ‘((1^st ‘𝐹)‘𝑥))))
43		fvco3 6933	. . . . . 6 ⊢ (((1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑦 ∈ (Base‘𝐶)) → (( 1 ∘ (1^st ‘𝐹))‘𝑦) = ( 1 ‘((1^st ‘𝐹)‘𝑦)))
44	32, 33, 43	syl2anc 585	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ∘ (1^st ‘𝐹))‘𝑦) = ( 1 ‘((1^st ‘𝐹)‘𝑦)))
45	44	oveq1d 7375	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((( 1 ∘ (1^st ‘𝐹))‘𝑦)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)) = (( 1 ‘((1^st ‘𝐹)‘𝑦))(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)))
46		fvco3 6933	. . . . . 6 ⊢ (((1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑥 ∈ (Base‘𝐶)) → (( 1 ∘ (1^st ‘𝐹))‘𝑥) = ( 1 ‘((1^st ‘𝐹)‘𝑥)))
47	32, 29, 46	syl2anc 585	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ∘ (1^st ‘𝐹))‘𝑥) = ( 1 ‘((1^st ‘𝐹)‘𝑥)))
48	47	oveq2d 7376	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))(( 1 ∘ (1^st ‘𝐹))‘𝑥)) = (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))( 1 ‘((1^st ‘𝐹)‘𝑥))))
49	42, 45, 48	3eqtr4d 2782	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((( 1 ∘ (1^st ‘𝐹))‘𝑦)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)) = (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))(( 1 ∘ (1^st ‘𝐹))‘𝑥)))
50	49	ralrimivvva 3184	. 2 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)((( 1 ∘ (1^st ‘𝐹))‘𝑦)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)) = (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))(( 1 ∘ (1^st ‘𝐹))‘𝑥)))
51		fucidcl.n	. . 3 ⊢ 𝑁 = (𝐶 Nat 𝐷)
52	51, 11, 35, 18, 31, 1, 1	isnat2 17909	. 2 ⊢ (𝜑 → (( 1 ∘ (1^st ‘𝐹)) ∈ (𝐹𝑁𝐹) ↔ (( 1 ∘ (1^st ‘𝐹)) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)) ∧ ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)((( 1 ∘ (1^st ‘𝐹))‘𝑦)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)) = (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))(( 1 ∘ (1^st ‘𝐹))‘𝑥)))))
53	27, 50, 52	mpbir2and 714	1 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ (𝐹𝑁𝐹))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ∀wral 3052 Vcvv 3430 ⟨cop 4574 class class class wbr 5086 ↦ cmpt 5167 ∘ ccom 5628 Rel wrel 5629 Fn wfn 6487 ⟶wf 6488 ‘cfv 6492 (class class class)co 7360 1^st c1st 7933 2^nd c2nd 7934 Xcixp 8838 Basecbs 17170 Hom chom 17222 compcco 17223 Catccat 17621 Idccid 17622 Func cfunc 17812 Nat cnat 17902 FuncCat cfuc 17903

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 5212 ax-sep 5231 ax-nul 5241 ax-pow 5302 ax-pr 5370 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 3063 df-rmo 3343 df-reu 3344 df-rab 3391 df-v 3432 df-sbc 3730 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-nul 4275 df-if 4468 df-pw 4544 df-sn 4569 df-pr 4571 df-op 4575 df-uni 4852 df-iun 4936 df-br 5087 df-opab 5149 df-mpt 5168 df-id 5519 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-rn 5635 df-res 5636 df-ima 5637 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-riota 7317 df-ov 7363 df-oprab 7364 df-mpo 7365 df-1st 7935 df-2nd 7936 df-map 8768 df-ixp 8839 df-cat 17625 df-cid 17626 df-func 17816 df-nat 17904

This theorem is referenced by: fuclid 17927 fucrid 17928 fuccatid 17930 fucolid 49848 fucorid 49849 precofvalALT 49855 fucoppcid 49895

W3C validator