Data.Singletons.Sigma

Defines Sigma, a dependent pair data type, and related functions.

Documentation

data Sigma (s :: Type) :: (s ~> Type) -> Type where

A dependent pair.

Constructors

(:&:) :: forall s t fst. Sing (fst :: s) -> (t @@ fst) -> Sigma s t infixr 4

type Σ (s :: Type) (t :: s ~> Type) = Sigma s t

Unicode shorthand for Sigma.

projSigma1 :: forall s t. SingKind s => Sigma s t -> Demote s

Project the first element out of a dependent pair.

projSigma2 :: forall s t r. (forall (fst :: s). (t @@ fst) -> r) -> Sigma s t -> r

Project the second element out of a dependent pair.

In an ideal setting, the type of projSigma2 would be closer to:

projSigma2 :: Sing (sig :: Sigma s t) -> t @@ ProjSigma1 sig

But promoting projSigma1 to a type family is not a simple task. Instead, we do the next-best thing, which is to use Church-style elimination.

mapSigma :: Sing (f :: a ~> b) -> (forall (x :: a). (p @@ x) -> q @@ (f @@ x)) -> Sigma a p -> Sigma b q

Map across a Sigma value in a dependent fashion.

zipSigma :: Sing (f :: a ~> (b ~> c)) -> (forall (x :: a) (y :: b). (p @@ x) -> (q @@ y) -> r @@ ((f @@ x) @@ y)) -> Sigma a p -> Sigma b q -> Sigma c r

Zip two Sigma values together in a dependent fashion.

Defunctionalization symbols

data ΣSym0 s6989586621679353873

Instances

SuppressUnusedWarnings (ΣSym0 :: TyFun Type (TyFun (s6989586621679353873 ~> Type) Type -> Type) -> Type)

Defined in Data.Singletons.Sigma

Methods

suppressUnusedWarnings :: ()

type Apply (ΣSym0 :: TyFun Type (TyFun (s1 ~> Type) Type -> Type) -> Type) (s2 :: Type)

Defined in Data.Singletons.Sigma

type Apply (ΣSym0 :: TyFun Type (TyFun (s1 ~> Type) Type -> Type) -> Type) (s2 :: Type) = (ΣSym1 s2 :: TyFun (s1 ~> Type) Type -> Type)

data ΣSym1 (s6989586621679353873 :: Type) t6989586621679353874

Instances

SuppressUnusedWarnings (ΣSym1 s2 :: TyFun (s1 ~> Type) Type -> Type)

Defined in Data.Singletons.Sigma

Methods

suppressUnusedWarnings :: ()

type Apply (ΣSym1 s6989586621679353873 :: TyFun (s6989586621679353873 ~> Type) Type -> Type) (t6989586621679353874 :: s6989586621679353873 ~> Type)

Defined in Data.Singletons.Sigma

type Apply (ΣSym1 s6989586621679353873 :: TyFun (s6989586621679353873 ~> Type) Type -> Type) (t6989586621679353874 :: s6989586621679353873 ~> Type) = Σ s6989586621679353873 t6989586621679353874

type ΣSym2 (s6989586621679353873 :: Type) (t6989586621679353874 :: (~>) s6989586621679353873 Type) = Σ s6989586621679353873 t6989586621679353874