2014-10-09 01:44:01 +00:00
|
|
|
-- Copyright (c) 2014 Floris van Doorn. All rights reserved.
|
|
|
|
-- Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
-- Author: Floris van Doorn
|
|
|
|
|
2014-11-04 00:22:30 +00:00
|
|
|
import .natural_transformation
|
2014-10-09 01:44:01 +00:00
|
|
|
import data.sigma
|
|
|
|
|
|
|
|
open eq eq.ops category functor natural_transformation
|
|
|
|
|
|
|
|
namespace limits
|
|
|
|
--representable functor
|
|
|
|
section
|
2014-11-04 00:22:30 +00:00
|
|
|
variables {I C : Category} {D : I ⇒ C}
|
2014-10-09 01:44:01 +00:00
|
|
|
|
2014-11-04 00:22:30 +00:00
|
|
|
definition constant_diagram (a : C) : I ⇒ C :=
|
2014-10-09 01:44:01 +00:00
|
|
|
mk (λ i, a)
|
|
|
|
(λ i j u, id)
|
|
|
|
(λ i, rfl)
|
|
|
|
(λ i j k v u, symm !id_compose)
|
|
|
|
|
2014-11-04 00:22:30 +00:00
|
|
|
definition cone := Σ(a : C), constant_diagram a ⟹ D
|
2014-10-09 01:44:01 +00:00
|
|
|
-- definition cone_category : category cone :=
|
|
|
|
-- mk (λa b, sorry)
|
|
|
|
-- (λ a b c g f, sorry)
|
|
|
|
-- (λ a, sorry)
|
|
|
|
-- (λ a b c d h g f, sorry)
|
|
|
|
-- (λ a b f, sorry)
|
|
|
|
-- (λ a b f, sorry)
|
|
|
|
|
|
|
|
end
|
|
|
|
end limits
|
|
|
|
-- functor.mk (λ a, sorry)
|
|
|
|
-- (λ a b f, sorry)
|
|
|
|
-- (λ a, sorry)
|
|
|
|
-- (λ a b c g f, sorry)
|