Portability | rank 2 types |
---|---|

Stability | experimental |

Maintainer | Edward Kmett <ekmett@gmail.com> |

Safe Haskell | Trustworthy |

Left Kan Extensions

- data Lan g h a where
- 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

Functor (Lan f g) | |

(Functor g, Applicative h) => Applicative (Lan g h) | |

(Functor g, Apply h) => Apply (Lan g h) |

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

The universal property of a left Kan extension.

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

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 aSource

`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) aSource

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

`adjointToLan`

.`lanToAdjoint`

≡`id`

`lanToAdjoint`

.`adjointToLan`

≡`id`

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

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

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

`lanToComposedAdjoint`

and `composedAdjointToLan`

witness the natural isomorphism between `Lan f h`

and `Compose h g`

given `f -| g`

`composedAdjointToLan`

.`lanToComposedAdjoint`

≡`id`

`lanToComposedAdjoint`

.`composedAdjointToLan`

≡`id`