17 lines
518 B
Text
17 lines
518 B
Text
-- 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
|
||
|
||
import .constructions
|
||
|
||
open eq eq.ops category functor natural_transformation category.ops prod category.product
|
||
|
||
namespace adjoint
|
||
|
||
-- definition Hom (C : Category) : Cᵒᵖ ×c C ⇒ type :=
|
||
-- functor.mk (λ a, hom (pr1 a) (pr2 a))
|
||
-- (λ a b f h, sorry)
|
||
-- (λ a, sorry)
|
||
-- (λ a b c g f, sorry)
|
||
|
||
end adjoint
|