38 lines
1.4 KiB
Text
38 lines
1.4 KiB
Text
/-
|
|
Copyright (c) 2015 Floris van Doorn. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Floris van Doorn
|
|
|
|
colimit_functor ⊣ Δ ⊣ limit_functor
|
|
-/
|
|
|
|
import .colimits ..functor.adjoint
|
|
|
|
open eq functor category is_trunc prod nat_trans
|
|
|
|
namespace category
|
|
|
|
definition limit_functor_adjoint [constructor] (D I : Precategory) [H : has_limits_of_shape D I] :
|
|
constant_diagram D I ⊣ limit_functor D I :=
|
|
adjoint.mk'
|
|
begin
|
|
fapply natural_iso.MK,
|
|
{ intro dF η, induction dF with d F, esimp at *,
|
|
fapply hom_limit,
|
|
{ exact natural_map η},
|
|
{ intro i j f, exact !naturality ⬝ !id_right}},
|
|
{ esimp, intro dF dF' fθ, induction dF with d F, induction dF' with d' F',
|
|
induction fθ with f θ, esimp at *, apply eq_of_homotopy, intro η,
|
|
apply eq_hom_limit, intro i,
|
|
rewrite [assoc, limit_hom_limit_commute,
|
|
-assoc, assoc (limit_morphism F i), hom_limit_commute]},
|
|
{ esimp, intro dF f, induction dF with d F, esimp at *,
|
|
refine !limit_nat_trans ∘n constant_nat_trans I f},
|
|
{ esimp, intro dF, induction dF with d F, esimp, apply eq_of_homotopy, intro η,
|
|
apply nat_trans_eq, intro i, esimp, apply hom_limit_commute},
|
|
{ esimp, intro dF, induction dF with d F, esimp, apply eq_of_homotopy, intro f,
|
|
symmetry, apply eq_hom_limit, intro i, reflexivity}
|
|
end
|
|
|
|
|
|
end category
|