Data.Category.Monoidal

Documentation

class (Functor f, Dom f ~ (Cod f :**: Cod f)) => TensorProduct f where

A monoidal category is a category with some kind of tensor product. A tensor product is a bifunctor, with a unit object.

Associated Types

type Unit f :: Kind (Cod f)

Methods

unitObject :: f -> Obj (Cod f) (Unit f)

leftUnitor :: Cod f ~ k => f -> Obj k a -> k (f :% (Unit f, a)) a

leftUnitorInv :: Cod f ~ k => f -> Obj k a -> k a (f :% (Unit f, a))

rightUnitor :: Cod f ~ k => f -> Obj k a -> k (f :% (a, Unit f)) a

rightUnitorInv :: Cod f ~ k => f -> Obj k a -> k a (f :% (a, Unit f))

associator :: Cod f ~ k => f -> Obj k a -> Obj k b -> Obj k c -> k (f :% (f :% (a, b), c)) (f :% (a, f :% (b, c)))

associatorInv :: Cod f ~ k => f -> Obj k a -> Obj k b -> Obj k c -> k (f :% (a, f :% (b, c))) (f :% (f :% (a, b), c))

Instances

TensorProduct Add

Defined in Data.Category.Cube

Associated Types

type Unit Add :: Kind (Cod f)

Methods

unitObject :: Add -> Obj (Cod Add) (Unit Add)

leftUnitor :: Cod Add ~ k => Add -> Obj k a -> k (Add :% (Unit Add, a)) a

leftUnitorInv :: Cod Add ~ k => Add -> Obj k a -> k a (Add :% (Unit Add, a))

rightUnitor :: Cod Add ~ k => Add -> Obj k a -> k (Add :% (a, Unit Add)) a

rightUnitorInv :: Cod Add ~ k => Add -> Obj k a -> k a (Add :% (a, Unit Add))

associator :: Cod Add ~ k => Add -> Obj k a -> Obj k b -> Obj k c -> k (Add :% (Add :% (a, b), c)) (Add :% (a, Add :% (b, c)))

associatorInv :: Cod Add ~ k => Add -> Obj k a -> Obj k b -> Obj k c -> k (Add :% (a, Add :% (b, c))) (Add :% (Add :% (a, b), c))

TensorProduct LinearTensor

Defined in Data.Category.Monoidal

Associated Types

type Unit LinearTensor :: Kind (Cod f)

Methods

unitObject :: LinearTensor -> Obj (Cod LinearTensor) (Unit LinearTensor)

leftUnitor :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> k (LinearTensor :% (Unit LinearTensor, a)) a

leftUnitorInv :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> k a (LinearTensor :% (Unit LinearTensor, a))

rightUnitor :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> k (LinearTensor :% (a, Unit LinearTensor)) a

rightUnitorInv :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> k a (LinearTensor :% (a, Unit LinearTensor))

associator :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> Obj k b -> Obj k c -> k (LinearTensor :% (LinearTensor :% (a, b), c)) (LinearTensor :% (a, LinearTensor :% (b, c)))

associatorInv :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> Obj k b -> Obj k c -> k (LinearTensor :% (a, LinearTensor :% (b, c))) (LinearTensor :% (LinearTensor :% (a, b), c))

TensorProduct Add

Ordinal addition makes the simplex category a monoidal category, with 0 as unit.

Defined in Data.Category.Simplex

Associated Types

type Unit Add :: Kind (Cod f)

Methods

unitObject :: Add -> Obj (Cod Add) (Unit Add)

leftUnitor :: Cod Add ~ k => Add -> Obj k a -> k (Add :% (Unit Add, a)) a

leftUnitorInv :: Cod Add ~ k => Add -> Obj k a -> k a (Add :% (Unit Add, a))

rightUnitor :: Cod Add ~ k => Add -> Obj k a -> k (Add :% (a, Unit Add)) a

rightUnitorInv :: Cod Add ~ k => Add -> Obj k a -> k a (Add :% (a, Unit Add))

associator :: Cod Add ~ k => Add -> Obj k a -> Obj k b -> Obj k c -> k (Add :% (Add :% (a, b), c)) (Add :% (a, Add :% (b, c)))

associatorInv :: Cod Add ~ k => Add -> Obj k a -> Obj k b -> Obj k c -> k (Add :% (a, Add :% (b, c))) (Add :% (Add :% (a, b), c))

(HasInitialObject k, HasBinaryCoproducts k) => TensorProduct (CoproductFunctor k)

If a category has all coproducts, then the coproduct functor makes it a monoidal category, with the initial object as unit.

Defined in Data.Category.Monoidal

Associated Types

type Unit (CoproductFunctor k) :: Kind (Cod f)

Methods

unitObject :: CoproductFunctor k -> Obj (Cod (CoproductFunctor k)) (Unit (CoproductFunctor k))

leftUnitor :: Cod (CoproductFunctor k) ~ k0 => CoproductFunctor k -> Obj k0 a -> k0 (CoproductFunctor k :% (Unit (CoproductFunctor k), a)) a

leftUnitorInv :: Cod (CoproductFunctor k) ~ k0 => CoproductFunctor k -> Obj k0 a -> k0 a (CoproductFunctor k :% (Unit (CoproductFunctor k), a))

rightUnitor :: Cod (CoproductFunctor k) ~ k0 => CoproductFunctor k -> Obj k0 a -> k0 (CoproductFunctor k :% (a, Unit (CoproductFunctor k))) a

rightUnitorInv :: Cod (CoproductFunctor k) ~ k0 => CoproductFunctor k -> Obj k0 a -> k0 a (CoproductFunctor k :% (a, Unit (CoproductFunctor k)))

associator :: Cod (CoproductFunctor k) ~ k0 => CoproductFunctor k -> Obj k0 a -> Obj k0 b -> Obj k0 c -> k0 (CoproductFunctor k :% (CoproductFunctor k :% (a, b), c)) (CoproductFunctor k :% (a, CoproductFunctor k :% (b, c)))

associatorInv :: Cod (CoproductFunctor k) ~ k0 => CoproductFunctor k -> Obj k0 a -> Obj k0 b -> Obj k0 c -> k0 (CoproductFunctor k :% (a, CoproductFunctor k :% (b, c))) (CoproductFunctor k :% (CoproductFunctor k :% (a, b), c))

(HasTerminalObject k, HasBinaryProducts k) => TensorProduct (ProductFunctor k)

If a category has all products, then the product functor makes it a monoidal category, with the terminal object as unit.

Defined in Data.Category.Monoidal

Associated Types

type Unit (ProductFunctor k) :: Kind (Cod f)

Methods

unitObject :: ProductFunctor k -> Obj (Cod (ProductFunctor k)) (Unit (ProductFunctor k))

leftUnitor :: Cod (ProductFunctor k) ~ k0 => ProductFunctor k -> Obj k0 a -> k0 (ProductFunctor k :% (Unit (ProductFunctor k), a)) a

leftUnitorInv :: Cod (ProductFunctor k) ~ k0 => ProductFunctor k -> Obj k0 a -> k0 a (ProductFunctor k :% (Unit (ProductFunctor k), a))

rightUnitor :: Cod (ProductFunctor k) ~ k0 => ProductFunctor k -> Obj k0 a -> k0 (ProductFunctor k :% (a, Unit (ProductFunctor k))) a

rightUnitorInv :: Cod (ProductFunctor k) ~ k0 => ProductFunctor k -> Obj k0 a -> k0 a (ProductFunctor k :% (a, Unit (ProductFunctor k)))

associator :: Cod (ProductFunctor k) ~ k0 => ProductFunctor k -> Obj k0 a -> Obj k0 b -> Obj k0 c -> k0 (ProductFunctor k :% (ProductFunctor k :% (a, b), c)) (ProductFunctor k :% (a, ProductFunctor k :% (b, c)))

associatorInv :: Cod (ProductFunctor k) ~ k0 => ProductFunctor k -> Obj k0 a -> Obj k0 b -> Obj k0 c -> k0 (ProductFunctor k :% (a, ProductFunctor k :% (b, c))) (ProductFunctor k :% (ProductFunctor k :% (a, b), c))

TensorProduct t => TensorProduct (Day t)

Defined in Data.Category.Monoidal

Associated Types

type Unit (Day t) :: Kind (Cod f)

Methods

unitObject :: Day t -> Obj (Cod (Day t)) (Unit (Day t))

leftUnitor :: Cod (Day t) ~ k => Day t -> Obj k a -> k (Day t :% (Unit (Day t), a)) a

leftUnitorInv :: Cod (Day t) ~ k => Day t -> Obj k a -> k a (Day t :% (Unit (Day t), a))

rightUnitor :: Cod (Day t) ~ k => Day t -> Obj k a -> k (Day t :% (a, Unit (Day t))) a

rightUnitorInv :: Cod (Day t) ~ k => Day t -> Obj k a -> k a (Day t :% (a, Unit (Day t)))

associator :: Cod (Day t) ~ k => Day t -> Obj k a -> Obj k b -> Obj k c -> k (Day t :% (Day t :% (a, b), c)) (Day t :% (a, Day t :% (b, c)))

associatorInv :: Cod (Day t) ~ k => Day t -> Obj k a -> Obj k b -> Obj k c -> k (Day t :% (a, Day t :% (b, c))) (Day t :% (Day t :% (a, b), c))

Category k => TensorProduct (EndoFunctorCompose k)

Functor composition makes the category of endofunctors monoidal, with the identity functor as unit.

Defined in Data.Category.Monoidal

Associated Types

type Unit (EndoFunctorCompose k) :: Kind (Cod f)

Methods

unitObject :: EndoFunctorCompose k -> Obj (Cod (EndoFunctorCompose k)) (Unit (EndoFunctorCompose k))

leftUnitor :: Cod (EndoFunctorCompose k) ~ k0 => EndoFunctorCompose k -> Obj k0 a -> k0 (EndoFunctorCompose k :% (Unit (EndoFunctorCompose k), a)) a

leftUnitorInv :: Cod (EndoFunctorCompose k) ~ k0 => EndoFunctorCompose k -> Obj k0 a -> k0 a (EndoFunctorCompose k :% (Unit (EndoFunctorCompose k), a))

rightUnitor :: Cod (EndoFunctorCompose k) ~ k0 => EndoFunctorCompose k -> Obj k0 a -> k0 (EndoFunctorCompose k :% (a, Unit (EndoFunctorCompose k))) a

rightUnitorInv :: Cod (EndoFunctorCompose k) ~ k0 => EndoFunctorCompose k -> Obj k0 a -> k0 a (EndoFunctorCompose k :% (a, Unit (EndoFunctorCompose k)))

associator :: Cod (EndoFunctorCompose k) ~ k0 => EndoFunctorCompose k -> Obj k0 a -> Obj k0 b -> Obj k0 c -> k0 (EndoFunctorCompose k :% (EndoFunctorCompose k :% (a, b), c)) (EndoFunctorCompose k :% (a, EndoFunctorCompose k :% (b, c)))

associatorInv :: Cod (EndoFunctorCompose k) ~ k0 => EndoFunctorCompose k -> Obj k0 a -> Obj k0 b -> Obj k0 c -> k0 (EndoFunctorCompose k :% (a, EndoFunctorCompose k :% (b, c))) (EndoFunctorCompose k :% (EndoFunctorCompose k :% (a, b), c))

(TensorProduct t, Cod t ~ f (Fix f)) => TensorProduct (WrapTensor (Fix f) t)

Fix f inherits tensor products from f (Fix f).

Defined in Data.Category.Fix

Associated Types

type Unit (WrapTensor (Fix f) t) :: Kind (Cod f)

Methods

unitObject :: WrapTensor (Fix f) t -> Obj (Cod (WrapTensor (Fix f) t)) (Unit (WrapTensor (Fix f) t))

leftUnitor :: Cod (WrapTensor (Fix f) t) ~ k => WrapTensor (Fix f) t -> Obj k a -> k (WrapTensor (Fix f) t :% (Unit (WrapTensor (Fix f) t), a)) a

leftUnitorInv :: Cod (WrapTensor (Fix f) t) ~ k => WrapTensor (Fix f) t -> Obj k a -> k a (WrapTensor (Fix f) t :% (Unit (WrapTensor (Fix f) t), a))

rightUnitor :: Cod (WrapTensor (Fix f) t) ~ k => WrapTensor (Fix f) t -> Obj k a -> k (WrapTensor (Fix f) t :% (a, Unit (WrapTensor (Fix f) t))) a

rightUnitorInv :: Cod (WrapTensor (Fix f) t) ~ k => WrapTensor (Fix f) t -> Obj k a -> k a (WrapTensor (Fix f) t :% (a, Unit (WrapTensor (Fix f) t)))

associator :: Cod (WrapTensor (Fix f) t) ~ k => WrapTensor (Fix f) t -> Obj k a -> Obj k b -> Obj k c -> k (WrapTensor (Fix f) t :% (WrapTensor (Fix f) t :% (a, b), c)) (WrapTensor (Fix f) t :% (a, WrapTensor (Fix f) t :% (b, c)))

associatorInv :: Cod (WrapTensor (Fix f) t) ~ k => WrapTensor (Fix f) t -> Obj k a -> Obj k b -> Obj k c -> k (WrapTensor (Fix f) t :% (a, WrapTensor (Fix f) t :% (b, c))) (WrapTensor (Fix f) t :% (WrapTensor (Fix f) t :% (a, b), c))

class TensorProduct f => SymmetricTensorProduct f where

Methods

swap :: Cod f ~ k => f -> Obj k a -> Obj k b -> k (f :% (a, b)) (f :% (b, a))

Instances

SymmetricTensorProduct LinearTensor

Defined in Data.Category.Monoidal

Methods

swap :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> Obj k b -> k (LinearTensor :% (a, b)) (LinearTensor :% (b, a))

(HasInitialObject k, HasBinaryCoproducts k) => SymmetricTensorProduct (CoproductFunctor k)

Defined in Data.Category.Monoidal

Methods

swap :: Cod (CoproductFunctor k) ~ k0 => CoproductFunctor k -> Obj k0 a -> Obj k0 b -> k0 (CoproductFunctor k :% (a, b)) (CoproductFunctor k :% (b, a))

(HasTerminalObject k, HasBinaryProducts k) => SymmetricTensorProduct (ProductFunctor k)

Defined in Data.Category.Monoidal

Methods

swap :: Cod (ProductFunctor k) ~ k0 => ProductFunctor k -> Obj k0 a -> Obj k0 b -> k0 (ProductFunctor k :% (a, b)) (ProductFunctor k :% (b, a))

data LinearTensor

Constructors

LinearTensor

Instances

Functor LinearTensor

Defined in Data.Category.Monoidal

Associated Types

type Dom LinearTensor :: Type -> Type -> Type

type Cod LinearTensor :: Type -> Type -> Type

type LinearTensor :% a

Methods

(%) :: LinearTensor -> Dom LinearTensor a b -> Cod LinearTensor (LinearTensor :% a) (LinearTensor :% b)

SymmetricTensorProduct LinearTensor

Defined in Data.Category.Monoidal

Methods

swap :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> Obj k b -> k (LinearTensor :% (a, b)) (LinearTensor :% (b, a))

TensorProduct LinearTensor

Defined in Data.Category.Monoidal

Associated Types

type Unit LinearTensor :: Kind (Cod f)

Methods

unitObject :: LinearTensor -> Obj (Cod LinearTensor) (Unit LinearTensor)

leftUnitor :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> k (LinearTensor :% (Unit LinearTensor, a)) a

leftUnitorInv :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> k a (LinearTensor :% (Unit LinearTensor, a))

rightUnitor :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> k (LinearTensor :% (a, Unit LinearTensor)) a

rightUnitorInv :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> k a (LinearTensor :% (a, Unit LinearTensor))

associator :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> Obj k b -> Obj k c -> k (LinearTensor :% (LinearTensor :% (a, b), c)) (LinearTensor :% (a, LinearTensor :% (b, c)))

associatorInv :: Cod LinearTensor ~ k => LinearTensor -> Obj k a -> Obj k b -> Obj k c -> k (LinearTensor :% (a, LinearTensor :% (b, c))) (LinearTensor :% (LinearTensor :% (a, b), c))

type Cod LinearTensor

Defined in Data.Category.Monoidal

type Cod LinearTensor = FUN 'One :: TYPE LiftedRep -> TYPE LiftedRep -> Type

type Dom LinearTensor

Defined in Data.Category.Monoidal

type Dom LinearTensor = (FUN 'One :: TYPE LiftedRep -> TYPE LiftedRep -> Type) :**: (FUN 'One :: TYPE LiftedRep -> TYPE LiftedRep -> Type)

type Unit LinearTensor

Defined in Data.Category.Monoidal

type Unit LinearTensor = ()

type LinearTensor :% (a, b)

Defined in Data.Category.Monoidal

type LinearTensor :% (a, b) = (a, b)

data Day t

Day convolution

Constructors

Day t

Instances

TensorProduct t => Functor (Day t)

Defined in Data.Category.Monoidal

Associated Types

type Dom (Day t) :: Type -> Type -> Type

type Cod (Day t) :: Type -> Type -> Type

type (Day t) :% a

Methods

(%) :: Day t -> Dom (Day t) a b -> Cod (Day t) (Day t :% a) (Day t :% b)

TensorProduct t => TensorProduct (Day t)

Defined in Data.Category.Monoidal

Associated Types

type Unit (Day t) :: Kind (Cod f)

Methods

unitObject :: Day t -> Obj (Cod (Day t)) (Unit (Day t))

leftUnitor :: Cod (Day t) ~ k => Day t -> Obj k a -> k (Day t :% (Unit (Day t), a)) a

leftUnitorInv :: Cod (Day t) ~ k => Day t -> Obj k a -> k a (Day t :% (Unit (Day t), a))

rightUnitor :: Cod (Day t) ~ k => Day t -> Obj k a -> k (Day t :% (a, Unit (Day t))) a

rightUnitorInv :: Cod (Day t) ~ k => Day t -> Obj k a -> k a (Day t :% (a, Unit (Day t)))

associator :: Cod (Day t) ~ k => Day t -> Obj k a -> Obj k b -> Obj k c -> k (Day t :% (Day t :% (a, b), c)) (Day t :% (a, Day t :% (b, c)))

associatorInv :: Cod (Day t) ~ k => Day t -> Obj k a -> Obj k b -> Obj k c -> k (Day t :% (a, Day t :% (b, c))) (Day t :% (Day t :% (a, b), c))

type Cod (Day t)

Defined in Data.Category.Monoidal

type Cod (Day t) = Nat (Cod t) (->)

type Dom (Day t)

Defined in Data.Category.Monoidal

type Dom (Day t) = Nat (Cod t) (->) :**: Nat (Cod t) (->)

type Unit (Day t)

Defined in Data.Category.Monoidal

type Unit (Day t) = Curry1 (Op (Cod t)) (Cod t) (Hom (Cod t)) :% Unit t

type (Day t) :% (f, g)

Defined in Data.Category.Monoidal

type (Day t) :% (f, g) = LanHaskF t (ProductFunctor (->) :.: (f :***: g))

data MonoidObject f a

MonoidObject f a defines a monoid a in a monoidal category with tensor product f.

Constructors

MonoidObject

Fields

• unit :: Cod f (Unit f) a
• multiply :: Cod f (f :% (a, a)) a

trivialMonoid :: TensorProduct f => f -> MonoidObject f (Unit f)

coproductMonoid :: (HasInitialObject k, HasBinaryCoproducts k) => Obj k a -> MonoidObject (CoproductFunctor k) a

data ComonoidObject f a

ComonoidObject f a defines a comonoid a in a comonoidal category with tensor product f.

Constructors

ComonoidObject

Fields

• counit :: Cod f a (Unit f)
• comultiply :: Cod f a (f :% (a, a))

trivialComonoid :: TensorProduct f => f -> ComonoidObject f (Unit f)

productComonoid :: (HasTerminalObject k, HasBinaryProducts k) => Obj k a -> ComonoidObject (ProductFunctor k) a

data MonoidAsCategory f m a b where

Constructors

MonoidValue :: (TensorProduct f, Dom f ~ (k :**: k), Cod f ~ k) => f -> MonoidObject f m -> k (Unit f) m -> MonoidAsCategory f m m m

Instances

Category (MonoidAsCategory f m :: Type -> Type -> Type)

A monoid as a category with one object.

Defined in Data.Category.Monoidal

Methods

src :: forall (a :: k) (b :: k). MonoidAsCategory f m a b -> Obj (MonoidAsCategory f m) a

tgt :: forall (a :: k) (b :: k). MonoidAsCategory f m a b -> Obj (MonoidAsCategory f m) b

(.) :: forall (b :: k) (c :: k) (a :: k). MonoidAsCategory f m b c -> MonoidAsCategory f m a b -> MonoidAsCategory f m a c

type Monad f = MonoidObject (EndoFunctorCompose (Dom f)) f

A monad is a monoid in the category of endofunctors.

mkMonad :: (Functor f, Dom f ~ k, Cod f ~ k) => f -> (forall a. Obj k a -> Component (Id k) f a) -> (forall a. Obj k a -> Component (f :.: f) f a) -> Monad f

monadFunctor :: Monad f -> f

idMonad :: Category k => Monad (Id k)

type Comonad f = ComonoidObject (EndoFunctorCompose (Dom f)) f

A comonad is a comonoid in the category of endofunctors.

mkComonad :: (Functor f, Dom f ~ k, Cod f ~ k) => f -> (forall a. Obj k a -> Component f (Id k) a) -> (forall a. Obj k a -> Component f (f :.: f) a) -> Comonad f

idComonad :: Category k => Comonad (Id k)

adjunctionMonad :: Adjunction c d f g -> Monad (g :.: f)

Every adjunction gives rise to an associated monad.

adjunctionMonadT :: Dom m ~ c => Adjunction c d f g -> Monad m -> Monad ((g :.: m) :.: f)

Every adjunction gives rise to an associated monad transformer.

adjunctionComonad :: Adjunction c d f g -> Comonad (f :.: g)

Every adjunction gives rise to an associated comonad.

adjunctionComonadT :: Dom w ~ d => Adjunction c d f g -> Comonad w -> Comonad ((f :.: w) :.: g)

Every adjunction gives rise to an associated comonad transformer.