Users' Mathboxes Mathbox for Zhi Wang < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  lanup Structured version   Visualization version   GIF version

Theorem lanup 50568
Description: The universal property of the left Kan extension; expressed explicitly. (Contributed by Zhi Wang, 4-Nov-2025.)
Hypotheses
Ref Expression
lanup.s 𝑆 = (𝐶 FuncCat 𝐸)
lanup.m 𝑀 = (𝐷 Nat 𝐸)
lanup.n 𝑁 = (𝐶 Nat 𝐸)
lanup.x = (comp‘𝑆)
lanup.f (𝜑𝐹 ∈ (𝐶 Func 𝐷))
lanup.l (𝜑𝐿 ∈ (𝐷 Func 𝐸))
lanup.a (𝜑𝐴 ∈ (𝑋𝑁(𝐿func 𝐹)))
Assertion
Ref Expression
lanup (𝜑 → (𝐿(𝐹(⟨𝐶, 𝐷⟩ Lan 𝐸)𝑋)𝐴 ↔ ∀𝑙 ∈ (𝐷 Func 𝐸)∀𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = ((𝑏 ∘ (1st𝐹))(⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹))𝐴)))
Distinct variable groups:   ,𝑎,𝑏,𝑙   𝐴,𝑎,𝑏,𝑙   𝐶,𝑎,𝑏,𝑙   𝐷,𝑎,𝑏,𝑙   𝐸,𝑎,𝑏,𝑙   𝐹,𝑎,𝑏,𝑙   𝐿,𝑎,𝑏,𝑙   𝑀,𝑎,𝑏,𝑙   𝑁,𝑎,𝑏,𝑙   𝑆,𝑎,𝑏,𝑙   𝑋,𝑎,𝑏,𝑙   𝜑,𝑎,𝑏,𝑙

Proof of Theorem lanup
StepHypRef Expression
1 eqid 2760 . . . 4 (𝐷 FuncCat 𝐸) = (𝐷 FuncCat 𝐸)
21fucbas 18053 . . 3 (𝐷 Func 𝐸) = (Base‘(𝐷 FuncCat 𝐸))
3 lanup.s . . . 4 𝑆 = (𝐶 FuncCat 𝐸)
43fucbas 18053 . . 3 (𝐶 Func 𝐸) = (Base‘𝑆)
5 lanup.m . . . 4 𝑀 = (𝐷 Nat 𝐸)
61, 5fuchom 18054 . . 3 𝑀 = (Hom ‘(𝐷 FuncCat 𝐸))
7 lanup.n . . . 4 𝑁 = (𝐶 Nat 𝐸)
83, 7fuchom 18054 . . 3 𝑁 = (Hom ‘𝑆)
9 lanup.x . . 3 = (comp‘𝑆)
10 lanup.a . . . . 5 (𝜑𝐴 ∈ (𝑋𝑁(𝐿func 𝐹)))
117natrcl 18043 . . . . 5 (𝐴 ∈ (𝑋𝑁(𝐿func 𝐹)) → (𝑋 ∈ (𝐶 Func 𝐸) ∧ (𝐿func 𝐹) ∈ (𝐶 Func 𝐸)))
1210, 11syl 18 . . . 4 (𝜑 → (𝑋 ∈ (𝐶 Func 𝐸) ∧ (𝐿func 𝐹) ∈ (𝐶 Func 𝐸)))
1312simpld 500 . . 3 (𝜑𝑋 ∈ (𝐶 Func 𝐸))
1413func1st2nd 50003 . . . . . 6 (𝜑 → (1st𝑋)(𝐶 Func 𝐸)(2nd𝑋))
1514funcrcl3 50007 . . . . 5 (𝜑𝐸 ∈ Cat)
16 lanup.f . . . . 5 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
171, 15, 3, 16prcoffunca 50313 . . . 4 (𝜑 → (⟨𝐷, 𝐸⟩ −∘F 𝐹) ∈ ((𝐷 FuncCat 𝐸) Func 𝑆))
1817func1st2nd 50003 . . 3 (𝜑 → (1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))((𝐷 FuncCat 𝐸) Func 𝑆)(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)))
19 lanup.l . . 3 (𝜑𝐿 ∈ (𝐷 Func 𝐸))
20 eqidd 2761 . . . . . 6 (𝜑 → (1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)) = (1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)))
2119, 20prcof1 50315 . . . . 5 (𝜑 → ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿) = (𝐿func 𝐹))
2221oveq2d 7430 . . . 4 (𝜑 → (𝑋𝑁((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)) = (𝑋𝑁(𝐿func 𝐹)))
2310, 22eleqtrrd 2863 . . 3 (𝜑𝐴 ∈ (𝑋𝑁((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)))
242, 4, 6, 8, 9, 13, 18, 19, 23isup 50107 . 2 (𝜑 → (𝐿(⟨(1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)), (2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))⟩((𝐷 FuncCat 𝐸) UP 𝑆)𝑋)𝐴 ↔ ∀𝑙 ∈ (𝐷 Func 𝐸)∀𝑎 ∈ (𝑋𝑁((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = (((𝐿(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))𝑙)‘𝑏)(⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))𝐴)))
25 eqidd 2761 . . . . 5 (𝜑 → (⟨𝐷, 𝐸⟩ −∘F 𝐹) = (⟨𝐷, 𝐸⟩ −∘F 𝐹))
261, 3, 16, 13, 25lanval 50546 . . . 4 (𝜑 → (𝐹(⟨𝐶, 𝐷⟩ Lan 𝐸)𝑋) = ((⟨𝐷, 𝐸⟩ −∘F 𝐹)((𝐷 FuncCat 𝐸) UP 𝑆)𝑋))
2726breqd 5114 . . 3 (𝜑 → (𝐿(𝐹(⟨𝐶, 𝐷⟩ Lan 𝐸)𝑋)𝐴𝐿((⟨𝐷, 𝐸⟩ −∘F 𝐹)((𝐷 FuncCat 𝐸) UP 𝑆)𝑋)𝐴))
2817up1st2ndb 50114 . . 3 (𝜑 → (𝐿((⟨𝐷, 𝐸⟩ −∘F 𝐹)((𝐷 FuncCat 𝐸) UP 𝑆)𝑋)𝐴𝐿(⟨(1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)), (2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))⟩((𝐷 FuncCat 𝐸) UP 𝑆)𝑋)𝐴))
2927, 28bitrd 282 . 2 (𝜑 → (𝐿(𝐹(⟨𝐶, 𝐷⟩ Lan 𝐸)𝑋)𝐴𝐿(⟨(1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)), (2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))⟩((𝐷 FuncCat 𝐸) UP 𝑆)𝑋)𝐴))
30 simpr 490 . . . . . . 7 ((𝜑𝑙 ∈ (𝐷 Func 𝐸)) → 𝑙 ∈ (𝐷 Func 𝐸))
31 eqidd 2761 . . . . . . 7 ((𝜑𝑙 ∈ (𝐷 Func 𝐸)) → (1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)) = (1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)))
3230, 31prcof1 50315 . . . . . 6 ((𝜑𝑙 ∈ (𝐷 Func 𝐸)) → ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙) = (𝑙func 𝐹))
3332eqcomd 2766 . . . . 5 ((𝜑𝑙 ∈ (𝐷 Func 𝐸)) → (𝑙func 𝐹) = ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))
3433oveq2d 7430 . . . 4 ((𝜑𝑙 ∈ (𝐷 Func 𝐸)) → (𝑋𝑁(𝑙func 𝐹)) = (𝑋𝑁((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙)))
3521ad3antrrr 743 . . . . . . . . . 10 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿) = (𝐿func 𝐹))
3635opeq2d 4840 . . . . . . . . 9 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → ⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ = ⟨𝑋, (𝐿func 𝐹)⟩)
3732ad2antrr 739 . . . . . . . . 9 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙) = (𝑙func 𝐹))
3836, 37oveq12d 7432 . . . . . . . 8 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → (⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙)) = (⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹)))
39 simpr 490 . . . . . . . . 9 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → 𝑏 ∈ (𝐿𝑀𝑙))
40 eqidd 2761 . . . . . . . . 9 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → (2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)) = (2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹)))
4116ad3antrrr 743 . . . . . . . . 9 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → 𝐹 ∈ (𝐶 Func 𝐷))
425, 39, 40, 41prcof21a 50318 . . . . . . . 8 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → ((𝐿(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))𝑙)‘𝑏) = (𝑏 ∘ (1st𝐹)))
43 eqidd 2761 . . . . . . . 8 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → 𝐴 = 𝐴)
4438, 42, 43oveq123d 7435 . . . . . . 7 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → (((𝐿(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))𝑙)‘𝑏)(⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))𝐴) = ((𝑏 ∘ (1st𝐹))(⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹))𝐴))
4544eqcomd 2766 . . . . . 6 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → ((𝑏 ∘ (1st𝐹))(⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹))𝐴) = (((𝐿(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))𝑙)‘𝑏)(⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))𝐴))
4645eqeq2d 2771 . . . . 5 ((((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) ∧ 𝑏 ∈ (𝐿𝑀𝑙)) → (𝑎 = ((𝑏 ∘ (1st𝐹))(⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹))𝐴) ↔ 𝑎 = (((𝐿(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))𝑙)‘𝑏)(⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))𝐴)))
4746reubidva 3379 . . . 4 (((𝜑𝑙 ∈ (𝐷 Func 𝐸)) ∧ 𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))) → (∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = ((𝑏 ∘ (1st𝐹))(⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹))𝐴) ↔ ∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = (((𝐿(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))𝑙)‘𝑏)(⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))𝐴)))
4834, 47raleqbidva 3325 . . 3 ((𝜑𝑙 ∈ (𝐷 Func 𝐸)) → (∀𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = ((𝑏 ∘ (1st𝐹))(⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹))𝐴) ↔ ∀𝑎 ∈ (𝑋𝑁((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = (((𝐿(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))𝑙)‘𝑏)(⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))𝐴)))
4948ralbidva 3183 . 2 (𝜑 → (∀𝑙 ∈ (𝐷 Func 𝐸)∀𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = ((𝑏 ∘ (1st𝐹))(⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹))𝐴) ↔ ∀𝑙 ∈ (𝐷 Func 𝐸)∀𝑎 ∈ (𝑋𝑁((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = (((𝐿(2nd ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))𝑙)‘𝑏)(⟨𝑋, ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝐿)⟩ ((1st ‘(⟨𝐷, 𝐸⟩ −∘F 𝐹))‘𝑙))𝐴)))
5024, 29, 493bitr4d 314 1 (𝜑 → (𝐿(𝐹(⟨𝐶, 𝐷⟩ Lan 𝐸)𝑋)𝐴 ↔ ∀𝑙 ∈ (𝐷 Func 𝐸)∀𝑎 ∈ (𝑋𝑁(𝑙func 𝐹))∃!𝑏 ∈ (𝐿𝑀𝑙)𝑎 = ((𝑏 ∘ (1st𝐹))(⟨𝑋, (𝐿func 𝐹)⟩ (𝑙func 𝐹))𝐴)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401   = wceq 1570  wcel 2145  wral 3076  ∃!wreu 3363  cop 4590   class class class wbr 5103  ccom 5659  cfv 6533  (class class class)co 7414  1st c1st 7985  2nd c2nd 7986  compcco 17355   Func cfunc 17944  func ccofu 17946   Nat cnat 18034   FuncCat cfuc 18035   UP cup 50100   −∘F cprcof 50300   Lan clan 50532
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 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11181  ax-resscn 11182  ax-1cn 11183  ax-icn 11184  ax-addcl 11185  ax-addrcl 11186  ax-mulcl 11187  ax-mulrcl 11188  ax-mulcom 11189  ax-addass 11190  ax-mulass 11191  ax-distr 11192  ax-i2m1 11193  ax-1ne0 11194  ax-1rid 11195  ax-rnegex 11196  ax-rrecex 11197  ax-cnre 11198  ax-pre-lttri 11199  ax-pre-lttrn 11200  ax-pre-ltadd 11201  ax-pre-mulgt0 11202
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 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  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 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7864  df-1st 7987  df-2nd 7988  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-1o 8456  df-er 8697  df-map 8829  df-ixp 8906  df-en 8954  df-dom 8955  df-sdom 8956  df-fin 8957  df-pnf 11270  df-mnf 11271  df-xr 11272  df-ltxr 11273  df-le 11274  df-sub 11468  df-neg 11469  df-nn 12259  df-2 12328  df-3 12329  df-4 12330  df-5 12331  df-6 12332  df-7 12333  df-8 12334  df-9 12335  df-n0 12530  df-z 12617  df-dec 12738  df-uz 12889  df-fz 13563  df-struct 17240  df-slot 17275  df-ndx 17287  df-base 17303  df-hom 17367  df-cco 17368  df-cat 17757  df-cid 17758  df-func 17948  df-cofu 17950  df-nat 18036  df-fuc 18037  df-xpc 18261  df-curf 18303  df-up 50101  df-swapf 50187  df-fuco 50244  df-prcof 50301  df-lan 50534
This theorem is used by: (None)
  Copyright terms: Public domain W3C validator