Copyright	(C) 2014 Jan Stolarek
License	BSD-style (see LICENSE)
Maintainer	Jan Stolarek (jan.stolarek@p.lodz.pl)
Stability	experimental
Portability	non-portable
Safe Haskell	None
Language	Haskell2010

Data.Singletons.Prelude.Base

Contents

Basic functions
Defunctionalization symbols

Description

Implements singletonized versions of functions from GHC.Base module.

Because many of these definitions are produced by Template Haskell, it is not possible to create proper Haddock documentation. Please look up the corresponding operation in Data.Tuple. Also, please excuse the apparent repeated variable names. This is due to an interaction between Template Haskell and Haddock.

Synopsis

type family Foldr (a :: TyFun a (TyFun b b -> Type) -> Type) (a :: b) (a :: [a]) :: b where ...
sFoldr :: forall (t :: TyFun a (TyFun b b -> Type) -> Type) (t :: b) (t :: [a]). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply FoldrSym0 t) t) t :: b)
type family Map (a :: TyFun a b -> Type) (a :: [a]) :: [b] where ...
sMap :: forall (t :: TyFun a b -> Type) (t :: [a]). Sing t -> Sing t -> Sing (Apply (Apply MapSym0 t) t :: [b])
type family (a :: [a]) ++ (a :: [a]) :: [a] where ...
(%++) :: forall (t :: [a]) (t :: [a]). Sing t -> Sing t -> Sing (Apply (Apply (++@#@$) t) t :: [a])
type family Otherwise :: Bool where ...
sOtherwise :: Sing (OtherwiseSym0 :: Bool)
type family Id (a :: a) :: a where ...
sId :: forall (t :: a). Sing t -> Sing (Apply IdSym0 t :: a)
type family Const (a :: a) (a :: b) :: a where ...
sConst :: forall (t :: a) (t :: b). Sing t -> Sing t -> Sing (Apply (Apply ConstSym0 t) t :: a)
type family ((a :: TyFun b c -> Type) :. (a :: TyFun a b -> Type)) (a :: a) :: c where ...
(%.) :: forall (t :: TyFun b c -> Type) (t :: TyFun a b -> Type) (t :: a). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply (.@#@$) t) t) t :: c)
type family (a :: TyFun a b -> Type) $ (a :: a) :: b where ...
type family (a :: TyFun a b -> Type) $! (a :: a) :: b where ...
(%$) :: forall (t :: TyFun a b -> Type) (t :: a). Sing t -> Sing t -> Sing (Apply (Apply ($@#@$) t) t :: b)
(%$!) :: forall (t :: TyFun a b -> Type) (t :: a). Sing t -> Sing t -> Sing (Apply (Apply ($!@#@$) t) t :: b)
type family Flip (a :: TyFun a (TyFun b c -> Type) -> Type) (a :: b) (a :: a) :: c where ...
sFlip :: forall (t :: TyFun a (TyFun b c -> Type) -> Type) (t :: b) (t :: a). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply FlipSym0 t) t) t :: c)
type family AsTypeOf (a :: a) (a :: a) :: a where ...
sAsTypeOf :: forall (t :: a) (t :: a). Sing t -> Sing t -> Sing (Apply (Apply AsTypeOfSym0 t) t :: a)
type family Seq (a :: a) (a :: b) :: b where ...
sSeq :: forall (t :: a) (t :: b). Sing t -> Sing t -> Sing (Apply (Apply SeqSym0 t) t :: b)
data FoldrSym0 (l :: TyFun (TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type) -> Type))
data FoldrSym1 (l :: TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (l :: TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type))
data FoldrSym2 (l :: TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (l :: b6989586621679435607) (l :: TyFun [a6989586621679435606] b6989586621679435607)
type FoldrSym3 (t :: TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (t :: b6989586621679435607) (t :: [a6989586621679435606]) = Foldr t t t
data MapSym0 (l :: TyFun (TyFun a6989586621679435604 b6989586621679435605 -> Type) (TyFun [a6989586621679435604] [b6989586621679435605] -> Type))
data MapSym1 (l :: TyFun a6989586621679435604 b6989586621679435605 -> Type) (l :: TyFun [a6989586621679435604] [b6989586621679435605])
type MapSym2 (t :: TyFun a6989586621679435604 b6989586621679435605 -> Type) (t :: [a6989586621679435604]) = Map t t
data (++@#@$) (l :: TyFun [a6989586621679435603] (TyFun [a6989586621679435603] [a6989586621679435603] -> Type))
data (l :: [a6989586621679435603]) ++@#@$$ (l :: TyFun [a6989586621679435603] [a6989586621679435603])
type (++@#@$$$) (t :: [a6989586621679435603]) (t :: [a6989586621679435603]) = (++) t t
type OtherwiseSym0 = Otherwise
data IdSym0 (l :: TyFun a6989586621679435602 a6989586621679435602)
type IdSym1 (t :: a6989586621679435602) = Id t
data ConstSym0 (l :: TyFun a6989586621679435600 (TyFun b6989586621679435601 a6989586621679435600 -> Type))
data ConstSym1 (l :: a6989586621679435600) (l :: TyFun b6989586621679435601 a6989586621679435600)
type ConstSym2 (t :: a6989586621679435600) (t :: b6989586621679435601) = Const t t
data (.@#@$) (l :: TyFun (TyFun b6989586621679435597 c6989586621679435598 -> Type) (TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> Type))
data (l :: TyFun b6989586621679435597 c6989586621679435598 -> Type) .@#@$$ (l :: TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type))
data ((l :: TyFun b6989586621679435597 c6989586621679435598 -> Type) .@#@$$$ (l :: TyFun a6989586621679435599 b6989586621679435597 -> Type)) (l :: TyFun a6989586621679435599 c6989586621679435598)
type (.@#@$$$$) (t :: TyFun b6989586621679435597 c6989586621679435598 -> Type) (t :: TyFun a6989586621679435599 b6989586621679435597 -> Type) (t :: a6989586621679435599) = (:.) t t t
data ($@#@$) (l :: TyFun (TyFun a6989586621679435591 b6989586621679435592 -> Type) (TyFun a6989586621679435591 b6989586621679435592 -> Type))
data (l :: TyFun a6989586621679435591 b6989586621679435592 -> Type) $@#@$$ (l :: TyFun a6989586621679435591 b6989586621679435592)
type ($@#@$$$) (t :: TyFun a6989586621679435591 b6989586621679435592 -> Type) (t :: a6989586621679435591) = ($) t t
data ($!@#@$) (l :: TyFun (TyFun a6989586621679435589 b6989586621679435590 -> Type) (TyFun a6989586621679435589 b6989586621679435590 -> Type))
data (l :: TyFun a6989586621679435589 b6989586621679435590 -> Type) $!@#@$$ (l :: TyFun a6989586621679435589 b6989586621679435590)
type ($!@#@$$$) (t :: TyFun a6989586621679435589 b6989586621679435590 -> Type) (t :: a6989586621679435589) = ($!) t t
data FlipSym0 (l :: TyFun (TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type) -> Type))
data FlipSym1 (l :: TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (l :: TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type))
data FlipSym2 (l :: TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (l :: b6989586621679435595) (l :: TyFun a6989586621679435594 c6989586621679435596)
type FlipSym3 (t :: TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (t :: b6989586621679435595) (t :: a6989586621679435594) = Flip t t t
data AsTypeOfSym0 (l :: TyFun a6989586621679435593 (TyFun a6989586621679435593 a6989586621679435593 -> Type))
data AsTypeOfSym1 (l :: a6989586621679435593) (l :: TyFun a6989586621679435593 a6989586621679435593)
type AsTypeOfSym2 (t :: a6989586621679435593) (t :: a6989586621679435593) = AsTypeOf t t
data SeqSym0 (l :: TyFun a6989586621679435587 (TyFun b6989586621679435588 b6989586621679435588 -> Type))
data SeqSym1 (l :: a6989586621679435587) (l :: TyFun b6989586621679435588 b6989586621679435588)
type SeqSym2 (t :: a6989586621679435587) (t :: b6989586621679435588) = Seq t t

Basic functions

type family Foldr (a :: TyFun a (TyFun b b -> Type) -> Type) (a :: b) (a :: [a]) :: b where ... #

Equations

Foldr k z a_6989586621679435871 = Apply (Let6989586621679435876GoSym3 k z a_6989586621679435871) a_6989586621679435871

sFoldr :: forall (t :: TyFun a (TyFun b b -> Type) -> Type) (t :: b) (t :: [a]). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply FoldrSym0 t) t) t :: b) #

type family Map (a :: TyFun a b -> Type) (a :: [a]) :: [b] where ... #

Equations

Map _ '[] = '[]
Map f ((:) x xs) = Apply (Apply (:@#@$) (Apply f x)) (Apply (Apply MapSym0 f) xs)

sMap :: forall (t :: TyFun a b -> Type) (t :: [a]). Sing t -> Sing t -> Sing (Apply (Apply MapSym0 t) t :: [b]) #

type family (a :: [a]) ++ (a :: [a]) :: [a] where ... #

Equations

'[] ++ ys = ys
((:) x xs) ++ ys = Apply (Apply (:@#@$) x) (Apply (Apply (++@#@$) xs) ys)

(%++) :: forall (t :: [a]) (t :: [a]). Sing t -> Sing t -> Sing (Apply (Apply (++@#@$) t) t :: [a]) infixr 5 #

type family Otherwise :: Bool where ... #

Equations

Otherwise = TrueSym0

sOtherwise :: Sing (OtherwiseSym0 :: Bool) #

type family Id (a :: a) :: a where ... #

Equations

Id x = x

sId :: forall (t :: a). Sing t -> Sing (Apply IdSym0 t :: a) #

type family Const (a :: a) (a :: b) :: a where ... #

Equations

Const x _ = x

sConst :: forall (t :: a) (t :: b). Sing t -> Sing t -> Sing (Apply (Apply ConstSym0 t) t :: a) #

type family ((a :: TyFun b c -> Type) :. (a :: TyFun a b -> Type)) (a :: a) :: c where ... #

Equations

(f :. g) a_6989586621679435774 = Apply (Apply (Apply (Apply Lambda_6989586621679435779Sym0 f) g) a_6989586621679435774) a_6989586621679435774

(%.) :: forall (t :: TyFun b c -> Type) (t :: TyFun a b -> Type) (t :: a). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply (.@#@$) t) t) t :: c) infixr 9 #

type family (a :: TyFun a b -> Type) $ (a :: a) :: b where ... #

Equations

f $ x = Apply f x

type family (a :: TyFun a b -> Type) $! (a :: a) :: b where ... #

Equations

f $! x = Apply f (Let6989586621679435722VxSym2 f x)

(%$) :: forall (t :: TyFun a b -> Type) (t :: a). Sing t -> Sing t -> Sing (Apply (Apply ($@#@$) t) t :: b) infixr 0 #

(%$!) :: forall (t :: TyFun a b -> Type) (t :: a). Sing t -> Sing t -> Sing (Apply (Apply ($!@#@$) t) t :: b) infixr 0 #

type family Flip (a :: TyFun a (TyFun b c -> Type) -> Type) (a :: b) (a :: a) :: c where ... #

Equations

Flip f x y = Apply (Apply f y) x

sFlip :: forall (t :: TyFun a (TyFun b c -> Type) -> Type) (t :: b) (t :: a). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply FlipSym0 t) t) t :: c) #

type family AsTypeOf (a :: a) (a :: a) :: a where ... #

Equations

AsTypeOf a_6989586621679435811 a_6989586621679435813 = Apply (Apply ConstSym0 a_6989586621679435811) a_6989586621679435813

sAsTypeOf :: forall (t :: a) (t :: a). Sing t -> Sing t -> Sing (Apply (Apply AsTypeOfSym0 t) t :: a) #

type family Seq (a :: a) (a :: b) :: b where ... infixr 0 #

Equations

Seq _ x = x

sSeq :: forall (t :: a) (t :: b). Sing t -> Sing t -> Sing (Apply (Apply SeqSym0 t) t :: b) infixr 0 #

Defunctionalization symbols

data FoldrSym0 (l :: TyFun (TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type) -> Type)) #

Instances

SuppressUnusedWarnings (FoldrSym0 :: TyFun (TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type) -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (FoldrSym0 :: TyFun (TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type) -> Type) -> *) (l :: TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (FoldrSym0 :: TyFun (TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type) -> Type) -> *) (l :: TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) = FoldrSym1 l

data FoldrSym1 (l :: TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (l :: TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type)) #

Instances

SuppressUnusedWarnings (FoldrSym1 :: (TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) -> TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (FoldrSym1 l1 :: TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type) -> *) (l2 :: b6989586621679435607) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (FoldrSym1 l1 :: TyFun b6989586621679435607 (TyFun [a6989586621679435606] b6989586621679435607 -> Type) -> *) (l2 :: b6989586621679435607) = FoldrSym2 l1 l2

data FoldrSym2 (l :: TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (l :: b6989586621679435607) (l :: TyFun [a6989586621679435606] b6989586621679435607) #

Instances

SuppressUnusedWarnings (FoldrSym2 :: (TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) -> b6989586621679435607 -> TyFun [a6989586621679435606] b6989586621679435607 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (FoldrSym2 l1 l2 :: TyFun [a] b -> *) (l3 :: [a]) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (FoldrSym2 l1 l2 :: TyFun [a] b -> *) (l3 :: [a]) = Foldr l1 l2 l3

type FoldrSym3 (t :: TyFun a6989586621679435606 (TyFun b6989586621679435607 b6989586621679435607 -> Type) -> Type) (t :: b6989586621679435607) (t :: [a6989586621679435606]) = Foldr t t t #

data MapSym0 (l :: TyFun (TyFun a6989586621679435604 b6989586621679435605 -> Type) (TyFun [a6989586621679435604] [b6989586621679435605] -> Type)) #

Instances

SuppressUnusedWarnings (MapSym0 :: TyFun (TyFun a6989586621679435604 b6989586621679435605 -> Type) (TyFun [a6989586621679435604] [b6989586621679435605] -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (MapSym0 :: TyFun (TyFun a6989586621679435604 b6989586621679435605 -> Type) (TyFun [a6989586621679435604] [b6989586621679435605] -> Type) -> *) (l :: TyFun a6989586621679435604 b6989586621679435605 -> Type) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (MapSym0 :: TyFun (TyFun a6989586621679435604 b6989586621679435605 -> Type) (TyFun [a6989586621679435604] [b6989586621679435605] -> Type) -> *) (l :: TyFun a6989586621679435604 b6989586621679435605 -> Type) = MapSym1 l

data MapSym1 (l :: TyFun a6989586621679435604 b6989586621679435605 -> Type) (l :: TyFun [a6989586621679435604] [b6989586621679435605]) #

Instances

SuppressUnusedWarnings (MapSym1 :: (TyFun a6989586621679435604 b6989586621679435605 -> Type) -> TyFun [a6989586621679435604] [b6989586621679435605] -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (MapSym1 l1 :: TyFun [a] [b] -> *) (l2 :: [a]) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (MapSym1 l1 :: TyFun [a] [b] -> *) (l2 :: [a]) = Map l1 l2

type MapSym2 (t :: TyFun a6989586621679435604 b6989586621679435605 -> Type) (t :: [a6989586621679435604]) = Map t t #

data (++@#@$) (l :: TyFun [a6989586621679435603] (TyFun [a6989586621679435603] [a6989586621679435603] -> Type)) #

Instances

SuppressUnusedWarnings ((++@#@$) :: TyFun [a6989586621679435603] (TyFun [a6989586621679435603] [a6989586621679435603] -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply ((++@#@$) :: TyFun [a6989586621679435603] (TyFun [a6989586621679435603] [a6989586621679435603] -> Type) -> *) (l :: [a6989586621679435603]) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply ((++@#@$) :: TyFun [a6989586621679435603] (TyFun [a6989586621679435603] [a6989586621679435603] -> Type) -> *) (l :: [a6989586621679435603]) = (++@#@$$) l

data (l :: [a6989586621679435603]) ++@#@$$ (l :: TyFun [a6989586621679435603] [a6989586621679435603]) #

Instances

SuppressUnusedWarnings ((++@#@$$) :: [a6989586621679435603] -> TyFun [a6989586621679435603] [a6989586621679435603] -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply ((++@#@$$) l1 :: TyFun [a] [a] -> *) (l2 :: [a]) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply ((++@#@$$) l1 :: TyFun [a] [a] -> *) (l2 :: [a]) = l1 ++ l2

type (++@#@$$$) (t :: [a6989586621679435603]) (t :: [a6989586621679435603]) = (++) t t #

type OtherwiseSym0 = Otherwise #

data IdSym0 (l :: TyFun a6989586621679435602 a6989586621679435602) #

Instances

SuppressUnusedWarnings (IdSym0 :: TyFun a6989586621679435602 a6989586621679435602 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (IdSym0 :: TyFun a a -> *) (l :: a) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (IdSym0 :: TyFun a a -> *) (l :: a) = Id l

type IdSym1 (t :: a6989586621679435602) = Id t #

data ConstSym0 (l :: TyFun a6989586621679435600 (TyFun b6989586621679435601 a6989586621679435600 -> Type)) #

Instances

SuppressUnusedWarnings (ConstSym0 :: TyFun a6989586621679435600 (TyFun b6989586621679435601 a6989586621679435600 -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (ConstSym0 :: TyFun a6989586621679435600 (TyFun b6989586621679435601 a6989586621679435600 -> Type) -> *) (l :: a6989586621679435600) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (ConstSym0 :: TyFun a6989586621679435600 (TyFun b6989586621679435601 a6989586621679435600 -> Type) -> ) (l :: a6989586621679435600) = (ConstSym1 l :: TyFun b6989586621679435601 a6989586621679435600 -> )

data ConstSym1 (l :: a6989586621679435600) (l :: TyFun b6989586621679435601 a6989586621679435600) #

Instances

SuppressUnusedWarnings (ConstSym1 :: a6989586621679435600 -> TyFun b6989586621679435601 a6989586621679435600 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (ConstSym1 l1 :: TyFun b a -> *) (l2 :: b) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (ConstSym1 l1 :: TyFun b a -> *) (l2 :: b) = Const l1 l2

type ConstSym2 (t :: a6989586621679435600) (t :: b6989586621679435601) = Const t t #

data (.@#@$) (l :: TyFun (TyFun b6989586621679435597 c6989586621679435598 -> Type) (TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> Type)) #

Instances

SuppressUnusedWarnings ((.@#@$) :: TyFun (TyFun b6989586621679435597 c6989586621679435598 -> Type) (TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply ((.@#@$) :: TyFun (TyFun b6989586621679435597 c6989586621679435598 -> Type) (TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> Type) -> *) (l :: TyFun b6989586621679435597 c6989586621679435598 -> Type) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply ((.@#@$) :: TyFun (TyFun b6989586621679435597 c6989586621679435598 -> Type) (TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> Type) -> ) (l :: TyFun b6989586621679435597 c6989586621679435598 -> Type) = ((.@#@$$) l :: TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> )

data (l :: TyFun b6989586621679435597 c6989586621679435598 -> Type) .@#@$$ (l :: TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type)) #

Instances

SuppressUnusedWarnings ((.@#@$$) :: (TyFun b6989586621679435597 c6989586621679435598 -> Type) -> TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply ((.@#@$$) l1 :: TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> *) (l2 :: TyFun a6989586621679435599 b6989586621679435597 -> Type) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply ((.@#@$$) l1 :: TyFun (TyFun a6989586621679435599 b6989586621679435597 -> Type) (TyFun a6989586621679435599 c6989586621679435598 -> Type) -> *) (l2 :: TyFun a6989586621679435599 b6989586621679435597 -> Type) = l1 .@#@$$$ l2

data ((l :: TyFun b6989586621679435597 c6989586621679435598 -> Type) .@#@$$$ (l :: TyFun a6989586621679435599 b6989586621679435597 -> Type)) (l :: TyFun a6989586621679435599 c6989586621679435598) #

Instances

SuppressUnusedWarnings ((.@#@$$$) :: (TyFun b6989586621679435597 c6989586621679435598 -> Type) -> (TyFun a6989586621679435599 b6989586621679435597 -> Type) -> TyFun a6989586621679435599 c6989586621679435598 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (l1 .@#@$$$ l2 :: TyFun a c -> *) (l3 :: a) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (l1 .@#@$$$ l2 :: TyFun a c -> *) (l3 :: a) = (l1 :. l2) l3

type (.@#@$$$$) (t :: TyFun b6989586621679435597 c6989586621679435598 -> Type) (t :: TyFun a6989586621679435599 b6989586621679435597 -> Type) (t :: a6989586621679435599) = (:.) t t t #

data ($@#@$) (l :: TyFun (TyFun a6989586621679435591 b6989586621679435592 -> Type) (TyFun a6989586621679435591 b6989586621679435592 -> Type)) #

Instances

SuppressUnusedWarnings (($@#@$) :: TyFun (TyFun a6989586621679435591 b6989586621679435592 -> Type) (TyFun a6989586621679435591 b6989586621679435592 -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (($@#@$) :: TyFun (TyFun a6989586621679435591 b6989586621679435592 -> Type) (TyFun a6989586621679435591 b6989586621679435592 -> Type) -> *) (l :: TyFun a6989586621679435591 b6989586621679435592 -> Type) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (($@#@$) :: TyFun (TyFun a6989586621679435591 b6989586621679435592 -> Type) (TyFun a6989586621679435591 b6989586621679435592 -> Type) -> *) (l :: TyFun a6989586621679435591 b6989586621679435592 -> Type) = ($@#@$$) l

data (l :: TyFun a6989586621679435591 b6989586621679435592 -> Type) $@#@$$ (l :: TyFun a6989586621679435591 b6989586621679435592) #

Instances

SuppressUnusedWarnings (($@#@$$) :: (TyFun a6989586621679435591 b6989586621679435592 -> Type) -> TyFun a6989586621679435591 b6989586621679435592 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (($@#@$$) l1 :: TyFun a b -> *) (l2 :: a) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (($@#@$$) l1 :: TyFun a b -> *) (l2 :: a) = l1 $ l2

type ($@#@$$$) (t :: TyFun a6989586621679435591 b6989586621679435592 -> Type) (t :: a6989586621679435591) = ($) t t #

data ($!@#@$) (l :: TyFun (TyFun a6989586621679435589 b6989586621679435590 -> Type) (TyFun a6989586621679435589 b6989586621679435590 -> Type)) #

Instances

SuppressUnusedWarnings (($!@#@$) :: TyFun (TyFun a6989586621679435589 b6989586621679435590 -> Type) (TyFun a6989586621679435589 b6989586621679435590 -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (($!@#@$) :: TyFun (TyFun a6989586621679435589 b6989586621679435590 -> Type) (TyFun a6989586621679435589 b6989586621679435590 -> Type) -> *) (l :: TyFun a6989586621679435589 b6989586621679435590 -> Type) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (($!@#@$) :: TyFun (TyFun a6989586621679435589 b6989586621679435590 -> Type) (TyFun a6989586621679435589 b6989586621679435590 -> Type) -> *) (l :: TyFun a6989586621679435589 b6989586621679435590 -> Type) = ($!@#@$$) l

data (l :: TyFun a6989586621679435589 b6989586621679435590 -> Type) $!@#@$$ (l :: TyFun a6989586621679435589 b6989586621679435590) #

Instances

SuppressUnusedWarnings (($!@#@$$) :: (TyFun a6989586621679435589 b6989586621679435590 -> Type) -> TyFun a6989586621679435589 b6989586621679435590 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (($!@#@$$) l1 :: TyFun a b -> *) (l2 :: a) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (($!@#@$$) l1 :: TyFun a b -> *) (l2 :: a) = l1 $! l2

type ($!@#@$$$) (t :: TyFun a6989586621679435589 b6989586621679435590 -> Type) (t :: a6989586621679435589) = ($!) t t #

data FlipSym0 (l :: TyFun (TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type) -> Type)) #

Instances

SuppressUnusedWarnings (FlipSym0 :: TyFun (TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type) -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (FlipSym0 :: TyFun (TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type) -> Type) -> *) (l :: TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (FlipSym0 :: TyFun (TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type) -> Type) -> *) (l :: TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) = FlipSym1 l

data FlipSym1 (l :: TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (l :: TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type)) #

Instances

SuppressUnusedWarnings (FlipSym1 :: (TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) -> TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (FlipSym1 l1 :: TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type) -> *) (l2 :: b6989586621679435595) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (FlipSym1 l1 :: TyFun b6989586621679435595 (TyFun a6989586621679435594 c6989586621679435596 -> Type) -> *) (l2 :: b6989586621679435595) = FlipSym2 l1 l2

data FlipSym2 (l :: TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (l :: b6989586621679435595) (l :: TyFun a6989586621679435594 c6989586621679435596) #

Instances

SuppressUnusedWarnings (FlipSym2 :: (TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) -> b6989586621679435595 -> TyFun a6989586621679435594 c6989586621679435596 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (FlipSym2 l1 l2 :: TyFun a c -> *) (l3 :: a) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (FlipSym2 l1 l2 :: TyFun a c -> *) (l3 :: a) = Flip l1 l2 l3

type FlipSym3 (t :: TyFun a6989586621679435594 (TyFun b6989586621679435595 c6989586621679435596 -> Type) -> Type) (t :: b6989586621679435595) (t :: a6989586621679435594) = Flip t t t #

data AsTypeOfSym0 (l :: TyFun a6989586621679435593 (TyFun a6989586621679435593 a6989586621679435593 -> Type)) #

Instances

SuppressUnusedWarnings (AsTypeOfSym0 :: TyFun a6989586621679435593 (TyFun a6989586621679435593 a6989586621679435593 -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (AsTypeOfSym0 :: TyFun a6989586621679435593 (TyFun a6989586621679435593 a6989586621679435593 -> Type) -> *) (l :: a6989586621679435593) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (AsTypeOfSym0 :: TyFun a6989586621679435593 (TyFun a6989586621679435593 a6989586621679435593 -> Type) -> *) (l :: a6989586621679435593) = AsTypeOfSym1 l

data AsTypeOfSym1 (l :: a6989586621679435593) (l :: TyFun a6989586621679435593 a6989586621679435593) #

Instances

SuppressUnusedWarnings (AsTypeOfSym1 :: a6989586621679435593 -> TyFun a6989586621679435593 a6989586621679435593 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (AsTypeOfSym1 l1 :: TyFun a a -> *) (l2 :: a) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (AsTypeOfSym1 l1 :: TyFun a a -> *) (l2 :: a) = AsTypeOf l1 l2

type AsTypeOfSym2 (t :: a6989586621679435593) (t :: a6989586621679435593) = AsTypeOf t t #

data SeqSym0 (l :: TyFun a6989586621679435587 (TyFun b6989586621679435588 b6989586621679435588 -> Type)) #

Instances

SuppressUnusedWarnings (SeqSym0 :: TyFun a6989586621679435587 (TyFun b6989586621679435588 b6989586621679435588 -> Type) -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (SeqSym0 :: TyFun a6989586621679435587 (TyFun b6989586621679435588 b6989586621679435588 -> Type) -> *) (l :: a6989586621679435587) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (SeqSym0 :: TyFun a6989586621679435587 (TyFun b6989586621679435588 b6989586621679435588 -> Type) -> ) (l :: a6989586621679435587) = (SeqSym1 l :: TyFun b6989586621679435588 b6989586621679435588 -> )

data SeqSym1 (l :: a6989586621679435587) (l :: TyFun b6989586621679435588 b6989586621679435588) #

Instances

SuppressUnusedWarnings (SeqSym1 :: a6989586621679435587 -> TyFun b6989586621679435588 b6989586621679435588 -> *) #
Instance details Defined in Data.Singletons.Prelude.Base Methods suppressUnusedWarnings :: () #
type Apply (SeqSym1 l1 :: TyFun b b -> *) (l2 :: b) #
Instance details Defined in Data.Singletons.Prelude.Base type Apply (SeqSym1 l1 :: TyFun b b -> *) (l2 :: b) = Seq l1 l2

type SeqSym2 (t :: a6989586621679435587) (t :: b6989586621679435588) = Seq t t #