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 18015

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 17910	. . . . . . . 8 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
3	1, 2	syl 18	. . . . . . 7 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
4	3	simprd 500	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ Cat)
5		eqid 2765	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
6		fucidcl.x	. . . . . . 7 ⊢ 1 = (Id‘𝐷)
7	5, 6	cidfn 17725	. . . . . 6 ⊢ (𝐷 ∈ Cat → 1 Fn (Base‘𝐷))
8	4, 7	syl 18	. . . . 5 ⊢ (𝜑 → 1 Fn (Base‘𝐷))
9		dffn2 6697	. . . . 5 ⊢ ( 1 Fn (Base‘𝐷) ↔ 1 :(Base‘𝐷)⟶V)
10	8, 9	sylib 221	. . . 4 ⊢ (𝜑 → 1 :(Base‘𝐷)⟶V)
11		eqid 2765	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝐶)
12		relfunc 17909	. . . . . 6 ⊢ Rel (𝐶 Func 𝐷)
13		1st2ndbr 8027	. . . . . 6 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
14	12, 1, 13	sylancr 598	. . . . 5 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
15	11, 5, 14	funcf1 17913	. . . 4 ⊢ (𝜑 → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
16		fcompt 7119	. . . 4 ⊢ (( 1 :(Base‘𝐷)⟶V ∧ (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷)) → ( 1 ∘ (1^st ‘𝐹)) = (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))))
17	10, 15, 16	syl2anc 595	. . 3 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) = (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))))
18		eqid 2765	. . . . . 6 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
19	4	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
20	15	ffvelcdmda 7069	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
21	5, 18, 6, 19, 20	catidcl 17728	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
22	21	ralrimiva 3157	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
23		fvex 6884	. . . . 5 ⊢ (Base‘𝐶) ∈ V
24		mptelixpg 8921	. . . . 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 237	. . 3 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
27	17, 26	eqeltrd 2865	. 2 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
28	4	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝐷 ∈ Cat)
29		simpr1 1211	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑥 ∈ (Base‘𝐶))
30	29, 20	syldan 602	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
31		eqid 2765	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
32	15	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33		simpr2 1212	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑦 ∈ (Base‘𝐶))
34	32, 33	ffvelcdmd 7070	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1^st ‘𝐹)‘𝑦) ∈ (Base‘𝐷))
35		eqid 2765	. . . . . . . 8 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
36	14	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
37	11, 35, 18, 36, 29, 33	funcf2 17915	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑥(2^nd ‘𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
38		simpr3 1213	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
39	37, 38	ffvelcdmd 7070	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
40	5, 18, 6, 28, 30, 31, 34, 39	catlid 17729	. . . . 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 17730	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))( 1 ‘((1^st ‘𝐹)‘𝑥))) = ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓))
42	40, 41	eqtr4d 2803	. . . 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 6971	. . . . . 6 ⊢ (((1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑦 ∈ (Base‘𝐶)) → (( 1 ∘ (1^st ‘𝐹))‘𝑦) = ( 1 ‘((1^st ‘𝐹)‘𝑦)))
44	32, 33, 43	syl2anc 595	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ∘ (1^st ‘𝐹))‘𝑦) = ( 1 ‘((1^st ‘𝐹)‘𝑦)))
45	44	oveq1d 7415	. . . 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 6971	. . . . . 6 ⊢ (((1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑥 ∈ (Base‘𝐶)) → (( 1 ∘ (1^st ‘𝐹))‘𝑥) = ( 1 ‘((1^st ‘𝐹)‘𝑥)))
47	32, 29, 46	syl2anc 595	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ∘ (1^st ‘𝐹))‘𝑥) = ( 1 ‘((1^st ‘𝐹)‘𝑥)))
48	47	oveq2d 7416	. . . 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 2810	. . 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 3211	. 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 17998	. 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 725	1 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ (𝐹𝑁𝐹))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 209 ∧ wa 400 ∧ w3a 1101 = wceq 1563 ∈ wcel 2145 ∀wral 3079 Vcvv 3457 ⟨cop 4591 class class class wbr 5105 ↦ cmpt 5186 ∘ ccom 5656 Rel wrel 5657 Fn wfn 6520 ⟶wf 6521 ‘cfv 6525 (class class class)co 7400 1^st c1st 7972 2^nd c2nd 7973 Xcixp 8883 Basecbs 17259 Hom chom 17311 compcco 17312 Catccat 17710 Idccid 17711 Func cfunc 17901 Nat cnat 17991 FuncCat cfuc 17992

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1818 ax-4 1832 ax-5 1933 ax-6 1990 ax-7 2031 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2215 ax-ext 2737 ax-rep 5232 ax-sep 5251 ax-nul 5261 ax-pow 5327 ax-pr 5395 ax-un 7722

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3an 1103 df-tru 1566 df-fal 1576 df-ex 1803 df-nf 1807 df-sb 2094 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-ral 3080 df-rex 3090 df-rmo 3370 df-reu 3371 df-rab 3418 df-v 3459 df-sbc 3748 df-csb 3856 df-dif 3910 df-un 3912 df-in 3914 df-ss 3924 df-nul 4289 df-if 4484 df-pw 4560 df-sn 4586 df-pr 4588 df-op 4592 df-uni 4869 df-iun 4954 df-br 5106 df-opab 5168 df-mpt 5187 df-id 5547 df-xp 5658 df-rel 5659 df-cnv 5660 df-co 5661 df-dm 5662 df-rn 5663 df-res 5664 df-ima 5665 df-iota 6481 df-fun 6527 df-fn 6528 df-f 6529 df-f1 6530 df-fo 6531 df-f1o 6532 df-fv 6533 df-riota 7357 df-ov 7403 df-oprab 7404 df-mpo 7405 df-1st 7974 df-2nd 7975 df-map 8814 df-ixp 8884 df-cat 17714 df-cid 17715 df-func 17905 df-nat 17993

This theorem is referenced by: fuclid 18016 fucrid 18017 fuccatid 18019 fucolid 49990 fucorid 49991 precofvalALT 49997 fucoppcid 50037

W3C validator