Data.Functor.Identity.Singletons

Exports the promoted and singled versions of the Identity data type.

The Identity singleton

type family Sing :: k -> Type

Instances

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SAll

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SAny

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SVoid

type Sing

Defined in GHC.TypeLits.Singletons.Internal

type Sing = SNat

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SOrdering

type Sing

Defined in Data.Singletons.Base.TypeError

type Sing = SErrorMessage

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple0

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SBool

type Sing

Defined in GHC.TypeLits.Singletons.Internal

type Sing = SChar

type Sing

Defined in GHC.TypeLits.Singletons.Internal

type Sing = SSymbol

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SIdentity :: Identity a -> Type

type Sing

Defined in Data.Monoid.Singletons

type Sing = SFirst :: First a -> Type

type Sing

Defined in Data.Monoid.Singletons

type Sing = SLast :: Last a -> Type

type Sing

Defined in Data.Ord.Singletons

type Sing = SDown :: Down a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SFirst :: First a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SLast :: Last a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SMax :: Max a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SMin :: Min a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SWrappedMonoid :: WrappedMonoid m -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SDual :: Dual a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SProduct :: Product a -> Type

type Sing

Defined in Data.Semigroup.Singletons.Internal.Wrappers

type Sing = SSum :: Sum a -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SNonEmpty :: NonEmpty a -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SMaybe :: Maybe a -> Type

type Sing

A choice of singleton for the kind TYPE rep (for some RuntimeRep rep), an instantiation of which is the famous kind Type.

Conceivably, one could generalize this instance to `Sing @k` for any kind k, and remove all other Sing instances. We don't adopt this design, however, since it is far more convenient in practice to work with explicit singleton values than TypeReps (for instance, TypeReps are more difficult to pattern match on, and require extra runtime checks).

We cannot produce explicit singleton values for everything in TYPE rep, however, since it is an open kind, so we reach for TypeRep in this one particular case.

Defined in Data.Singletons.Base.TypeRepTYPE

type Sing = TypeRep :: TYPE rep -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SList :: [a] -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = SEither :: Either a b -> Type

type Sing

Defined in Data.Proxy.Singletons

type Sing = SProxy :: Proxy t -> Type

type Sing

Defined in Data.Semigroup.Singletons

type Sing = SArg :: Arg a b -> Type

type Sing

Defined in Data.Singletons

type Sing = SWrappedSing :: WrappedSing a -> Type

type Sing

Defined in Data.Singletons

type Sing = SLambda :: (k1 ~> k2) -> Type

type Sing

Defined in Data.Singletons.Sigma

type Sing = SSigma :: Sigma s t -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple2 :: (a, b) -> Type

type Sing

Defined in Data.Functor.Const.Singletons

type Sing = SConst :: Const a b -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple3 :: (a, b, c) -> Type

type Sing

Defined in Data.Functor.Product.Singletons

type Sing = SProduct :: Product f g a -> Type

type Sing

Defined in Data.Functor.Sum.Singletons

type Sing = SSum :: Sum f g a -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple4 :: (a, b, c, d) -> Type

type Sing

Defined in Data.Functor.Compose.Singletons

type Sing = SCompose :: Compose f g a -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple5 :: (a, b, c, d, e) -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple6 :: (a, b, c, d, e, f) -> Type

type Sing

Defined in Data.Singletons.Base.Instances

type Sing = STuple7 :: (a, b, c, d, e, f, g) -> Type

data SIdentity (a1 :: Identity a) where

Constructors

SIdentity :: forall a (n :: a). Sing n -> SIdentity ('Identity n)

Instances

SDecide a => TestCoercion (SIdentity :: Identity a -> Type)

Defined in Data.Singletons.Base.Instances

Methods

testCoercion :: forall (a0 :: Identity a) (b :: Identity a). SIdentity a0 -> SIdentity b -> Maybe (Coercion a0 b)

SDecide a => TestEquality (SIdentity :: Identity a -> Type)

Defined in Data.Singletons.Base.Instances

Methods

testEquality :: forall (a0 :: Identity a) (b :: Identity a). SIdentity a0 -> SIdentity b -> Maybe (a0 :~: b)

ShowSing a => Show (SIdentity z)

Defined in Data.Singletons.Base.Instances

Methods

showsPrec :: Int -> SIdentity z -> ShowS

show :: SIdentity z -> String

showList :: [SIdentity z] -> ShowS

Eq (SIdentity z)

Defined in Data.Singletons.Base.Instances

Methods

(==) :: SIdentity z -> SIdentity z -> Bool

(/=) :: SIdentity z -> SIdentity z -> Bool

type family RunIdentity (a1 :: Identity a) :: a where ...

Equations

RunIdentity ('Identity field :: Identity a) = field

sRunIdentity :: forall a (t :: Identity a). Sing t -> Sing (Apply (RunIdentitySym0 :: TyFun (Identity a) a -> Type) t)

Defunctionalization symbols

data IdentitySym0 (a1 :: TyFun a (Identity a))

Instances

SingI (IdentitySym0 :: TyFun a (Identity a) -> Type)

Defined in Data.Singletons.Base.Instances

Methods

sing :: Sing (IdentitySym0 :: TyFun a (Identity a) -> Type)

SuppressUnusedWarnings (IdentitySym0 :: TyFun a (Identity a) -> Type)

Defined in Data.Singletons.Base.Instances

Methods

suppressUnusedWarnings :: ()

type Apply (IdentitySym0 :: TyFun a (Identity a) -> Type) (a6989586621679047151 :: a)

Defined in Data.Singletons.Base.Instances

type Apply (IdentitySym0 :: TyFun a (Identity a) -> Type) (a6989586621679047151 :: a) = 'Identity a6989586621679047151

type family IdentitySym1 (a6989586621679047151 :: a) :: Identity a where ...

Equations

IdentitySym1 (a6989586621679047151 :: a) = 'Identity a6989586621679047151

data RunIdentitySym0 (a1 :: TyFun (Identity a) a)

Instances

SingI (RunIdentitySym0 :: TyFun (Identity a) a -> Type)

Defined in Data.Singletons.Base.Instances

Methods

sing :: Sing (RunIdentitySym0 :: TyFun (Identity a) a -> Type)

SuppressUnusedWarnings (RunIdentitySym0 :: TyFun (Identity a) a -> Type)

Defined in Data.Singletons.Base.Instances

Methods

suppressUnusedWarnings :: ()

type Apply (RunIdentitySym0 :: TyFun (Identity a) a -> Type) (a6989586621679047154 :: Identity a)

Defined in Data.Singletons.Base.Instances

type Apply (RunIdentitySym0 :: TyFun (Identity a) a -> Type) (a6989586621679047154 :: Identity a) = RunIdentity a6989586621679047154

type family RunIdentitySym1 (a6989586621679047154 :: Identity a) :: a where ...

Equations

RunIdentitySym1 (a6989586621679047154 :: Identity a) = RunIdentity a6989586621679047154

Orphan instances

PApplicative Identity

Associated Types

type Pure (a :: k1)

Defined in Data.Functor.Identity.Singletons

type Pure (a :: k1)

type (a2 :: Identity (a1 ~> b)) <*> (a3 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type (a2 :: Identity (a1 ~> b)) <*> (a3 :: Identity a1)

type LiftA2 (a2 :: a1 ~> (b ~> c)) (a3 :: Identity a1) (a4 :: Identity b)

Defined in Data.Functor.Identity.Singletons

type LiftA2 (a2 :: a1 ~> (b ~> c)) (a3 :: Identity a1) (a4 :: Identity b)

type (arg :: Identity a) *> (arg1 :: Identity b)

Defined in Data.Functor.Identity.Singletons

type (arg :: Identity a) *> (arg1 :: Identity b)

type (arg :: Identity a) <* (arg1 :: Identity b)

Defined in Data.Functor.Identity.Singletons

type (arg :: Identity a) <* (arg1 :: Identity b)

PFunctor Identity

Associated Types

type Fmap (a2 :: a1 ~> b) (a3 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type Fmap (a2 :: a1 ~> b) (a3 :: Identity a1)

type (a1 :: k1) <$ (a2 :: Identity b)

Defined in Data.Functor.Identity.Singletons

type (a1 :: k1) <$ (a2 :: Identity b)

PMonad Identity

Associated Types

type (a2 :: Identity a1) >>= (a3 :: a1 ~> Identity b)

Defined in Data.Functor.Identity.Singletons

type (a2 :: Identity a1) >>= (a3 :: a1 ~> Identity b)

type (arg :: Identity a) >> (arg1 :: Identity b)

Defined in Data.Functor.Identity.Singletons

type (arg :: Identity a) >> (arg1 :: Identity b)

type Return (arg :: a)

Defined in Data.Functor.Identity.Singletons

type Return (arg :: a)

SApplicative Identity

Methods

sPure :: forall a (t :: a). Sing t -> Sing (Apply (PureSym0 :: TyFun a (Identity a) -> Type) t)

(%<*>) :: forall a b (t1 :: Identity (a ~> b)) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*>@#@$) :: TyFun (Identity (a ~> b)) (Identity a ~> Identity b) -> Type) t1) t2)

sLiftA2 :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: Identity a) (t3 :: Identity b). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (Identity a ~> (Identity b ~> Identity c)) -> Type) t1) t2) t3)

(%*>) :: forall a b (t1 :: Identity a) (t2 :: Identity b). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*>@#@$) :: TyFun (Identity a) (Identity b ~> Identity b) -> Type) t1) t2)

(%<*) :: forall a b (t1 :: Identity a) (t2 :: Identity b). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*@#@$) :: TyFun (Identity a) (Identity b ~> Identity a) -> Type) t1) t2)

SFunctor Identity

Methods

sFmap :: forall a b (t1 :: a ~> b) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FmapSym0 :: TyFun (a ~> b) (Identity a ~> Identity b) -> Type) t1) t2)

(%<$) :: forall a b (t1 :: a) (t2 :: Identity b). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$@#@$) :: TyFun a (Identity b ~> Identity a) -> Type) t1) t2)

SMonad Identity

Methods

(%>>=) :: forall a b (t1 :: Identity a) (t2 :: a ~> Identity b). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>>=@#@$) :: TyFun (Identity a) ((a ~> Identity b) ~> Identity b) -> Type) t1) t2)

(%>>) :: forall a b (t1 :: Identity a) (t2 :: Identity b). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>>@#@$) :: TyFun (Identity a) (Identity b ~> Identity b) -> Type) t1) t2)

sReturn :: forall a (t :: a). Sing t -> Sing (Apply (ReturnSym0 :: TyFun a (Identity a) -> Type) t)

PFoldable Identity

Associated Types

type Fold (arg :: Identity m)

Defined in Data.Functor.Identity.Singletons

type Fold (arg :: Identity m)

type FoldMap (a2 :: a1 ~> k2) (a3 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type FoldMap (a2 :: a1 ~> k2) (a3 :: Identity a1)

type Foldr (a2 :: a1 ~> (k2 ~> k2)) (a3 :: k2) (a4 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type Foldr (a2 :: a1 ~> (k2 ~> k2)) (a3 :: k2) (a4 :: Identity a1)

type Foldr' (a2 :: a1 ~> (k2 ~> k2)) (a3 :: k2) (a4 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type Foldr' (a2 :: a1 ~> (k2 ~> k2)) (a3 :: k2) (a4 :: Identity a1)

type Foldl (a2 :: k2 ~> (a1 ~> k2)) (a3 :: k2) (a4 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type Foldl (a2 :: k2 ~> (a1 ~> k2)) (a3 :: k2) (a4 :: Identity a1)

type Foldl' (a2 :: k2 ~> (a1 ~> k2)) (a3 :: k2) (a4 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type Foldl' (a2 :: k2 ~> (a1 ~> k2)) (a3 :: k2) (a4 :: Identity a1)

type Foldr1 (a1 :: k2 ~> (k2 ~> k2)) (a2 :: Identity k2)

Defined in Data.Functor.Identity.Singletons

type Foldr1 (a1 :: k2 ~> (k2 ~> k2)) (a2 :: Identity k2)

type Foldl1 (a1 :: k2 ~> (k2 ~> k2)) (a2 :: Identity k2)

Defined in Data.Functor.Identity.Singletons

type Foldl1 (a1 :: k2 ~> (k2 ~> k2)) (a2 :: Identity k2)

type ToList (a2 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type ToList (a2 :: Identity a1)

type Null (a2 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type Null (a2 :: Identity a1)

type Length (a2 :: Identity a1)

Defined in Data.Functor.Identity.Singletons

type Length (a2 :: Identity a1)

type Elem (a1 :: k1) (a2 :: Identity k1)

Defined in Data.Functor.Identity.Singletons

type Elem (a1 :: k1) (a2 :: Identity k1)

type Maximum (a :: Identity k2)

Defined in Data.Functor.Identity.Singletons

type Maximum (a :: Identity k2)

type Minimum (a :: Identity k2)

Defined in Data.Functor.Identity.Singletons

type Minimum (a :: Identity k2)

type Sum (a :: Identity k2)

Defined in Data.Functor.Identity.Singletons

type Sum (a :: Identity k2)

type Product (a :: Identity k2)

Defined in Data.Functor.Identity.Singletons

type Product (a :: Identity k2)

SFoldable Identity

Methods

sFold :: forall m (t1 :: Identity m). SMonoid m => Sing t1 -> Sing (Apply (FoldSym0 :: TyFun (Identity m) m -> Type) t1)

sFoldMap :: forall a m (t1 :: a ~> m) (t2 :: Identity a). SMonoid m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (Identity a ~> m) -> Type) t1) t2)

sFoldr :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: Identity a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (Identity a ~> b)) -> Type) t1) t2) t3)

sFoldr' :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: Identity a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldr'Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (Identity a ~> b)) -> Type) t1) t2) t3)

sFoldl :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: Identity a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (Identity a ~> b)) -> Type) t1) t2) t3)

sFoldl' :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: Identity a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldl'Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (Identity a ~> b)) -> Type) t1) t2) t3)

sFoldr1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (Identity a ~> a) -> Type) t1) t2)

sFoldl1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (Identity a ~> a) -> Type) t1) t2)

sToList :: forall a (t1 :: Identity a). Sing t1 -> Sing (Apply (ToListSym0 :: TyFun (Identity a) [a] -> Type) t1)

sNull :: forall a (t1 :: Identity a). Sing t1 -> Sing (Apply (NullSym0 :: TyFun (Identity a) Bool -> Type) t1)

sLength :: forall a (t1 :: Identity a). Sing t1 -> Sing (Apply (LengthSym0 :: TyFun (Identity a) Natural -> Type) t1)

sElem :: forall a (t1 :: a) (t2 :: Identity a). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemSym0 :: TyFun a (Identity a ~> Bool) -> Type) t1) t2)

sMaximum :: forall a (t1 :: Identity a). SOrd a => Sing t1 -> Sing (Apply (MaximumSym0 :: TyFun (Identity a) a -> Type) t1)

sMinimum :: forall a (t1 :: Identity a). SOrd a => Sing t1 -> Sing (Apply (MinimumSym0 :: TyFun (Identity a) a -> Type) t1)

sSum :: forall a (t1 :: Identity a). SNum a => Sing t1 -> Sing (Apply (SumSym0 :: TyFun (Identity a) a -> Type) t1)

sProduct :: forall a (t1 :: Identity a). SNum a => Sing t1 -> Sing (Apply (ProductSym0 :: TyFun (Identity a) a -> Type) t1)

PMonoid (Identity a)

Associated Types

type Mempty

Defined in Data.Functor.Identity.Singletons

type Mempty

SMonoid a => SMonoid (Identity a)

Methods

sMempty :: Sing (MemptySym0 :: Identity a)

sMappend :: forall (t1 :: Identity a) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (MappendSym0 :: TyFun (Identity a) (Identity a ~> Identity a) -> Type) t1) t2)

sMconcat :: forall (t :: [Identity a]). Sing t -> Sing (Apply (MconcatSym0 :: TyFun [Identity a] (Identity a) -> Type) t)

PSemigroup (Identity a)

SSemigroup a => SSemigroup (Identity a)

Methods

(%<>) :: forall (t1 :: Identity a) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<>@#@$) :: TyFun (Identity a) (Identity a ~> Identity a) -> Type) t1) t2)

sSconcat :: forall (t :: NonEmpty (Identity a)). Sing t -> Sing (Apply (SconcatSym0 :: TyFun (NonEmpty (Identity a)) (Identity a) -> Type) t)

PEnum (Identity a)

SEnum a => SEnum (Identity a)

Methods

sSucc :: forall (t :: Identity a). Sing t -> Sing (Apply (SuccSym0 :: TyFun (Identity a) (Identity a) -> Type) t)

sPred :: forall (t :: Identity a). Sing t -> Sing (Apply (PredSym0 :: TyFun (Identity a) (Identity a) -> Type) t)

sToEnum :: forall (t :: Natural). Sing t -> Sing (Apply (ToEnumSym0 :: TyFun Natural (Identity a) -> Type) t)

sFromEnum :: forall (t :: Identity a). Sing t -> Sing (Apply (FromEnumSym0 :: TyFun (Identity a) Natural -> Type) t)

sEnumFromTo :: forall (t1 :: Identity a) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (EnumFromToSym0 :: TyFun (Identity a) (Identity a ~> [Identity a]) -> Type) t1) t2)

sEnumFromThenTo :: forall (t1 :: Identity a) (t2 :: Identity a) (t3 :: Identity a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (EnumFromThenToSym0 :: TyFun (Identity a) (Identity a ~> (Identity a ~> [Identity a])) -> Type) t1) t2) t3)

PNum (Identity a)

SNum a => SNum (Identity a)

Methods

(%+) :: forall (t1 :: Identity a) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((+@#@$) :: TyFun (Identity a) (Identity a ~> Identity a) -> Type) t1) t2)

(%-) :: forall (t1 :: Identity a) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((-@#@$) :: TyFun (Identity a) (Identity a ~> Identity a) -> Type) t1) t2)

(%*) :: forall (t1 :: Identity a) (t2 :: Identity a). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*@#@$) :: TyFun (Identity a) (Identity a ~> Identity a) -> Type) t1) t2)

sNegate :: forall (t :: Identity a). Sing t -> Sing (Apply (NegateSym0 :: TyFun (Identity a) (Identity a) -> Type) t)

sAbs :: forall (t :: Identity a). Sing t -> Sing (Apply (AbsSym0 :: TyFun (Identity a) (Identity a) -> Type) t)

sSignum :: forall (t :: Identity a). Sing t -> Sing (Apply (SignumSym0 :: TyFun (Identity a) (Identity a) -> Type) t)

sFromInteger :: forall (t :: Natural). Sing t -> Sing (Apply (FromIntegerSym0 :: TyFun Natural (Identity a) -> Type) t)

PShow (Identity a)

SShow a => SShow (Identity a)

Methods

sShowsPrec :: forall (t1 :: Natural) (t2 :: Identity a) (t3 :: Symbol). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (Identity a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3)

sShow_ :: forall (t :: Identity a). Sing t -> Sing (Apply (Show_Sym0 :: TyFun (Identity a) Symbol -> Type) t)

sShowList :: forall (t1 :: [Identity a]) (t2 :: Symbol). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowListSym0 :: TyFun [Identity a] (Symbol ~> Symbol) -> Type) t1) t2)