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 17984

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 17879	. . . . . . . 8 ⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
3	1, 2	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
4	3	simprd 499	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ Cat)
5		eqid 2761	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
6		fucidcl.x	. . . . . . 7 ⊢ 1 = (Id‘𝐷)
7	5, 6	cidfn 17694	. . . . . 6 ⊢ (𝐷 ∈ Cat → 1 Fn (Base‘𝐷))
8	4, 7	syl 17	. . . . 5 ⊢ (𝜑 → 1 Fn (Base‘𝐷))
9		dffn2 6689	. . . . 5 ⊢ ( 1 Fn (Base‘𝐷) ↔ 1 :(Base‘𝐷)⟶V)
10	8, 9	sylib 220	. . . 4 ⊢ (𝜑 → 1 :(Base‘𝐷)⟶V)
11		eqid 2761	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝐶)
12		relfunc 17878	. . . . . 6 ⊢ Rel (𝐶 Func 𝐷)
13		1st2ndbr 8019	. . . . . 6 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
14	12, 1, 13	sylancr 596	. . . . 5 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
15	11, 5, 14	funcf1 17882	. . . 4 ⊢ (𝜑 → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
16		fcompt 7111	. . . 4 ⊢ (( 1 :(Base‘𝐷)⟶V ∧ (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷)) → ( 1 ∘ (1^st ‘𝐹)) = (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))))
17	10, 15, 16	syl2anc 593	. . 3 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) = (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))))
18		eqid 2761	. . . . . 6 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
19	4	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
20	15	ffvelcdmda 7061	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
21	5, 18, 6, 19, 20	catidcl 17697	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
22	21	ralrimiva 3153	. . . 4 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1^st ‘𝐹)‘𝑥)) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
23		fvex 6876	. . . . 5 ⊢ (Base‘𝐶) ∈ V
24		mptelixpg 8913	. . . . 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 236	. . 3 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1^st ‘𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
27	17, 26	eqeltrd 2861	. 2 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ X𝑥 ∈ (Base‘𝐶)(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑥)))
28	4	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝐷 ∈ Cat)
29		simpr1 1207	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑥 ∈ (Base‘𝐶))
30	29, 20	syldan 600	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1^st ‘𝐹)‘𝑥) ∈ (Base‘𝐷))
31		eqid 2761	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
32	15	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33		simpr2 1208	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑦 ∈ (Base‘𝐶))
34	32, 33	ffvelcdmd 7062	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1^st ‘𝐹)‘𝑦) ∈ (Base‘𝐷))
35		eqid 2761	. . . . . . . 8 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
36	14	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
37	11, 35, 18, 36, 29, 33	funcf2 17884	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑥(2^nd ‘𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
38		simpr3 1209	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
39	37, 38	ffvelcdmd 7062	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓) ∈ (((1^st ‘𝐹)‘𝑥)(Hom ‘𝐷)((1^st ‘𝐹)‘𝑦)))
40	5, 18, 6, 28, 30, 31, 34, 39	catlid 17698	. . . . 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 17699	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑥(2^nd ‘𝐹)𝑦)‘𝑓)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑥)⟩(comp‘𝐷)((1^st ‘𝐹)‘𝑦))( 1 ‘((1^st ‘𝐹)‘𝑥))) = ((𝑥(2^nd ‘𝐹)𝑦)‘𝑓))
42	40, 41	eqtr4d 2799	. . . 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 6963	. . . . . 6 ⊢ (((1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑦 ∈ (Base‘𝐶)) → (( 1 ∘ (1^st ‘𝐹))‘𝑦) = ( 1 ‘((1^st ‘𝐹)‘𝑦)))
44	32, 33, 43	syl2anc 593	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ∘ (1^st ‘𝐹))‘𝑦) = ( 1 ‘((1^st ‘𝐹)‘𝑦)))
45	44	oveq1d 7407	. . . 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 6963	. . . . . 6 ⊢ (((1^st ‘𝐹):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑥 ∈ (Base‘𝐶)) → (( 1 ∘ (1^st ‘𝐹))‘𝑥) = ( 1 ‘((1^st ‘𝐹)‘𝑥)))
47	32, 29, 46	syl2anc 593	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ∘ (1^st ‘𝐹))‘𝑥) = ( 1 ‘((1^st ‘𝐹)‘𝑥)))
48	47	oveq2d 7408	. . . 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 2806	. . 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 3207	. 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 17967	. 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 723	1 ⊢ (𝜑 → ( 1 ∘ (1^st ‘𝐹)) ∈ (𝐹𝑁𝐹))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 399 ∧ w3a 1097 = wceq 1559 ∈ wcel 2141 ∀wral 3075 Vcvv 3453 ⟨cop 4587 class class class wbr 5099 ↦ cmpt 5180 ∘ ccom 5649 Rel wrel 5650 Fn wfn 6512 ⟶wf 6513 ‘cfv 6517 (class class class)co 7392 1^st c1st 7964 2^nd c2nd 7965 Xcixp 8875 Basecbs 17228 Hom chom 17280 compcco 17281 Catccat 17679 Idccid 17680 Func cfunc 17870 Nat cnat 17960 FuncCat cfuc 17961

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5226 ax-sep 5245 ax-nul 5255 ax-pow 5321 ax-pr 5389 ax-un 7714

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-ral 3076 df-rex 3086 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4582 df-pr 4584 df-op 4588 df-uni 4865 df-iun 4950 df-br 5100 df-opab 5162 df-mpt 5181 df-id 5540 df-xp 5651 df-rel 5652 df-cnv 5653 df-co 5654 df-dm 5655 df-rn 5656 df-res 5657 df-ima 5658 df-iota 6473 df-fun 6519 df-fn 6520 df-f 6521 df-f1 6522 df-fo 6523 df-f1o 6524 df-fv 6525 df-riota 7349 df-ov 7395 df-oprab 7396 df-mpo 7397 df-1st 7966 df-2nd 7967 df-map 8805 df-ixp 8876 df-cat 17683 df-cid 17684 df-func 17874 df-nat 17962

This theorem is referenced by: fuclid 17985 fucrid 17986 fuccatid 17988 fucolid 49946 fucorid 49947 precofvalALT 49953 fucoppcid 49993

W3C validator