| Safe Haskell | None |
|---|---|
| Language | GHC2024 |
Proarrow.Category.Equipment
Documentation
class (Bicategory kk, Bicategory (SUBCAT Tight kk), Bicategory (SUBCAT Cotight kk), WithObO2 Cotight kk, WithObO2 Tight kk) => Equipment (kk :: CAT k) where Source Github #
Methods
withCotightAdjoint :: forall {j :: k} {k1 :: k} (f :: kk j k1) r. IsTight f => ((Adjunction_ f (CotightAdjoint f), IsCotight (CotightAdjoint f)) => r) -> r Source Github #
withTightAdjoint :: forall {j :: k} {k1 :: k} (f :: kk j k1) r. IsCotight f => ((Adjunction_ (TightAdjoint f) f, IsTight (TightAdjoint f)) => r) -> r Source Github #
Instances
type family TightAdjoint (p :: kk j i) :: kk i j Source Github #
Instances
| type TightAdjoint (p :: PROFK k j) Source Github # | |
Defined in Proarrow.Category.Bicategory.Prof | |
| type TightAdjoint ('AK ps :: ADJK j i) Source Github # | |
Defined in Proarrow.Category.Bicategory.Adj | |
| type TightAdjoint (a :: MonK k i j) Source Github # | |
Defined in Proarrow.Category.Bicategory.MonoidalAsBi | |
| type TightAdjoint (p :: STT' k i j) Source Github # | |
Defined in Proarrow.Category.Equipment.Stateful type TightAdjoint (p :: STT' k i j) = 'ST (WithWriter (UN ('ST :: (k +-> k) -> STT' k i j) p)) :: STT' k j i | |
| type TightAdjoint (p :: COK kk k2 j) Source Github # | |
Defined in Proarrow.Category.Bicategory.Co | |
| type TightAdjoint (p :: OPK kk k2 j) Source Github # | |
Defined in Proarrow.Category.Bicategory.Op | |
| type TightAdjoint (p :: PRODK jj kk j2 k2) Source Github # | |
Defined in Proarrow.Category.Bicategory.Product type TightAdjoint (p :: PRODK jj kk j2 k2) = 'PROD (TightAdjoint (PRODFST p)) (TightAdjoint (PRODSND p)) :: PRODK jj kk k2 j2 | |
type family CotightAdjoint (p :: kk j i) :: kk i j Source Github #
Instances
| type CotightAdjoint (p :: PROFK k j) Source Github # | |
Defined in Proarrow.Category.Bicategory.Prof | |
| type CotightAdjoint ('AK ps :: ADJK j i) Source Github # | |
Defined in Proarrow.Category.Bicategory.Adj | |
| type CotightAdjoint (a :: MonK k i j) Source Github # | |
Defined in Proarrow.Category.Bicategory.MonoidalAsBi | |
| type CotightAdjoint (p :: STT' k i j) Source Github # | |
Defined in Proarrow.Category.Equipment.Stateful type CotightAdjoint (p :: STT' k i j) = 'ST (WithReader (UN ('ST :: (k +-> k) -> STT' k i j) p)) :: STT' k j i | |
| type CotightAdjoint (p :: COK kk k2 j) Source Github # | |
Defined in Proarrow.Category.Bicategory.Co | |
| type CotightAdjoint (p :: OPK kk k2 j) Source Github # | |
Defined in Proarrow.Category.Bicategory.Op | |
| type CotightAdjoint (p :: PRODK jj kk j2 k2) Source Github # | |
Defined in Proarrow.Category.Bicategory.Product type CotightAdjoint (p :: PRODK jj kk j2 k2) = 'PROD (CotightAdjoint (PRODFST p)) (CotightAdjoint (PRODSND p)) :: PRODK jj kk k2 j2 | |
Instances
| WithObO2 Tight ADJK Source Github # | |
| WithObO2 Tight PROFK Source Github # | |
| Monoidal k => WithObO2 Tight (MonK k :: () -> () -> Type) Source Github # | |
| SelfAction k => WithObO2 Tight (STT' k :: () -> () -> Type) Source Github # | |
| WithObO2 Cotight kk => WithObO2 Tight (COK kk :: s -> s -> Type) Source Github # | |
| WithObO2 Cotight kk => WithObO2 Tight (OPK kk :: s -> s -> Type) Source Github # | |
| (WithObO2 Tight jj, WithObO2 Tight kk) => WithObO2 Tight (PRODK jj kk :: (j, k) -> (j, k) -> Type) Source Github # | |
| (Bicategory kk, Ob0 kk h, Ob0 kk i, Ob0 kk j, Ob0 kk k) => Profunctor (Sq' :: (kk j h, SUBCAT Tight kk h i) -> (kk k i, SUBCAT Tight kk j k) -> Type) Source Github # | |
Defined in Proarrow.Squares Methods dimap :: forall (c0 :: (kk j h, SUBCAT Tight kk h i)) (a :: (kk j h, SUBCAT Tight kk h i)) (b :: (kk k i, SUBCAT Tight kk j k)) (d :: (kk k i, SUBCAT Tight kk j k)). (c0 ~> a) -> (b ~> d) -> Sq' a b -> Sq' c0 d Source Github # lmap :: forall (c0 :: (kk j h, SUBCAT Tight kk h i)) (a :: (kk j h, SUBCAT Tight kk h i)) (b :: (kk k i, SUBCAT Tight kk j k)). (c0 ~> a) -> Sq' a b -> Sq' c0 b Source Github # rmap :: forall (b :: (kk k i, SUBCAT Tight kk j k)) (d :: (kk k i, SUBCAT Tight kk j k)) (a :: (kk j h, SUBCAT Tight kk h i)). (b ~> d) -> Sq' a b -> Sq' a d Source Github # (\\) :: forall (a :: (kk j h, SUBCAT Tight kk h i)) (b :: (kk k i, SUBCAT Tight kk j k)) r. ((Ob a, Ob b) => r) -> Sq' a b -> r Source Github # | |
| type IsOb0 Tight (k2 :: k1) Source Github # | |
Defined in Proarrow.Category.Equipment | |
| type IsOb Tight (p :: PROFK j k) Source Github # | |
Defined in Proarrow.Category.Bicategory.Prof | |
| type IsOb Tight ('AK ps :: ADJK i j) Source Github # | |
| type IsOb Tight (p :: STT' k i j) Source Github # | |
| type IsOb Tight ('MK a :: MonK k i j) Source Github # | |
Defined in Proarrow.Category.Bicategory.MonoidalAsBi | |
| type IsOb Tight (p :: COK kk i j) Source Github # | |
| type IsOb Tight (p :: OPK kk j i) Source Github # | |
| type IsOb Tight (p :: PRODK jj kk j2 k2) Source Github # | |
Instances
type family IsOb tag (a :: kk i j) Source Github #
Instances
class WithObO2 tag (kk :: s -> s -> Type) where Source Github #
Methods
withObO2 :: forall {i :: s} {j :: s} {k :: s} (a :: kk j k) (b :: kk i j) r. (Ob a, Ob b, IsOb tag a, IsOb tag b) => ((IsOb tag (O a b), Ob (O a b)) => r) -> r Source Github #
Instances
class (IsTight f, IsCotight g, Adjunction f g) => TightPair (f :: kk c d) (g :: kk d c) Source Github #
Instances
| (IsTight f, IsCotight g, Adjunction f g) => TightPair (f :: kk c d) (g :: kk d c) Source Github # | |
Defined in Proarrow.Category.Equipment | |