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 17918

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 17813	. . . . . . . 8 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
3	1, 2	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
4	3	simprd 497	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ Cat)
5		eqid 2733	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
6		fucidcl.x	. . . . . . 7 ⊢ 1 = (Id‘𝐷)
7	5, 6	cidfn 17623	. . . . . 6 ⊢ (𝐷 ∈ Cat → 1 Fn (Base‘𝐷))
8	4, 7	syl 17	. . . . 5 ⊢ (𝜑 → 1 Fn (Base‘𝐷))
9		dffn2 6720	. . . . 5 ⊢ ( 1 Fn (Base‘𝐷) ↔ 1 :(Base‘𝐷)⟶V)
10	8, 9	sylib 217	. . . 4 ⊢ (𝜑 → 1 :(Base‘𝐷)⟶V)
11		eqid 2733	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝐶)
12		relfunc 17812	. . . . . 6 ⊢ Rel (𝐶 Func 𝐷)
13		1st2ndbr 8028	. . . . . 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 17816	. . . 4 ⊢ (𝜑 → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
16		fcompt 7131	. . . 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 2733	. . . . . 6 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
19	4	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
20	15	ffvelcdmda 7087	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
21	5, 18, 6, 19, 20	catidcl 17626	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
22	21	ralrimiva 3147	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
23		fvex 6905	. . . . 5 ⊢ (Base‘𝐶) ∈ V
24		mptelixpg 8929	. . . . 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 233	. . 3 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
27	17, 26	eqeltrd 2834	. 2 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
28	4	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝐷 ∈ Cat)
29		simpr1 1195	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑥 ∈ (Base‘𝐶))
30	29, 20	syldan 592	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
31		eqid 2733	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
32	15	adantr 482	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33		simpr2 1196	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑦 ∈ (Base‘𝐶))
34	32, 33	ffvelcdmd 7088	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1^st ‘𝐹)‘𝑦) ∈ (Base‘𝐷))
35		eqid 2733	. . . . . . . 8 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
36	14	adantr 482	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
37	11, 35, 18, 36, 29, 33	funcf2 17818	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑥(2^nd ‘𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
38		simpr3 1197	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
39	37, 38	ffvelcdmd 7088	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
40	5, 18, 6, 28, 30, 31, 34, 39	catlid 17627	. . . . 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 17628	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))( 1 ‘((1^st ‘𝐹)‘𝑥))) = ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓))
42	40, 41	eqtr4d 2776	. . . 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 6991	. . . . . 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 7424	. . . 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 6991	. . . . . 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 7425	. . . 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 2783	. . 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 3204	. 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 17899	. 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 712	1 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ (𝐹𝑁𝐹))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 397 ∧ w3a 1088 = wceq 1542 ∈ wcel 2107 ∀wral 3062 Vcvv 3475 ⟨cop 4635 class class class wbr 5149 ↦ cmpt 5232 ∘ ccom 5681 Rel wrel 5682 Fn wfn 6539 ⟶wf 6540 ‘cfv 6544 (class class class)co 7409 1^st c1st 7973 2^nd c2nd 7974 Xcixp 8891 Basecbs 17144 Hom chom 17208 compcco 17209 Catccat 17608 Idccid 17609 Func cfunc 17804 Nat cnat 17892 FuncCat cfuc 17893

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5286 ax-sep 5300 ax-nul 5307 ax-pow 5364 ax-pr 5428 ax-un 7725

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-op 4636 df-uni 4910 df-iun 5000 df-br 5150 df-opab 5212 df-mpt 5233 df-id 5575 df-xp 5683 df-rel 5684 df-cnv 5685 df-co 5686 df-dm 5687 df-rn 5688 df-res 5689 df-ima 5690 df-iota 6496 df-fun 6546 df-fn 6547 df-f 6548 df-f1 6549 df-fo 6550 df-f1o 6551 df-fv 6552 df-riota 7365 df-ov 7412 df-oprab 7413 df-mpo 7414 df-1st 7975 df-2nd 7976 df-map 8822 df-ixp 8892 df-cat 17612 df-cid 17613 df-func 17808 df-nat 17894

This theorem is referenced by: fuclid 17919 fucrid 17920 fuccatid 17922

W3C validator