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

Theorem yoniso 18485
Description: If the codomain is recoverable from a hom-set, then the Yoneda embedding is injective on objects, and hence is an isomorphism from 𝐶 into a full subcategory of a presheaf category. (Contributed by Mario Carneiro, 30-Jan-2017.)
Hypotheses
Ref Expression
yoniso.y 𝑌 = (Yon‘𝐶)
yoniso.o 𝑂 = (oppCat‘𝐶)
yoniso.s 𝑆 = (SetCat‘𝑈)
yoniso.d 𝐷 = (CatCat‘𝑉)
yoniso.b 𝐵 = (Base‘𝐷)
yoniso.i 𝐼 = (Iso‘𝐷)
yoniso.q 𝑄 = (𝑂 FuncCat 𝑆)
yoniso.e 𝐸 = (𝑄 ↾s ran (1st ‘𝑌))
yoniso.v (𝜑 → 𝑉 ∈ 𝑋)
yoniso.c (𝜑 → 𝐶 ∈ 𝐵)
yoniso.u (𝜑 → 𝑈 ∈ 𝑊)
yoniso.h (𝜑 → ran (Homf ‘𝐶) ⊆ 𝑈)
yoniso.eb (𝜑 → 𝐸 ∈ 𝐵)
yoniso.1 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝐹‘(𝑥(Hom ‘𝐶)𝑦)) = 𝑦)
Assertion
Ref Expression
yoniso (𝜑 → 𝑌 ∈ (𝐶𝐼𝐸))
Distinct variable groups:   𝑥,𝑦,𝐶   𝑦,𝐹   𝜑,𝑥,𝑦   𝑥,𝑌,𝑦
Allowed substitution hints:   𝐵(𝑥, 𝑦)   𝐷(𝑥, 𝑦)   𝑄(𝑥, 𝑦)   𝑆(𝑥, 𝑦)   𝑈(𝑥, 𝑦)   𝐸(𝑥, 𝑦)   𝐹(𝑥)   𝐼(𝑥, 𝑦)   𝑂(𝑥, 𝑦)   𝑉(𝑥, 𝑦)   𝑊(𝑥, 𝑦)   𝑋(𝑥, 𝑦)

Proof of Theorem yoniso
StepHypRef Expression
1 relfunc 18063 . . . 4 Rel (𝐶 Func 𝑄)
2 yoniso.y . . . . 5 𝑌 = (Yon‘𝐶)
3 yoniso.d . . . . . . . 8 𝐷 = (CatCat‘𝑉)
4 yoniso.b . . . . . . . 8 𝐵 = (Base‘𝐷)
5 yoniso.v . . . . . . . 8 (𝜑 → 𝑉 ∈ 𝑋)
63, 4, 5catcbas 18302 . . . . . . 7 (𝜑 → 𝐵 = (𝑉 ∩ Cat))
7 inss2 4137 . . . . . . 7 (𝑉 ∩ Cat) ⊆ Cat
86, 7eqsstrdi 3957 . . . . . 6 (𝜑 → 𝐵 ⊆ Cat)
9 yoniso.c . . . . . 6 (𝜑 → 𝐶 ∈ 𝐵)
108, 9sseldd 3914 . . . . 5 (𝜑 → 𝐶 ∈ Cat)
11 yoniso.o . . . . 5 𝑂 = (oppCat‘𝐶)
12 yoniso.s . . . . 5 𝑆 = (SetCat‘𝑈)
13 yoniso.q . . . . 5 𝑄 = (𝑂 FuncCat 𝑆)
14 yoniso.u . . . . 5 (𝜑 → 𝑈 ∈ 𝑊)
15 yoniso.h . . . . 5 (𝜑 → ran (Homf ‘𝐶) ⊆ 𝑈)
162, 10, 11, 12, 13, 14, 15yoncl 18462 . . . 4 (𝜑 → 𝑌 ∈ (𝐶 Func 𝑄))
17 1st2nd 8071 . . . 4 ((Rel (𝐶 Func 𝑄) ∧ 𝑌 ∈ (𝐶 Func 𝑄)) → 𝑌 = ⟨(1st ‘𝑌), (2nd ‘𝑌)⟩)
181, 16, 17sylancr 599 . . 3 (𝜑 → 𝑌 = ⟨(1st ‘𝑌), (2nd ‘𝑌)⟩)
192, 11, 12, 13, 10, 14, 15yonffth 18484 . . . . 5 (𝜑 → 𝑌 ∈ ((𝐶 Full 𝑄) ∩ (𝐶 Faith 𝑄)))
2018, 19eqeltrrd 2865 . . . 4 (𝜑 → ⟨(1st ‘𝑌), (2nd ‘𝑌)⟩ ∈ ((𝐶 Full 𝑄) ∩ (𝐶 Faith 𝑄)))
21 eqid 2763 . . . . . 6 (Base‘𝐶) = (Base‘𝐶)
22 yoniso.e . . . . . 6 𝐸 = (𝑄 ↾s ran (1st ‘𝑌))
2311oppccat 17922 . . . . . . . 8 (𝐶 ∈ Cat → 𝑂 ∈ Cat)
2410, 23syl 18 . . . . . . 7 (𝜑 → 𝑂 ∈ Cat)
2512setccat 18286 . . . . . . . 8 (𝑈 ∈ 𝑊 → 𝑆 ∈ Cat)
2614, 25syl 18 . . . . . . 7 (𝜑 → 𝑆 ∈ Cat)
2713, 24, 26fuccat 18174 . . . . . 6 (𝜑 → 𝑄 ∈ Cat)
28 fvex 6918 . . . . . . . 8 (1st ‘𝑌) ∈ V
2928rnex 7943 . . . . . . 7 ran (1st ‘𝑌) ∈ V
3029a1i 11 . . . . . 6 (𝜑 → ran (1st ‘𝑌) ∈ V)
3113fucbas 18164 . . . . . . . . 9 (𝑂 Func 𝑆) = (Base‘𝑄)
32 1st2ndbr 8074 . . . . . . . . . 10 ((Rel (𝐶 Func 𝑄) ∧ 𝑌 ∈ (𝐶 Func 𝑄)) → (1st ‘𝑌)(𝐶 Func 𝑄)(2nd ‘𝑌))
331, 16, 32sylancr 599 . . . . . . . . 9 (𝜑 → (1st ‘𝑌)(𝐶 Func 𝑄)(2nd ‘𝑌))
3421, 31, 33funcf1 18067 . . . . . . . 8 (𝜑 → (1st ‘𝑌):(Base‘𝐶)⟶(𝑂 Func 𝑆))
3534ffnd 6729 . . . . . . 7 (𝜑 → (1st ‘𝑌) Fn (Base‘𝐶))
36 dffn3 6741 . . . . . . 7 ((1st ‘𝑌) Fn (Base‘𝐶) ↔ (1st ‘𝑌):(Base‘𝐶)⟶ran (1st ‘𝑌))
3735, 36sylib 221 . . . . . 6 (𝜑 → (1st ‘𝑌):(Base‘𝐶)⟶ran (1st ‘𝑌))
3821, 22, 27, 30, 37ffthres2c 18143 . . . . 5 (𝜑 → ((1st ‘𝑌)((𝐶 Full 𝑄) ∩ (𝐶 Faith 𝑄))(2nd ‘𝑌) ↔ (1st ‘𝑌)((𝐶 Full 𝐸) ∩ (𝐶 Faith 𝐸))(2nd ‘𝑌)))
39 df-br 5107 . . . . 5 ((1st ‘𝑌)((𝐶 Full 𝑄) ∩ (𝐶 Faith 𝑄))(2nd ‘𝑌) ↔ ⟨(1st ‘𝑌), (2nd ‘𝑌)⟩ ∈ ((𝐶 Full 𝑄) ∩ (𝐶 Faith 𝑄)))
40 df-br 5107 . . . . 5 ((1st ‘𝑌)((𝐶 Full 𝐸) ∩ (𝐶 Faith 𝐸))(2nd ‘𝑌) ↔ ⟨(1st ‘𝑌), (2nd ‘𝑌)⟩ ∈ ((𝐶 Full 𝐸) ∩ (𝐶 Faith 𝐸)))
4138, 39, 403bitr3g 316 . . . 4 (𝜑 → (⟨(1st ‘𝑌), (2nd ‘𝑌)⟩ ∈ ((𝐶 Full 𝑄) ∩ (𝐶 Faith 𝑄)) ↔ ⟨(1st ‘𝑌), (2nd ‘𝑌)⟩ ∈ ((𝐶 Full 𝐸) ∩ (𝐶 Faith 𝐸))))
4220, 41mpbid 235 . . 3 (𝜑 → ⟨(1st ‘𝑌), (2nd ‘𝑌)⟩ ∈ ((𝐶 Full 𝐸) ∩ (𝐶 Faith 𝐸)))
4318, 42eqeltrd 2864 . 2 (𝜑 → 𝑌 ∈ ((𝐶 Full 𝐸) ∩ (𝐶 Faith 𝐸)))
44 fveq2 6905 . . . . . . . . 9 (((1st ‘𝑌)‘𝑥) = ((1st ‘𝑌)‘𝑦) → (1st ‘((1st ‘𝑌)‘𝑥)) = (1st ‘((1st ‘𝑌)‘𝑦)))
4544fveq1d 6907 . . . . . . . 8 (((1st ‘𝑌)‘𝑥) = ((1st ‘𝑌)‘𝑦) → ((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥) = ((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥))
4645fveq2d 6909 . . . . . . 7 (((1st ‘𝑌)‘𝑥) = ((1st ‘𝑌)‘𝑦) → (𝐹‘((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥)) = (𝐹‘((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥)))
47 simpl 488 . . . . . . . . . 10 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
4847, 47jca 521 . . . . . . . . 9 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥 ∈ (Base‘𝐶) ∧ 𝑥 ∈ (Base‘𝐶)))
49 eleq1w 2847 . . . . . . . . . . . . 13 (𝑦 = 𝑥 → (𝑦 ∈ (Base‘𝐶) ↔ 𝑥 ∈ (Base‘𝐶)))
5049anbi2d 642 . . . . . . . . . . . 12 (𝑦 = 𝑥 → ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ↔ (𝑥 ∈ (Base‘𝐶) ∧ 𝑥 ∈ (Base‘𝐶))))
5150anbi2d 642 . . . . . . . . . . 11 (𝑦 = 𝑥 → ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ↔ (𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑥 ∈ (Base‘𝐶)))))
52 2fveq3 6910 . . . . . . . . . . . . . 14 (𝑦 = 𝑥 → (1st ‘((1st ‘𝑌)‘𝑦)) = (1st ‘((1st ‘𝑌)‘𝑥)))
5352fveq1d 6907 . . . . . . . . . . . . 13 (𝑦 = 𝑥 → ((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥) = ((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥))
5453fveq2d 6909 . . . . . . . . . . . 12 (𝑦 = 𝑥 → (𝐹‘((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥)) = (𝐹‘((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥)))
55 id 23 . . . . . . . . . . . 12 (𝑦 = 𝑥 → 𝑦 = 𝑥)
5654, 55eqeq12d 2779 . . . . . . . . . . 11 (𝑦 = 𝑥 → ((𝐹‘((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥)) = 𝑦 ↔ (𝐹‘((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥)) = 𝑥))
5751, 56imbi12d 347 . . . . . . . . . 10 (𝑦 = 𝑥 → (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝐹‘((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥)) = 𝑦) ↔ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑥 ∈ (Base‘𝐶))) → (𝐹‘((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥)) = 𝑥)))
5810adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝐶 ∈ Cat)
59 simprr 785 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑦 ∈ (Base‘𝐶))
60 eqid 2763 . . . . . . . . . . . . 13 (Hom ‘𝐶) = (Hom ‘𝐶)
61 simprl 783 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑥 ∈ (Base‘𝐶))
622, 21, 58, 59, 60, 61yon11 18464 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥) = (𝑥(Hom ‘𝐶)𝑦))
6362fveq2d 6909 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝐹‘((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥)) = (𝐹‘(𝑥(Hom ‘𝐶)𝑦)))
64 yoniso.1 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝐹‘(𝑥(Hom ‘𝐶)𝑦)) = 𝑦)
6563, 64eqtrd 2798 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝐹‘((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥)) = 𝑦)
6657, 65chvarvv 2024 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑥 ∈ (Base‘𝐶))) → (𝐹‘((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥)) = 𝑥)
6748, 66sylan2 605 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝐹‘((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥)) = 𝑥)
6867, 65eqeq12d 2779 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((𝐹‘((1st ‘((1st ‘𝑌)‘𝑥))‘𝑥)) = (𝐹‘((1st ‘((1st ‘𝑌)‘𝑦))‘𝑥)) ↔ 𝑥 = 𝑦))
6946, 68imbitrid 247 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (((1st ‘𝑌)‘𝑥) = ((1st ‘𝑌)‘𝑦) → 𝑥 = 𝑦))
7069ralrimivva 3209 . . . . 5 (𝜑 → ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)(((1st ‘𝑌)‘𝑥) = ((1st ‘𝑌)‘𝑦) → 𝑥 = 𝑦))
71 dff13 7278 . . . . 5 ((1st ‘𝑌):(Base‘𝐶)⟶1-1(𝑂 Func 𝑆) ↔ ((1st ‘𝑌):(Base‘𝐶)⟶(𝑂 Func 𝑆) ∧ ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)(((1st ‘𝑌)‘𝑥) = ((1st ‘𝑌)‘𝑦) → 𝑥 = 𝑦)))
7234, 70, 71sylanbrc 595 . . . 4 (𝜑 → (1st ‘𝑌):(Base‘𝐶)⟶1-1(𝑂 Func 𝑆))
73 f1f1orn 6855 . . . 4 ((1st ‘𝑌):(Base‘𝐶)⟶1-1(𝑂 Func 𝑆) → (1st ‘𝑌):(Base‘𝐶)⟶1-1ontoran (1st ‘𝑌))
7472, 73syl 18 . . 3 (𝜑 → (1st ‘𝑌):(Base‘𝐶)⟶1-1ontoran (1st ‘𝑌))
7534frnd 6737 . . . . 5 (𝜑 → ran (1st ‘𝑌) ⊆ (𝑂 Func 𝑆))
7622, 31ressbas2 17442 . . . . 5 (ran (1st ‘𝑌) ⊆ (𝑂 Func 𝑆) → ran (1st ‘𝑌) = (Base‘𝐸))
7775, 76syl 18 . . . 4 (𝜑 → ran (1st ‘𝑌) = (Base‘𝐸))
7877f1oeq3d 6840 . . 3 (𝜑 → ((1st ‘𝑌):(Base‘𝐶)⟶1-1ontoran (1st ‘𝑌) ↔ (1st ‘𝑌):(Base‘𝐶)⟶1-1onto(Base‘𝐸)))
7974, 78mpbid 235 . 2 (𝜑 → (1st ‘𝑌):(Base‘𝐶)⟶1-1onto(Base‘𝐸))
80 eqid 2763 . . 3 (Base‘𝐸) = (Base‘𝐸)
81 yoniso.eb . . 3 (𝜑 → 𝐸 ∈ 𝐵)
82 yoniso.i . . 3 𝐼 = (Iso‘𝐷)
833, 4, 21, 80, 5, 9, 81, 82catciso 18312 . 2 (𝜑 → (𝑌 ∈ (𝐶𝐼𝐸) ↔ (𝑌 ∈ ((𝐶 Full 𝐸) ∩ (𝐶 Faith 𝐸)) ∧ (1st ‘𝑌):(Base‘𝐶)⟶1-1onto(Base‘𝐸))))
8443, 79, 83mpbir2and 726 1 (𝜑 → 𝑌 ∈ (𝐶𝐼𝐸))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∀wral 3080  Vcvv 3454   ⊆ wss 3900   ∩ cin 4092  ⟨cop 4838   class class class wbr 5106  ran crn 5656  Rel wrel 5660   Fn wfn 6550  ⟶wf 6551  ⟶1-1wf1 6552  ⟶1-1ontowf1o 6554  ‘cfv 6555  (class class class)co 7440  1st c1st 8020  2nd c2nd 8021  Basecbs 17413   ↾s cress 17434  Hom chom 17465  Catccat 17864  Homf chomf 17866  oppCatcoppc 17911  Isociso 17947   Func cfunc 18055   Full cful 18105   Faith cfth 18106   FuncCat cfuc 18146  SetCatcsetc 18276  CatCatccatc 18299  Yoncyon 18449
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7772  ax-cnex 11280  ax-resscn 11281  ax-1cn 11282  ax-icn 11283  ax-addcl 11284  ax-addrcl 11285  ax-mulcl 11286  ax-mulrcl 11287  ax-mulcom 11288  ax-addass 11289  ax-mulass 11290  ax-distr 11291  ax-i2m1 11292  ax-1ne0 11293  ax-1rid 11294  ax-rnegex 11295  ax-rrecex 11296  ax-cnre 11297  ax-pre-lttri 11298  ax-pre-lttrn 11299  ax-pre-ltadd 11300  ax-pre-mulgt0 11301
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6319  df-ord 6380  df-on 6381  df-lim 6382  df-suc 6383  df-iota 6509  df-fun 6557  df-fn 6558  df-f 6559  df-f1 6560  df-fo 6561  df-f1o 6562  df-fv 6563  df-riota 7397  df-ov 7443  df-oprab 7444  df-mpo 7445  df-om 7899  df-1st 8022  df-2nd 8023  df-tpos 8268  df-frecs 8324  df-wrecs 8355  df-recs 8404  df-rdg 8443  df-1o 8501  df-er 8742  df-map 8874  df-pm 8875  df-ixp 8951  df-en 8999  df-dom 9000  df-sdom 9001  df-fin 9002  df-pnf 11369  df-mnf 11370  df-xr 11371  df-ltxr 11372  df-le 11373  df-sub 11567  df-neg 11568  df-nn 12360  df-2 12429  df-3 12430  df-4 12431  df-5 12432  df-6 12433  df-7 12434  df-8 12435  df-9 12436  df-n0 12631  df-z 12718  df-dec 12839  df-uz 12990  df-fz 13664  df-struct 17351  df-sets 17368  df-slot 17386  df-ndx 17398  df-base 17414  df-ress 17435  df-hom 17478  df-cco 17479  df-cat 17868  df-cid 17869  df-homf 17870  df-comf 17871  df-oppc 17912  df-sect 17948  df-inv 17949  df-iso 17950  df-ssc 18011  df-resc 18012  df-subc 18013  df-func 18059  df-idfu 18060  df-cofu 18061  df-full 18107  df-fth 18108  df-nat 18147  df-fuc 18148  df-setc 18277  df-catc 18300  df-xpc 18372  df-1stf 18373  df-2ndf 18374  df-prf 18375  df-evlf 18413  df-curf 18414  df-hof 18450  df-yon 18451
This theorem is used by: (None)
  Copyright terms: Public domain W3C validator