kan-extensions-5.0.2: Kan extensions, Kan lifts, various forms of the Yoneda lemma, and (co)density (co)monads

Copyright | 2008-2016 Edward Kmett
License | BSD
Maintainer | Edward Kmett <ekmett@gmail.com>
Stability | experimental
Portability | rank 2 types
Safe Haskell | Safe
Language | Haskell98

Data.Functor.Kan.Lan

Contents

- Left Kan Extensions

Description

Left Kan Extensions

Synopsis

- data Lan g h a where
  - Lan :: (g b -> a) -> h b -> Lan g h a
- toLan :: Functor f => (forall a. h a -> f (g a)) -> Lan g h b -> f b
- fromLan :: (forall a. Lan g h a -> f a) -> h b -> f (g b)
- glan :: h a -> Lan g h (g a)
- composeLan :: (Composition compose, Functor f) => Lan f (Lan g h) a -> Lan (compose f g) h a
- decomposeLan :: Composition compose => Lan (compose f g) h a -> Lan f (Lan g h) a
- adjointToLan :: Adjunction f g => g a -> Lan f Identity a
- lanToAdjoint :: Adjunction f g => Lan f Identity a -> g a
- composedAdjointToLan :: Adjunction f g => h (g a) -> Lan f h a
- lanToComposedAdjoint :: (Functor h, Adjunction f g) => Lan f h a -> h (g a)

# Left Kan Extensions

data Lan g h a where #

The left Kan extension of a `Functor` `h` along a `Functor` `g`.

Constructors

Lan :: (g b -> a) -> h b -> Lan g h a |

Instances

Functor (Lan f g) # |
Methods fmap :: (a -> b) -> Lan f g a -> Lan f g b # (<$) :: a -> Lan f g b -> Lan f g a #
(Functor g, Applicative h) => Applicative (Lan g h) # |
Methods pure :: a -> Lan g h a # (<*>) :: Lan g h (a -> b) -> Lan g h a -> Lan g h b # (*>) :: Lan g h a -> Lan g h b -> Lan g h b # (<*) :: Lan g h a -> Lan g h b -> Lan g h a #
(Functor g, Apply h) => Apply (Lan g h) # |
Methods (<.>) :: Lan g h (a -> b) -> Lan g h a -> Lan g h b # (.>) :: Lan g h a -> Lan g h b -> Lan g h b # (<.) :: Lan g h a -> Lan g h b -> Lan g h a #

toLan :: Functor f => (forall a. h a -> f (g a)) -> Lan g h b -> f b #

The universal property of a left Kan extension.

fromLan :: (forall a. Lan g h a -> f a) -> h b -> f (g b) #

`fromLan` and `toLan` witness a (higher kinded) adjunction between ``Lan` g` and `(`Compose` g)`

    toLan . fromLan ≡ id
    fromLan . toLan ≡ id

glan :: h a -> Lan g h (g a) #

This is the natural transformation that defines a Left Kan extension.

composeLan :: (Composition compose, Functor f) => Lan f (Lan g h) a -> Lan (compose f g) h a #

`composeLan` and `decomposeLan` witness the natural isomorphism from `Lan f (Lan g h)` and `Lan (f `o` g) h`

    composeLan . decomposeLan ≡ id
    decomposeLan . composeLan ≡ id

decomposeLan :: Composition compose => Lan (compose f g) h a -> Lan f (Lan g h) a #

adjointToLan :: Adjunction f g => g a -> Lan f Identity a #

    adjointToLan . lanToAdjoint ≡ id
    lanToAdjoint . adjointToLan ≡ id

lanToAdjoint :: Adjunction f g => Lan f Identity a -> g a #

composedAdjointToLan :: Adjunction f g => h (g a) -> Lan f h a #

lanToComposedAdjoint :: (Functor h, Adjunction f g) => Lan f h a -> h (g a) #

`lanToComposedAdjoint` and `composedAdjointToLan` witness the natural isomorphism between `Lan f h` and `Compose h g` given `f -| g`

    composedAdjointToLan . lanToComposedAdjoint ≡ id
    lanToComposedAdjoint . composedAdjointToLan ≡ id