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

Theorem fucidcl 16389
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 ∘ (1st𝐹)) ∈ (𝐹𝑁𝐹))

Proof of Theorem fucidcl
Dummy variables 𝑥 𝑓 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fucidcl.f . . . . . . . 8 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
2 funcrcl 16287 . . . . . . . 8 (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
31, 2syl 17 . . . . . . 7 (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
43simprd 477 . . . . . 6 (𝜑𝐷 ∈ Cat)
5 eqid 2604 . . . . . . 7 (Base‘𝐷) = (Base‘𝐷)
6 fucidcl.x . . . . . . 7 1 = (Id‘𝐷)
75, 6cidfn 16104 . . . . . 6 (𝐷 ∈ Cat → 1 Fn (Base‘𝐷))
84, 7syl 17 . . . . 5 (𝜑1 Fn (Base‘𝐷))
9 dffn2 5941 . . . . 5 ( 1 Fn (Base‘𝐷) ↔ 1 :(Base‘𝐷)⟶V)
108, 9sylib 206 . . . 4 (𝜑1 :(Base‘𝐷)⟶V)
11 eqid 2604 . . . . 5 (Base‘𝐶) = (Base‘𝐶)
12 relfunc 16286 . . . . . 6 Rel (𝐶 Func 𝐷)
13 1st2ndbr 7080 . . . . . 6 ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
1412, 1, 13sylancr 693 . . . . 5 (𝜑 → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
1511, 5, 14funcf1 16290 . . . 4 (𝜑 → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
16 fcompt 6286 . . . 4 (( 1 :(Base‘𝐷)⟶V ∧ (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷)) → ( 1 ∘ (1st𝐹)) = (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1st𝐹)‘𝑥))))
1710, 15, 16syl2anc 690 . . 3 (𝜑 → ( 1 ∘ (1st𝐹)) = (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1st𝐹)‘𝑥))))
18 eqid 2604 . . . . . 6 (Hom ‘𝐷) = (Hom ‘𝐷)
194adantr 479 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
2015ffvelrnda 6247 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
215, 18, 6, 19, 20catidcl 16107 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ( 1 ‘((1st𝐹)‘𝑥)) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥)))
2221ralrimiva 2943 . . . 4 (𝜑 → ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1st𝐹)‘𝑥)) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥)))
23 fvex 6093 . . . . 5 (Base‘𝐶) ∈ V
24 mptelixpg 7803 . . . . 5 ((Base‘𝐶) ∈ V → ((𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1st𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥)) ↔ ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1st𝐹)‘𝑥)) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥))))
2523, 24ax-mp 5 . . . 4 ((𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1st𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥)) ↔ ∀𝑥 ∈ (Base‘𝐶)( 1 ‘((1st𝐹)‘𝑥)) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥)))
2622, 25sylibr 222 . . 3 (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ( 1 ‘((1st𝐹)‘𝑥))) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥)))
2717, 26eqeltrd 2682 . 2 (𝜑 → ( 1 ∘ (1st𝐹)) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥)))
284adantr 479 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝐷 ∈ Cat)
29 simpr1 1059 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑥 ∈ (Base‘𝐶))
3029, 20syldan 485 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
31 eqid 2604 . . . . . 6 (comp‘𝐷) = (comp‘𝐷)
3215adantr 479 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
33 simpr2 1060 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑦 ∈ (Base‘𝐶))
3432, 33ffvelrnd 6248 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
35 eqid 2604 . . . . . . . 8 (Hom ‘𝐶) = (Hom ‘𝐶)
3614adantr 479 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
3711, 35, 18, 36, 29, 33funcf2 16292 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (𝑥(2nd𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
38 simpr3 1061 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
3937, 38ffvelrnd 6248 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((𝑥(2nd𝐹)𝑦)‘𝑓) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
405, 18, 6, 28, 30, 31, 34, 39catlid 16108 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ‘((1st𝐹)‘𝑦))(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = ((𝑥(2nd𝐹)𝑦)‘𝑓))
415, 18, 6, 28, 30, 31, 34, 39catrid 16109 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑥(2nd𝐹)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑥)⟩(comp‘𝐷)((1st𝐹)‘𝑦))( 1 ‘((1st𝐹)‘𝑥))) = ((𝑥(2nd𝐹)𝑦)‘𝑓))
4240, 41eqtr4d 2641 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ‘((1st𝐹)‘𝑦))(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐹)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑥)⟩(comp‘𝐷)((1st𝐹)‘𝑦))( 1 ‘((1st𝐹)‘𝑥))))
43 fvco3 6165 . . . . . 6 (((1st𝐹):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑦 ∈ (Base‘𝐶)) → (( 1 ∘ (1st𝐹))‘𝑦) = ( 1 ‘((1st𝐹)‘𝑦)))
4432, 33, 43syl2anc 690 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ∘ (1st𝐹))‘𝑦) = ( 1 ‘((1st𝐹)‘𝑦)))
4544oveq1d 6537 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((( 1 ∘ (1st𝐹))‘𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (( 1 ‘((1st𝐹)‘𝑦))(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)))
46 fvco3 6165 . . . . . 6 (((1st𝐹):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑥 ∈ (Base‘𝐶)) → (( 1 ∘ (1st𝐹))‘𝑥) = ( 1 ‘((1st𝐹)‘𝑥)))
4732, 29, 46syl2anc 690 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (( 1 ∘ (1st𝐹))‘𝑥) = ( 1 ‘((1st𝐹)‘𝑥)))
4847oveq2d 6538 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → (((𝑥(2nd𝐹)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑥)⟩(comp‘𝐷)((1st𝐹)‘𝑦))(( 1 ∘ (1st𝐹))‘𝑥)) = (((𝑥(2nd𝐹)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑥)⟩(comp‘𝐷)((1st𝐹)‘𝑦))( 1 ‘((1st𝐹)‘𝑥))))
4942, 45, 483eqtr4d 2648 . . 3 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) → ((( 1 ∘ (1st𝐹))‘𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐹)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑥)⟩(comp‘𝐷)((1st𝐹)‘𝑦))(( 1 ∘ (1st𝐹))‘𝑥)))
5049ralrimivvva 2949 . 2 (𝜑 → ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)((( 1 ∘ (1st𝐹))‘𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐹)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑥)⟩(comp‘𝐷)((1st𝐹)‘𝑦))(( 1 ∘ (1st𝐹))‘𝑥)))
51 fucidcl.n . . 3 𝑁 = (𝐶 Nat 𝐷)
5251, 11, 35, 18, 31, 1, 1isnat2 16372 . 2 (𝜑 → (( 1 ∘ (1st𝐹)) ∈ (𝐹𝑁𝐹) ↔ (( 1 ∘ (1st𝐹)) ∈ X𝑥 ∈ (Base‘𝐶)(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑥)) ∧ ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)((( 1 ∘ (1st𝐹))‘𝑦)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑦))((𝑥(2nd𝐹)𝑦)‘𝑓)) = (((𝑥(2nd𝐹)𝑦)‘𝑓)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑥)⟩(comp‘𝐷)((1st𝐹)‘𝑦))(( 1 ∘ (1st𝐹))‘𝑥)))))
5327, 50, 52mpbir2and 958 1 (𝜑 → ( 1 ∘ (1st𝐹)) ∈ (𝐹𝑁𝐹))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 194  wa 382  w3a 1030   = wceq 1474  wcel 1975  wral 2890  Vcvv 3167  cop 4125   class class class wbr 4572  cmpt 4632  ccom 5027  Rel wrel 5028   Fn wfn 5780  wf 5781  cfv 5785  (class class class)co 6522  1st c1st 7029  2nd c2nd 7030  Xcixp 7766  Basecbs 15636  Hom chom 15720  compcco 15721  Catccat 16089  Idccid 16090   Func cfunc 16278   Nat cnat 16365   FuncCat cfuc 16366
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-8 1977  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2227  ax-ext 2584  ax-rep 4688  ax-sep 4698  ax-nul 4707  ax-pow 4759  ax-pr 4823  ax-un 6819
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2456  df-mo 2457  df-clab 2591  df-cleq 2597  df-clel 2600  df-nfc 2734  df-ne 2776  df-ral 2895  df-rex 2896  df-reu 2897  df-rmo 2898  df-rab 2899  df-v 3169  df-sbc 3397  df-csb 3494  df-dif 3537  df-un 3539  df-in 3541  df-ss 3548  df-nul 3869  df-if 4031  df-pw 4104  df-sn 4120  df-pr 4122  df-op 4126  df-uni 4362  df-iun 4446  df-br 4573  df-opab 4633  df-mpt 4634  df-id 4938  df-xp 5029  df-rel 5030  df-cnv 5031  df-co 5032  df-dm 5033  df-rn 5034  df-res 5035  df-ima 5036  df-iota 5749  df-fun 5787  df-fn 5788  df-f 5789  df-f1 5790  df-fo 5791  df-f1o 5792  df-fv 5793  df-riota 6484  df-ov 6525  df-oprab 6526  df-mpt2 6527  df-1st 7031  df-2nd 7032  df-map 7718  df-ixp 7767  df-cat 16093  df-cid 16094  df-func 16282  df-nat 16367
This theorem is referenced by:  fuclid  16390  fucrid  16391  fuccatid  16393
  Copyright terms: Public domain W3C validator