-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/
-- | A promoted and singled version of the base library
--
-- singletons-base uses singletons-th to define
-- promoted and singled functions from the base library,
-- including the Prelude. This library was originally presented in
-- Dependently Typed Programming with Singletons, published at the
-- Haskell Symposium, 2012.
-- (https://richarde.dev/papers/2012/singletons/paper.pdf) See
-- also the paper published at Haskell Symposium, 2014, which describes
-- how promotion works in greater detail:
-- https://richarde.dev/papers/2014/promotion/promotion.pdf.
--
-- WARNING: singletons-base defines orphan instances for
-- Sing, SingKind, etc. for common types such as
-- Bool, [], Maybe, etc. If you define
-- instances of these types in your code, you will likely not be able to
-- use that code with singletons-base.
--
-- singletons-base uses code that relies on bleeding-edge GHC
-- language extensions. As such, singletons-base only supports
-- the latest major version of GHC (currently GHC 9.8). For more
-- information, consult the singletons README.
--
-- You may also be interested in the following related libraries:
--
--
-- - The singletons library is a small, foundational library
-- that defines basic singleton-related types and definitions.
-- - The singletons-th library defines Template Haskell
-- functionality that allows promotion of term-level functions to
-- type-level equivalents and singling functions to dependently
-- typed equivalents.
--
@package singletons-base
@version 3.3
-- | Defines a replacement for the promoted Error function whose
-- argument is kind-polymorphic.
module Data.Singletons.Base.PolyError
-- | Like Error from GHC.TypeLits.Singletons, but with an
-- argument that is generalized to be kind-polymorphic. This allows
-- passing additional information to the error besides raw
-- Symbols.
type family PolyError (arg :: a) :: b
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.PolyError.PolyErrorSym0
-- | Defines functions and datatypes relating to the singleton for
-- Bool, including singled versions of all the definitions in
-- Data.Bool.
--
-- 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.Bool. Also, please excuse
-- the apparent repeated variable names. This is due to an interaction
-- between Template Haskell and Haddock.
module Data.Bool.Singletons
type family Sing :: k -> Type
data SBool (a :: Bool)
[SFalse] :: SBool 'False
[STrue] :: SBool 'True
-- | Type-level If. If True a b ==> a; If
-- False a b ==> b
type family If (cond :: Bool) (tru :: k) (fls :: k) :: k
-- | Conditional over singletons
sIf :: forall {k} (a :: Bool) (b :: k) (c :: k). Sing a -> Sing b -> Sing c -> Sing (If a b c)
-- | Type-level "not". An injective type family since 4.10.0.0.
type family Not (a :: Bool) = (res :: Bool) | res -> a
-- | Negation of a singleton
sNot :: forall (a :: Bool). Sing a -> Sing (Not a)
-- | Type-level "and"
type family (a :: Bool) && (b :: Bool) :: Bool
infixr 3 &&
-- | Type-level "or"
type family (a :: Bool) || (b :: Bool) :: Bool
infixr 2 ||
-- | Conjunction of singletons
(%&&) :: forall (a :: Bool) (b :: Bool). Sing a -> Sing b -> Sing (a && b)
infixr 3 %&&
-- | Disjunction of singletons
(%||) :: forall (a :: Bool) (b :: Bool). Sing a -> Sing b -> Sing (a || b)
infixr 2 %||
bool_ :: a -> a -> Bool -> a
type family Bool_ (a1 :: a) (a2 :: a) (a3 :: Bool) :: a
sBool_ :: forall a (t1 :: a) (t2 :: a) (t3 :: Bool). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Bool_Sym0 :: TyFun a (a ~> (Bool ~> a)) -> Type) t1) t2) t3)
type family Otherwise :: Bool
sOtherwise :: Sing OtherwiseSym0
type family TrueSym0 :: Bool
type family FalseSym0 :: Bool
data IfSym0 (a :: TyFun Bool k ~> k ~> k)
data IfSym1 (a6989586621679133031 :: Bool) (b :: TyFun k k ~> k)
data IfSym2 (a6989586621679133031 :: Bool) (a6989586621679133032 :: k) (c :: TyFun k k)
type family IfSym3 (a6989586621679133031 :: Bool) (a6989586621679133032 :: k) (a6989586621679133033 :: k) :: k
data NotSym0 (a :: TyFun Bool Bool)
type family NotSym1 (a6989586621679132813 :: Bool) :: Bool
data (a :: TyFun Bool Bool ~> Bool) &&@#@$
infixr 3 &&@#@$
data (a6989586621679132115 :: Bool) &&@#@$$ (b :: TyFun Bool Bool)
infixr 3 &&@#@$$
type family (a6989586621679132115 :: Bool) &&@#@$$$ (a6989586621679132116 :: Bool) :: Bool
infixr 3 &&@#@$$$
data (a :: TyFun Bool Bool ~> Bool) ||@#@$
infixr 2 ||@#@$
data (a6989586621679132472 :: Bool) ||@#@$$ (b :: TyFun Bool Bool)
infixr 2 ||@#@$$
type family (a6989586621679132472 :: Bool) ||@#@$$$ (a6989586621679132473 :: Bool) :: Bool
infixr 2 ||@#@$$$
data Bool_Sym0 (a1 :: TyFun a a ~> Bool ~> a)
data Bool_Sym1 (a6989586621679130897 :: a) (b :: TyFun a Bool ~> a)
data Bool_Sym2 (a6989586621679130897 :: a) (a6989586621679130898 :: a) (c :: TyFun Bool a)
type family Bool_Sym3 (a6989586621679130897 :: a) (a6989586621679130898 :: a) (a6989586621679130899 :: Bool) :: a
type family OtherwiseSym0 :: Bool
instance Data.Singletons.SingI1 Data.Bool.Singletons.IfSym1
instance Data.Singletons.SingI1 Data.Bool.Singletons.Bool_Sym1
instance forall a (d :: a). Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.Bool.Singletons.Bool_Sym2 d)
instance Data.Singletons.SingI c => Data.Singletons.SingI1 (Data.Bool.Singletons.IfSym2 c)
instance Data.Singletons.SingI2 Data.Bool.Singletons.IfSym2
instance Data.Singletons.SingI2 Data.Bool.Singletons.Bool_Sym2
instance Data.Singletons.SingI (Data.Bool.Singletons.&&@#@$)
instance Data.Singletons.SingI x => Data.Singletons.SingI ((Data.Bool.Singletons.&&@#@$$) x)
instance Data.Singletons.SingI Data.Bool.Singletons.Bool_Sym0
instance forall a (d :: a). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Bool.Singletons.Bool_Sym1 d)
instance forall a (d1 :: a) (d2 :: a). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Bool.Singletons.Bool_Sym2 d1 d2)
instance Data.Singletons.SingI Data.Bool.Singletons.IfSym0
instance Data.Singletons.SingI c => Data.Singletons.SingI (Data.Bool.Singletons.IfSym1 c)
instance forall k (c :: GHC.Types.Bool) (t :: k). (Data.Singletons.SingI c, Data.Singletons.SingI t) => Data.Singletons.SingI (Data.Bool.Singletons.IfSym2 c t)
instance Data.Singletons.SingI Data.Bool.Singletons.NotSym0
instance Data.Singletons.SingI (Data.Bool.Singletons.||@#@$)
instance Data.Singletons.SingI x => Data.Singletons.SingI ((Data.Bool.Singletons.||@#@$$) x)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Bool.Singletons.&&@#@$)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Bool.Singletons.&&@#@$$) a6989586621679132115)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Bool.Singletons.Bool_Sym0
instance forall a (a6989586621679130897 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Bool.Singletons.Bool_Sym1 a6989586621679130897)
instance forall a (a6989586621679130897 :: a) (a6989586621679130898 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Bool.Singletons.Bool_Sym2 a6989586621679130897 a6989586621679130898)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Bool.Singletons.IfSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Bool.Singletons.IfSym1 a6989586621679133031)
instance forall k (a6989586621679133031 :: GHC.Types.Bool) (a6989586621679133032 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Bool.Singletons.IfSym2 a6989586621679133031 a6989586621679133032)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Bool.Singletons.NotSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Bool.Singletons.||@#@$)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Bool.Singletons.||@#@$$) a6989586621679132472)
-- | Defines the promoted version of Eq, PEq, and the
-- singleton version, SEq. Also defines the DefaultEq type
-- family, which is useful for implementing boolean equality for
-- non-inductively defined data types.
module Data.Eq.Singletons
class PEq a where {
type (arg :: a) == (arg1 :: a) :: Bool;
type (arg :: a) /= (arg1 :: a) :: Bool;
type arg :: a == arg1 :: a = Apply Apply TFHelper_6989586621679137938Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a /= arg1 :: a = Apply Apply TFHelper_6989586621679137927Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
}
infix 4 ==
infix 4 /=
class SEq a
(%==) :: forall (t1 :: a) (t2 :: a). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%==) :: forall (t1 :: a) (t2 :: a). (SEq a, Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679137938Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%/=) :: forall (t1 :: a) (t2 :: a). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%/=) :: forall (t1 :: a) (t2 :: a). (SEq a, Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679137927Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
infix 4 %==
infix 4 %/=
-- | One way to compute Boolean equality for types of any kind. This will
-- return True if the two arguments are known to be the same type
-- and False if they are known to be apart. Examples:
--
--
-- >>> DefaultEq Nothing Nothing
-- True
-- >>> DefaultEq Nothing (Just a)
-- False
-- >>> DefaultEq a a
-- True
--
--
-- DefaultEq is most suited for data types that are not
-- inductively defined. Four concrete examples of this are
-- Natural, Symbol, Char, and Type. One
-- cannot implement boolean equality for these types by pattern matching
-- alone, so DefaultEq is a good fit instead.
--
-- The downside to DefaultEq is that it can fail to reduce if it
-- is unable to determine if two types are equal or apart. Here is one
-- such example:
--
--
-- DefaultEq (Just a) (Just b)
--
--
-- What should this reduce to? It depends on what a and
-- b are. DefaultEq has no way of knowing what these two
-- types are, and as a result, this type will be stuck. This is a pitfall
-- that you can run into if you use DefaultEq to implement boolean
-- equality for an inductive data type like Maybe. For this
-- reason, it is usually recommended to implement boolean equality for
-- inductive data types using pattern matching and recursion, not
-- DefaultEq.
--
-- Note that this definition is slightly different from the (==)
-- type family from Data.Type.Equality in base, as
-- (==) attempts to distinguish applications of type constructors
-- from other types. As a result, a == a does not reduce to
-- True for every a, but DefaultEq a a
-- does reduce to True for every a. The latter
-- behavior is more desirable for singletons' purposes, so we
-- use it instead of (==).
type family DefaultEq (a :: k) (b :: k) :: Bool
data (a1 :: TyFun a a ~> Bool) ==@#@$
infix 4 ==@#@$
data (a6989586621679137918 :: a) ==@#@$$ (b :: TyFun a Bool)
infix 4 ==@#@$$
type family (a6989586621679137918 :: a) ==@#@$$$ (a6989586621679137919 :: a) :: Bool
infix 4 ==@#@$$$
data (a1 :: TyFun a a ~> Bool) /=@#@$
infix 4 /=@#@$
data (a6989586621679137923 :: a) /=@#@$$ (b :: TyFun a Bool)
infix 4 /=@#@$$
type family (a6989586621679137923 :: a) /=@#@$$$ (a6989586621679137924 :: a) :: Bool
infix 4 /=@#@$$$
data DefaultEqSym0 (a :: TyFun k k ~> Bool)
data DefaultEqSym1 (a6989586621679140066 :: k) (b :: TyFun k Bool)
type family DefaultEqSym2 (a6989586621679140066 :: k) (a6989586621679140067 :: k) :: Bool
instance Data.Eq.Singletons.PEq GHC.Types.Bool
instance Data.Eq.Singletons.PEq (Data.Either.Either a b)
instance Data.Eq.Singletons.PEq (Data.Functor.Identity.Identity a)
instance Data.Eq.Singletons.PEq [a]
instance Data.Eq.Singletons.PEq (GHC.Maybe.Maybe a)
instance Data.Eq.Singletons.PEq (GHC.Base.NonEmpty a)
instance Data.Eq.Singletons.PEq GHC.Types.Ordering
instance Data.Eq.Singletons.PEq (a, b)
instance Data.Eq.Singletons.PEq (a, b, c)
instance Data.Eq.Singletons.PEq (a, b, c, d)
instance Data.Eq.Singletons.PEq (a, b, c, d, e)
instance Data.Eq.Singletons.PEq (a, b, c, d, e, f)
instance Data.Eq.Singletons.PEq (a, b, c, d, e, f, g)
instance Data.Eq.Singletons.PEq ()
instance Data.Eq.Singletons.PEq GHC.Base.Void
instance Data.Eq.Singletons.SEq GHC.Types.Bool
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq b) => Data.Eq.Singletons.SEq (Data.Either.Either a b)
instance Data.Eq.Singletons.SEq a => Data.Eq.Singletons.SEq (Data.Functor.Identity.Identity a)
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq [a]) => Data.Eq.Singletons.SEq [a]
instance Data.Eq.Singletons.SEq a => Data.Eq.Singletons.SEq (GHC.Maybe.Maybe a)
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq [a]) => Data.Eq.Singletons.SEq (GHC.Base.NonEmpty a)
instance Data.Eq.Singletons.SEq GHC.Types.Ordering
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq b) => Data.Eq.Singletons.SEq (a, b)
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq b, Data.Eq.Singletons.SEq c) => Data.Eq.Singletons.SEq (a, b, c)
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq b, Data.Eq.Singletons.SEq c, Data.Eq.Singletons.SEq d) => Data.Eq.Singletons.SEq (a, b, c, d)
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq b, Data.Eq.Singletons.SEq c, Data.Eq.Singletons.SEq d, Data.Eq.Singletons.SEq e) => Data.Eq.Singletons.SEq (a, b, c, d, e)
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq b, Data.Eq.Singletons.SEq c, Data.Eq.Singletons.SEq d, Data.Eq.Singletons.SEq e, Data.Eq.Singletons.SEq f) => Data.Eq.Singletons.SEq (a, b, c, d, e, f)
instance (Data.Eq.Singletons.SEq a, Data.Eq.Singletons.SEq b, Data.Eq.Singletons.SEq c, Data.Eq.Singletons.SEq d, Data.Eq.Singletons.SEq e, Data.Eq.Singletons.SEq f, Data.Eq.Singletons.SEq g) => Data.Eq.Singletons.SEq (a, b, c, d, e, f, g)
instance Data.Eq.Singletons.SEq ()
instance Data.Eq.Singletons.SEq GHC.Base.Void
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI1 (Data.Eq.Singletons./=@#@$$)
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI1 (Data.Eq.Singletons.==@#@$$)
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI (Data.Eq.Singletons./=@#@$)
instance forall a (d :: a). (Data.Eq.Singletons.SEq a, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Eq.Singletons./=@#@$$) d)
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI (Data.Eq.Singletons.==@#@$)
instance forall a (d :: a). (Data.Eq.Singletons.SEq a, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Eq.Singletons.==@#@$$) d)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons./=@#@$)
instance forall a (a6989586621679137923 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Eq.Singletons./=@#@$$) a6989586621679137923)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.==@#@$)
instance forall a (a6989586621679137918 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Eq.Singletons.==@#@$$) a6989586621679137918)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.DefaultEqSym0
instance forall k (a6989586621679140066 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.DefaultEqSym1 a6989586621679140066)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679137927Sym0
instance forall a (a6989586621679137932 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679137927Sym1 a6989586621679137932)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679137938Sym0
instance forall a (a6989586621679137943 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679137938Sym1 a6989586621679137943)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140341Sym0
instance forall a (a6989586621679140346 :: GHC.Maybe.Maybe a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140341Sym1 a6989586621679140346)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140370Sym0
instance forall a (a6989586621679140375 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140370Sym1 a6989586621679140375)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140413Sym0
instance forall a b (a6989586621679140418 :: Data.Either.Either a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140413Sym1 a6989586621679140418)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140437Sym0
instance forall a (a6989586621679140442 :: GHC.Base.NonEmpty a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140437Sym1 a6989586621679140442)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140450Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140450Sym1 a6989586621679140455)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140473Sym0
instance forall a b (a6989586621679140478 :: (a, b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140473Sym1 a6989586621679140478)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140507Sym0
instance forall a b c (a6989586621679140512 :: (a, b, c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140507Sym1 a6989586621679140512)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140550Sym0
instance forall a b c d (a6989586621679140555 :: (a, b, c, d)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140550Sym1 a6989586621679140555)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140602Sym0
instance forall a b c d e (a6989586621679140607 :: (a, b, c, d, e)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140602Sym1 a6989586621679140607)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140663Sym0
instance forall a b c d e f (a6989586621679140668 :: (a, b, c, d, e, f)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140663Sym1 a6989586621679140668)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140733Sym0
instance forall a b c d e f g (a6989586621679140738 :: (a, b, c, d, e, f, g)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140733Sym1 a6989586621679140738)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140763Sym0
instance forall a (a6989586621679140768 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140763Sym1 a6989586621679140768)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140774Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140774Sym1 a6989586621679140779)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140783Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140783Sym1 a6989586621679140788)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Eq.Singletons.TFHelper_6989586621679140792Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Eq.Singletons.TFHelper_6989586621679140792Sym1 a6989586621679140797)
-- | This module defines singleton instances making TypeRep the
-- singleton for the kind TYPE rep (for some
-- RuntimeRep rep), an instantiation of which is the
-- famous kind Type. The definitions don't fully line up with what
-- is expected within the singletons library, so expect unusual results!
module Data.Singletons.Base.TypeRepTYPE
type family Sing :: k -> Type
-- | A variant of SomeTypeRep whose underlying TypeRep is
-- restricted to kind TYPE rep (for some
-- RuntimeRep rep).
data SomeTypeRepTYPE (a :: RuntimeRep)
[SomeTypeRepTYPE] :: forall (a :: RuntimeRep) (a1 :: TYPE a). !TypeRep a1 -> SomeTypeRepTYPE a
instance GHC.Classes.Eq (Data.Singletons.Base.TypeRepTYPE.SomeTypeRepTYPE GHC.Types.LiftedRep)
instance GHC.Classes.Ord (Data.Singletons.Base.TypeRepTYPE.SomeTypeRepTYPE GHC.Types.LiftedRep)
instance Data.Eq.Singletons.PEq (*)
instance Data.Singletons.Decide.SDecide (*)
instance Data.Eq.Singletons.SEq (*)
instance GHC.Show.Show (Data.Singletons.Base.TypeRepTYPE.SomeTypeRepTYPE GHC.Types.LiftedRep)
instance Data.Typeable.Internal.Typeable a => Data.Singletons.SingI a
instance Data.Singletons.SingKind (*)
-- | Defines functions and datatypes relating to the singleton for tuples,
-- including singled versions of all the definitions in
-- Data.Tuple.
--
-- 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.
module Data.Tuple.Singletons
type family Sing :: k -> Type
data STuple0 (a :: ())
[STuple0] :: STuple0 '()
data STuple2 (a1 :: (a, b))
[STuple2] :: forall a b (n1 :: a) (n2 :: b). Sing n1 -> Sing n2 -> STuple2 '(n1, n2)
data STuple3 (a1 :: (a, b, c))
[STuple3] :: forall a b c (n1 :: a) (n2 :: b) (n3 :: c). Sing n1 -> Sing n2 -> Sing n3 -> STuple3 '(n1, n2, n3)
data STuple4 (a1 :: (a, b, c, d))
[STuple4] :: forall a b c d (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> STuple4 '(n1, n2, n3, n4)
data STuple5 (a1 :: (a, b, c, d, e))
[STuple5] :: forall a b c d e (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> STuple5 '(n1, n2, n3, n4, n5)
data STuple6 (a1 :: (a, b, c, d, e, f))
[STuple6] :: forall a b c d e f (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e) (n6 :: f). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> Sing n6 -> STuple6 '(n1, n2, n3, n4, n5, n6)
data STuple7 (a1 :: (a, b, c, d, e, f, g))
[STuple7] :: forall a b c d e f g (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e) (n6 :: f) (n7 :: g). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> Sing n6 -> Sing n7 -> STuple7 '(n1, n2, n3, n4, n5, n6, n7)
type family Fst (a1 :: (a, b)) :: a
sFst :: forall a b (t :: (a, b)). Sing t -> Sing (Apply (FstSym0 :: TyFun (a, b) a -> Type) t)
type family Snd (a1 :: (a, b)) :: b
sSnd :: forall a b (t :: (a, b)). Sing t -> Sing (Apply (SndSym0 :: TyFun (a, b) b -> Type) t)
type family Curry (a1 :: (a, b) ~> c) (a2 :: a) (a3 :: b) :: c
sCurry :: forall a b c (t1 :: (a, b) ~> c) (t2 :: a) (t3 :: b). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (CurrySym0 :: TyFun ((a, b) ~> c) (a ~> (b ~> c)) -> Type) t1) t2) t3)
type family Uncurry (a1 :: a ~> b ~> c) (a2 :: (a, b)) :: c
sUncurry :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: (a, b)). Sing t1 -> Sing t2 -> Sing (Apply (Apply (UncurrySym0 :: TyFun (a ~> (b ~> c)) ((a, b) ~> c) -> Type) t1) t2)
type family Swap (a1 :: (a, b)) :: (b, a)
sSwap :: forall a b (t :: (a, b)). Sing t -> Sing (Apply (SwapSym0 :: TyFun (a, b) (b, a) -> Type) t)
type family Tuple0Sym0 :: ()
data Tuple2Sym0 (a1 :: TyFun a b ~> (a, b))
data Tuple2Sym1 (a6989586621679046729 :: a) (b1 :: TyFun b (a, b))
type family Tuple2Sym2 (a6989586621679046729 :: a) (a6989586621679046730 :: b) :: (a, b)
data Tuple3Sym0 (a1 :: TyFun a b ~> c ~> (a, b, c))
data Tuple3Sym1 (a6989586621679046760 :: a) (b1 :: TyFun b c ~> (a, b, c))
data Tuple3Sym2 (a6989586621679046760 :: a) (a6989586621679046761 :: b) (c1 :: TyFun c (a, b, c))
type family Tuple3Sym3 (a6989586621679046760 :: a) (a6989586621679046761 :: b) (a6989586621679046762 :: c) :: (a, b, c)
data Tuple4Sym0 (a1 :: TyFun a b ~> c ~> d ~> (a, b, c, d))
data Tuple4Sym1 (a6989586621679046809 :: a) (b1 :: TyFun b c ~> d ~> (a, b, c, d))
data Tuple4Sym2 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (c1 :: TyFun c d ~> (a, b, c, d))
data Tuple4Sym3 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (a6989586621679046811 :: c) (d1 :: TyFun d (a, b, c, d))
type family Tuple4Sym4 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (a6989586621679046811 :: c) (a6989586621679046812 :: d) :: (a, b, c, d)
data Tuple5Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> (a, b, c, d, e))
data Tuple5Sym1 (a6989586621679046878 :: a) (b1 :: TyFun b c ~> d ~> e ~> (a, b, c, d, e))
data Tuple5Sym2 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (c1 :: TyFun c d ~> e ~> (a, b, c, d, e))
data Tuple5Sym3 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (d1 :: TyFun d e ~> (a, b, c, d, e))
data Tuple5Sym4 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (a6989586621679046881 :: d) (e1 :: TyFun e (a, b, c, d, e))
type family Tuple5Sym5 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (a6989586621679046881 :: d) (a6989586621679046882 :: e) :: (a, b, c, d, e)
data Tuple6Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym1 (a6989586621679046969 :: a) (b1 :: TyFun b c ~> d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym2 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (c1 :: TyFun c d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym3 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (d1 :: TyFun d e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym4 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (e1 :: TyFun e f ~> (a, b, c, d, e, f))
data Tuple6Sym5 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (a6989586621679046973 :: e) (f1 :: TyFun f (a, b, c, d, e, f))
type family Tuple6Sym6 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (a6989586621679046973 :: e) (a6989586621679046974 :: f) :: (a, b, c, d, e, f)
data Tuple7Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym1 (a6989586621679047084 :: a) (b1 :: TyFun b c ~> d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym2 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (c1 :: TyFun c d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym3 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (d1 :: TyFun d e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym4 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (e1 :: TyFun e f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym5 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (f1 :: TyFun f g ~> (a, b, c, d, e, f, g))
data Tuple7Sym6 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (a6989586621679047089 :: f) (g1 :: TyFun g (a, b, c, d, e, f, g))
type family Tuple7Sym7 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (a6989586621679047089 :: f) (a6989586621679047090 :: g) :: (a, b, c, d, e, f, g)
data FstSym0 (a1 :: TyFun (a, b) a)
type family FstSym1 (a6989586621679172905 :: (a, b)) :: a
data SndSym0 (a1 :: TyFun (a, b) b)
type family SndSym1 (a6989586621679172901 :: (a, b)) :: b
data CurrySym0 (a1 :: TyFun (a, b) ~> c a ~> b ~> c)
data CurrySym1 (a6989586621679172893 :: (a, b) ~> c) (b1 :: TyFun a b ~> c)
data CurrySym2 (a6989586621679172893 :: (a, b) ~> c) (a6989586621679172894 :: a) (c1 :: TyFun b c)
type family CurrySym3 (a6989586621679172893 :: (a, b) ~> c) (a6989586621679172894 :: a) (a6989586621679172895 :: b) :: c
data UncurrySym0 (a1 :: TyFun a ~> b ~> c (a, b) ~> c)
data UncurrySym1 (a6989586621679172885 :: a ~> b ~> c) (b1 :: TyFun (a, b) c)
type family UncurrySym2 (a6989586621679172885 :: a ~> b ~> c) (a6989586621679172886 :: (a, b)) :: c
data SwapSym0 (a1 :: TyFun (a, b) (b, a))
type family SwapSym1 (a6989586621679172879 :: (a, b)) :: (b, a)
instance Data.Singletons.SingI1 Data.Tuple.Singletons.CurrySym1
instance Data.Singletons.SingI1 Data.Tuple.Singletons.UncurrySym1
instance forall a b c (d :: (a, b) Data.Singletons.~> c). Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.Tuple.Singletons.CurrySym2 d)
instance Data.Singletons.SingI2 Data.Tuple.Singletons.CurrySym2
instance Data.Singletons.SingI Data.Tuple.Singletons.CurrySym0
instance forall a b c (d :: (a, b) Data.Singletons.~> c). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Tuple.Singletons.CurrySym1 d)
instance forall a b c (d1 :: (a, b) Data.Singletons.~> c) (d2 :: a). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Tuple.Singletons.CurrySym2 d1 d2)
instance Data.Singletons.SingI Data.Tuple.Singletons.FstSym0
instance Data.Singletons.SingI Data.Tuple.Singletons.SndSym0
instance Data.Singletons.SingI Data.Tuple.Singletons.SwapSym0
instance Data.Singletons.SingI Data.Tuple.Singletons.UncurrySym0
instance forall a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Tuple.Singletons.UncurrySym1 d)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Tuple.Singletons.CurrySym0
instance forall a b c (a6989586621679172893 :: (a, b) Data.Singletons.~> c). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Tuple.Singletons.CurrySym1 a6989586621679172893)
instance forall a b c (a6989586621679172893 :: (a, b) Data.Singletons.~> c) (a6989586621679172894 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Tuple.Singletons.CurrySym2 a6989586621679172893 a6989586621679172894)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Tuple.Singletons.FstSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Tuple.Singletons.SndSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Tuple.Singletons.SwapSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Tuple.Singletons.UncurrySym0
instance forall a b c (a6989586621679172885 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Tuple.Singletons.UncurrySym1 a6989586621679172885)
-- | Defines functions and datatypes relating to the singleton for
-- Void, including singled versions of all the definitions in
-- Data.Void.
--
-- 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.Void. Also, please excuse
-- the apparent repeated variable names. This is due to an interaction
-- between Template Haskell and Haddock.
module Data.Void.Singletons
type family Sing :: k -> Type
data SVoid (a :: Void)
type family Absurd (a1 :: Void) :: a
sAbsurd :: forall a (t :: Void). Sing t -> Sing (Apply (AbsurdSym0 :: TyFun Void a -> Type) t)
data AbsurdSym0 (a1 :: TyFun Void a)
type family AbsurdSym1 (a6989586621679178857 :: Void) :: a
instance Data.Singletons.SingI Data.Void.Singletons.AbsurdSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Void.Singletons.AbsurdSym0
-- | Defines the promoted version of Ord, POrd, and the singleton
-- version, SOrd.
module Data.Ord.Singletons
class POrd a where {
type Compare (arg :: a) (arg1 :: a) :: Ordering;
type (arg :: a) < (arg1 :: a) :: Bool;
type (arg :: a) <= (arg1 :: a) :: Bool;
type (arg :: a) > (arg1 :: a) :: Bool;
type (arg :: a) >= (arg1 :: a) :: Bool;
type Max (arg :: a) (arg1 :: a) :: a;
type Min (arg :: a) (arg1 :: a) :: a;
type Compare arg :: a arg1 :: a = Apply Apply Compare_6989586621679237142Sym0 :: TyFun a a ~> Ordering -> Type arg arg1;
type arg :: a < arg1 :: a = Apply Apply TFHelper_6989586621679237163Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a <= arg1 :: a = Apply Apply TFHelper_6989586621679237179Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a > arg1 :: a = Apply Apply TFHelper_6989586621679237195Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a >= arg1 :: a = Apply Apply TFHelper_6989586621679237211Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type Max arg :: a arg1 :: a = Apply Apply Max_6989586621679237227Sym0 :: TyFun a a ~> a -> Type arg arg1;
type Min arg :: a arg1 :: a = Apply Apply Min_6989586621679237243Sym0 :: TyFun a a ~> a -> Type arg arg1;
}
infix 4 <
infix 4 <=
infix 4 >
infix 4 >=
class SEq a => SOrd a
sCompare :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2)
($dmsCompare) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2 ~ Apply (Apply (Compare_6989586621679237142Sym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2)
(%<) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%<) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237163Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%<=) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%<=) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237179Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%>) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%>) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237195Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%>=) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%>=) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237211Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
sMax :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMax) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Max_6989586621679237227Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
sMin :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMin) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Min_6989586621679237243Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
infix 4 %<
infix 4 %<=
infix 4 %>
infix 4 %>=
type family Comparing (a1 :: b ~> a) (a2 :: b) (a3 :: b) :: Ordering
sComparing :: forall b a (t1 :: b ~> a) (t2 :: b) (t3 :: b). SOrd a => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ComparingSym0 :: TyFun (b ~> a) (b ~> (b ~> Ordering)) -> Type) t1) t2) t3)
type family Sing :: k -> Type
data SOrdering (a :: Ordering)
[SLT] :: SOrdering 'LT
[SEQ] :: SOrdering 'EQ
[SGT] :: SOrdering 'GT
data SDown (a1 :: Down a)
[SDown] :: forall a (n :: a). Sing n -> SDown ('Down n)
type family GetDown (a1 :: Down a) :: a
sGetDown :: forall a (t :: Down a). Sing t -> Sing (Apply (GetDownSym0 :: TyFun (Down a) a -> Type) t)
type family LTSym0 :: Ordering
type family EQSym0 :: Ordering
type family GTSym0 :: Ordering
data CompareSym0 (a1 :: TyFun a a ~> Ordering)
data CompareSym1 (a6989586621679237108 :: a) (b :: TyFun a Ordering)
type family CompareSym2 (a6989586621679237108 :: a) (a6989586621679237109 :: a) :: Ordering
data (a1 :: TyFun a a ~> Bool) <@#@$
infix 4 <@#@$
data (a6989586621679237113 :: a) <@#@$$ (b :: TyFun a Bool)
infix 4 <@#@$$
type family (a6989586621679237113 :: a) <@#@$$$ (a6989586621679237114 :: a) :: Bool
infix 4 <@#@$$$
data (a1 :: TyFun a a ~> Bool) <=@#@$
infix 4 <=@#@$
data (a6989586621679237118 :: a) <=@#@$$ (b :: TyFun a Bool)
infix 4 <=@#@$$
type family (a6989586621679237118 :: a) <=@#@$$$ (a6989586621679237119 :: a) :: Bool
infix 4 <=@#@$$$
data (a1 :: TyFun a a ~> Bool) >@#@$
infix 4 >@#@$
data (a6989586621679237123 :: a) >@#@$$ (b :: TyFun a Bool)
infix 4 >@#@$$
type family (a6989586621679237123 :: a) >@#@$$$ (a6989586621679237124 :: a) :: Bool
infix 4 >@#@$$$
data (a1 :: TyFun a a ~> Bool) >=@#@$
infix 4 >=@#@$
data (a6989586621679237128 :: a) >=@#@$$ (b :: TyFun a Bool)
infix 4 >=@#@$$
type family (a6989586621679237128 :: a) >=@#@$$$ (a6989586621679237129 :: a) :: Bool
infix 4 >=@#@$$$
data MaxSym0 (a1 :: TyFun a a ~> a)
data MaxSym1 (a6989586621679237133 :: a) (b :: TyFun a a)
type family MaxSym2 (a6989586621679237133 :: a) (a6989586621679237134 :: a) :: a
data MinSym0 (a1 :: TyFun a a ~> a)
data MinSym1 (a6989586621679237138 :: a) (b :: TyFun a a)
type family MinSym2 (a6989586621679237138 :: a) (a6989586621679237139 :: a) :: a
data ComparingSym0 (a1 :: TyFun b ~> a b ~> b ~> Ordering)
data ComparingSym1 (a6989586621679237099 :: b ~> a) (b1 :: TyFun b b ~> Ordering)
data ComparingSym2 (a6989586621679237099 :: b ~> a) (a6989586621679237100 :: b) (c :: TyFun b Ordering)
type family ComparingSym3 (a6989586621679237099 :: b ~> a) (a6989586621679237100 :: b) (a6989586621679237101 :: b) :: Ordering
data DownSym0 (a1 :: TyFun a Down a)
type family DownSym1 (a6989586621679248119 :: a) :: Down a
data GetDownSym0 (a1 :: TyFun Down a a)
type family GetDownSym1 (a6989586621679248122 :: Down a) :: a
instance forall a (z :: Data.Ord.Down a). GHC.Classes.Eq (Data.Ord.Singletons.SDown z)
instance Data.Eq.Singletons.PEq (Data.Ord.Down a)
instance Data.Ord.Singletons.POrd GHC.Types.Bool
instance Data.Ord.Singletons.POrd (Data.Ord.Down a)
instance Data.Ord.Singletons.POrd (Data.Either.Either a b)
instance Data.Ord.Singletons.POrd (Data.Functor.Identity.Identity a)
instance Data.Ord.Singletons.POrd [a]
instance Data.Ord.Singletons.POrd (GHC.Maybe.Maybe a)
instance Data.Ord.Singletons.POrd (GHC.Base.NonEmpty a)
instance Data.Ord.Singletons.POrd GHC.Types.Ordering
instance Data.Ord.Singletons.POrd (a, b)
instance Data.Ord.Singletons.POrd (a, b, c)
instance Data.Ord.Singletons.POrd (a, b, c, d)
instance Data.Ord.Singletons.POrd (a, b, c, d, e)
instance Data.Ord.Singletons.POrd (a, b, c, d, e, f)
instance Data.Ord.Singletons.POrd (a, b, c, d, e, f, g)
instance Data.Ord.Singletons.POrd ()
instance Data.Ord.Singletons.POrd GHC.Base.Void
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Ord.Down a)
instance Data.Singletons.Decide.SDecide a => Data.Singletons.Decide.SDecide (Data.Ord.Down a)
instance Data.Eq.Singletons.SEq a => Data.Eq.Singletons.SEq (Data.Ord.Down a)
instance Data.Ord.Singletons.SOrd GHC.Types.Bool
instance Data.Ord.Singletons.SOrd a => Data.Ord.Singletons.SOrd (Data.Ord.Down a)
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd b) => Data.Ord.Singletons.SOrd (Data.Either.Either a b)
instance Data.Ord.Singletons.SOrd a => Data.Ord.Singletons.SOrd (Data.Functor.Identity.Identity a)
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd [a]) => Data.Ord.Singletons.SOrd [a]
instance Data.Ord.Singletons.SOrd a => Data.Ord.Singletons.SOrd (GHC.Maybe.Maybe a)
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd [a]) => Data.Ord.Singletons.SOrd (GHC.Base.NonEmpty a)
instance Data.Ord.Singletons.SOrd GHC.Types.Ordering
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd b) => Data.Ord.Singletons.SOrd (a, b)
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd b, Data.Ord.Singletons.SOrd c) => Data.Ord.Singletons.SOrd (a, b, c)
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd b, Data.Ord.Singletons.SOrd c, Data.Ord.Singletons.SOrd d) => Data.Ord.Singletons.SOrd (a, b, c, d)
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd b, Data.Ord.Singletons.SOrd c, Data.Ord.Singletons.SOrd d, Data.Ord.Singletons.SOrd e) => Data.Ord.Singletons.SOrd (a, b, c, d, e)
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd b, Data.Ord.Singletons.SOrd c, Data.Ord.Singletons.SOrd d, Data.Ord.Singletons.SOrd e, Data.Ord.Singletons.SOrd f) => Data.Ord.Singletons.SOrd (a, b, c, d, e, f)
instance (Data.Ord.Singletons.SOrd a, Data.Ord.Singletons.SOrd b, Data.Ord.Singletons.SOrd c, Data.Ord.Singletons.SOrd d, Data.Ord.Singletons.SOrd e, Data.Ord.Singletons.SOrd f, Data.Ord.Singletons.SOrd g) => Data.Ord.Singletons.SOrd (a, b, c, d, e, f, g)
instance Data.Ord.Singletons.SOrd ()
instance Data.Ord.Singletons.SOrd GHC.Base.Void
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup a => Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Ord.Down a)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 Data.Ord.Singletons.ComparingSym1
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 (Data.Ord.Singletons.<=@#@$$)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 (Data.Ord.Singletons.<@#@$$)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 (Data.Ord.Singletons.>=@#@$$)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 (Data.Ord.Singletons.>@#@$$)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 Data.Ord.Singletons.CompareSym1
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 Data.Ord.Singletons.MaxSym1
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 Data.Ord.Singletons.MinSym1
instance forall a b (d :: b Data.Singletons.~> a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Ord.Singletons.ComparingSym2 d)
instance Data.Singletons.SingI1 'Data.Ord.Down
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI2 Data.Ord.Singletons.ComparingSym2
instance forall a (n :: a). Data.Singletons.SingI n => Data.Singletons.SingI ('Data.Ord.Down n)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI (Data.Ord.Singletons.<=@#@$)
instance forall a (d :: a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Ord.Singletons.<=@#@$$) d)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI (Data.Ord.Singletons.<@#@$)
instance forall a (d :: a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Ord.Singletons.<@#@$$) d)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI (Data.Ord.Singletons.>=@#@$)
instance forall a (d :: a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Ord.Singletons.>=@#@$$) d)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI (Data.Ord.Singletons.>@#@$)
instance forall a (d :: a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Ord.Singletons.>@#@$$) d)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI Data.Ord.Singletons.CompareSym0
instance forall a (d :: a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Ord.Singletons.CompareSym1 d)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI Data.Ord.Singletons.ComparingSym0
instance forall a b (d :: b Data.Singletons.~> a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Ord.Singletons.ComparingSym1 d)
instance forall a b (d1 :: b Data.Singletons.~> a) (d2 :: b). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Ord.Singletons.ComparingSym2 d1 d2)
instance Data.Singletons.SingI Data.Ord.Singletons.DownSym0
instance Data.Singletons.SingI Data.Ord.Singletons.GetDownSym0
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI Data.Ord.Singletons.MaxSym0
instance forall a (d :: a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Ord.Singletons.MaxSym1 d)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI Data.Ord.Singletons.MinSym0
instance forall a (d :: a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Ord.Singletons.MinSym1 d)
instance Data.Singletons.SingKind a => Data.Singletons.SingKind (Data.Ord.Down a)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.<=@#@$)
instance forall a (a6989586621679237118 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Ord.Singletons.<=@#@$$) a6989586621679237118)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.<@#@$)
instance forall a (a6989586621679237113 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Ord.Singletons.<@#@$$) a6989586621679237113)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.>=@#@$)
instance forall a (a6989586621679237128 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Ord.Singletons.>=@#@$$) a6989586621679237128)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.>@#@$)
instance forall a (a6989586621679237123 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Ord.Singletons.>@#@$$) a6989586621679237123)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.CompareSym0
instance forall a (a6989586621679237108 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.CompareSym1 a6989586621679237108)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679237142Sym0
instance forall a (a6989586621679237147 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679237142Sym1 a6989586621679237147)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679249961Sym0
instance forall a (a6989586621679249966 :: Data.Ord.Down a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679249961Sym1 a6989586621679249966)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679251946Sym0
instance forall a (a6989586621679251951 :: GHC.Maybe.Maybe a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679251946Sym1 a6989586621679251951)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252507Sym0
instance forall a (a6989586621679252512 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252507Sym1 a6989586621679252512)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252548Sym0
instance forall a b (a6989586621679252553 :: Data.Either.Either a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252548Sym1 a6989586621679252553)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252572Sym0
instance forall a (a6989586621679252577 :: GHC.Base.NonEmpty a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252572Sym1 a6989586621679252577)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252585Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252585Sym1 a6989586621679252590)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252608Sym0
instance forall a b (a6989586621679252613 :: (a, b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252608Sym1 a6989586621679252613)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252642Sym0
instance forall a b c (a6989586621679252647 :: (a, b, c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252642Sym1 a6989586621679252647)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252685Sym0
instance forall a b c d (a6989586621679252690 :: (a, b, c, d)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252685Sym1 a6989586621679252690)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252737Sym0
instance forall a b c d e (a6989586621679252742 :: (a, b, c, d, e)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252737Sym1 a6989586621679252742)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252798Sym0
instance forall a b c d e f (a6989586621679252803 :: (a, b, c, d, e, f)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252798Sym1 a6989586621679252803)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252868Sym0
instance forall a b c d e f g (a6989586621679252873 :: (a, b, c, d, e, f, g)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252868Sym1 a6989586621679252873)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252898Sym0
instance forall a (a6989586621679252903 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252898Sym1 a6989586621679252903)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252909Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252909Sym1 a6989586621679252914)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252918Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252918Sym1 a6989586621679252923)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Compare_6989586621679252927Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Compare_6989586621679252927Sym1 a6989586621679252932)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.ComparingSym0
instance forall b a (a6989586621679237099 :: b Data.Singletons.~> a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.ComparingSym1 a6989586621679237099)
instance forall b a (a6989586621679237099 :: b Data.Singletons.~> a) (a6989586621679237100 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.ComparingSym2 a6989586621679237099 a6989586621679237100)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.DownSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.GetDownSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Let6989586621679237151Scrutinee_6989586621679235808Sym0
instance forall k1 (x6989586621679237149 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Let6989586621679237151Scrutinee_6989586621679235808Sym1 x6989586621679237149)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Let6989586621679237155Scrutinee_6989586621679235810Sym0
instance forall k1 (x6989586621679237149 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Let6989586621679237155Scrutinee_6989586621679235810Sym1 x6989586621679237149)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Let6989586621679237172Scrutinee_6989586621679235812Sym0
instance forall k1 (x6989586621679237170 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Let6989586621679237172Scrutinee_6989586621679235812Sym1 x6989586621679237170)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Let6989586621679237188Scrutinee_6989586621679235814Sym0
instance forall k1 (x6989586621679237186 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Let6989586621679237188Scrutinee_6989586621679235814Sym1 x6989586621679237186)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Let6989586621679237204Scrutinee_6989586621679235816Sym0
instance forall k1 (x6989586621679237202 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Let6989586621679237204Scrutinee_6989586621679235816Sym1 x6989586621679237202)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Let6989586621679237220Scrutinee_6989586621679235818Sym0
instance forall k1 (x6989586621679237218 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Let6989586621679237220Scrutinee_6989586621679235818Sym1 x6989586621679237218)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Let6989586621679237236Scrutinee_6989586621679235820Sym0
instance forall k1 (x6989586621679237234 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Let6989586621679237236Scrutinee_6989586621679235820Sym1 x6989586621679237234)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Let6989586621679237252Scrutinee_6989586621679235822Sym0
instance forall k1 (x6989586621679237250 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Let6989586621679237252Scrutinee_6989586621679235822Sym1 x6989586621679237250)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.MaxSym0
instance forall a (a6989586621679237133 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.MaxSym1 a6989586621679237133)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Max_6989586621679237227Sym0
instance forall a (a6989586621679237232 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Max_6989586621679237227Sym1 a6989586621679237232)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.MinSym0
instance forall a (a6989586621679237138 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.MinSym1 a6989586621679237138)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.Min_6989586621679237243Sym0
instance forall a (a6989586621679237248 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.Min_6989586621679237243Sym1 a6989586621679237248)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.TFHelper_6989586621679237163Sym0
instance forall a (a6989586621679237168 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.TFHelper_6989586621679237163Sym1 a6989586621679237168)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.TFHelper_6989586621679237179Sym0
instance forall a (a6989586621679237184 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.TFHelper_6989586621679237179Sym1 a6989586621679237184)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.TFHelper_6989586621679237195Sym0
instance forall a (a6989586621679237200 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.TFHelper_6989586621679237195Sym1 a6989586621679237200)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.TFHelper_6989586621679237211Sym0
instance forall a (a6989586621679237216 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.TFHelper_6989586621679237211Sym1 a6989586621679237216)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.TFHelper_6989586621679249950Sym0
instance forall a (a6989586621679249955 :: Data.Ord.Down a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.TFHelper_6989586621679249950Sym1 a6989586621679249955)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Ord.Singletons.TFHelper_6989586621679250071Sym0
instance forall a (a6989586621679250076 :: Data.Ord.Down a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Ord.Singletons.TFHelper_6989586621679250071Sym1 a6989586621679250076)
instance Data.Singletons.Decide.SDecide a => Data.Type.Coercion.TestCoercion Data.Ord.Singletons.SDown
instance Data.Singletons.Decide.SDecide a => Data.Type.Equality.TestEquality Data.Ord.Singletons.SDown
-- | Defines singleton versions of the definitions in
-- Data.Function.
--
-- 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.Function. Also, please
-- excuse the apparent repeated variable names. This is due to an
-- interaction between Template Haskell and Haddock.
module Data.Function.Singletons
type family Id (a1 :: a) :: a
sId :: forall a (t :: a). Sing t -> Sing (Apply (IdSym0 :: TyFun a a -> Type) t)
type family Const (a1 :: a) (a2 :: b) :: a
sConst :: forall a b (t1 :: a) (t2 :: b). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ConstSym0 :: TyFun a (b ~> a) -> Type) t1) t2)
type family ( (a1 :: b ~> c) . (a2 :: a ~> b) ) (a3 :: a) :: c
infixr 9 .
(%.) :: forall b c a (t1 :: b ~> c) (t2 :: a ~> b) (t3 :: a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply ((.@#@$) :: TyFun (b ~> c) ((a ~> b) ~> (a ~> c)) -> Type) t1) t2) t3)
infixr 9 %.
type family Flip (a1 :: a ~> b ~> c) (a2 :: b) (a3 :: a) :: c
sFlip :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: b) (t3 :: a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FlipSym0 :: TyFun (a ~> (b ~> c)) (b ~> (a ~> c)) -> Type) t1) t2) t3)
type family (a1 :: a ~> b) $ (a2 :: a) :: b
infixr 0 $
(%$) :: forall a b (t1 :: a ~> b) (t2 :: a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (($@#@$) :: TyFun (a ~> b) (a ~> b) -> Type) t1) t2)
infixr 0 %$
type family (a1 :: a) & (a2 :: a ~> b) :: b
infixl 1 &
(%&) :: forall a b (t1 :: a) (t2 :: a ~> b). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((&@#@$) :: TyFun a ((a ~> b) ~> b) -> Type) t1) t2)
infixl 1 %&
type family On (a1 :: b ~> b ~> c) (a2 :: a ~> b) (a3 :: a) (a4 :: a) :: c
infixl 0 `On`
sOn :: forall b c a (t1 :: b ~> (b ~> c)) (t2 :: a ~> b) (t3 :: a) (t4 :: a). Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (Apply (OnSym0 :: TyFun (b ~> (b ~> c)) ((a ~> b) ~> (a ~> (a ~> c))) -> Type) t1) t2) t3) t4)
infixl 0 `sOn`
data IdSym0 (a1 :: TyFun a a)
type family IdSym1 (a6989586621679180225 :: a) :: a
data ConstSym0 (a1 :: TyFun a b ~> a)
data ConstSym1 (a6989586621679180220 :: a) (b1 :: TyFun b a)
type family ConstSym2 (a6989586621679180220 :: a) (a6989586621679180221 :: b) :: a
data (a1 :: TyFun b ~> c a ~> b ~> a ~> c) .@#@$
infixr 9 .@#@$
data (a6989586621679180207 :: b ~> c) .@#@$$ (b1 :: TyFun a ~> b a ~> c)
infixr 9 .@#@$$
data ( (a6989586621679180207 :: b ~> c) .@#@$$$ (a6989586621679180208 :: a ~> b) ) (c1 :: TyFun a c)
infixr 9 .@#@$$$
type family ( (a6989586621679180207 :: b ~> c) .@#@$$$$ (a6989586621679180208 :: a ~> b) ) (a6989586621679180209 :: a) :: c
infixr 9 .@#@$$$$
data FlipSym0 (a1 :: TyFun a ~> b ~> c b ~> a ~> c)
data FlipSym1 (a6989586621679180195 :: a ~> b ~> c) (b1 :: TyFun b a ~> c)
data FlipSym2 (a6989586621679180195 :: a ~> b ~> c) (a6989586621679180196 :: b) (c1 :: TyFun a c)
type family FlipSym3 (a6989586621679180195 :: a ~> b ~> c) (a6989586621679180196 :: b) (a6989586621679180197 :: a) :: c
data (a1 :: TyFun a ~> b a ~> b) $@#@$
infixr 0 $@#@$
data (a6989586621679180176 :: a ~> b) $@#@$$ (b1 :: TyFun a b)
infixr 0 $@#@$$
type family (a6989586621679180176 :: a ~> b) $@#@$$$ (a6989586621679180177 :: a) :: b
infixr 0 $@#@$$$
data (a1 :: TyFun a a ~> b ~> b) &@#@$
infixl 1 &@#@$
data (a6989586621679327005 :: a) &@#@$$ (b1 :: TyFun a ~> b b)
infixl 1 &@#@$$
type family (a6989586621679327005 :: a) &@#@$$$ (a6989586621679327006 :: a ~> b) :: b
infixl 1 &@#@$$$
data OnSym0 (a1 :: TyFun b ~> b ~> c a ~> b ~> a ~> a ~> c)
infixl 0 `OnSym0`
data OnSym1 (a6989586621679327018 :: b ~> b ~> c) (b1 :: TyFun a ~> b a ~> a ~> c)
infixl 0 `OnSym1`
data OnSym2 (a6989586621679327018 :: b ~> b ~> c) (a6989586621679327019 :: a ~> b) (c1 :: TyFun a a ~> c)
infixl 0 `OnSym2`
data OnSym3 (a6989586621679327018 :: b ~> b ~> c) (a6989586621679327019 :: a ~> b) (a6989586621679327020 :: a) (d :: TyFun a c)
infixl 0 `OnSym3`
type family OnSym4 (a6989586621679327018 :: b ~> b ~> c) (a6989586621679327019 :: a ~> b) (a6989586621679327020 :: a) (a6989586621679327021 :: a) :: c
infixl 0 `OnSym4`
instance Data.Singletons.SingI1 Data.Function.Singletons.OnSym1
instance forall b c (d :: b Data.Singletons.~> (b Data.Singletons.~> c)) a. Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.Function.Singletons.OnSym2 d)
instance Data.Singletons.SingI1 (Data.Function.Singletons.&@#@$$)
instance forall b c (d1 :: b Data.Singletons.~> (b Data.Singletons.~> c)) a (d2 :: a Data.Singletons.~> b). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI1 (Data.Function.Singletons.OnSym3 d1 d2)
instance Data.Singletons.SingI2 Data.Function.Singletons.OnSym2
instance forall b c (d :: b Data.Singletons.~> (b Data.Singletons.~> c)) a. Data.Singletons.SingI d => Data.Singletons.SingI2 (Data.Function.Singletons.OnSym3 d)
instance Data.Singletons.SingI (Data.Function.Singletons.&@#@$)
instance forall a (d :: a) b. Data.Singletons.SingI d => Data.Singletons.SingI ((Data.Function.Singletons.&@#@$$) d)
instance Data.Singletons.SingI Data.Function.Singletons.OnSym0
instance forall b c (d :: b Data.Singletons.~> (b Data.Singletons.~> c)) a. Data.Singletons.SingI d => Data.Singletons.SingI (Data.Function.Singletons.OnSym1 d)
instance forall b c (d1 :: b Data.Singletons.~> (b Data.Singletons.~> c)) a (d2 :: a Data.Singletons.~> b). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Function.Singletons.OnSym2 d1 d2)
instance forall b c (d1 :: b Data.Singletons.~> (b Data.Singletons.~> c)) a (d2 :: a Data.Singletons.~> b) (d3 :: a). (Data.Singletons.SingI d1, Data.Singletons.SingI d2, Data.Singletons.SingI d3) => Data.Singletons.SingI (Data.Function.Singletons.OnSym3 d1 d2 d3)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.&@#@$)
instance forall a b (a6989586621679327005 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Function.Singletons.&@#@$$) a6989586621679327005)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Function.Singletons.Lambda_6989586621679327026Sym0
instance forall k2 k3 k4 k5 k6 (ty6989586621679327022 :: k2 Data.Singletons.~> (k2 Data.Singletons.~> k3)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.Lambda_6989586621679327026Sym1 ty6989586621679327022)
instance forall k2 k3 k4 k5 k6 (ty6989586621679327022 :: k2 Data.Singletons.~> (k2 Data.Singletons.~> k3)) (f6989586621679327023 :: k4 Data.Singletons.~> k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.Lambda_6989586621679327026Sym2 ty6989586621679327022 f6989586621679327023)
instance forall k2 k3 k4 k5 k6 (ty6989586621679327022 :: k2 Data.Singletons.~> (k2 Data.Singletons.~> k3)) (f6989586621679327023 :: k4 Data.Singletons.~> k2) (a_69895866216793270096989586621679327024 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.Lambda_6989586621679327026Sym3 ty6989586621679327022 f6989586621679327023 a_69895866216793270096989586621679327024)
instance forall k2 k3 k4 k5 k6 (ty6989586621679327022 :: k2 Data.Singletons.~> (k2 Data.Singletons.~> k3)) (f6989586621679327023 :: k4 Data.Singletons.~> k2) (a_69895866216793270096989586621679327024 :: k5) (a_69895866216793270116989586621679327025 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.Lambda_6989586621679327026Sym4 ty6989586621679327022 f6989586621679327023 a_69895866216793270096989586621679327024 a_69895866216793270116989586621679327025)
instance forall k2 k3 k4 k5 k6 (ty6989586621679327022 :: k2 Data.Singletons.~> (k2 Data.Singletons.~> k3)) (f6989586621679327023 :: k4 Data.Singletons.~> k2) (a_69895866216793270096989586621679327024 :: k5) (a_69895866216793270116989586621679327025 :: k6) (x6989586621679327028 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.Lambda_6989586621679327026Sym5 ty6989586621679327022 f6989586621679327023 a_69895866216793270096989586621679327024 a_69895866216793270116989586621679327025 x6989586621679327028)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Function.Singletons.OnSym0
instance forall b c a (a6989586621679327018 :: b Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.OnSym1 a6989586621679327018)
instance forall b c a (a6989586621679327018 :: b Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621679327019 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.OnSym2 a6989586621679327018 a6989586621679327019)
instance forall b c a (a6989586621679327018 :: b Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621679327019 :: a Data.Singletons.~> b) (a6989586621679327020 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Function.Singletons.OnSym3 a6989586621679327018 a6989586621679327019 a6989586621679327020)
-- | Defines functions and datatypes relating to the singleton for
-- Either, including singled versions of all the definitions in
-- Data.Either.
--
-- 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.Either. Also, please
-- excuse the apparent repeated variable names. This is due to an
-- interaction between Template Haskell and Haddock.
module Data.Either.Singletons
type family Sing :: k -> Type
data SEither (a1 :: Either a b)
[SLeft] :: forall a b (n :: a). Sing n -> SEither ('Left n :: Either a b)
[SRight] :: forall a b (n :: b). Sing n -> SEither ('Right n :: Either a b)
either_ :: (a -> c) -> (b -> c) -> Either a b -> c
type family Either_ (a1 :: a ~> c) (a2 :: b ~> c) (a3 :: Either a b) :: c
sEither_ :: forall a c b (t1 :: a ~> c) (t2 :: b ~> c) (t3 :: Either a b). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Either_Sym0 :: TyFun (a ~> c) ((b ~> c) ~> (Either a b ~> c)) -> Type) t1) t2) t3)
type family Lefts (a1 :: [Either a b]) :: [a]
sLefts :: forall a b (t :: [Either a b]). Sing t -> Sing (Apply (LeftsSym0 :: TyFun [Either a b] [a] -> Type) t)
type family Rights (a1 :: [Either a b]) :: [b]
sRights :: forall a b (t :: [Either a b]). Sing t -> Sing (Apply (RightsSym0 :: TyFun [Either a b] [b] -> Type) t)
type family PartitionEithers (a1 :: [Either a b]) :: ([a], [b])
sPartitionEithers :: forall a b (t :: [Either a b]). Sing t -> Sing (Apply (PartitionEithersSym0 :: TyFun [Either a b] ([a], [b]) -> Type) t)
type family IsLeft (a1 :: Either a b) :: Bool
sIsLeft :: forall a b (t :: Either a b). Sing t -> Sing (Apply (IsLeftSym0 :: TyFun (Either a b) Bool -> Type) t)
type family IsRight (a1 :: Either a b) :: Bool
sIsRight :: forall a b (t :: Either a b). Sing t -> Sing (Apply (IsRightSym0 :: TyFun (Either a b) Bool -> Type) t)
data LeftSym0 (a1 :: TyFun a Either a b)
type family LeftSym1 (a6989586621679046286 :: a) :: Either a b
data RightSym0 (a1 :: TyFun b Either a b)
type family RightSym1 (a6989586621679046288 :: b) :: Either a b
data Either_Sym0 (a1 :: TyFun a ~> c b ~> c ~> Either a b ~> c)
data Either_Sym1 (a6989586621679334944 :: a ~> c) (b1 :: TyFun b ~> c Either a b ~> c)
data Either_Sym2 (a6989586621679334944 :: a ~> c) (a6989586621679334945 :: b ~> c) (c1 :: TyFun Either a b c)
type family Either_Sym3 (a6989586621679334944 :: a ~> c) (a6989586621679334945 :: b ~> c) (a6989586621679334946 :: Either a b) :: c
data LeftsSym0 (a1 :: TyFun [Either a b] [a])
type family LeftsSym1 (a6989586621679337128 :: [Either a b]) :: [a]
data RightsSym0 (a1 :: TyFun [Either a b] [b])
type family RightsSym1 (a6989586621679337122 :: [Either a b]) :: [b]
data IsLeftSym0 (a1 :: TyFun Either a b Bool)
type family IsLeftSym1 (a6989586621679337100 :: Either a b) :: Bool
data IsRightSym0 (a1 :: TyFun Either a b Bool)
type family IsRightSym1 (a6989586621679337097 :: Either a b) :: Bool
instance Data.Singletons.SingI1 Data.Either.Singletons.Either_Sym1
instance forall a c (d :: a Data.Singletons.~> c) b. Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.Either.Singletons.Either_Sym2 d)
instance Data.Singletons.SingI2 Data.Either.Singletons.Either_Sym2
instance Data.Singletons.SingI Data.Either.Singletons.Either_Sym0
instance forall a c (d :: a Data.Singletons.~> c) b. Data.Singletons.SingI d => Data.Singletons.SingI (Data.Either.Singletons.Either_Sym1 d)
instance forall a c (d1 :: a Data.Singletons.~> c) b (d2 :: b Data.Singletons.~> c). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Either.Singletons.Either_Sym2 d1 d2)
instance Data.Singletons.SingI Data.Either.Singletons.IsLeftSym0
instance Data.Singletons.SingI Data.Either.Singletons.IsRightSym0
instance Data.Singletons.SingI Data.Either.Singletons.LeftsSym0
instance Data.Singletons.SingI Data.Either.Singletons.PartitionEithersSym0
instance Data.Singletons.SingI Data.Either.Singletons.RightsSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Either.Singletons.Either_Sym0
instance forall a c b (a6989586621679334944 :: a Data.Singletons.~> c). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Either.Singletons.Either_Sym1 a6989586621679334944)
instance forall a c b (a6989586621679334944 :: a Data.Singletons.~> c) (a6989586621679334945 :: b Data.Singletons.~> c). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Either.Singletons.Either_Sym2 a6989586621679334944 a6989586621679334945)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Either.Singletons.IsLeftSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Either.Singletons.IsRightSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Either.Singletons.LeftsSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Either.Singletons.Let6989586621679337107LeftSym0
instance forall k k2 k3 (a_69895866216793371016989586621679337106 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Either.Singletons.Let6989586621679337107LeftSym1 a_69895866216793371016989586621679337106)
instance forall k k2 k3 (a_69895866216793371016989586621679337106 :: k) (a6989586621679337114 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Either.Singletons.Let6989586621679337107LeftSym2 a_69895866216793371016989586621679337106 a6989586621679337114)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Either.Singletons.Let6989586621679337107RightSym0
instance forall k k2 k3 (a_69895866216793371016989586621679337106 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Either.Singletons.Let6989586621679337107RightSym1 a_69895866216793371016989586621679337106)
instance forall k k2 k3 (a_69895866216793371016989586621679337106 :: k) (a6989586621679337108 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Either.Singletons.Let6989586621679337107RightSym2 a_69895866216793371016989586621679337106 a6989586621679337108)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Either.Singletons.PartitionEithersSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Either.Singletons.RightsSym0
-- | Defines the promoted and singled versions of the Functor type
-- class.
module Data.Functor.Singletons
class PFunctor (f :: Type -> Type) where {
type Fmap (arg :: a ~> b) (arg1 :: f a) :: f b;
type (arg :: a) <$ (arg1 :: f b) :: f a;
type arg :: a <$ arg1 :: f b = Apply Apply TFHelper_6989586621679348493Sym0 :: TyFun a f b ~> f a -> Type arg arg1;
}
infixl 4 <$
class SFunctor (f :: Type -> Type)
sFmap :: forall a b (t1 :: a ~> b) (t2 :: f a). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FmapSym0 :: TyFun (a ~> b) (f a ~> f b) -> Type) t1) t2)
(%<$) :: forall a b (t1 :: a) (t2 :: f b). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2)
($dm%<$) :: forall a b (t1 :: a) (t2 :: f b). (SFunctor f, Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348493Sym0 :: TyFun a (f b ~> f a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2)
infixl 4 %<$
type family (a1 :: f a) $> (a2 :: b) :: f b
infixl 4 $>
(%$>) :: forall (f :: Type -> Type) a b (t1 :: f a) (t2 :: b). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply (($>@#@$) :: TyFun (f a) (b ~> f b) -> Type) t1) t2)
infixl 4 %$>
type family (a1 :: a ~> b) <$> (a2 :: f a) :: f b
infixl 4 <$>
(%<$>) :: forall a b (f :: Type -> Type) (t1 :: a ~> b) (t2 :: f a). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$>@#@$) :: TyFun (a ~> b) (f a ~> f b) -> Type) t1) t2)
infixl 4 %<$>
type family (a1 :: f a) <&> (a2 :: a ~> b) :: f b
infixl 1 <&>
(%<&>) :: forall (f :: Type -> Type) a b (t1 :: f a) (t2 :: a ~> b). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<&>@#@$) :: TyFun (f a) ((a ~> b) ~> f b) -> Type) t1) t2)
infixl 1 %<&>
type family Void (a1 :: f a) :: f ()
sVoid :: forall (f :: Type -> Type) a (t :: f a). SFunctor f => Sing t -> Sing (Apply (VoidSym0 :: TyFun (f a) (f ()) -> Type) t)
data FmapSym0 (a1 :: TyFun a ~> b f a ~> f b)
data FmapSym1 (a6989586621679348484 :: a ~> b) (b1 :: TyFun f a f b)
type family FmapSym2 (a6989586621679348484 :: a ~> b) (a6989586621679348485 :: f a) :: f b
data (a1 :: TyFun a f b ~> f a) <$@#@$
infixl 4 <$@#@$
data (a6989586621679348489 :: a) <$@#@$$ (b1 :: TyFun f b f a)
infixl 4 <$@#@$$
type family (a6989586621679348489 :: a) <$@#@$$$ (a6989586621679348490 :: f b) :: f a
infixl 4 <$@#@$$$
data (a1 :: TyFun f a b ~> f b) $>@#@$
infixl 4 $>@#@$
data (a6989586621679532901 :: f a) $>@#@$$ (b1 :: TyFun b f b)
infixl 4 $>@#@$$
type family (a6989586621679532901 :: f a) $>@#@$$$ (a6989586621679532902 :: b) :: f b
infixl 4 $>@#@$$$
data (a1 :: TyFun a ~> b f a ~> f b) <$>@#@$
infixl 4 <$>@#@$
data (a6989586621679532919 :: a ~> b) <$>@#@$$ (b1 :: TyFun f a f b)
infixl 4 <$>@#@$$
type family (a6989586621679532919 :: a ~> b) <$>@#@$$$ (a6989586621679532920 :: f a) :: f b
infixl 4 <$>@#@$$$
data (a1 :: TyFun f a a ~> b ~> f b) <&>@#@$
infixl 1 <&>@#@$
data (a6989586621679532908 :: f a) <&>@#@$$ (b1 :: TyFun a ~> b f b)
infixl 1 <&>@#@$$
type family (a6989586621679532908 :: f a) <&>@#@$$$ (a6989586621679532909 :: a ~> b) :: f b
infixl 1 <&>@#@$$$
data VoidSym0 (a1 :: TyFun f a f ())
type family VoidSym1 (a6989586621679532892 :: f a) :: f ()
instance Control.Monad.Singletons.Internal.PFunctor Data.Ord.Down
instance Control.Monad.Singletons.Internal.PFunctor ((,) a)
instance Control.Monad.Singletons.Internal.SFunctor Data.Ord.Down
instance Control.Monad.Singletons.Internal.SFunctor ((,) a)
instance Control.Monad.Singletons.Internal.SFunctor f => Data.Singletons.SingI1 (Data.Functor.Singletons.<$>@#@$$)
instance Control.Monad.Singletons.Internal.SFunctor f => Data.Singletons.SingI1 (Data.Functor.Singletons.$>@#@$$)
instance Control.Monad.Singletons.Internal.SFunctor f => Data.Singletons.SingI1 (Data.Functor.Singletons.<&>@#@$$)
instance Control.Monad.Singletons.Internal.SFunctor f => Data.Singletons.SingI (Data.Functor.Singletons.$>@#@$)
instance forall (f :: * -> *) a (d :: f a) b. (Control.Monad.Singletons.Internal.SFunctor f, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Functor.Singletons.$>@#@$$) d)
instance Control.Monad.Singletons.Internal.SFunctor f => Data.Singletons.SingI (Data.Functor.Singletons.<$>@#@$)
instance forall (f :: * -> *) a b (d :: a Data.Singletons.~> b). (Control.Monad.Singletons.Internal.SFunctor f, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Functor.Singletons.<$>@#@$$) d)
instance Control.Monad.Singletons.Internal.SFunctor f => Data.Singletons.SingI (Data.Functor.Singletons.<&>@#@$)
instance forall (f :: * -> *) a (d :: f a) b. (Control.Monad.Singletons.Internal.SFunctor f, Data.Singletons.SingI d) => Data.Singletons.SingI ((Data.Functor.Singletons.<&>@#@$$) d)
instance Control.Monad.Singletons.Internal.SFunctor f => Data.Singletons.SingI Data.Functor.Singletons.VoidSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.$>@#@$)
instance forall (f :: * -> *) a b (a6989586621679532901 :: f a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Functor.Singletons.$>@#@$$) a6989586621679532901)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.<$>@#@$)
instance forall a b (f :: * -> *) (a6989586621679532919 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Functor.Singletons.<$>@#@$$) a6989586621679532919)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.<&>@#@$)
instance forall (f :: * -> *) a b (a6989586621679532908 :: f a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Functor.Singletons.<&>@#@$$) a6989586621679532908)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.Fmap_6989586621679533029Sym0
instance forall a1 b a2 (a6989586621679533034 :: a1 Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Fmap_6989586621679533029Sym1 a6989586621679533034)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.Fmap_6989586621679533065Sym0
instance forall a b (a6989586621679533070 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Fmap_6989586621679533065Sym1 a6989586621679533070)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.Lambda_6989586621679533039Sym0
instance forall k1 k2 k3 k4 (_f_69895866216795328616989586621679533036 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533039Sym1 _f_69895866216795328616989586621679533036)
instance forall k1 k2 k3 k4 (_f_69895866216795328616989586621679533036 :: k1) (a_69895866216795328676989586621679533037 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533039Sym2 _f_69895866216795328616989586621679533036 a_69895866216795328676989586621679533037)
instance forall k1 k2 k3 k4 (_f_69895866216795328616989586621679533036 :: k1) (a_69895866216795328676989586621679533037 :: k2) (a_69895866216795328696989586621679533038 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533039Sym3 _f_69895866216795328616989586621679533036 a_69895866216795328676989586621679533037 a_69895866216795328696989586621679533038)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.Lambda_6989586621679533055Sym0
instance forall k1 k2 k3 k4 (_z_69895866216795328636989586621679533052 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533055Sym1 _z_69895866216795328636989586621679533052)
instance forall k1 k2 k3 k4 (_z_69895866216795328636989586621679533052 :: k1) (a_69895866216795328756989586621679533053 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533055Sym2 _z_69895866216795328636989586621679533052 a_69895866216795328756989586621679533053)
instance forall k1 k2 k3 k4 (_z_69895866216795328636989586621679533052 :: k1) (a_69895866216795328756989586621679533053 :: k2) (a_69895866216795328776989586621679533054 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533055Sym3 _z_69895866216795328636989586621679533052 a_69895866216795328756989586621679533053 a_69895866216795328776989586621679533054)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.Lambda_6989586621679533059Sym0
instance forall k1 k2 k3 k4 (_z_69895866216795328636989586621679533052 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533059Sym1 _z_69895866216795328636989586621679533052)
instance forall k1 k2 k3 k4 (_z_69895866216795328636989586621679533052 :: k1) (a_69895866216795328756989586621679533053 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533059Sym2 _z_69895866216795328636989586621679533052 a_69895866216795328756989586621679533053)
instance forall k1 k2 k3 k4 (_z_69895866216795328636989586621679533052 :: k1) (a_69895866216795328756989586621679533053 :: k2) (a_69895866216795328776989586621679533054 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533059Sym3 _z_69895866216795328636989586621679533052 a_69895866216795328756989586621679533053 a_69895866216795328776989586621679533054)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.Lambda_6989586621679533085Sym0
instance forall k1 k2 k3 (_z_69895866216795328826989586621679533083 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533085Sym1 _z_69895866216795328826989586621679533083)
instance forall k1 k2 k3 (_z_69895866216795328826989586621679533083 :: k1) (a_69895866216795328886989586621679533084 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.Lambda_6989586621679533085Sym2 _z_69895866216795328826989586621679533083 a_69895866216795328886989586621679533084)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.TFHelper_6989586621679533045Sym0
instance forall a1 a2 b (a6989586621679533050 :: a1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.TFHelper_6989586621679533045Sym1 a6989586621679533050)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.TFHelper_6989586621679533076Sym0
instance forall a b (a6989586621679533081 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Singletons.TFHelper_6989586621679533076Sym1 a6989586621679533081)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Singletons.VoidSym0
-- | Defines the promoted and singled versions of the MonadFail type
-- class.
module Control.Monad.Fail.Singletons
class PMonadFail (m :: k -> Type) where {
type Fail (arg :: [Char]) :: m a;
}
class SMonad m => SMonadFail (m :: Type -> Type)
sFail :: forall a (t :: [Char]). SMonadFail m => Sing t -> Sing (Apply (FailSym0 :: TyFun [Char] (m a) -> Type) t)
data FailSym0 (a1 :: TyFun [Char] m a)
type family FailSym1 (a6989586621679549513 :: [Char]) :: m a
instance Control.Monad.Fail.Singletons.PMonadFail []
instance Control.Monad.Fail.Singletons.PMonadFail GHC.Maybe.Maybe
instance Control.Monad.Fail.Singletons.SMonadFail []
instance Control.Monad.Fail.Singletons.SMonadFail GHC.Maybe.Maybe
instance Control.Monad.Fail.Singletons.SMonadFail m => Data.Singletons.SingI Control.Monad.Fail.Singletons.FailSym0
instance forall k (m :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Fail.Singletons.FailSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Fail.Singletons.Fail_6989586621679549515Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Fail.Singletons.Fail_6989586621679549521Sym0
-- | Defines and exports singletons useful for the Natural, Symbol, and
-- Char kinds.
module GHC.TypeLits.Singletons
-- | Natural number
--
-- Invariant: numbers <= 0xffffffffffffffff use the NS
-- constructor
data Natural
-- | (Kind) This is the kind of type-level symbols.
data Symbol
-- | The character type Char represents Unicode codespace and its
-- elements are code points as in definitions D9 and D10 of the
-- Unicode Standard.
--
-- Character literals in Haskell are single-quoted: 'Q',
-- 'Я' or 'Ω'. To represent a single quote itself use
-- '\'', and to represent a backslash use '\\'. The
-- full grammar can be found in the section 2.6 of the Haskell 2010
-- Language Report.
--
-- To specify a character by its code point one can use decimal,
-- hexadecimal or octal notation: '\65', '\x41' and
-- '\o101' are all alternative forms of 'A'. The
-- largest code point is '\x10ffff'.
--
-- There is a special escape syntax for ASCII control characters:
--
-- TODO: table
--
-- Data.Char provides utilities to work with Char.
data Char
type family Sing :: k -> Type
-- | A value-level witness for a type-level natural number. This is
-- commonly referred to as a singleton type, as for each
-- n, there is a single value that inhabits the type
-- SNat n (aside from bottom).
--
-- The definition of SNat is intentionally left abstract. To
-- obtain an SNat value, use one of the following:
--
--
-- - The natSing method of KnownNat.
-- - The SNat pattern synonym.
-- - The withSomeSNat function, which creates an SNat
-- from a Natural number.
--
data SNat (n :: Nat)
-- | A explicitly bidirectional pattern synonym relating an SNat to
-- a KnownNat constraint.
--
-- As an expression: Constructs an explicit SNat n
-- value from an implicit KnownNat n constraint:
--
--
-- SNat @n :: KnownNat n => SNat n
--
--
-- As a pattern: Matches on an explicit SNat n
-- value bringing an implicit KnownNat n constraint into
-- scope:
--
--
-- f :: SNat n -> ..
-- f SNat = {- SNat n in scope -}
--
pattern SNat :: () => KnownNat n => SNat n
-- | A value-level witness for a type-level symbol. This is commonly
-- referred to as a singleton type, as for each s, there
-- is a single value that inhabits the type SSymbol s
-- (aside from bottom).
--
-- The definition of SSymbol is intentionally left abstract. To
-- obtain an SSymbol value, use one of the following:
--
--
-- - The symbolSing method of KnownSymbol.
-- - The SSymbol pattern synonym.
-- - The withSomeSSymbol function, which creates an
-- SSymbol from a String.
--
data SSymbol (s :: Symbol)
-- | A explicitly bidirectional pattern synonym relating an SSymbol
-- to a KnownSymbol constraint.
--
-- As an expression: Constructs an explicit SSymbol
-- s value from an implicit KnownSymbol s
-- constraint:
--
--
-- SSymbol @s :: KnownSymbol s => SSymbol s
--
--
-- As a pattern: Matches on an explicit SSymbol s
-- value bringing an implicit KnownSymbol s constraint
-- into scope:
--
--
-- f :: SSymbol s -> ..
-- f SSymbol = {- SSymbol s in scope -}
--
pattern SSymbol :: () => KnownSymbol s => SSymbol s
-- | An alias for the SSymbol pattern synonym.
pattern SSym :: () => KnownSymbol s => SSymbol s
-- | A value-level witness for a type-level character. This is commonly
-- referred to as a singleton type, as for each c, there
-- is a single value that inhabits the type SChar c
-- (aside from bottom).
--
-- The definition of SChar is intentionally left abstract. To
-- obtain an SChar value, use one of the following:
--
--
-- - The charSing method of KnownChar.
-- - The SChar pattern synonym.
-- - The withSomeSChar function, which creates an SChar
-- from a Char.
--
data SChar (s :: Char)
-- | A explicitly bidirectional pattern synonym relating an SChar to
-- a KnownChar constraint.
--
-- As an expression: Constructs an explicit SChar
-- c value from an implicit KnownChar c constraint:
--
--
-- SChar @c :: KnownChar c => SChar c
--
--
-- As a pattern: Matches on an explicit SChar c
-- value bringing an implicit KnownChar c constraint into
-- scope:
--
--
-- f :: SChar c -> ..
-- f SChar = {- SChar c in scope -}
--
pattern SChar :: () => KnownChar c => SChar c
-- | Convert an explicit SNat n value into an implicit
-- KnownNat n constraint.
withKnownNat :: forall (n :: Nat) r. SNat n -> (KnownNat n => r) -> r
-- | Convert an explicit SSymbol s value into an implicit
-- KnownSymbol s constraint.
withKnownSymbol :: forall (s :: Symbol) r. SSymbol s -> (KnownSymbol s => r) -> r
-- | Convert an explicit SChar c value into an implicit
-- KnownChar c constraint.
withKnownChar :: forall (c :: Char) r. SChar c -> (KnownChar c => r) -> r
-- | A promoted version of error. This implements Error as a
-- stuck type family with a Symbol argument. Depending on your
-- needs, you might also consider the following alternatives:
--
--
-- - Data.Singletons.Base.PolyError provides PolyError,
-- which generalizes the argument to be kind-polymorphic. This allows
-- passing additional information to the error besides raw
-- Symbols.
-- - Data.Singletons.Base.TypeError provides TypeError,
-- a slightly modified version of the custom type error machinery found
-- in GHC.TypeLits. This allows emitting error messages as
-- compiler errors rather than as stuck type families.
--
type family Error (str :: Symbol) :: a
-- | The singleton for error.
sError :: forall (str :: Symbol) a. HasCallStack => Sing str -> a
-- | The promotion of errorWithoutStackTrace.
type family ErrorWithoutStackTrace (str :: Symbol) :: a
-- | The singleton for errorWithoutStackTrace.
sErrorWithoutStackTrace :: forall (str :: Symbol) a. Sing str -> a
-- | The promotion of undefined.
type family Undefined :: a
-- | The singleton for undefined.
sUndefined :: HasCallStack => a
-- | This class gives the integer associated with a type-level natural.
-- There are instances of the class for every concrete literal: 0, 1, 2,
-- etc.
class KnownNat (n :: Nat)
natVal :: forall (n :: Nat) proxy. KnownNat n => proxy n -> Natural
-- | This class gives the string associated with a type-level symbol. There
-- are instances of the class for every concrete literal: "hello", etc.
class KnownSymbol (n :: Symbol)
symbolVal :: forall (n :: Symbol) proxy. KnownSymbol n => proxy n -> String
class KnownChar (n :: Char)
charVal :: forall (n :: Char) proxy. KnownChar n => proxy n -> Char
-- | Exponentiation of type-level naturals.
type family (a :: Natural) ^ (b :: Natural) :: Natural
infixr 8 ^
-- | The singleton analogue of (^) for Naturals.
(%^) :: forall (a :: Natural) (b :: Natural). Sing a -> Sing b -> Sing (a ^ b)
infixr 8 %^
-- | Comparison (<=) of comparable types, as a function.
type (m :: k) <=? (n :: k) = OrdCond Compare m n 'True 'True 'False
infix 4 <=?
-- | The singleton analogue of <=?
--
-- Note that, because of historical reasons in GHC's Natural API,
-- <=? is incompatible (unification-wise) with <= and
-- the PEq, SEq, POrd, and SOrd instances for
-- Natural. (a <=? b) ~ 'True does not imply
-- anything about a <= b or any other PEq /
-- POrd relationships.
--
-- (Be aware that <= in the paragraph above refers to
-- <= from the POrd typeclass, exported from
-- Data.Ord.Singletons, and not the <= from
-- GHC.TypeNats. The latter is simply a type alias for (a
-- <=? b) ~ 'True.)
--
-- This is provided here for the sake of completeness and for
-- compatibility with libraries with APIs built around <=?.
-- New code should use CmpNat, exposed through this library
-- through the POrd and SOrd instances for Natural.
(%<=?) :: forall (a :: Natural) (b :: Natural). Sing a -> Sing b -> Sing (a <=? b)
infix 4 %<=?
-- | Log base 2 (round down) of natural numbers. Log 0 is
-- undefined (i.e., it cannot be reduced).
type family Log2 (a :: Natural) :: Natural
sLog2 :: forall (x :: Natural). Sing x -> Sing (Log2 x)
-- | Division (round down) of natural numbers. Div x 0 is
-- undefined (i.e., it cannot be reduced).
type family Div (a :: Natural) (b :: Natural) :: Natural
infixl 7 `Div`
sDiv :: forall (x :: Natural) (y :: Natural). Sing x -> Sing y -> Sing (Div x y)
infixl 7 `sDiv`
-- | Modulus of natural numbers. Mod x 0 is undefined (i.e., it
-- cannot be reduced).
type family Mod (a :: Natural) (b :: Natural) :: Natural
infixl 7 `Mod`
sMod :: forall (x :: Natural) (y :: Natural). Sing x -> Sing y -> Sing (Mod x y)
infixl 7 `sMod`
type family DivMod (a :: Natural) (a1 :: Natural) :: (Natural, Natural)
sDivMod :: forall (x :: Natural) (y :: Natural). Sing x -> Sing y -> Sing (DivMod x y)
type family Quot (a :: Natural) (a1 :: Natural) :: Natural
infixl 7 `Quot`
sQuot :: forall (x :: Natural) (y :: Natural). Sing x -> Sing y -> Sing (Quot x y)
infixl 7 `sQuot`
type family Rem (a :: Natural) (a1 :: Natural) :: Natural
infixl 7 `Rem`
sRem :: forall (x :: Natural) (y :: Natural). Sing x -> Sing y -> Sing (Rem x y)
infixl 7 `sRem`
type family QuotRem (a :: Natural) (a1 :: Natural) :: (Natural, Natural)
sQuotRem :: forall (x :: Natural) (y :: Natural). Sing x -> Sing y -> Sing (QuotRem x y)
consSymbol :: Char -> String -> String
-- | Extending a type-level symbol with a type-level character
type family ConsSymbol (a :: Char) (b :: Symbol) :: Symbol
sConsSymbol :: forall (x :: Char) (y :: Symbol). Sing x -> Sing y -> Sing (ConsSymbol x y)
unconsSymbol :: String -> Maybe (Char, String)
-- | This type family yields type-level Just storing the first
-- character of a symbol and its tail if it is defined and Nothing
-- otherwise.
type family UnconsSymbol (a :: Symbol) :: Maybe (Char, Symbol)
sUnconsSymbol :: forall (x :: Symbol). Sing x -> Sing (UnconsSymbol x)
charToNat :: Char -> Natural
-- | Convert a character to its Unicode code point (cf. ord)
type family CharToNat (a :: Char) :: Natural
sCharToNat :: forall (x :: Char). Sing x -> Sing (CharToNat x)
natToChar :: Natural -> Char
-- | Convert a Unicode code point to a character (cf. chr)
type family NatToChar (a :: Natural) :: Char
sNatToChar :: forall (x :: Natural). Sing x -> Sing (NatToChar x)
data ErrorSym0 (a1 :: TyFun Symbol a)
type family ErrorSym1 (a6989586621679555664 :: Symbol) :: a
data ErrorWithoutStackTraceSym0 (a1 :: TyFun Symbol a)
type family ErrorWithoutStackTraceSym1 (a6989586621679555924 :: Symbol) :: a
type family UndefinedSym0 :: a
data KnownNatSym0 (a :: TyFun Nat Constraint)
type family KnownNatSym1 (a6989586621679566098 :: Nat)
data KnownSymbolSym0 (a :: TyFun Symbol Constraint)
type family KnownSymbolSym1 (a6989586621679566100 :: Symbol)
data KnownCharSym0 (a :: TyFun Char Constraint)
type family KnownCharSym1 (a6989586621679566102 :: Char)
data (a :: TyFun Natural Natural ~> Natural) ^@#@$
infixr 8 ^@#@$
data (a6989586621679556329 :: Natural) ^@#@$$ (b :: TyFun Natural Natural)
infixr 8 ^@#@$$
type family (a6989586621679556329 :: Natural) ^@#@$$$ (a6989586621679556330 :: Natural) :: Natural
infixr 8 ^@#@$$$
data (a :: TyFun k k ~> Bool) <=?@#@$
infix 4 <=?@#@$
data (a6989586621679556760 :: k) <=?@#@$$ (b :: TyFun k Bool)
infix 4 <=?@#@$$
type family (a6989586621679556760 :: k) <=?@#@$$$ (a6989586621679556761 :: k) :: Bool
infix 4 <=?@#@$$$
data Log2Sym0 (a :: TyFun Natural Natural)
type family Log2Sym1 (a6989586621679566742 :: Natural) :: Natural
data DivSym0 (a :: TyFun Natural Natural ~> Natural)
infixl 7 `DivSym0`
data DivSym1 (a6989586621679566965 :: Natural) (b :: TyFun Natural Natural)
infixl 7 `DivSym1`
type family DivSym2 (a6989586621679566965 :: Natural) (a6989586621679566966 :: Natural) :: Natural
infixl 7 `DivSym2`
data ModSym0 (a :: TyFun Natural Natural ~> Natural)
infixl 7 `ModSym0`
data ModSym1 (a6989586621679567401 :: Natural) (b :: TyFun Natural Natural)
infixl 7 `ModSym1`
type family ModSym2 (a6989586621679567401 :: Natural) (a6989586621679567402 :: Natural) :: Natural
infixl 7 `ModSym2`
data DivModSym0 (a :: TyFun Natural Natural ~> (Natural, Natural))
data DivModSym1 (a6989586621679568024 :: Natural) (b :: TyFun Natural (Natural, Natural))
type family DivModSym2 (a6989586621679568024 :: Natural) (a6989586621679568025 :: Natural) :: (Natural, Natural)
data QuotSym0 (a :: TyFun Natural Natural ~> Natural)
infixl 7 `QuotSym0`
data QuotSym1 (a6989586621679568006 :: Natural) (b :: TyFun Natural Natural)
infixl 7 `QuotSym1`
type family QuotSym2 (a6989586621679568006 :: Natural) (a6989586621679568007 :: Natural) :: Natural
infixl 7 `QuotSym2`
data RemSym0 (a :: TyFun Natural Natural ~> Natural)
infixl 7 `RemSym0`
data RemSym1 (a6989586621679567995 :: Natural) (b :: TyFun Natural Natural)
infixl 7 `RemSym1`
type family RemSym2 (a6989586621679567995 :: Natural) (a6989586621679567996 :: Natural) :: Natural
infixl 7 `RemSym2`
data QuotRemSym0 (a :: TyFun Natural Natural ~> (Natural, Natural))
data QuotRemSym1 (a6989586621679568017 :: Natural) (b :: TyFun Natural (Natural, Natural))
type family QuotRemSym2 (a6989586621679568017 :: Natural) (a6989586621679568018 :: Natural) :: (Natural, Natural)
data ConsSymbolSym0 (a :: TyFun Char Symbol ~> Symbol)
data ConsSymbolSym1 (a6989586621679569296 :: Char) (b :: TyFun Symbol Symbol)
type family ConsSymbolSym2 (a6989586621679569296 :: Char) (a6989586621679569297 :: Symbol) :: Symbol
data UnconsSymbolSym0 (a :: TyFun Symbol Maybe (Char, Symbol))
type family UnconsSymbolSym1 (a6989586621679569801 :: Symbol) :: Maybe (Char, Symbol)
data CharToNatSym0 (a :: TyFun Char Natural)
type family CharToNatSym1 (a6989586621679570020 :: Char) :: Natural
data NatToCharSym0 (a :: TyFun Natural Char)
type family NatToCharSym1 (a6989586621679570244 :: Natural) :: Char
instance GHC.Classes.Eq GHC.Types.Symbol
instance Data.String.IsString GHC.Types.Symbol
instance GHC.Base.Monoid GHC.Types.Symbol
instance GHC.Classes.Ord GHC.Types.Symbol
instance GHC.Base.Semigroup GHC.Types.Symbol
instance GHC.Show.Show GHC.Types.Symbol
instance Data.Singletons.SingI1 GHC.TypeLits.Singletons.ConsSymbolSym1
instance Data.Singletons.SingI1 GHC.TypeLits.Singletons.DivSym1
instance Data.Singletons.SingI1 GHC.TypeLits.Singletons.ModSym1
instance Data.Singletons.SingI GHC.TypeLits.Singletons.CharToNatSym0
instance Data.Singletons.SingI GHC.TypeLits.Singletons.ConsSymbolSym0
instance Data.Singletons.SingI x => Data.Singletons.SingI (GHC.TypeLits.Singletons.ConsSymbolSym1 x)
instance Data.Singletons.SingI GHC.TypeLits.Singletons.DivSym0
instance Data.Singletons.SingI x => Data.Singletons.SingI (GHC.TypeLits.Singletons.DivSym1 x)
instance Data.Singletons.SingI GHC.TypeLits.Singletons.Log2Sym0
instance Data.Singletons.SingI GHC.TypeLits.Singletons.ModSym0
instance Data.Singletons.SingI x => Data.Singletons.SingI (GHC.TypeLits.Singletons.ModSym1 x)
instance Data.Singletons.SingI GHC.TypeLits.Singletons.NatToCharSym0
instance Data.Singletons.SingI GHC.TypeLits.Singletons.UnconsSymbolSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.CharToNatSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.ConsSymbolSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (GHC.TypeLits.Singletons.ConsSymbolSym1 a6989586621679569296)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.DivModSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (GHC.TypeLits.Singletons.DivModSym1 a6989586621679568024)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.DivSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (GHC.TypeLits.Singletons.DivSym1 a6989586621679566965)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.KnownCharSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.KnownNatSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.KnownSymbolSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.Log2Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.ModSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (GHC.TypeLits.Singletons.ModSym1 a6989586621679567401)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.NatToCharSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.QuotRemSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (GHC.TypeLits.Singletons.QuotRemSym1 a6989586621679568017)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.QuotSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (GHC.TypeLits.Singletons.QuotSym1 a6989586621679568006)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.RemSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (GHC.TypeLits.Singletons.RemSym1 a6989586621679567995)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings GHC.TypeLits.Singletons.UnconsSymbolSym0
-- | Defines functions and datatypes relating to the singleton for
-- Maybe, including singled versions of all the definitions in
-- Data.Maybe.
--
-- 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.Maybe. Also, please
-- excuse the apparent repeated variable names. This is due to an
-- interaction between Template Haskell and Haddock.
module Data.Maybe.Singletons
type family Sing :: k -> Type
data SMaybe (a1 :: Maybe a)
[SNothing] :: forall a. SMaybe ('Nothing :: Maybe a)
[SJust] :: forall a (n :: a). Sing n -> SMaybe ('Just n)
maybe_ :: b -> (a -> b) -> Maybe a -> b
type family Maybe_ (a1 :: b) (a2 :: a ~> b) (a3 :: Maybe a) :: b
sMaybe_ :: forall b a (t1 :: b) (t2 :: a ~> b) (t3 :: Maybe a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) t1) t2) t3)
type family IsJust (a1 :: Maybe a) :: Bool
sIsJust :: forall a (t :: Maybe a). Sing t -> Sing (Apply (IsJustSym0 :: TyFun (Maybe a) Bool -> Type) t)
type family IsNothing (a1 :: Maybe a) :: Bool
sIsNothing :: forall a (t :: Maybe a). Sing t -> Sing (Apply (IsNothingSym0 :: TyFun (Maybe a) Bool -> Type) t)
type family FromJust (a1 :: Maybe a) :: a
sFromJust :: forall a (t :: Maybe a). Sing t -> Sing (Apply (FromJustSym0 :: TyFun (Maybe a) a -> Type) t)
type family FromMaybe (a1 :: a) (a2 :: Maybe a) :: a
sFromMaybe :: forall a (t1 :: a) (t2 :: Maybe a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FromMaybeSym0 :: TyFun a (Maybe a ~> a) -> Type) t1) t2)
type family ListToMaybe (a1 :: [a]) :: Maybe a
sListToMaybe :: forall a (t :: [a]). Sing t -> Sing (Apply (ListToMaybeSym0 :: TyFun [a] (Maybe a) -> Type) t)
type family MaybeToList (a1 :: Maybe a) :: [a]
sMaybeToList :: forall a (t :: Maybe a). Sing t -> Sing (Apply (MaybeToListSym0 :: TyFun (Maybe a) [a] -> Type) t)
type family CatMaybes (a1 :: [Maybe a]) :: [a]
sCatMaybes :: forall a (t :: [Maybe a]). Sing t -> Sing (Apply (CatMaybesSym0 :: TyFun [Maybe a] [a] -> Type) t)
type family MapMaybe (a1 :: a ~> Maybe b) (a2 :: [a]) :: [b]
sMapMaybe :: forall a b (t1 :: a ~> Maybe b) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMaybeSym0 :: TyFun (a ~> Maybe b) ([a] ~> [b]) -> Type) t1) t2)
type family NothingSym0 :: Maybe a
data JustSym0 (a1 :: TyFun a Maybe a)
type family JustSym1 (a6989586621679046214 :: a) :: Maybe a
data Maybe_Sym0 (a1 :: TyFun b a ~> b ~> Maybe a ~> b)
data Maybe_Sym1 (a6989586621679577734 :: b) (b1 :: TyFun a ~> b Maybe a ~> b)
data Maybe_Sym2 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (c :: TyFun Maybe a b)
type family Maybe_Sym3 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (a6989586621679577736 :: Maybe a) :: b
data IsJustSym0 (a1 :: TyFun Maybe a Bool)
type family IsJustSym1 (a6989586621679579807 :: Maybe a) :: Bool
data IsNothingSym0 (a1 :: TyFun Maybe a Bool)
type family IsNothingSym1 (a6989586621679579804 :: Maybe a) :: Bool
data FromJustSym0 (a1 :: TyFun Maybe a a)
type family FromJustSym1 (a6989586621679579800 :: Maybe a) :: a
data FromMaybeSym0 (a1 :: TyFun a Maybe a ~> a)
data FromMaybeSym1 (a6989586621679579790 :: a) (b :: TyFun Maybe a a)
type family FromMaybeSym2 (a6989586621679579790 :: a) (a6989586621679579791 :: Maybe a) :: a
data ListToMaybeSym0 (a1 :: TyFun [a] Maybe a)
type family ListToMaybeSym1 (a6989586621679579781 :: [a]) :: Maybe a
data MaybeToListSym0 (a1 :: TyFun Maybe a [a])
type family MaybeToListSym1 (a6989586621679579785 :: Maybe a) :: [a]
data CatMaybesSym0 (a1 :: TyFun [Maybe a] [a])
type family CatMaybesSym1 (a6989586621679579775 :: [Maybe a]) :: [a]
data MapMaybeSym0 (a1 :: TyFun a ~> Maybe b [a] ~> [b])
data MapMaybeSym1 (a6989586621679579760 :: a ~> Maybe b) (b1 :: TyFun [a] [b])
type family MapMaybeSym2 (a6989586621679579760 :: a ~> Maybe b) (a6989586621679579761 :: [a]) :: [b]
instance Data.Singletons.SingI1 Data.Maybe.Singletons.MapMaybeSym1
instance forall b (d :: b) a. Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.Maybe.Singletons.Maybe_Sym2 d)
instance Data.Singletons.SingI1 Data.Maybe.Singletons.FromMaybeSym1
instance Data.Singletons.SingI1 Data.Maybe.Singletons.Maybe_Sym1
instance Data.Singletons.SingI2 Data.Maybe.Singletons.Maybe_Sym2
instance Data.Singletons.SingI Data.Maybe.Singletons.CatMaybesSym0
instance Data.Singletons.SingI Data.Maybe.Singletons.FromJustSym0
instance Data.Singletons.SingI Data.Maybe.Singletons.FromMaybeSym0
instance forall a (d :: a). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Maybe.Singletons.FromMaybeSym1 d)
instance Data.Singletons.SingI Data.Maybe.Singletons.IsJustSym0
instance Data.Singletons.SingI Data.Maybe.Singletons.IsNothingSym0
instance Data.Singletons.SingI Data.Maybe.Singletons.ListToMaybeSym0
instance Data.Singletons.SingI Data.Maybe.Singletons.MapMaybeSym0
instance forall a b (d :: a Data.Singletons.~> GHC.Maybe.Maybe b). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Maybe.Singletons.MapMaybeSym1 d)
instance Data.Singletons.SingI Data.Maybe.Singletons.MaybeToListSym0
instance Data.Singletons.SingI Data.Maybe.Singletons.Maybe_Sym0
instance forall b (d :: b) a. Data.Singletons.SingI d => Data.Singletons.SingI (Data.Maybe.Singletons.Maybe_Sym1 d)
instance forall b (d1 :: b) a (d2 :: a Data.Singletons.~> b). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Maybe.Singletons.Maybe_Sym2 d1 d2)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.CatMaybesSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.FromJustSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.FromMaybeSym0
instance forall a (a6989586621679579790 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Maybe.Singletons.FromMaybeSym1 a6989586621679579790)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.IsJustSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.IsNothingSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.Let6989586621679579765RsSym0
instance forall a k1 k (f6989586621679579762 :: a Data.Singletons.~> GHC.Maybe.Maybe k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Maybe.Singletons.Let6989586621679579765RsSym1 f6989586621679579762)
instance forall a k1 k (f6989586621679579762 :: a Data.Singletons.~> GHC.Maybe.Maybe k1) (x6989586621679579763 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Maybe.Singletons.Let6989586621679579765RsSym2 f6989586621679579762 x6989586621679579763)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.Let6989586621679579767Scrutinee_6989586621679579637Sym0
instance forall k1 k2 k3 (f6989586621679579762 :: k1 Data.Singletons.~> k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Maybe.Singletons.Let6989586621679579767Scrutinee_6989586621679579637Sym1 f6989586621679579762)
instance forall k1 k2 k3 (f6989586621679579762 :: k1 Data.Singletons.~> k2) (x6989586621679579763 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Maybe.Singletons.Let6989586621679579767Scrutinee_6989586621679579637Sym2 f6989586621679579762 x6989586621679579763)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.ListToMaybeSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.MapMaybeSym0
instance forall a b (a6989586621679579760 :: a Data.Singletons.~> GHC.Maybe.Maybe b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Maybe.Singletons.MapMaybeSym1 a6989586621679579760)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.MaybeToListSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Maybe.Singletons.Maybe_Sym0
instance forall b a (a6989586621679577734 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Maybe.Singletons.Maybe_Sym1 a6989586621679577734)
instance forall b a (a6989586621679577734 :: b) (a6989586621679577735 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Maybe.Singletons.Maybe_Sym2 a6989586621679577734 a6989586621679577735)
-- | Defines the promoted and singleton version of the Bounded and
-- Enum type classes.
--
-- While Prelude.Singletons re-exports the promoted and singled
-- versions of Enum, it deliberately avoids re-exporting
-- Succ and Pred, as these are names are likely to clash
-- with code that deals with unary natural numbers. As a result, this
-- module exists to provide Succ and Pred for those who
-- want them.
module Data.Singletons.Base.Enum
class PBounded a where {
type MinBound :: a;
type MaxBound :: a;
}
class SBounded a
sMinBound :: SBounded a => Sing (MinBoundSym0 :: a)
sMaxBound :: SBounded a => Sing (MaxBoundSym0 :: a)
class PEnum a where {
type Succ (arg :: a) :: a;
type Pred (arg :: a) :: a;
type ToEnum (arg :: Natural) :: a;
type FromEnum (arg :: a) :: Natural;
type EnumFromTo (arg :: a) (arg1 :: a) :: [a];
type EnumFromThenTo (arg :: a) (arg1 :: a) (arg2 :: a) :: [a];
type Succ arg :: a = Apply Succ_6989586621679612946Sym0 :: TyFun a a -> Type arg;
type Pred arg :: a = Apply Pred_6989586621679612959Sym0 :: TyFun a a -> Type arg;
type EnumFromTo arg :: a arg1 :: a = Apply Apply EnumFromTo_6989586621679612969Sym0 :: TyFun a a ~> [a] -> Type arg arg1;
type EnumFromThenTo arg :: a arg1 :: a arg2 :: a = Apply Apply Apply EnumFromThenTo_6989586621679612981Sym0 :: TyFun a a ~> a ~> [a] -> Type arg arg1 arg2;
}
class SEnum a
sSucc :: forall (t :: a). SEnum a => Sing t -> Sing (Apply (SuccSym0 :: TyFun a a -> Type) t)
($dmsSucc) :: forall (t :: a). (SEnum a, Apply (SuccSym0 :: TyFun a a -> Type) t ~ Apply (Succ_6989586621679612946Sym0 :: TyFun a a -> Type) t) => Sing t -> Sing (Apply (SuccSym0 :: TyFun a a -> Type) t)
sPred :: forall (t :: a). SEnum a => Sing t -> Sing (Apply (PredSym0 :: TyFun a a -> Type) t)
($dmsPred) :: forall (t :: a). (SEnum a, Apply (PredSym0 :: TyFun a a -> Type) t ~ Apply (Pred_6989586621679612959Sym0 :: TyFun a a -> Type) t) => Sing t -> Sing (Apply (PredSym0 :: TyFun a a -> Type) t)
sToEnum :: forall (t :: Natural). SEnum a => Sing t -> Sing (Apply (ToEnumSym0 :: TyFun Natural a -> Type) t)
sFromEnum :: forall (t :: a). SEnum a => Sing t -> Sing (Apply (FromEnumSym0 :: TyFun a Natural -> Type) t)
sEnumFromTo :: forall (t1 :: a) (t2 :: a). SEnum a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) t1) t2)
($dmsEnumFromTo) :: forall (t1 :: a) (t2 :: a). (SEnum a, Apply (Apply (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) t1) t2 ~ Apply (Apply (EnumFromTo_6989586621679612969Sym0 :: TyFun a (a ~> [a]) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) t1) t2)
sEnumFromThenTo :: forall (t1 :: a) (t2 :: a) (t3 :: a). SEnum a => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) t1) t2) t3)
($dmsEnumFromThenTo) :: forall (t1 :: a) (t2 :: a) (t3 :: a). (SEnum a, Apply (Apply (Apply (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (EnumFromThenTo_6989586621679612981Sym0 :: TyFun a (a ~> (a ~> [a])) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) t1) t2) t3)
type family MinBoundSym0 :: a
type family MaxBoundSym0 :: a
data SuccSym0 (a1 :: TyFun a a)
type family SuccSym1 (a6989586621679612923 :: a) :: a
data PredSym0 (a1 :: TyFun a a)
type family PredSym1 (a6989586621679612926 :: a) :: a
data ToEnumSym0 (a1 :: TyFun Natural a)
type family ToEnumSym1 (a6989586621679612929 :: Natural) :: a
data FromEnumSym0 (a1 :: TyFun a Natural)
type family FromEnumSym1 (a6989586621679612932 :: a) :: Natural
data EnumFromToSym0 (a1 :: TyFun a a ~> [a])
data EnumFromToSym1 (a6989586621679612936 :: a) (b :: TyFun a [a])
type family EnumFromToSym2 (a6989586621679612936 :: a) (a6989586621679612937 :: a) :: [a]
data EnumFromThenToSym0 (a1 :: TyFun a a ~> a ~> [a])
data EnumFromThenToSym1 (a6989586621679612942 :: a) (b :: TyFun a a ~> [a])
data EnumFromThenToSym2 (a6989586621679612942 :: a) (a6989586621679612943 :: a) (c :: TyFun a [a])
type family EnumFromThenToSym3 (a6989586621679612942 :: a) (a6989586621679612943 :: a) (a6989586621679612944 :: a) :: [a]
instance Data.Singletons.Base.Enum.PBounded GHC.Types.Bool
instance Data.Singletons.Base.Enum.PBounded GHC.Types.Char
instance Data.Singletons.Base.Enum.PBounded (Data.Functor.Identity.Identity a)
instance Data.Singletons.Base.Enum.PBounded GHC.Types.Ordering
instance Data.Singletons.Base.Enum.PBounded (a, b)
instance Data.Singletons.Base.Enum.PBounded (a, b, c)
instance Data.Singletons.Base.Enum.PBounded (a, b, c, d)
instance Data.Singletons.Base.Enum.PBounded (a, b, c, d, e)
instance Data.Singletons.Base.Enum.PBounded (a, b, c, d, e, f)
instance Data.Singletons.Base.Enum.PBounded (a, b, c, d, e, f, g)
instance Data.Singletons.Base.Enum.PBounded ()
instance Data.Singletons.Base.Enum.PEnum GHC.Types.Bool
instance Data.Singletons.Base.Enum.PEnum GHC.Types.Char
instance Data.Singletons.Base.Enum.PEnum GHC.Num.Natural.Natural
instance Data.Singletons.Base.Enum.PEnum GHC.Types.Ordering
instance Data.Singletons.Base.Enum.PEnum ()
instance Data.Singletons.Base.Enum.SBounded GHC.Types.Bool
instance Data.Singletons.Base.Enum.SBounded GHC.Types.Char
instance Data.Singletons.Base.Enum.SBounded a => Data.Singletons.Base.Enum.SBounded (Data.Functor.Identity.Identity a)
instance Data.Singletons.Base.Enum.SBounded GHC.Types.Ordering
instance (Data.Singletons.Base.Enum.SBounded a, Data.Singletons.Base.Enum.SBounded b) => Data.Singletons.Base.Enum.SBounded (a, b)
instance (Data.Singletons.Base.Enum.SBounded a, Data.Singletons.Base.Enum.SBounded b, Data.Singletons.Base.Enum.SBounded c) => Data.Singletons.Base.Enum.SBounded (a, b, c)
instance (Data.Singletons.Base.Enum.SBounded a, Data.Singletons.Base.Enum.SBounded b, Data.Singletons.Base.Enum.SBounded c, Data.Singletons.Base.Enum.SBounded d) => Data.Singletons.Base.Enum.SBounded (a, b, c, d)
instance (Data.Singletons.Base.Enum.SBounded a, Data.Singletons.Base.Enum.SBounded b, Data.Singletons.Base.Enum.SBounded c, Data.Singletons.Base.Enum.SBounded d, Data.Singletons.Base.Enum.SBounded e) => Data.Singletons.Base.Enum.SBounded (a, b, c, d, e)
instance (Data.Singletons.Base.Enum.SBounded a, Data.Singletons.Base.Enum.SBounded b, Data.Singletons.Base.Enum.SBounded c, Data.Singletons.Base.Enum.SBounded d, Data.Singletons.Base.Enum.SBounded e, Data.Singletons.Base.Enum.SBounded f) => Data.Singletons.Base.Enum.SBounded (a, b, c, d, e, f)
instance (Data.Singletons.Base.Enum.SBounded a, Data.Singletons.Base.Enum.SBounded b, Data.Singletons.Base.Enum.SBounded c, Data.Singletons.Base.Enum.SBounded d, Data.Singletons.Base.Enum.SBounded e, Data.Singletons.Base.Enum.SBounded f, Data.Singletons.Base.Enum.SBounded g) => Data.Singletons.Base.Enum.SBounded (a, b, c, d, e, f, g)
instance Data.Singletons.Base.Enum.SBounded ()
instance Data.Singletons.Base.Enum.SEnum GHC.Types.Bool
instance Data.Singletons.Base.Enum.SEnum GHC.Types.Char
instance Data.Singletons.Base.Enum.SEnum GHC.Num.Natural.Natural
instance Data.Singletons.Base.Enum.SEnum GHC.Types.Ordering
instance Data.Singletons.Base.Enum.SEnum ()
instance Data.Singletons.SingI1 Data.Singletons.Base.Enum.EfdtNatDnSym1
instance Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.Singletons.Base.Enum.EfdtNatDnSym2 d)
instance Data.Singletons.SingI1 Data.Singletons.Base.Enum.EfdtNatSym1
instance Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.Singletons.Base.Enum.EfdtNatSym2 d)
instance Data.Singletons.SingI1 Data.Singletons.Base.Enum.EfdtNatUpSym1
instance Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.Singletons.Base.Enum.EfdtNatUpSym2 d)
instance Data.Singletons.SingI1 Data.Singletons.Base.Enum.EftNatSym1
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI1 Data.Singletons.Base.Enum.EnumFromThenToSym1
instance forall a (d :: a). (Data.Singletons.Base.Enum.SEnum a, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Singletons.Base.Enum.EnumFromThenToSym2 d)
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI1 Data.Singletons.Base.Enum.EnumFromToSym1
instance Data.Singletons.SingI2 Data.Singletons.Base.Enum.EfdtNatDnSym2
instance Data.Singletons.SingI2 Data.Singletons.Base.Enum.EfdtNatSym2
instance Data.Singletons.SingI2 Data.Singletons.Base.Enum.EfdtNatUpSym2
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI2 Data.Singletons.Base.Enum.EnumFromThenToSym2
instance Data.Singletons.SingI Data.Singletons.Base.Enum.EfdtNatDnSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Data.Singletons.Base.Enum.EfdtNatDnSym1 d)
instance (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Singletons.Base.Enum.EfdtNatDnSym2 d1 d2)
instance Data.Singletons.SingI Data.Singletons.Base.Enum.EfdtNatSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Data.Singletons.Base.Enum.EfdtNatSym1 d)
instance (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Singletons.Base.Enum.EfdtNatSym2 d1 d2)
instance Data.Singletons.SingI Data.Singletons.Base.Enum.EfdtNatUpSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Data.Singletons.Base.Enum.EfdtNatUpSym1 d)
instance (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Singletons.Base.Enum.EfdtNatUpSym2 d1 d2)
instance Data.Singletons.SingI Data.Singletons.Base.Enum.EftNatSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Data.Singletons.Base.Enum.EftNatSym1 d)
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI Data.Singletons.Base.Enum.EnumFromThenToSym0
instance forall a (d :: a). (Data.Singletons.Base.Enum.SEnum a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Singletons.Base.Enum.EnumFromThenToSym1 d)
instance forall a (d1 :: a) (d2 :: a). (Data.Singletons.Base.Enum.SEnum a, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Singletons.Base.Enum.EnumFromThenToSym2 d1 d2)
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI Data.Singletons.Base.Enum.EnumFromToSym0
instance forall a (d :: a). (Data.Singletons.Base.Enum.SEnum a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Singletons.Base.Enum.EnumFromToSym1 d)
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI Data.Singletons.Base.Enum.FromEnumSym0
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI Data.Singletons.Base.Enum.PredSym0
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI Data.Singletons.Base.Enum.SuccSym0
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.SingI Data.Singletons.Base.Enum.ToEnumSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EfdtNatDnSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EfdtNatDnSym1 a6989586621679612808)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EfdtNatDnSym2 a6989586621679612808 a6989586621679612809)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EfdtNatSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EfdtNatSym1 a6989586621679612882)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EfdtNatSym2 a6989586621679612882 a6989586621679612883)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EfdtNatUpSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EfdtNatUpSym1 a6989586621679612845)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EfdtNatUpSym2 a6989586621679612845 a6989586621679612846)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EftNatSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EftNatSym1 a6989586621679612900)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EnumFromThenToSym0
instance forall a (a6989586621679612942 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromThenToSym1 a6989586621679612942)
instance forall a (a6989586621679612942 :: a) (a6989586621679612943 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromThenToSym2 a6989586621679612942 a6989586621679612943)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EnumFromThenTo_6989586621679612981Sym0
instance forall a (a6989586621679612987 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromThenTo_6989586621679612981Sym1 a6989586621679612987)
instance forall a (a6989586621679612987 :: a) (a6989586621679612988 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromThenTo_6989586621679612981Sym2 a6989586621679612987 a6989586621679612988)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EnumFromThenTo_6989586621679613039Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromThenTo_6989586621679613039Sym1 a6989586621679613051)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromThenTo_6989586621679613039Sym2 a6989586621679613051 a6989586621679613052)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EnumFromToSym0
instance forall a (a6989586621679612936 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromToSym1 a6989586621679612936)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EnumFromTo_6989586621679612969Sym0
instance forall a (a6989586621679612974 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromTo_6989586621679612969Sym1 a6989586621679612974)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.EnumFromTo_6989586621679613023Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.EnumFromTo_6989586621679613023Sym1 a6989586621679613032)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.FromEnumSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.FromEnum_6989586621679613015Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.FromEnum_6989586621679613067Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.FromEnum_6989586621679640749Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.FromEnum_6989586621679640772Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.FromEnum_6989586621679640789Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Lambda_6989586621679612954Sym0
instance forall k1 k2 (a_69895866216796129486989586621679612953 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Lambda_6989586621679612954Sym1 a_69895866216796129486989586621679612953)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612821Scrutinee_6989586621679612744Sym0
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612821Scrutinee_6989586621679612744Sym1 x16989586621679612816)
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1) (x26989586621679612817 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612821Scrutinee_6989586621679612744Sym2 x16989586621679612816 x26989586621679612817)
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1) (x26989586621679612817 :: k2) (y6989586621679612818 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612821Scrutinee_6989586621679612744Sym3 x16989586621679612816 x26989586621679612817 y6989586621679612818)
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1) (x26989586621679612817 :: k2) (y6989586621679612818 :: k1) (arg_69895866216796127386989586621679612811 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612821Scrutinee_6989586621679612744Sym4 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811)
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1) (x26989586621679612817 :: k2) (y6989586621679612818 :: k1) (arg_69895866216796127386989586621679612811 :: k3) (arg_69895866216796127406989586621679612812 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612821Scrutinee_6989586621679612744Sym5 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811 arg_69895866216796127406989586621679612812)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612826DeltaSym0
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826DeltaSym1 x16989586621679612816)
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826DeltaSym2 x16989586621679612816 x26989586621679612817)
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826DeltaSym3 x16989586621679612816 x26989586621679612817 y6989586621679612818)
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k2) (arg_69895866216796127386989586621679612811 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826DeltaSym4 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811)
instance forall k1 k2 k3 k4 k5 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k2) (arg_69895866216796127386989586621679612811 :: k3) (arg_69895866216796127406989586621679612812 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826DeltaSym5 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811 arg_69895866216796127406989586621679612812)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612826Go_dnSym0
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Go_dnSym1 x16989586621679612816)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Go_dnSym2 x16989586621679612816 x26989586621679612817)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Go_dnSym3 x16989586621679612816 x26989586621679612817 y6989586621679612818)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k1) (arg_69895866216796127386989586621679612811 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Go_dnSym4 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k1) (arg_69895866216796127386989586621679612811 :: k2) (arg_69895866216796127406989586621679612812 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Go_dnSym5 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811 arg_69895866216796127406989586621679612812)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k1) (arg_69895866216796127386989586621679612811 :: k2) (arg_69895866216796127406989586621679612812 :: k3) (arg_69895866216796127426989586621679612813 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Go_dnSym6 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811 arg_69895866216796127406989586621679612812 arg_69895866216796127426989586621679612813)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612826Y'Sym0
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Y'Sym1 x16989586621679612816)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Y'Sym2 x16989586621679612816 x26989586621679612817)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Y'Sym3 x16989586621679612816 x26989586621679612817 y6989586621679612818)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k1) (arg_69895866216796127386989586621679612811 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Y'Sym4 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811)
instance forall k1 k2 k3 k4 (x16989586621679612816 :: k1) (x26989586621679612817 :: k1) (y6989586621679612818 :: k1) (arg_69895866216796127386989586621679612811 :: k2) (arg_69895866216796127406989586621679612812 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612826Y'Sym5 x16989586621679612816 x26989586621679612817 y6989586621679612818 arg_69895866216796127386989586621679612811 arg_69895866216796127406989586621679612812)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612858Scrutinee_6989586621679612734Sym0
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612858Scrutinee_6989586621679612734Sym1 x16989586621679612853)
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1) (x26989586621679612854 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612858Scrutinee_6989586621679612734Sym2 x16989586621679612853 x26989586621679612854)
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1) (x26989586621679612854 :: k2) (y6989586621679612855 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612858Scrutinee_6989586621679612734Sym3 x16989586621679612853 x26989586621679612854 y6989586621679612855)
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1) (x26989586621679612854 :: k2) (y6989586621679612855 :: k1) (arg_69895866216796127286989586621679612848 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612858Scrutinee_6989586621679612734Sym4 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848)
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1) (x26989586621679612854 :: k2) (y6989586621679612855 :: k1) (arg_69895866216796127286989586621679612848 :: k3) (arg_69895866216796127306989586621679612849 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612858Scrutinee_6989586621679612734Sym5 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848 arg_69895866216796127306989586621679612849)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612863DeltaSym0
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863DeltaSym1 x16989586621679612853)
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863DeltaSym2 x16989586621679612853 x26989586621679612854)
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863DeltaSym3 x16989586621679612853 x26989586621679612854 y6989586621679612855)
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k2) (arg_69895866216796127286989586621679612848 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863DeltaSym4 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848)
instance forall k1 k2 k3 k4 k5 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k2) (arg_69895866216796127286989586621679612848 :: k3) (arg_69895866216796127306989586621679612849 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863DeltaSym5 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848 arg_69895866216796127306989586621679612849)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612863Go_upSym0
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Go_upSym1 x16989586621679612853)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Go_upSym2 x16989586621679612853 x26989586621679612854)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Go_upSym3 x16989586621679612853 x26989586621679612854 y6989586621679612855)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k1) (arg_69895866216796127286989586621679612848 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Go_upSym4 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k1) (arg_69895866216796127286989586621679612848 :: k2) (arg_69895866216796127306989586621679612849 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Go_upSym5 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848 arg_69895866216796127306989586621679612849)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k1) (arg_69895866216796127286989586621679612848 :: k2) (arg_69895866216796127306989586621679612849 :: k3) (arg_69895866216796127326989586621679612850 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Go_upSym6 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848 arg_69895866216796127306989586621679612849 arg_69895866216796127326989586621679612850)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612863Y'Sym0
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Y'Sym1 x16989586621679612853)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Y'Sym2 x16989586621679612853 x26989586621679612854)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Y'Sym3 x16989586621679612853 x26989586621679612854 y6989586621679612855)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k1) (arg_69895866216796127286989586621679612848 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Y'Sym4 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848)
instance forall k1 k2 k3 k4 (x16989586621679612853 :: k1) (x26989586621679612854 :: k1) (y6989586621679612855 :: k1) (arg_69895866216796127286989586621679612848 :: k2) (arg_69895866216796127306989586621679612849 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612863Y'Sym5 x16989586621679612853 x26989586621679612854 y6989586621679612855 arg_69895866216796127286989586621679612848 arg_69895866216796127306989586621679612849)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612908GoSym0
instance forall k1 k2 k3 k4 (x06989586621679612906 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612908GoSym1 x06989586621679612906)
instance forall k1 k2 k3 k4 (x06989586621679612906 :: k1) (y6989586621679612907 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612908GoSym2 x06989586621679612906 y6989586621679612907)
instance forall k1 k2 k3 k4 (x06989586621679612906 :: k1) (y6989586621679612907 :: k2) (arg_69895866216796127166989586621679612902 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612908GoSym3 x06989586621679612906 y6989586621679612907 arg_69895866216796127166989586621679612902)
instance forall k1 k2 k3 k4 (x06989586621679612906 :: k1) (y6989586621679612907 :: k2) (arg_69895866216796127166989586621679612902 :: k3) (arg_69895866216796127186989586621679612903 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612908GoSym4 x06989586621679612906 y6989586621679612907 arg_69895866216796127166989586621679612902 arg_69895866216796127186989586621679612903)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Let6989586621679612912Scrutinee_6989586621679612720Sym0
instance forall k1 k2 k3 k4 (x6989586621679612911 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612912Scrutinee_6989586621679612720Sym1 x6989586621679612911)
instance forall k1 k2 k3 k4 (x6989586621679612911 :: k1) (x06989586621679612906 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612912Scrutinee_6989586621679612720Sym2 x6989586621679612911 x06989586621679612906)
instance forall k1 k2 k3 k4 (x6989586621679612911 :: k1) (x06989586621679612906 :: k2) (y6989586621679612907 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612912Scrutinee_6989586621679612720Sym3 x6989586621679612911 x06989586621679612906 y6989586621679612907)
instance forall k1 k2 k3 k4 (x6989586621679612911 :: k1) (x06989586621679612906 :: k2) (y6989586621679612907 :: k1) (arg_69895866216796127166989586621679612902 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.Enum.Let6989586621679612912Scrutinee_6989586621679612720Sym4 x6989586621679612911 x06989586621679612906 y6989586621679612907 arg_69895866216796127166989586621679612902)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.PredSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Pred_6989586621679612959Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Pred_6989586621679613001Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.SuccSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Succ_6989586621679612946Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.Succ_6989586621679612994Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.ToEnumSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.ToEnum_6989586621679613008Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.ToEnum_6989586621679613058Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.ToEnum_6989586621679640736Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.ToEnum_6989586621679640756Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.Enum.ToEnum_6989586621679640779Sym0
-- | Defines a drop-in replacement for TypeError (from
-- GHC.TypeLits) that can be used at the value level as well.
-- Since this is a drop-in replacement, it is not recommended to import
-- all of GHC.TypeLits and Data.Singletons.Base.TypeError
-- at the same time, as many of the definitions in the latter
-- deliberately clash with the former.
module Data.Singletons.Base.TypeError
-- | A drop-in replacement for TypeError. This also exists at the
-- value-level as typeError.
type family TypeError (x :: PErrorMessage) :: a
-- | The singleton for typeError.
--
-- Note that this is not quite as expressive as TypeError, as it
-- is unable to handle ShowType constructors at all.
sTypeError :: forall {k} (err :: PErrorMessage). HasCallStack => Sing err -> Sing (TypeError err :: k)
-- | The value-level counterpart to TypeError.
--
-- Note that this is not quite as expressive as TypeError, as it
-- is unable to print the contents of ShowType constructors (it
-- will simply print "<type>" in their place).
typeError :: HasCallStack => ErrorMessage -> a
-- | A description of a custom type error.
--
-- This is a variation on ErrorMessage that is parameterized over
-- what text type is used in the Text constructor. Instantiating
-- it with Text gives you ErrorMessage, and instantiating
-- it with Symbol gives you PErrorMessage.
data ErrorMessage' s
-- | Show the text as is.
Text :: s -> ErrorMessage' s
-- | Pretty print the type. ShowType :: k -> ErrorMessage
ShowType :: t -> ErrorMessage' s
-- | Put two pieces of error message next to each other.
(:<>:) :: ErrorMessage' s -> ErrorMessage' s -> ErrorMessage' s
-- | Stack two pieces of error message on top of each other.
(:$$:) :: ErrorMessage' s -> ErrorMessage' s -> ErrorMessage' s
infixl 6 :<>:
infixl 5 :$$:
-- | A value-level ErrorMessage' which uses Text as its text
-- type.
type ErrorMessage = ErrorMessage' Text
-- | A type-level ErrorMessage' which uses Symbol as its text
-- kind.
type PErrorMessage = ErrorMessage' Symbol
type family Sing :: k -> Type
data SErrorMessage (a :: PErrorMessage)
[SText] :: forall (t :: Symbol). Sing t -> SErrorMessage ('Text t)
[SShowType] :: forall {k} (ty :: k). Sing ty -> SErrorMessage ('ShowType ty :: ErrorMessage' Symbol)
[:%<>:] :: forall (e1 :: ErrorMessage' Symbol) (e2 :: ErrorMessage' Symbol). Sing e1 -> Sing e2 -> SErrorMessage (e1 ':<>: e2)
[:%$$:] :: forall (e1 :: ErrorMessage' Symbol) (e2 :: ErrorMessage' Symbol). Sing e1 -> Sing e2 -> SErrorMessage (e1 ':$$: e2)
infixl 6 :%<>:
infixl 5 :%$$:
-- | Convert a PErrorMessage to a ErrorMessage from
-- GHC.TypeLits.
type family ConvertPErrorMessage (a :: PErrorMessage) :: ErrorMessage
-- | Convert an ErrorMessage into a human-readable String.
showErrorMessage :: ErrorMessage -> String
data TextSym0 (a :: TyFun s ErrorMessage' s)
type family TextSym1 (a6989586621680205225 :: s) :: ErrorMessage' s
data ShowTypeSym0 (a :: TyFun t ErrorMessage' s)
type family ShowTypeSym1 (a6989586621680205227 :: t) :: ErrorMessage' s
data (a :: TyFun ErrorMessage' s ErrorMessage' s ~> ErrorMessage' s) :<>:@#@$
infixl 6 :<>:@#@$
data (a6989586621680205229 :: ErrorMessage' s) :<>:@#@$$ (b :: TyFun ErrorMessage' s ErrorMessage' s)
infixl 6 :<>:@#@$$
type family (a6989586621680205229 :: ErrorMessage' s) :<>:@#@$$$ (a6989586621680205230 :: ErrorMessage' s) :: ErrorMessage' s
infixl 6 :<>:@#@$$$
data (a :: TyFun ErrorMessage' s ErrorMessage' s ~> ErrorMessage' s) :$$:@#@$
infixl 5 :$$:@#@$
data (a6989586621680205232 :: ErrorMessage' s) :$$:@#@$$ (b :: TyFun ErrorMessage' s ErrorMessage' s)
infixl 5 :$$:@#@$$
type family (a6989586621680205232 :: ErrorMessage' s) :$$:@#@$$$ (a6989586621680205233 :: ErrorMessage' s) :: ErrorMessage' s
infixl 5 :$$:@#@$$$
data TypeErrorSym0 (a1 :: TyFun PErrorMessage a)
type family TypeErrorSym1 (a6989586621680205235 :: PErrorMessage) :: a
instance Data.Singletons.SingI e1 => Data.Singletons.SingI1 (('Data.Singletons.Base.TypeError.:$$:) e1)
instance Data.Singletons.SingI e1 => Data.Singletons.SingI1 (('Data.Singletons.Base.TypeError.:<>:) e1)
instance Data.Singletons.SingI1 (Data.Singletons.Base.TypeError.:$$:@#@$$)
instance Data.Singletons.SingI1 (Data.Singletons.Base.TypeError.:<>:@#@$$)
instance Data.Singletons.SingI1 'Data.Singletons.Base.TypeError.Text
instance Data.Singletons.SingI1 'Data.Singletons.Base.TypeError.ShowType
instance Data.Singletons.SingI2 ('Data.Singletons.Base.TypeError.:$$:)
instance Data.Singletons.SingI2 ('Data.Singletons.Base.TypeError.:<>:)
instance (Data.Singletons.SingI e1, Data.Singletons.SingI e2) => Data.Singletons.SingI (e1 'Data.Singletons.Base.TypeError.:$$: e2)
instance (Data.Singletons.SingI e1, Data.Singletons.SingI e2) => Data.Singletons.SingI (e1 'Data.Singletons.Base.TypeError.:<>: e2)
instance forall t (ty :: t). Data.Singletons.SingI ty => Data.Singletons.SingI ('Data.Singletons.Base.TypeError.ShowType ty)
instance Data.Singletons.SingI t => Data.Singletons.SingI ('Data.Singletons.Base.TypeError.Text t)
instance Data.Singletons.SingI (Data.Singletons.Base.TypeError.:$$:@#@$)
instance Data.Singletons.SingI x => Data.Singletons.SingI ((Data.Singletons.Base.TypeError.:$$:@#@$$) x)
instance Data.Singletons.SingI (Data.Singletons.Base.TypeError.:<>:@#@$)
instance Data.Singletons.SingI x => Data.Singletons.SingI ((Data.Singletons.Base.TypeError.:<>:@#@$$) x)
instance Data.Singletons.SingI Data.Singletons.Base.TypeError.ShowTypeSym0
instance Data.Singletons.SingI Data.Singletons.Base.TypeError.TextSym0
instance Data.Singletons.SingI Data.Singletons.Base.TypeError.TypeErrorSym0
instance Data.Singletons.SingKind Data.Singletons.Base.TypeError.PErrorMessage
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.TypeError.:$$:@#@$)
instance forall s (a6989586621680205232 :: Data.Singletons.Base.TypeError.ErrorMessage' s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Base.TypeError.:$$:@#@$$) a6989586621680205232)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Base.TypeError.:<>:@#@$)
instance forall s (a6989586621680205229 :: Data.Singletons.Base.TypeError.ErrorMessage' s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Base.TypeError.:<>:@#@$$) a6989586621680205229)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.TypeError.ShowTypeSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.TypeError.TextSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Base.TypeError.TypeErrorSym0
-- | Defines the SShow singleton version of the Show type class.
module Text.Show.Singletons
class PShow a where {
type ShowsPrec (arg :: Natural) (arg1 :: a) (arg2 :: Symbol) :: Symbol;
type Show_ (arg :: a) :: Symbol;
type ShowList (arg :: [a]) (arg1 :: Symbol) :: Symbol;
type ShowsPrec arg :: Natural arg1 :: a arg2 :: Symbol = Apply Apply Apply ShowsPrec_6989586621680208728Sym0 :: TyFun Natural a ~> Symbol ~> Symbol -> Type arg arg1 arg2;
type Show_ arg :: a = Apply Show__6989586621680208740Sym0 :: TyFun a Symbol -> Type arg;
type ShowList arg :: [a] arg1 :: Symbol = Apply Apply ShowList_6989586621680208748Sym0 :: TyFun [a] Symbol ~> Symbol -> Type arg arg1;
}
class SShow a
sShowsPrec :: forall (t1 :: Natural) (t2 :: a) (t3 :: Symbol). SShow a => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3)
($dmsShowsPrec) :: forall (t1 :: Natural) (t2 :: a) (t3 :: Symbol). (SShow a, Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (ShowsPrec_6989586621680208728Sym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3)
sShow_ :: forall (t :: a). SShow a => Sing t -> Sing (Apply (Show_Sym0 :: TyFun a Symbol -> Type) t)
($dmsShow_) :: forall (t :: a). (SShow a, Apply (Show_Sym0 :: TyFun a Symbol -> Type) t ~ Apply (Show__6989586621680208740Sym0 :: TyFun a Symbol -> Type) t) => Sing t -> Sing (Apply (Show_Sym0 :: TyFun a Symbol -> Type) t)
sShowList :: forall (t1 :: [a]) (t2 :: Symbol). SShow a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2)
($dmsShowList) :: forall (t1 :: [a]) (t2 :: Symbol). (SShow a, Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2 ~ Apply (Apply (ShowList_6989586621680208748Sym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2)
-- | The shows functions return a function that prepends the
-- output Symbol to an existing Symbol. This allows
-- constant-time concatenation of results using function composition.
type SymbolS = Symbol -> Symbol
-- | show, but with an extra underscore so that its promoted
-- counterpart (Show_) will not clash with the Show class.
show_ :: Show a => a -> String
type family Shows (a1 :: a) (a2 :: Symbol) :: Symbol
sShows :: forall a (t1 :: a) (t2 :: Symbol). SShow a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowsSym0 :: TyFun a (Symbol ~> Symbol) -> Type) t1) t2)
type family ShowListWith (a1 :: a ~> Symbol ~> Symbol) (a2 :: [a]) (a3 :: Symbol) :: Symbol
sShowListWith :: forall a (t1 :: a ~> (Symbol ~> Symbol)) (t2 :: [a]) (t3 :: Symbol). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ShowListWithSym0 :: TyFun (a ~> (Symbol ~> Symbol)) ([a] ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3)
type family ShowChar (a :: Char) (a1 :: Symbol) :: Symbol
sShowChar :: forall (t1 :: Char) (t2 :: Symbol). Sing t1 -> Sing t2 -> Sing (Apply (Apply ShowCharSym0 t1) t2)
type family ShowString (a :: Symbol) (a1 :: Symbol) :: Symbol
sShowString :: forall (t1 :: Symbol) (t2 :: Symbol). Sing t1 -> Sing t2 -> Sing (Apply (Apply ShowStringSym0 t1) t2)
type family ShowParen (a :: Bool) (a1 :: Symbol ~> Symbol) (a2 :: Symbol) :: Symbol
sShowParen :: forall (t1 :: Bool) (t2 :: Symbol ~> Symbol) (t3 :: Symbol). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply ShowParenSym0 t1) t2) t3)
type family ShowSpace (a :: Symbol) :: Symbol
sShowSpace :: forall (t :: Symbol). Sing t -> Sing (Apply ShowSpaceSym0 t)
type family ShowCommaSpace (a :: Symbol) :: Symbol
sShowCommaSpace :: forall (t :: Symbol). Sing t -> Sing (Apply ShowCommaSpaceSym0 t)
type family AppPrec :: Natural
sAppPrec :: Sing AppPrecSym0
type family AppPrec1 :: Natural
sAppPrec1 :: Sing AppPrec1Sym0
data ShowsPrecSym0 (a1 :: TyFun Natural a ~> Symbol ~> Symbol)
data ShowsPrecSym1 (a6989586621680208714 :: Natural) (b :: TyFun a Symbol ~> Symbol)
data ShowsPrecSym2 (a6989586621680208714 :: Natural) (a6989586621680208715 :: a) (c :: TyFun Symbol Symbol)
type family ShowsPrecSym3 (a6989586621680208714 :: Natural) (a6989586621680208715 :: a) (a6989586621680208716 :: Symbol) :: Symbol
data Show_Sym0 (a1 :: TyFun a Symbol)
type family Show_Sym1 (a6989586621680208719 :: a) :: Symbol
data ShowListSym0 (a1 :: TyFun [a] Symbol ~> Symbol)
data ShowListSym1 (a6989586621680208723 :: [a]) (b :: TyFun Symbol Symbol)
type family ShowListSym2 (a6989586621680208723 :: [a]) (a6989586621680208724 :: Symbol) :: Symbol
data ShowsSym0 (a1 :: TyFun a Symbol ~> Symbol)
data ShowsSym1 (a6989586621680208706 :: a) (b :: TyFun Symbol Symbol)
type family ShowsSym2 (a6989586621680208706 :: a) (a6989586621680208707 :: Symbol) :: Symbol
data ShowListWithSym0 (a1 :: TyFun a ~> Symbol ~> Symbol [a] ~> Symbol ~> Symbol)
data ShowListWithSym1 (a6989586621680208688 :: a ~> Symbol ~> Symbol) (b :: TyFun [a] Symbol ~> Symbol)
data ShowListWithSym2 (a6989586621680208688 :: a ~> Symbol ~> Symbol) (a6989586621680208689 :: [a]) (c :: TyFun Symbol Symbol)
type family ShowListWithSym3 (a6989586621680208688 :: a ~> Symbol ~> Symbol) (a6989586621680208689 :: [a]) (a6989586621680208690 :: Symbol) :: Symbol
data ShowCharSym0 (a :: TyFun Char Symbol ~> Symbol)
data ShowCharSym1 (a6989586621680208680 :: Char) (b :: TyFun Symbol Symbol)
type family ShowCharSym2 (a6989586621680208680 :: Char) (a6989586621680208681 :: Symbol) :: Symbol
data ShowStringSym0 (a :: TyFun Symbol Symbol ~> Symbol)
data ShowStringSym1 (a6989586621680208669 :: Symbol) (b :: TyFun Symbol Symbol)
type family ShowStringSym2 (a6989586621680208669 :: Symbol) (a6989586621680208670 :: Symbol) :: Symbol
data ShowParenSym0 (a :: TyFun Bool Symbol ~> Symbol ~> Symbol ~> Symbol)
data ShowParenSym1 (a6989586621680208653 :: Bool) (b :: TyFun Symbol ~> Symbol Symbol ~> Symbol)
data ShowParenSym2 (a6989586621680208653 :: Bool) (a6989586621680208654 :: Symbol ~> Symbol) (c :: TyFun Symbol Symbol)
data ShowSpaceSym0 (a :: TyFun Symbol Symbol)
type family ShowSpaceSym1 (a6989586621680208641 :: Symbol) :: Symbol
data ShowCommaSpaceSym0 (a :: TyFun Symbol Symbol)
type family ShowCommaSpaceSym1 (a6989586621680208635 :: Symbol) :: Symbol
type family AppPrecSym0 :: Natural
type family AppPrec1Sym0 :: Natural
instance Text.Show.Singletons.PShow GHC.Types.Bool
instance Text.Show.Singletons.PShow GHC.Types.Char
instance Text.Show.Singletons.PShow (Data.Either.Either a b)
instance Text.Show.Singletons.PShow [a]
instance Text.Show.Singletons.PShow (GHC.Maybe.Maybe a)
instance Text.Show.Singletons.PShow GHC.Num.Natural.Natural
instance Text.Show.Singletons.PShow (GHC.Base.NonEmpty a)
instance Text.Show.Singletons.PShow GHC.Types.Ordering
instance Text.Show.Singletons.PShow GHC.Types.Symbol
instance Text.Show.Singletons.PShow (a, b)
instance Text.Show.Singletons.PShow (a, b, c)
instance Text.Show.Singletons.PShow (a, b, c, d)
instance Text.Show.Singletons.PShow (a, b, c, d, e)
instance Text.Show.Singletons.PShow (a, b, c, d, e, f)
instance Text.Show.Singletons.PShow (a, b, c, d, e, f, g)
instance Text.Show.Singletons.PShow ()
instance Text.Show.Singletons.PShow GHC.Base.Void
instance Text.Show.Singletons.SShow GHC.Types.Bool
instance Text.Show.Singletons.SShow GHC.Types.Char
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow b) => Text.Show.Singletons.SShow (Data.Either.Either a b)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow [a]
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (GHC.Maybe.Maybe a)
instance Text.Show.Singletons.SShow GHC.Num.Natural.Natural
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow [a]) => Text.Show.Singletons.SShow (GHC.Base.NonEmpty a)
instance Text.Show.Singletons.SShow GHC.Types.Ordering
instance Text.Show.Singletons.SShow GHC.Types.Symbol
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow b) => Text.Show.Singletons.SShow (a, b)
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow b, Text.Show.Singletons.SShow c) => Text.Show.Singletons.SShow (a, b, c)
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow b, Text.Show.Singletons.SShow c, Text.Show.Singletons.SShow d) => Text.Show.Singletons.SShow (a, b, c, d)
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow b, Text.Show.Singletons.SShow c, Text.Show.Singletons.SShow d, Text.Show.Singletons.SShow e) => Text.Show.Singletons.SShow (a, b, c, d, e)
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow b, Text.Show.Singletons.SShow c, Text.Show.Singletons.SShow d, Text.Show.Singletons.SShow e, Text.Show.Singletons.SShow f) => Text.Show.Singletons.SShow (a, b, c, d, e, f)
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow b, Text.Show.Singletons.SShow c, Text.Show.Singletons.SShow d, Text.Show.Singletons.SShow e, Text.Show.Singletons.SShow f, Text.Show.Singletons.SShow g) => Text.Show.Singletons.SShow (a, b, c, d, e, f, g)
instance Text.Show.Singletons.SShow ()
instance Text.Show.Singletons.SShow GHC.Base.Void
instance Data.Singletons.SingI1 Text.Show.Singletons.ShowParenSym1
instance Data.Singletons.SingI1 Text.Show.Singletons.ShowCharSym1
instance Data.Singletons.SingI1 Text.Show.Singletons.ShowListWithSym1
instance Data.Singletons.SingI d => Data.Singletons.SingI1 (Text.Show.Singletons.ShowParenSym2 d)
instance Text.Show.Singletons.SShow a => Data.Singletons.SingI1 Text.Show.Singletons.ShowListSym1
instance forall a (d :: a Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)). Data.Singletons.SingI d => Data.Singletons.SingI1 (Text.Show.Singletons.ShowListWithSym2 d)
instance Data.Singletons.SingI1 Text.Show.Singletons.Show_tupleSym1
instance Text.Show.Singletons.SShow a => Data.Singletons.SingI1 Text.Show.Singletons.ShowsPrecSym1
instance Data.Singletons.SingI1 Text.Show.Singletons.ShowStringSym1
instance (Text.Show.Singletons.SShow a, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Text.Show.Singletons.ShowsPrecSym2 d)
instance Text.Show.Singletons.SShow a => Data.Singletons.SingI1 Text.Show.Singletons.ShowsSym1
instance Data.Singletons.SingI2 Text.Show.Singletons.ShowParenSym2
instance Data.Singletons.SingI2 Text.Show.Singletons.ShowListWithSym2
instance Text.Show.Singletons.SShow a => Data.Singletons.SingI2 Text.Show.Singletons.ShowsPrecSym2
instance Data.Singletons.SingI Text.Show.Singletons.ShowCharSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Text.Show.Singletons.ShowCharSym1 d)
instance Data.Singletons.SingI Text.Show.Singletons.ShowCommaSpaceSym0
instance Text.Show.Singletons.SShow a => Data.Singletons.SingI Text.Show.Singletons.ShowListSym0
instance forall a (d :: [a]). (Text.Show.Singletons.SShow a, Data.Singletons.SingI d) => Data.Singletons.SingI (Text.Show.Singletons.ShowListSym1 d)
instance Data.Singletons.SingI Text.Show.Singletons.ShowListWithSym0
instance forall a (d :: a Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)). Data.Singletons.SingI d => Data.Singletons.SingI (Text.Show.Singletons.ShowListWithSym1 d)
instance forall a (d1 :: a Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)) (d2 :: [a]). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Text.Show.Singletons.ShowListWithSym2 d1 d2)
instance Data.Singletons.SingI Text.Show.Singletons.ShowParenSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Text.Show.Singletons.ShowParenSym1 d)
instance (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Text.Show.Singletons.ShowParenSym2 d1 d2)
instance Data.Singletons.SingI Text.Show.Singletons.ShowSpaceSym0
instance Data.Singletons.SingI Text.Show.Singletons.ShowStringSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Text.Show.Singletons.ShowStringSym1 d)
instance Text.Show.Singletons.SShow a => Data.Singletons.SingI Text.Show.Singletons.Show_Sym0
instance Data.Singletons.SingI Text.Show.Singletons.Show_tupleSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Text.Show.Singletons.Show_tupleSym1 d)
instance Text.Show.Singletons.SShow a => Data.Singletons.SingI Text.Show.Singletons.ShowsPrecSym0
instance (Text.Show.Singletons.SShow a, Data.Singletons.SingI d) => Data.Singletons.SingI (Text.Show.Singletons.ShowsPrecSym1 d)
instance forall a (d1 :: GHC.Num.Natural.Natural) (d2 :: a). (Text.Show.Singletons.SShow a, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Text.Show.Singletons.ShowsPrecSym2 d1 d2)
instance Text.Show.Singletons.SShow a => Data.Singletons.SingI Text.Show.Singletons.ShowsSym0
instance forall a (d :: a). (Text.Show.Singletons.SShow a, Data.Singletons.SingI d) => Data.Singletons.SingI (Text.Show.Singletons.ShowsSym1 d)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.IsDecSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Lambda_6989586621680208624Sym0
instance forall k1 k2 c a (ss6989586621680208622 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680208624Sym1 ss6989586621680208622)
instance forall k1 k2 c a (ss6989586621680208622 :: k1) (a_69895866216802086156989586621680208623 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680208624Sym2 ss6989586621680208622 a_69895866216802086156989586621680208623)
instance forall k1 k2 c a (ss6989586621680208622 :: k1) (a_69895866216802086156989586621680208623 :: k2) (s6989586621680208626 :: GHC.Types.Symbol Data.Singletons.~> c). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680208624Sym3 ss6989586621680208622 a_69895866216802086156989586621680208623 s6989586621680208626)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Lambda_6989586621680208643Sym0
instance forall k (a_69895866216802086376989586621680208642 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680208643Sym1 a_69895866216802086376989586621680208642)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Lambda_6989586621680231696Sym0
instance forall k1 k2 k3 k4 k5 k6 k7 (s6989586621680231695 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680231696Sym1 s6989586621680231695)
instance forall k1 k2 k3 k4 k5 k6 k7 (s6989586621680231695 :: k1) (c6989586621680231682 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680231696Sym2 s6989586621680231695 c6989586621680231682)
instance forall k1 k2 k3 k4 k5 k6 k7 (s6989586621680231695 :: k1) (c6989586621680231682 :: k2) (s6989586621680231683 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680231696Sym3 s6989586621680231695 c6989586621680231682 s6989586621680231683)
instance forall k1 k2 k3 k4 k5 k6 k7 (s6989586621680231695 :: k1) (c6989586621680231682 :: k2) (s6989586621680231683 :: k3) (c6989586621680231674 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680231696Sym4 s6989586621680231695 c6989586621680231682 s6989586621680231683 c6989586621680231674)
instance forall k1 k2 k3 k4 k5 k6 k7 (s6989586621680231695 :: k1) (c6989586621680231682 :: k2) (s6989586621680231683 :: k3) (c6989586621680231674 :: k4) (s6989586621680231675 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680231696Sym5 s6989586621680231695 c6989586621680231682 s6989586621680231683 c6989586621680231674 s6989586621680231675)
instance forall k1 k2 k3 k4 k5 k6 k7 (s6989586621680231695 :: k1) (c6989586621680231682 :: k2) (s6989586621680231683 :: k3) (c6989586621680231674 :: k4) (s6989586621680231675 :: k5) (arg_69895866216802315686989586621680231670 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680231696Sym6 s6989586621680231695 c6989586621680231682 s6989586621680231683 c6989586621680231674 s6989586621680231675 arg_69895866216802315686989586621680231670)
instance forall k1 k2 k3 k4 k5 k6 k7 (s6989586621680231695 :: k1) (c6989586621680231682 :: k2) (s6989586621680231683 :: k3) (c6989586621680231674 :: k4) (s6989586621680231675 :: k5) (arg_69895866216802315686989586621680231670 :: k6) (arg_69895866216802315706989586621680231671 :: k7). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Lambda_6989586621680231696Sym7 s6989586621680231695 c6989586621680231682 s6989586621680231683 c6989586621680231674 s6989586621680231675 arg_69895866216802315686989586621680231670 arg_69895866216802315706989586621680231671)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Let6989586621680208696ShowlSym0
instance forall k1 k2 k3 (showx6989586621680208692 :: k1 Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680208696ShowlSym1 showx6989586621680208692)
instance forall k1 k2 k3 (showx6989586621680208692 :: k1 Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)) (x6989586621680208693 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680208696ShowlSym2 showx6989586621680208692 x6989586621680208693)
instance forall k1 k2 k3 (showx6989586621680208692 :: k1 Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)) (x6989586621680208693 :: k2) (xs6989586621680208694 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680208696ShowlSym3 showx6989586621680208692 x6989586621680208693 xs6989586621680208694)
instance forall k1 k2 k3 (showx6989586621680208692 :: k1 Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)) (x6989586621680208693 :: k2) (xs6989586621680208694 :: k3) (s6989586621680208695 :: GHC.Types.Symbol). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680208696ShowlSym4 showx6989586621680208692 x6989586621680208693 xs6989586621680208694 s6989586621680208695)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Let6989586621680231619ContSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680231619ContSym1 p6989586621680231616)
instance forall k1 k2 (p6989586621680231616 :: GHC.Types.Char Data.Singletons.~> GHC.Types.Bool) (f6989586621680231617 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680231619ContSym2 p6989586621680231616 f6989586621680231617)
instance forall k1 k2 (p6989586621680231616 :: GHC.Types.Char Data.Singletons.~> GHC.Types.Bool) (f6989586621680231617 :: k1) (a_69895866216802316076989586621680231618 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680231619ContSym3 p6989586621680231616 f6989586621680231617 a_69895866216802316076989586621680231618)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Let6989586621680231623Scrutinee_6989586621680231582Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680231623Scrutinee_6989586621680231582Sym1 s6989586621680231622)
instance forall k1 k2 k3 (s6989586621680231622 :: GHC.Types.Symbol) (p6989586621680231616 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680231623Scrutinee_6989586621680231582Sym2 s6989586621680231622 p6989586621680231616)
instance forall k1 k2 k3 (s6989586621680231622 :: GHC.Types.Symbol) (p6989586621680231616 :: k1) (f6989586621680231617 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680231623Scrutinee_6989586621680231582Sym3 s6989586621680231622 p6989586621680231616 f6989586621680231617)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Let6989586621680231646Scrutinee_6989586621680231574Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Let6989586621680231646Scrutinee_6989586621680231574Sym1 sym6989586621680231644)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ProtectEscSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ProtectEscSym1 a6989586621680231613)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ProtectEscSym2 a6989586621680231613 a6989586621680231614)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowCharListSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowCharListSym1 a6989586621680231721)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowCharSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowCharSym1 a6989586621680208680)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowCommaSpaceSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowListSym0
instance forall a (a6989586621680208723 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowListSym1 a6989586621680208723)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowListWithSym0
instance forall a (a6989586621680208688 :: a Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowListWithSym1 a6989586621680208688)
instance forall a (a6989586621680208688 :: a Data.Singletons.~> (GHC.Types.Symbol Data.Singletons.~> GHC.Types.Symbol)) (a6989586621680208689 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowListWithSym2 a6989586621680208688 a6989586621680208689)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowList_6989586621680208748Sym0
instance forall a (a6989586621680208753 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowList_6989586621680208748Sym1 a6989586621680208753)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowLitCharSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowLitCharSym1 a6989586621680231668)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowLitStringSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowLitStringSym1 a6989586621680231657)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowLitSymbolSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowLitSymbolSym1 a6989586621680231642)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowParenSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowParenSym1 a6989586621680208653)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowParenSym2 a6989586621680208653 a6989586621680208654)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowSpaceSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowStringSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowStringSym1 a6989586621680208669)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowSymbolSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowSymbolSym1 a6989586621680231712)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Show_Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Show__6989586621680208740Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.Show_tupleSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.Show_tupleSym1 a6989586621680208620)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsCharPrecSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsCharPrecSym1 a6989586621680231733)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsCharPrecSym2 a6989586621680231733 a6989586621680231734)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsNatSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsNatSym1 a6989586621680229777)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrecSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrecSym1 a6989586621680208714)
instance forall a (a6989586621680208714 :: GHC.Num.Natural.Natural) (a6989586621680208715 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrecSym2 a6989586621680208714 a6989586621680208715)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680208728Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208728Sym1 a6989586621680208734)
instance forall a (a6989586621680208734 :: GHC.Num.Natural.Natural) (a6989586621680208735 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208728Sym2 a6989586621680208734 a6989586621680208735)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680208760Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208760Sym1 a6989586621680208770)
instance forall a (a6989586621680208770 :: GHC.Num.Natural.Natural) (a6989586621680208771 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208760Sym2 a6989586621680208770 a6989586621680208771)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680208778Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208778Sym1 a6989586621680208784)
instance forall a b (a6989586621680208784 :: GHC.Num.Natural.Natural) (a6989586621680208785 :: (a, b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208778Sym2 a6989586621680208784 a6989586621680208785)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680208793Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208793Sym1 a6989586621680208799)
instance forall a b c (a6989586621680208799 :: GHC.Num.Natural.Natural) (a6989586621680208800 :: (a, b, c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208793Sym2 a6989586621680208799 a6989586621680208800)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680208809Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208809Sym1 a6989586621680208815)
instance forall a b c d (a6989586621680208815 :: GHC.Num.Natural.Natural) (a6989586621680208816 :: (a, b, c, d)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208809Sym2 a6989586621680208815 a6989586621680208816)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680208826Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208826Sym1 a6989586621680208832)
instance forall a b c d e (a6989586621680208832 :: GHC.Num.Natural.Natural) (a6989586621680208833 :: (a, b, c, d, e)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208826Sym2 a6989586621680208832 a6989586621680208833)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680208844Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208844Sym1 a6989586621680208850)
instance forall a b c d e f (a6989586621680208850 :: GHC.Num.Natural.Natural) (a6989586621680208851 :: (a, b, c, d, e, f)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208844Sym2 a6989586621680208850 a6989586621680208851)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680208863Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208863Sym1 a6989586621680208869)
instance forall a b c d e f g (a6989586621680208869 :: GHC.Num.Natural.Natural) (a6989586621680208870 :: (a, b, c, d, e, f, g)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680208863Sym2 a6989586621680208869 a6989586621680208870)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680239092Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239092Sym1 a6989586621680239100)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239092Sym2 a6989586621680239100 a6989586621680239101)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680239121Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239121Sym1 a6989586621680239131)
instance forall a (a6989586621680239131 :: GHC.Num.Natural.Natural) (a6989586621680239132 :: GHC.Maybe.Maybe a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239121Sym2 a6989586621680239131 a6989586621680239132)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680239167Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239167Sym1 a6989586621680239177)
instance forall a b (a6989586621680239177 :: GHC.Num.Natural.Natural) (a6989586621680239178 :: Data.Either.Either a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239167Sym2 a6989586621680239177 a6989586621680239178)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680239198Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239198Sym1 a6989586621680239206)
instance forall a (a6989586621680239206 :: GHC.Num.Natural.Natural) (a6989586621680239207 :: GHC.Base.NonEmpty a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239198Sym2 a6989586621680239206 a6989586621680239207)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680239218Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239218Sym1 a6989586621680239228)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239218Sym2 a6989586621680239228 a6989586621680239229)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680239238Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239238Sym1 a6989586621680239250)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239238Sym2 a6989586621680239250 a6989586621680239251)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsPrec_6989586621680239263Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239263Sym1 a6989586621680239271)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsPrec_6989586621680239263Sym2 a6989586621680239271 a6989586621680239272)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Text.Show.Singletons.ShowsSym0
instance forall a (a6989586621680208706 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Text.Show.Singletons.ShowsSym1 a6989586621680208706)
-- | Defines the promoted version of Monoid, PMonoid, and the
-- singleton version, SMonoid.
module Data.Monoid.Singletons
class PMonoid a where {
type Mempty :: a;
type Mappend (arg :: a) (arg1 :: a) :: a;
type Mconcat (arg :: [a]) :: a;
type Mappend arg :: a arg1 :: a = Apply Apply Mappend_6989586621680292333Sym0 :: TyFun a a ~> a -> Type arg arg1;
type Mconcat arg :: [a] = Apply Mconcat_6989586621680292347Sym0 :: TyFun [a] a -> Type arg;
}
class SSemigroup a => SMonoid a
sMempty :: SMonoid a => Sing (MemptySym0 :: a)
sMappend :: forall (t1 :: a) (t2 :: a). SMonoid a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMappend) :: forall (t1 :: a) (t2 :: a). (SMonoid a, Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Mappend_6989586621680292333Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
sMconcat :: forall (t :: [a]). SMonoid a => Sing t -> Sing (Apply (MconcatSym0 :: TyFun [a] a -> Type) t)
($dmsMconcat) :: forall (t :: [a]). (SMonoid a, Apply (MconcatSym0 :: TyFun [a] a -> Type) t ~ Apply (Mconcat_6989586621680292347Sym0 :: TyFun [a] a -> Type) t) => Sing t -> Sing (Apply (MconcatSym0 :: TyFun [a] a -> Type) t)
type family Sing :: k -> Type
data SDual (a1 :: Dual a)
[SDual] :: forall a (n :: a). Sing n -> SDual ('Dual n)
data SAll (a :: All)
[SAll] :: forall (n :: Bool). Sing n -> SAll ('All n)
data SAny (a :: Any)
[SAny] :: forall (n :: Bool). Sing n -> SAny ('Any n)
data SSum (a1 :: Sum a)
[SSum] :: forall a (n :: a). Sing n -> SSum ('Sum n)
data SProduct (a1 :: Product a)
[SProduct] :: forall a (n :: a). Sing n -> SProduct ('Product n)
data SFirst (a1 :: First a)
[SFirst] :: forall a (n :: Maybe a). Sing n -> SFirst ('First n)
data SLast (a1 :: Last a)
[SLast] :: forall a (n :: Maybe a). Sing n -> SLast ('Last n)
type family GetDual (a1 :: Dual a) :: a
type family GetAll (a :: All) :: Bool
type family GetAny (a :: Any) :: Bool
type family GetSum (a1 :: Sum a) :: a
type family GetProduct (a1 :: Product a) :: a
type family GetFirst (a1 :: First a) :: Maybe a
type family GetLast (a1 :: Last a) :: Maybe a
sGetDual :: forall a (t :: Dual a). Sing t -> Sing (Apply (GetDualSym0 :: TyFun (Dual a) a -> Type) t)
sGetAll :: forall (t :: All). Sing t -> Sing (Apply GetAllSym0 t)
sGetAny :: forall (t :: Any). Sing t -> Sing (Apply GetAnySym0 t)
sGetSum :: forall a (t :: Sum a). Sing t -> Sing (Apply (GetSumSym0 :: TyFun (Sum a) a -> Type) t)
sGetProduct :: forall a (t :: Product a). Sing t -> Sing (Apply (GetProductSym0 :: TyFun (Product a) a -> Type) t)
sGetFirst :: forall a (t :: First a). Sing t -> Sing (Apply (GetFirstSym0 :: TyFun (First a) (Maybe a) -> Type) t)
sGetLast :: forall a (t :: Last a). Sing t -> Sing (Apply (GetLastSym0 :: TyFun (Last a) (Maybe a) -> Type) t)
type family MemptySym0 :: a
data MappendSym0 (a1 :: TyFun a a ~> a)
data MappendSym1 (a6989586621680292326 :: a) (b :: TyFun a a)
type family MappendSym2 (a6989586621680292326 :: a) (a6989586621680292327 :: a) :: a
data MconcatSym0 (a1 :: TyFun [a] a)
type family MconcatSym1 (a6989586621680292330 :: [a]) :: a
data DualSym0 (a1 :: TyFun a Dual a)
type family DualSym1 (a6989586621679687531 :: a) :: Dual a
data GetDualSym0 (a1 :: TyFun Dual a a)
type family GetDualSym1 (a6989586621679687534 :: Dual a) :: a
data AllSym0 (a :: TyFun Bool All)
type family AllSym1 (a6989586621679687547 :: Bool) :: All
data GetAllSym0 (a :: TyFun All Bool)
type family GetAllSym1 (a6989586621679687550 :: All) :: Bool
data AnySym0 (a :: TyFun Bool Any)
type family AnySym1 (a6989586621679687563 :: Bool) :: Any
data GetAnySym0 (a :: TyFun Any Bool)
type family GetAnySym1 (a6989586621679687566 :: Any) :: Bool
data SumSym0 (a1 :: TyFun a Sum a)
type family SumSym1 (a6989586621679687582 :: a) :: Sum a
data GetSumSym0 (a1 :: TyFun Sum a a)
type family GetSumSym1 (a6989586621679687585 :: Sum a) :: a
data ProductSym0 (a1 :: TyFun a Product a)
type family ProductSym1 (a6989586621679687601 :: a) :: Product a
data GetProductSym0 (a1 :: TyFun Product a a)
type family GetProductSym1 (a6989586621679687604 :: Product a) :: a
data FirstSym0 (a1 :: TyFun Maybe a First a)
type family FirstSym1 (a6989586621680296690 :: Maybe a) :: First a
data GetFirstSym0 (a1 :: TyFun First a Maybe a)
type family GetFirstSym1 (a6989586621680296693 :: First a) :: Maybe a
data LastSym0 (a1 :: TyFun Maybe a Last a)
type family LastSym1 (a6989586621680296713 :: Maybe a) :: Last a
data GetLastSym0 (a1 :: TyFun Last a Maybe a)
type family GetLastSym1 (a6989586621680296716 :: Last a) :: Maybe a
instance forall a (z :: Data.Monoid.First a). GHC.Classes.Eq (Data.Monoid.Singletons.SFirst z)
instance forall a (z :: Data.Monoid.Last a). GHC.Classes.Eq (Data.Monoid.Singletons.SLast z)
instance Control.Monad.Singletons.Internal.PApplicative Data.Monoid.First
instance Control.Monad.Singletons.Internal.PApplicative Data.Monoid.Last
instance Data.Eq.Singletons.PEq (Data.Monoid.First a)
instance Data.Eq.Singletons.PEq (Data.Monoid.Last a)
instance Control.Monad.Singletons.Internal.PFunctor Data.Monoid.First
instance Control.Monad.Singletons.Internal.PFunctor Data.Monoid.Last
instance Control.Monad.Singletons.Internal.PMonad Data.Monoid.First
instance Control.Monad.Singletons.Internal.PMonad Data.Monoid.Last
instance Data.Monoid.Singletons.PMonoid Data.Semigroup.Internal.All
instance Data.Monoid.Singletons.PMonoid Data.Semigroup.Internal.Any
instance Data.Monoid.Singletons.PMonoid (Data.Ord.Down a)
instance Data.Monoid.Singletons.PMonoid (Data.Semigroup.Internal.Dual a)
instance Data.Monoid.Singletons.PMonoid (a Data.Singletons.~> b)
instance Data.Monoid.Singletons.PMonoid (Data.Monoid.First a)
instance Data.Monoid.Singletons.PMonoid (Data.Monoid.Last a)
instance Data.Monoid.Singletons.PMonoid [a]
instance Data.Monoid.Singletons.PMonoid (GHC.Maybe.Maybe a)
instance Data.Monoid.Singletons.PMonoid GHC.Types.Ordering
instance Data.Monoid.Singletons.PMonoid (Data.Semigroup.Internal.Product a)
instance Data.Monoid.Singletons.PMonoid (Data.Semigroup.Internal.Sum a)
instance Data.Monoid.Singletons.PMonoid GHC.Types.Symbol
instance Data.Monoid.Singletons.PMonoid (a, b)
instance Data.Monoid.Singletons.PMonoid (a, b, c)
instance Data.Monoid.Singletons.PMonoid (a, b, c, d)
instance Data.Monoid.Singletons.PMonoid (a, b, c, d, e)
instance Data.Monoid.Singletons.PMonoid ()
instance Data.Ord.Singletons.POrd (Data.Monoid.First a)
instance Data.Ord.Singletons.POrd (Data.Monoid.Last a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Monoid.First a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Monoid.Last a)
instance Text.Show.Singletons.PShow (Data.Monoid.First a)
instance Text.Show.Singletons.PShow (Data.Monoid.Last a)
instance Control.Monad.Singletons.Internal.SApplicative Data.Monoid.First
instance Control.Monad.Singletons.Internal.SApplicative Data.Monoid.Last
instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Singletons.Decide.SDecide (Data.Monoid.First a)
instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Singletons.Decide.SDecide (Data.Monoid.Last a)
instance Data.Eq.Singletons.SEq (GHC.Maybe.Maybe a) => Data.Eq.Singletons.SEq (Data.Monoid.First a)
instance Data.Eq.Singletons.SEq (GHC.Maybe.Maybe a) => Data.Eq.Singletons.SEq (Data.Monoid.Last a)
instance Control.Monad.Singletons.Internal.SFunctor Data.Monoid.First
instance Control.Monad.Singletons.Internal.SFunctor Data.Monoid.Last
instance Control.Monad.Singletons.Internal.SMonad Data.Monoid.First
instance Control.Monad.Singletons.Internal.SMonad Data.Monoid.Last
instance Data.Monoid.Singletons.SMonoid Data.Semigroup.Internal.All
instance Data.Monoid.Singletons.SMonoid Data.Semigroup.Internal.Any
instance Data.Monoid.Singletons.SMonoid a => Data.Monoid.Singletons.SMonoid (Data.Ord.Down a)
instance Data.Monoid.Singletons.SMonoid a => Data.Monoid.Singletons.SMonoid (Data.Semigroup.Internal.Dual a)
instance Data.Monoid.Singletons.SMonoid b => Data.Monoid.Singletons.SMonoid (a Data.Singletons.~> b)
instance Data.Monoid.Singletons.SMonoid (Data.Monoid.First a)
instance Data.Monoid.Singletons.SMonoid (Data.Monoid.Last a)
instance Data.Monoid.Singletons.SMonoid [a]
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup a => Data.Monoid.Singletons.SMonoid (GHC.Maybe.Maybe a)
instance Data.Monoid.Singletons.SMonoid GHC.Types.Ordering
instance GHC.Num.Singletons.SNum a => Data.Monoid.Singletons.SMonoid (Data.Semigroup.Internal.Product a)
instance GHC.Num.Singletons.SNum a => Data.Monoid.Singletons.SMonoid (Data.Semigroup.Internal.Sum a)
instance Data.Monoid.Singletons.SMonoid GHC.Types.Symbol
instance (Data.Monoid.Singletons.SMonoid a, Data.Monoid.Singletons.SMonoid b) => Data.Monoid.Singletons.SMonoid (a, b)
instance (Data.Monoid.Singletons.SMonoid a, Data.Monoid.Singletons.SMonoid b, Data.Monoid.Singletons.SMonoid c) => Data.Monoid.Singletons.SMonoid (a, b, c)
instance (Data.Monoid.Singletons.SMonoid a, Data.Monoid.Singletons.SMonoid b, Data.Monoid.Singletons.SMonoid c, Data.Monoid.Singletons.SMonoid d) => Data.Monoid.Singletons.SMonoid (a, b, c, d)
instance (Data.Monoid.Singletons.SMonoid a, Data.Monoid.Singletons.SMonoid b, Data.Monoid.Singletons.SMonoid c, Data.Monoid.Singletons.SMonoid d, Data.Monoid.Singletons.SMonoid e) => Data.Monoid.Singletons.SMonoid (a, b, c, d, e)
instance Data.Monoid.Singletons.SMonoid ()
instance Data.Ord.Singletons.SOrd (GHC.Maybe.Maybe a) => Data.Ord.Singletons.SOrd (Data.Monoid.First a)
instance Data.Ord.Singletons.SOrd (GHC.Maybe.Maybe a) => Data.Ord.Singletons.SOrd (Data.Monoid.Last a)
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Monoid.First a)
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Monoid.Last a)
instance Text.Show.Singletons.SShow (GHC.Maybe.Maybe a) => Text.Show.Singletons.SShow (Data.Monoid.First a)
instance Text.Show.Singletons.SShow (GHC.Maybe.Maybe a) => Text.Show.Singletons.SShow (Data.Monoid.Last a)
instance forall a (z :: Data.Monoid.First a). Data.Singletons.ShowSing.ShowSing (GHC.Maybe.Maybe a) => GHC.Show.Show (Data.Monoid.Singletons.SFirst z)
instance forall a (z :: Data.Monoid.Last a). Data.Singletons.ShowSing.ShowSing (GHC.Maybe.Maybe a) => GHC.Show.Show (Data.Monoid.Singletons.SLast z)
instance Data.Singletons.SingI1 'Data.Monoid.First
instance Data.Singletons.SingI1 'Data.Monoid.Last
instance Data.Monoid.Singletons.SMonoid a => Data.Singletons.SingI1 Data.Monoid.Singletons.MappendSym1
instance Data.Singletons.SingI Data.Monoid.Singletons.FirstSym0
instance Data.Singletons.SingI Data.Monoid.Singletons.GetFirstSym0
instance Data.Singletons.SingI Data.Monoid.Singletons.GetLastSym0
instance Data.Singletons.SingI Data.Monoid.Singletons.LastSym0
instance Data.Monoid.Singletons.SMonoid a => Data.Singletons.SingI Data.Monoid.Singletons.MappendSym0
instance forall a (d :: a). (Data.Monoid.Singletons.SMonoid a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Monoid.Singletons.MappendSym1 d)
instance Data.Monoid.Singletons.SMonoid a => Data.Singletons.SingI Data.Monoid.Singletons.MconcatSym0
instance forall a (n :: GHC.Maybe.Maybe a). Data.Singletons.SingI n => Data.Singletons.SingI ('Data.Monoid.First n)
instance forall a (n :: GHC.Maybe.Maybe a). Data.Singletons.SingI n => Data.Singletons.SingI ('Data.Monoid.Last n)
instance Data.Singletons.SingKind a => Data.Singletons.SingKind (Data.Monoid.First a)
instance Data.Singletons.SingKind a => Data.Singletons.SingKind (Data.Monoid.Last a)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Compare_6989586621680300164Sym0
instance forall a (a6989586621680300169 :: Data.Monoid.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Compare_6989586621680300164Sym1 a6989586621680300169)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Compare_6989586621680300182Sym0
instance forall a (a6989586621680300187 :: Data.Monoid.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Compare_6989586621680300182Sym1 a6989586621680300187)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.FirstSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Fmap_6989586621680306394Sym0
instance forall a b (a6989586621680306399 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Fmap_6989586621680306394Sym1 a6989586621680306399)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Fmap_6989586621680306561Sym0
instance forall a b (a6989586621680306566 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Fmap_6989586621680306561Sym1 a6989586621680306566)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.GetFirstSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.GetLastSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Lambda_6989586621680292363Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Lambda_6989586621680306473Sym0
instance forall k k1 a (a6989586621680306471 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Lambda_6989586621680306473Sym1 a6989586621680306471)
instance forall k k1 a (a6989586621680306471 :: k) (k6989586621680306472 :: k1 Data.Singletons.~> Data.Monoid.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Lambda_6989586621680306473Sym2 a6989586621680306471 k6989586621680306472)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Lambda_6989586621680306592Sym0
instance forall k k1 a (a6989586621680306590 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Lambda_6989586621680306592Sym1 a6989586621680306590)
instance forall k k1 a (a6989586621680306590 :: k) (k6989586621680306591 :: k1 Data.Singletons.~> Data.Monoid.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Lambda_6989586621680306592Sym2 a6989586621680306590 k6989586621680306591)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.LastSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Let6989586621680306476Scrutinee_6989586621680306013Sym0
instance forall k1 k2 k3 (x6989586621680306475 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Let6989586621680306476Scrutinee_6989586621680306013Sym1 x6989586621680306475)
instance forall k1 k2 k3 (x6989586621680306475 :: k1) (a6989586621680306471 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Let6989586621680306476Scrutinee_6989586621680306013Sym2 x6989586621680306475 a6989586621680306471)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Let6989586621680306534ASym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Let6989586621680306595Scrutinee_6989586621680306020Sym0
instance forall k1 k2 k3 (x6989586621680306594 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Let6989586621680306595Scrutinee_6989586621680306020Sym1 x6989586621680306594)
instance forall k1 k2 k3 (x6989586621680306594 :: k1) (a6989586621680306590 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Let6989586621680306595Scrutinee_6989586621680306020Sym2 x6989586621680306594 a6989586621680306590)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Let6989586621680306613BSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.MappendSym0
instance forall a (a6989586621680292326 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.MappendSym1 a6989586621680292326)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Mappend_6989586621680292333Sym0
instance forall a (a6989586621680292342 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.Mappend_6989586621680292333Sym1 a6989586621680292342)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.MconcatSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Mconcat_6989586621680292347Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Mconcat_6989586621680292374Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Pure_6989586621680306313Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.Pure_6989586621680306540Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.ShowsPrec_6989586621680302122Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.ShowsPrec_6989586621680302122Sym1 a6989586621680302130)
instance forall a (a6989586621680302130 :: GHC.Num.Natural.Natural) (a6989586621680302131 :: Data.Monoid.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.ShowsPrec_6989586621680302122Sym2 a6989586621680302130 a6989586621680302131)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.ShowsPrec_6989586621680302167Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.ShowsPrec_6989586621680302167Sym1 a6989586621680302175)
instance forall a (a6989586621680302175 :: GHC.Num.Natural.Natural) (a6989586621680302176 :: Data.Monoid.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.ShowsPrec_6989586621680302167Sym2 a6989586621680302175 a6989586621680302176)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680298408Sym0
instance forall a (a6989586621680298413 :: Data.Monoid.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680298408Sym1 a6989586621680298413)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680298426Sym0
instance forall a (a6989586621680298431 :: Data.Monoid.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680298426Sym1 a6989586621680298431)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680306323Sym0
instance forall a b (a6989586621680306328 :: Data.Monoid.First (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680306323Sym1 a6989586621680306328)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680306405Sym0
instance forall a b (a6989586621680306410 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680306405Sym1 a6989586621680306410)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680306464Sym0
instance forall a b (a6989586621680306469 :: Data.Monoid.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680306464Sym1 a6989586621680306469)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680306525Sym0
instance forall a (a6989586621680306530 :: Data.Monoid.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680306525Sym1 a6989586621680306530)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680306550Sym0
instance forall a b (a6989586621680306555 :: Data.Monoid.Last (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680306550Sym1 a6989586621680306555)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680306572Sym0
instance forall a b (a6989586621680306577 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680306572Sym1 a6989586621680306577)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680306583Sym0
instance forall a b (a6989586621680306588 :: Data.Monoid.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680306583Sym1 a6989586621680306588)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Monoid.Singletons.TFHelper_6989586621680306604Sym0
instance forall a (a6989586621680306609 :: Data.Monoid.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Monoid.Singletons.TFHelper_6989586621680306604Sym1 a6989586621680306609)
instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Type.Coercion.TestCoercion Data.Monoid.Singletons.SFirst
instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Type.Coercion.TestCoercion Data.Monoid.Singletons.SLast
instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Type.Equality.TestEquality Data.Monoid.Singletons.SFirst
instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Type.Equality.TestEquality Data.Monoid.Singletons.SLast
-- | Exports promoted and singled versions of the definitions in
-- Data.Proxy.
module Data.Proxy.Singletons
type family Sing :: k -> Type
data SProxy (a :: Proxy t)
[SProxy] :: forall {k} (t :: k). SProxy ('Proxy :: Proxy t)
type family AsProxyTypeOf (a1 :: a) (a2 :: proxy a) :: a
sAsProxyTypeOf :: forall a (proxy :: Type -> Type) (t1 :: a) (t2 :: proxy a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (AsProxyTypeOfSym0 :: TyFun a (proxy a ~> a) -> Type) t1) t2)
type family ProxySym0 :: Proxy t
data AsProxyTypeOfSym0 (a1 :: TyFun a proxy a ~> a)
data AsProxyTypeOfSym1 (a6989586621680355908 :: a) (b :: TyFun proxy a a)
type family AsProxyTypeOfSym2 (a6989586621680355908 :: a) (a6989586621680355909 :: proxy a) :: a
instance forall k (t :: k) (z :: Data.Proxy.Proxy t). GHC.Classes.Eq (Data.Proxy.Singletons.SProxy z)
instance forall k (t :: k) (z :: Data.Proxy.Proxy t). GHC.Classes.Ord (Data.Proxy.Singletons.SProxy z)
instance Control.Monad.Singletons.Internal.PAlternative Data.Proxy.Proxy
instance Control.Monad.Singletons.Internal.PApplicative Data.Proxy.Proxy
instance forall k (s :: k). Data.Singletons.Base.Enum.PBounded (Data.Proxy.Proxy s)
instance forall k (s :: k). Data.Singletons.Base.Enum.PEnum (Data.Proxy.Proxy s)
instance forall k (s :: k). Data.Eq.Singletons.PEq (Data.Proxy.Proxy s)
instance Control.Monad.Singletons.Internal.PFunctor Data.Proxy.Proxy
instance Control.Monad.Singletons.Internal.PMonadPlus Data.Proxy.Proxy
instance Control.Monad.Singletons.Internal.PMonad Data.Proxy.Proxy
instance forall k (s :: k). Data.Monoid.Singletons.PMonoid (Data.Proxy.Proxy s)
instance forall k (s :: k). Data.Ord.Singletons.POrd (Data.Proxy.Proxy s)
instance forall k (s :: k). Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Proxy.Proxy s)
instance forall k (s :: k). Text.Show.Singletons.PShow (Data.Proxy.Proxy s)
instance Control.Monad.Singletons.Internal.SAlternative Data.Proxy.Proxy
instance Control.Monad.Singletons.Internal.SApplicative Data.Proxy.Proxy
instance forall k (s :: k). Data.Singletons.Base.Enum.SBounded (Data.Proxy.Proxy s)
instance forall k (t :: k). Data.Singletons.Decide.SDecide (Data.Proxy.Proxy t)
instance forall k (s :: k). Data.Singletons.Base.Enum.SEnum (Data.Proxy.Proxy s)
instance forall k (s :: k). Data.Eq.Singletons.SEq (Data.Proxy.Proxy s)
instance Control.Monad.Singletons.Internal.SFunctor Data.Proxy.Proxy
instance Control.Monad.Singletons.Internal.SMonadPlus Data.Proxy.Proxy
instance Control.Monad.Singletons.Internal.SMonad Data.Proxy.Proxy
instance forall k (s :: k). Data.Monoid.Singletons.SMonoid (Data.Proxy.Proxy s)
instance forall k (s :: k). Data.Ord.Singletons.SOrd (Data.Proxy.Proxy s)
instance forall k (s :: k). Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Proxy.Proxy s)
instance forall k (s :: k). Text.Show.Singletons.SShow (Data.Proxy.Proxy s)
instance forall k (t :: k) (z :: Data.Proxy.Proxy t). GHC.Show.Show (Data.Proxy.Singletons.SProxy z)
instance Data.Singletons.SingI1 Data.Proxy.Singletons.AsProxyTypeOfSym1
instance Data.Singletons.SingI Data.Proxy.Singletons.AsProxyTypeOfSym0
instance forall a (d :: a) (proxy :: * -> *). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Proxy.Singletons.AsProxyTypeOfSym1 d)
instance forall k (t :: k). Data.Singletons.SingI 'Data.Proxy.Proxy
instance forall k (t :: k). Data.Singletons.SingKind (Data.Proxy.Proxy t)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.AsProxyTypeOfSym0
instance forall a (proxy :: * -> *) (a6989586621680355908 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.AsProxyTypeOfSym1 a6989586621680355908)
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.Compare_6989586621680356043Sym0
instance forall k (s :: k) (a6989586621680356048 :: Data.Proxy.Proxy s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.Compare_6989586621680356043Sym1 a6989586621680356048)
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.EnumFromThenTo_6989586621680356171Sym0
instance forall k (s :: k) (a6989586621680356177 :: Data.Proxy.Proxy s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.EnumFromThenTo_6989586621680356171Sym1 a6989586621680356177)
instance forall k (s :: k) (a6989586621680356177 :: Data.Proxy.Proxy s) (a6989586621680356178 :: Data.Proxy.Proxy s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.EnumFromThenTo_6989586621680356171Sym2 a6989586621680356177 a6989586621680356178)
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.EnumFromTo_6989586621680356182Sym0
instance forall k (s :: k) (a6989586621680356187 :: Data.Proxy.Proxy s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.EnumFromTo_6989586621680356182Sym1 a6989586621680356187)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.Fmap_6989586621680356463Sym0
instance forall a b (a6989586621680356468 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.Fmap_6989586621680356463Sym1 a6989586621680356468)
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.FromEnum_6989586621680356151Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.Let6989586621680356163Scrutinee_6989586621680355161Sym0
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.Mconcat_6989586621680356416Sym0
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.Pred_6989586621680356145Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.Pure_6989586621680356531Sym0
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.Sconcat_6989586621680356219Sym0
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.ShowsPrec_6989586621680356081Sym0
instance forall k (s :: k) (a6989586621680356089 :: GHC.Num.Natural.Natural). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.ShowsPrec_6989586621680356081Sym1 a6989586621680356089)
instance forall k (s :: k) (a6989586621680356089 :: GHC.Num.Natural.Natural) (a6989586621680356090 :: Data.Proxy.Proxy s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.ShowsPrec_6989586621680356081Sym2 a6989586621680356089 a6989586621680356090)
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.Succ_6989586621680356139Sym0
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.TFHelper_6989586621680355982Sym0
instance forall k (s :: k) (a6989586621680355987 :: Data.Proxy.Proxy s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.TFHelper_6989586621680355982Sym1 a6989586621680355987)
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.TFHelper_6989586621680356211Sym0
instance forall k (s :: k) (a6989586621680356216 :: Data.Proxy.Proxy s). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.TFHelper_6989586621680356211Sym1 a6989586621680356216)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.TFHelper_6989586621680356538Sym0
instance forall a b (a6989586621680356543 :: Data.Proxy.Proxy (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.TFHelper_6989586621680356538Sym1 a6989586621680356543)
instance forall k (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.TFHelper_6989586621680356574Sym0
instance forall k (a :: k) (a6989586621680356579 :: Data.Proxy.Proxy a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.TFHelper_6989586621680356574Sym1 a6989586621680356579)
instance forall a k (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.TFHelper_6989586621680356615Sym0
instance forall a k (b :: k) (a6989586621680356620 :: Data.Proxy.Proxy a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Proxy.Singletons.TFHelper_6989586621680356615Sym1 a6989586621680356620)
instance forall k (s :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Proxy.Singletons.ToEnum_6989586621680356157Sym0
instance forall k (t :: k). Data.Type.Coercion.TestCoercion Data.Proxy.Singletons.SProxy
instance forall k (t :: k). Data.Type.Equality.TestEquality Data.Proxy.Singletons.SProxy
-- | Defines the promoted and singled versions of the Foldable type
-- class.
module Data.Foldable.Singletons
class PFoldable (t :: Type -> Type) where {
type Fold (arg :: t m) :: m;
type FoldMap (arg :: a ~> m) (arg1 :: t a) :: m;
type Foldr (arg :: a ~> b ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldr' (arg :: a ~> b ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldl (arg :: b ~> a ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldl' (arg :: b ~> a ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldr1 (arg :: a ~> a ~> a) (arg1 :: t a) :: a;
type Foldl1 (arg :: a ~> a ~> a) (arg1 :: t a) :: a;
type ToList (arg :: t a) :: [a];
type Null (arg :: t a) :: Bool;
type Length (arg :: t a) :: Natural;
type Elem (arg :: a) (arg1 :: t a) :: Bool;
type Maximum (arg :: t a) :: a;
type Minimum (arg :: t a) :: a;
type Sum (arg :: t a) :: a;
type Product (arg :: t a) :: a;
type Fold arg :: t m = Apply Fold_6989586621680390454Sym0 :: TyFun t m m -> Type arg;
type FoldMap arg :: a ~> m arg1 :: t a = Apply Apply FoldMap_6989586621680390464Sym0 :: TyFun a ~> m t a ~> m -> Type arg arg1;
type Foldr arg :: a ~> b ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldr_6989586621680390478Sym0 :: TyFun a ~> b ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldr' arg :: a ~> b ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldr'_6989586621680390493Sym0 :: TyFun a ~> b ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldl arg :: b ~> a ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldl_6989586621680390516Sym0 :: TyFun b ~> a ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldl' arg :: b ~> a ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldl'_6989586621680390531Sym0 :: TyFun b ~> a ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldr1 arg :: a ~> a ~> a arg1 :: t a = Apply Apply Foldr1_6989586621680390553Sym0 :: TyFun a ~> a ~> a t a ~> a -> Type arg arg1;
type Foldl1 arg :: a ~> a ~> a arg1 :: t a = Apply Apply Foldl1_6989586621680390574Sym0 :: TyFun a ~> a ~> a t a ~> a -> Type arg arg1;
type ToList arg :: t a = Apply ToList_6989586621680390594Sym0 :: TyFun t a [a] -> Type arg;
type Null arg :: t a = Apply Null_6989586621680390603Sym0 :: TyFun t a Bool -> Type arg;
type Length arg :: t a = Apply Length_6989586621680390620Sym0 :: TyFun t a Natural -> Type arg;
type Elem arg :: a arg1 :: t a = Apply Apply Elem_6989586621680390639Sym0 :: TyFun a t a ~> Bool -> Type arg arg1;
type Maximum arg :: t a = Apply Maximum_6989586621680390653Sym0 :: TyFun t a a -> Type arg;
type Minimum arg :: t a = Apply Minimum_6989586621680390668Sym0 :: TyFun t a a -> Type arg;
type Sum arg :: t a = Apply Sum_6989586621680390683Sym0 :: TyFun t a a -> Type arg;
type Product arg :: t a = Apply Product_6989586621680390692Sym0 :: TyFun t a a -> Type arg;
}
class SFoldable (t :: Type -> Type)
sFold :: forall m (t1 :: t m). (SFoldable t, SMonoid m) => Sing t1 -> Sing (Apply (FoldSym0 :: TyFun (t m) m -> Type) t1)
($dmsFold) :: forall m (t1 :: t m). (SFoldable t, Apply (FoldSym0 :: TyFun (t m) m -> Type) t1 ~ Apply (Fold_6989586621680390454Sym0 :: TyFun (t m) m -> Type) t1, SMonoid m) => Sing t1 -> Sing (Apply (FoldSym0 :: TyFun (t m) m -> Type) t1)
sFoldMap :: forall a m (t1 :: a ~> m) (t2 :: t a). (SFoldable t, SMonoid m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2)
($dmsFoldMap) :: forall a m (t1 :: a ~> m) (t2 :: t a). (SFoldable t, Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2 ~ Apply (Apply (FoldMap_6989586621680390464Sym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2, SMonoid m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2)
sFoldr :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldr) :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldr_6989586621680390478Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldr' :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldr'Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldr') :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (Foldr'Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldr'_6989586621680390493Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldr'Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldl :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldl) :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldl_6989586621680390516Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldl' :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldl'Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldl') :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (Foldl'Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldl'_6989586621680390531Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldl'Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldr1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
($dmsFoldr1) :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). (SFoldable t, Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2 ~ Apply (Apply (Foldr1_6989586621680390553Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
sFoldl1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
($dmsFoldl1) :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). (SFoldable t, Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2 ~ Apply (Apply (Foldl1_6989586621680390574Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
sToList :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (ToListSym0 :: TyFun (t a) [a] -> Type) t1)
($dmsToList) :: forall a (t1 :: t a). (SFoldable t, Apply (ToListSym0 :: TyFun (t a) [a] -> Type) t1 ~ Apply (ToList_6989586621680390594Sym0 :: TyFun (t a) [a] -> Type) t1) => Sing t1 -> Sing (Apply (ToListSym0 :: TyFun (t a) [a] -> Type) t1)
sNull :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (NullSym0 :: TyFun (t a) Bool -> Type) t1)
($dmsNull) :: forall a (t1 :: t a). (SFoldable t, Apply (NullSym0 :: TyFun (t a) Bool -> Type) t1 ~ Apply (Null_6989586621680390603Sym0 :: TyFun (t a) Bool -> Type) t1) => Sing t1 -> Sing (Apply (NullSym0 :: TyFun (t a) Bool -> Type) t1)
sLength :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (LengthSym0 :: TyFun (t a) Natural -> Type) t1)
($dmsLength) :: forall a (t1 :: t a). (SFoldable t, Apply (LengthSym0 :: TyFun (t a) Natural -> Type) t1 ~ Apply (Length_6989586621680390620Sym0 :: TyFun (t a) Natural -> Type) t1) => Sing t1 -> Sing (Apply (LengthSym0 :: TyFun (t a) Natural -> Type) t1)
sElem :: forall a (t1 :: a) (t2 :: t a). (SFoldable t, SEq a) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2)
($dmsElem) :: forall a (t1 :: a) (t2 :: t a). (SFoldable t, Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (Elem_6989586621680390639Sym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2, SEq a) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2)
sMaximum :: forall a (t1 :: t a). (SFoldable t, SOrd a) => Sing t1 -> Sing (Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1)
($dmsMaximum) :: forall a (t1 :: t a). (SFoldable t, Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Maximum_6989586621680390653Sym0 :: TyFun (t a) a -> Type) t1, SOrd a) => Sing t1 -> Sing (Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1)
sMinimum :: forall a (t1 :: t a). (SFoldable t, SOrd a) => Sing t1 -> Sing (Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1)
($dmsMinimum) :: forall a (t1 :: t a). (SFoldable t, Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Minimum_6989586621680390668Sym0 :: TyFun (t a) a -> Type) t1, SOrd a) => Sing t1 -> Sing (Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1)
sSum :: forall a (t1 :: t a). (SFoldable t, SNum a) => Sing t1 -> Sing (Apply (SumSym0 :: TyFun (t a) a -> Type) t1)
($dmsSum) :: forall a (t1 :: t a). (SFoldable t, Apply (SumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Sum_6989586621680390683Sym0 :: TyFun (t a) a -> Type) t1, SNum a) => Sing t1 -> Sing (Apply (SumSym0 :: TyFun (t a) a -> Type) t1)
sProduct :: forall a (t1 :: t a). (SFoldable t, SNum a) => Sing t1 -> Sing (Apply (ProductSym0 :: TyFun (t a) a -> Type) t1)
($dmsProduct) :: forall a (t1 :: t a). (SFoldable t, Apply (ProductSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Product_6989586621680390692Sym0 :: TyFun (t a) a -> Type) t1, SNum a) => Sing t1 -> Sing (Apply (ProductSym0 :: TyFun (t a) a -> Type) t1)
type family FoldrM (a1 :: a ~> b ~> m b) (a2 :: b) (a3 :: t a) :: m b
sFoldrM :: forall a b (m :: Type -> Type) (t1 :: Type -> Type) (t2 :: a ~> (b ~> m b)) (t3 :: b) (t4 :: t1 a). (SFoldable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (FoldrMSym0 :: TyFun (a ~> (b ~> m b)) (b ~> (t1 a ~> m b)) -> Type) t2) t3) t4)
type family FoldlM (a1 :: b ~> a ~> m b) (a2 :: b) (a3 :: t a) :: m b
sFoldlM :: forall b a (m :: Type -> Type) (t1 :: Type -> Type) (t2 :: b ~> (a ~> m b)) (t3 :: b) (t4 :: t1 a). (SFoldable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (FoldlMSym0 :: TyFun (b ~> (a ~> m b)) (b ~> (t1 a ~> m b)) -> Type) t2) t3) t4)
type family Traverse_ (a1 :: a ~> f b) (a2 :: t a) :: f ()
sTraverse_ :: forall a (f :: Type -> Type) b (t1 :: Type -> Type) (t2 :: a ~> f b) (t3 :: t1 a). (SFoldable t1, SApplicative f) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (Traverse_Sym0 :: TyFun (a ~> f b) (t1 a ~> f ()) -> Type) t2) t3)
type family For_ (a1 :: t a) (a2 :: a ~> f b) :: f ()
sFor_ :: forall (t1 :: Type -> Type) a (f :: Type -> Type) b (t2 :: t1 a) (t3 :: a ~> f b). (SFoldable t1, SApplicative f) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (For_Sym0 :: TyFun (t1 a) ((a ~> f b) ~> f ()) -> Type) t2) t3)
type family SequenceA_ (a1 :: t f a) :: f ()
sSequenceA_ :: forall (t1 :: Type -> Type) (f :: Type -> Type) a (t2 :: t1 (f a)). (SFoldable t1, SApplicative f) => Sing t2 -> Sing (Apply (SequenceA_Sym0 :: TyFun (t1 (f a)) (f ()) -> Type) t2)
type family Asum (a1 :: t f a) :: f a
sAsum :: forall (t1 :: Type -> Type) (f :: Type -> Type) a (t2 :: t1 (f a)). (SFoldable t1, SAlternative f) => Sing t2 -> Sing (Apply (AsumSym0 :: TyFun (t1 (f a)) (f a) -> Type) t2)
type family MapM_ (a1 :: a ~> m b) (a2 :: t a) :: m ()
sMapM_ :: forall a (m :: Type -> Type) b (t1 :: Type -> Type) (t2 :: a ~> m b) (t3 :: t1 a). (SFoldable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (MapM_Sym0 :: TyFun (a ~> m b) (t1 a ~> m ()) -> Type) t2) t3)
type family ForM_ (a1 :: t a) (a2 :: a ~> m b) :: m ()
sForM_ :: forall (t1 :: Type -> Type) a (m :: Type -> Type) b (t2 :: t1 a) (t3 :: a ~> m b). (SFoldable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (ForM_Sym0 :: TyFun (t1 a) ((a ~> m b) ~> m ()) -> Type) t2) t3)
type family Sequence_ (a1 :: t m a) :: m ()
sSequence_ :: forall (t1 :: Type -> Type) (m :: Type -> Type) a (t2 :: t1 (m a)). (SFoldable t1, SMonad m) => Sing t2 -> Sing (Apply (Sequence_Sym0 :: TyFun (t1 (m a)) (m ()) -> Type) t2)
type family Msum (a1 :: t m a) :: m a
sMsum :: forall (t1 :: Type -> Type) (m :: Type -> Type) a (t2 :: t1 (m a)). (SFoldable t1, SMonadPlus m) => Sing t2 -> Sing (Apply (MsumSym0 :: TyFun (t1 (m a)) (m a) -> Type) t2)
type family Concat (a1 :: t [a]) :: [a]
sConcat :: forall (t1 :: Type -> Type) a (t2 :: t1 [a]). SFoldable t1 => Sing t2 -> Sing (Apply (ConcatSym0 :: TyFun (t1 [a]) [a] -> Type) t2)
type family ConcatMap (a1 :: a ~> [b]) (a2 :: t a) :: [b]
sConcatMap :: forall a b (t1 :: Type -> Type) (t2 :: a ~> [b]) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (ConcatMapSym0 :: TyFun (a ~> [b]) (t1 a ~> [b]) -> Type) t2) t3)
type family And (a :: t Bool) :: Bool
sAnd :: forall (t1 :: Type -> Type) (t2 :: t1 Bool). SFoldable t1 => Sing t2 -> Sing (Apply (AndSym0 :: TyFun (t1 Bool) Bool -> Type) t2)
type family Or (a :: t Bool) :: Bool
sOr :: forall (t1 :: Type -> Type) (t2 :: t1 Bool). SFoldable t1 => Sing t2 -> Sing (Apply (OrSym0 :: TyFun (t1 Bool) Bool -> Type) t2)
type family Any (a1 :: a ~> Bool) (a2 :: t a) :: Bool
sAny :: forall a (t1 :: Type -> Type) (t2 :: a ~> Bool) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (AnySym0 :: TyFun (a ~> Bool) (t1 a ~> Bool) -> Type) t2) t3)
type family All (a1 :: a ~> Bool) (a2 :: t a) :: Bool
sAll :: forall a (t1 :: Type -> Type) (t2 :: a ~> Bool) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (AllSym0 :: TyFun (a ~> Bool) (t1 a ~> Bool) -> Type) t2) t3)
type family MaximumBy (a1 :: a ~> a ~> Ordering) (a2 :: t a) :: a
sMaximumBy :: forall a (t1 :: Type -> Type) (t2 :: a ~> (a ~> Ordering)) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (MaximumBySym0 :: TyFun (a ~> (a ~> Ordering)) (t1 a ~> a) -> Type) t2) t3)
type family MinimumBy (a1 :: a ~> a ~> Ordering) (a2 :: t a) :: a
sMinimumBy :: forall a (t1 :: Type -> Type) (t2 :: a ~> (a ~> Ordering)) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (MinimumBySym0 :: TyFun (a ~> (a ~> Ordering)) (t1 a ~> a) -> Type) t2) t3)
type family NotElem (a1 :: a) (a2 :: t a) :: Bool
sNotElem :: forall a (t1 :: Type -> Type) (t2 :: a) (t3 :: t1 a). (SFoldable t1, SEq a) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (NotElemSym0 :: TyFun a (t1 a ~> Bool) -> Type) t2) t3)
type family Find (a1 :: a ~> Bool) (a2 :: t a) :: Maybe a
sFind :: forall a (t1 :: Type -> Type) (t2 :: a ~> Bool) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (FindSym0 :: TyFun (a ~> Bool) (t1 a ~> Maybe a) -> Type) t2) t3)
data FoldSym0 (a :: TyFun t m m)
type family FoldSym1 (a6989586621680390383 :: t m) :: m
data FoldMapSym0 (a1 :: TyFun a ~> m t a ~> m)
data FoldMapSym1 (a6989586621680390387 :: a ~> m) (b :: TyFun t a m)
type family FoldMapSym2 (a6989586621680390387 :: a ~> m) (a6989586621680390388 :: t a) :: m
data FoldrSym0 (a1 :: TyFun a ~> b ~> b b ~> t a ~> b)
data FoldrSym1 (a6989586621680390393 :: a ~> b ~> b) (b1 :: TyFun b t a ~> b)
data FoldrSym2 (a6989586621680390393 :: a ~> b ~> b) (a6989586621680390394 :: b) (c :: TyFun t a b)
type family FoldrSym3 (a6989586621680390393 :: a ~> b ~> b) (a6989586621680390394 :: b) (a6989586621680390395 :: t a) :: b
data Foldr'Sym0 (a1 :: TyFun a ~> b ~> b b ~> t a ~> b)
data Foldr'Sym1 (a6989586621680390400 :: a ~> b ~> b) (b1 :: TyFun b t a ~> b)
data Foldr'Sym2 (a6989586621680390400 :: a ~> b ~> b) (a6989586621680390401 :: b) (c :: TyFun t a b)
type family Foldr'Sym3 (a6989586621680390400 :: a ~> b ~> b) (a6989586621680390401 :: b) (a6989586621680390402 :: t a) :: b
data FoldlSym0 (a1 :: TyFun b ~> a ~> b b ~> t a ~> b)
data FoldlSym1 (a6989586621680390407 :: b ~> a ~> b) (b1 :: TyFun b t a ~> b)
data FoldlSym2 (a6989586621680390407 :: b ~> a ~> b) (a6989586621680390408 :: b) (c :: TyFun t a b)
type family FoldlSym3 (a6989586621680390407 :: b ~> a ~> b) (a6989586621680390408 :: b) (a6989586621680390409 :: t a) :: b
data Foldl'Sym0 (a1 :: TyFun b ~> a ~> b b ~> t a ~> b)
data Foldl'Sym1 (a6989586621680390414 :: b ~> a ~> b) (b1 :: TyFun b t a ~> b)
data Foldl'Sym2 (a6989586621680390414 :: b ~> a ~> b) (a6989586621680390415 :: b) (c :: TyFun t a b)
type family Foldl'Sym3 (a6989586621680390414 :: b ~> a ~> b) (a6989586621680390415 :: b) (a6989586621680390416 :: t a) :: b
data Foldr1Sym0 (a1 :: TyFun a ~> a ~> a t a ~> a)
data Foldr1Sym1 (a6989586621680390420 :: a ~> a ~> a) (b :: TyFun t a a)
type family Foldr1Sym2 (a6989586621680390420 :: a ~> a ~> a) (a6989586621680390421 :: t a) :: a
data Foldl1Sym0 (a1 :: TyFun a ~> a ~> a t a ~> a)
data Foldl1Sym1 (a6989586621680390425 :: a ~> a ~> a) (b :: TyFun t a a)
type family Foldl1Sym2 (a6989586621680390425 :: a ~> a ~> a) (a6989586621680390426 :: t a) :: a
data ToListSym0 (a1 :: TyFun t a [a])
type family ToListSym1 (a6989586621680390429 :: t a) :: [a]
data NullSym0 (a1 :: TyFun t a Bool)
type family NullSym1 (a6989586621680390432 :: t a) :: Bool
data LengthSym0 (a1 :: TyFun t a Natural)
type family LengthSym1 (a6989586621680390435 :: t a) :: Natural
data ElemSym0 (a1 :: TyFun a t a ~> Bool)
data ElemSym1 (a6989586621680390439 :: a) (b :: TyFun t a Bool)
type family ElemSym2 (a6989586621680390439 :: a) (a6989586621680390440 :: t a) :: Bool
data MaximumSym0 (a1 :: TyFun t a a)
type family MaximumSym1 (a6989586621680390443 :: t a) :: a
data MinimumSym0 (a1 :: TyFun t a a)
type family MinimumSym1 (a6989586621680390446 :: t a) :: a
data SumSym0 (a1 :: TyFun t a a)
type family SumSym1 (a6989586621680390449 :: t a) :: a
data ProductSym0 (a1 :: TyFun t a a)
type family ProductSym1 (a6989586621680390452 :: t a) :: a
data FoldrMSym0 (a1 :: TyFun a ~> b ~> m b b ~> t a ~> m b)
data FoldrMSym1 (a6989586621680390367 :: a ~> b ~> m b) (b1 :: TyFun b t a ~> m b)
data FoldrMSym2 (a6989586621680390367 :: a ~> b ~> m b) (a6989586621680390368 :: b) (c :: TyFun t a m b)
type family FoldrMSym3 (a6989586621680390367 :: a ~> b ~> m b) (a6989586621680390368 :: b) (a6989586621680390369 :: t a) :: m b
data FoldlMSym0 (a1 :: TyFun b ~> a ~> m b b ~> t a ~> m b)
data FoldlMSym1 (a6989586621680390349 :: b ~> a ~> m b) (b1 :: TyFun b t a ~> m b)
data FoldlMSym2 (a6989586621680390349 :: b ~> a ~> m b) (a6989586621680390350 :: b) (c :: TyFun t a m b)
type family FoldlMSym3 (a6989586621680390349 :: b ~> a ~> m b) (a6989586621680390350 :: b) (a6989586621680390351 :: t a) :: m b
data Traverse_Sym0 (a1 :: TyFun a ~> f b t a ~> f ())
data Traverse_Sym1 (a6989586621680390341 :: a ~> f b) (b1 :: TyFun t a f ())
type family Traverse_Sym2 (a6989586621680390341 :: a ~> f b) (a6989586621680390342 :: t a) :: f ()
data For_Sym0 (a1 :: TyFun t a a ~> f b ~> f ())
data For_Sym1 (a6989586621680390332 :: t a) (b1 :: TyFun a ~> f b f ())
type family For_Sym2 (a6989586621680390332 :: t a) (a6989586621680390333 :: a ~> f b) :: f ()
data SequenceA_Sym0 (a1 :: TyFun t f a f ())
type family SequenceA_Sym1 (a6989586621680390303 :: t f a) :: f ()
data AsumSym0 (a1 :: TyFun t f a f a)
type family AsumSym1 (a6989586621680390291 :: t f a) :: f a
data MapM_Sym0 (a1 :: TyFun a ~> m b t a ~> m ())
data MapM_Sym1 (a6989586621680390321 :: a ~> m b) (b1 :: TyFun t a m ())
type family MapM_Sym2 (a6989586621680390321 :: a ~> m b) (a6989586621680390322 :: t a) :: m ()
data ForM_Sym0 (a1 :: TyFun t a a ~> m b ~> m ())
data ForM_Sym1 (a6989586621680390312 :: t a) (b1 :: TyFun a ~> m b m ())
type family ForM_Sym2 (a6989586621680390312 :: t a) (a6989586621680390313 :: a ~> m b) :: m ()
data Sequence_Sym0 (a1 :: TyFun t m a m ())
type family Sequence_Sym1 (a6989586621680390297 :: t m a) :: m ()
data MsumSym0 (a1 :: TyFun t m a m a)
type family MsumSym1 (a6989586621680390285 :: t m a) :: m a
data ConcatSym0 (a1 :: TyFun t [a] [a])
type family ConcatSym1 (a6989586621680390274 :: t [a]) :: [a]
data ConcatMapSym0 (a1 :: TyFun a ~> [b] t a ~> [b])
data ConcatMapSym1 (a6989586621680390263 :: a ~> [b]) (b1 :: TyFun t a [b])
type family ConcatMapSym2 (a6989586621680390263 :: a ~> [b]) (a6989586621680390264 :: t a) :: [b]
data AndSym0 (a :: TyFun t Bool Bool)
type family AndSym1 (a6989586621680390258 :: t Bool) :: Bool
data OrSym0 (a :: TyFun t Bool Bool)
type family OrSym1 (a6989586621680390252 :: t Bool) :: Bool
data AnySym0 (a1 :: TyFun a ~> Bool t a ~> Bool)
data AnySym1 (a6989586621680390244 :: a ~> Bool) (b :: TyFun t a Bool)
type family AnySym2 (a6989586621680390244 :: a ~> Bool) (a6989586621680390245 :: t a) :: Bool
data AllSym0 (a1 :: TyFun a ~> Bool t a ~> Bool)
data AllSym1 (a6989586621680390235 :: a ~> Bool) (b :: TyFun t a Bool)
type family AllSym2 (a6989586621680390235 :: a ~> Bool) (a6989586621680390236 :: t a) :: Bool
data MaximumBySym0 (a1 :: TyFun a ~> a ~> Ordering t a ~> a)
data MaximumBySym1 (a6989586621680390215 :: a ~> a ~> Ordering) (b :: TyFun t a a)
type family MaximumBySym2 (a6989586621680390215 :: a ~> a ~> Ordering) (a6989586621680390216 :: t a) :: a
data MinimumBySym0 (a1 :: TyFun a ~> a ~> Ordering t a ~> a)
data MinimumBySym1 (a6989586621680390195 :: a ~> a ~> Ordering) (b :: TyFun t a a)
type family MinimumBySym2 (a6989586621680390195 :: a ~> a ~> Ordering) (a6989586621680390196 :: t a) :: a
data NotElemSym0 (a1 :: TyFun a t a ~> Bool)
data NotElemSym1 (a6989586621680390186 :: a) (b :: TyFun t a Bool)
type family NotElemSym2 (a6989586621680390186 :: a) (a6989586621680390187 :: t a) :: Bool
data FindSym0 (a1 :: TyFun a ~> Bool t a ~> Maybe a)
data FindSym1 (a6989586621680390168 :: a ~> Bool) (b :: TyFun t a Maybe a)
type family FindSym2 (a6989586621680390168 :: a ~> Bool) (a6989586621680390169 :: t a) :: Maybe a
instance Data.Foldable.Singletons.PFoldable Data.Semigroup.Internal.Dual
instance Data.Foldable.Singletons.PFoldable (Data.Either.Either a)
instance Data.Foldable.Singletons.PFoldable Data.Monoid.First
instance Data.Foldable.Singletons.PFoldable Data.Monoid.Last
instance Data.Foldable.Singletons.PFoldable []
instance Data.Foldable.Singletons.PFoldable GHC.Maybe.Maybe
instance Data.Foldable.Singletons.PFoldable GHC.Base.NonEmpty
instance Data.Foldable.Singletons.PFoldable Data.Semigroup.Internal.Product
instance Data.Foldable.Singletons.PFoldable Data.Proxy.Proxy
instance Data.Foldable.Singletons.PFoldable Data.Semigroup.Internal.Sum
instance Data.Foldable.Singletons.PFoldable ((,) a)
instance Data.Monoid.Singletons.PMonoid (Data.Foldable.Singletons.Endo a)
instance Data.Monoid.Singletons.PMonoid (Data.Foldable.Singletons.MaxInternal a)
instance Data.Monoid.Singletons.PMonoid (Data.Foldable.Singletons.MinInternal a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Foldable.Singletons.Endo a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Foldable.Singletons.MaxInternal a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Foldable.Singletons.MinInternal a)
instance Data.Foldable.Singletons.SFoldable Data.Semigroup.Internal.Dual
instance Data.Foldable.Singletons.SFoldable (Data.Either.Either a)
instance Data.Foldable.Singletons.SFoldable Data.Monoid.First
instance Data.Foldable.Singletons.SFoldable Data.Monoid.Last
instance Data.Foldable.Singletons.SFoldable []
instance Data.Foldable.Singletons.SFoldable GHC.Maybe.Maybe
instance Data.Foldable.Singletons.SFoldable GHC.Base.NonEmpty
instance Data.Foldable.Singletons.SFoldable Data.Semigroup.Internal.Product
instance Data.Foldable.Singletons.SFoldable Data.Proxy.Proxy
instance Data.Foldable.Singletons.SFoldable Data.Semigroup.Internal.Sum
instance Data.Foldable.Singletons.SFoldable ((,) a)
instance Data.Monoid.Singletons.SMonoid (Data.Foldable.Singletons.Endo a)
instance Data.Ord.Singletons.SOrd a => Data.Monoid.Singletons.SMonoid (Data.Foldable.Singletons.MaxInternal a)
instance Data.Ord.Singletons.SOrd a => Data.Monoid.Singletons.SMonoid (Data.Foldable.Singletons.MinInternal a)
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Foldable.Singletons.Endo a)
instance Data.Ord.Singletons.SOrd a => Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Foldable.Singletons.MaxInternal a)
instance Data.Ord.Singletons.SOrd a => Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Foldable.Singletons.MinInternal a)
instance Data.Singletons.SingI1 Data.Foldable.Singletons.AppEndoSym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.AllSym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.AnySym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.ConcatMapSym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.FindSym1
instance (Data.Foldable.Singletons.SFoldable t, Data.Monoid.Singletons.SMonoid m) => Data.Singletons.SingI1 Data.Foldable.Singletons.FoldMapSym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.Foldl'Sym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.Foldl1Sym1
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI1 Data.Foldable.Singletons.FoldlMSym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.FoldlSym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.Foldr'Sym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.Foldr1Sym1
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI1 Data.Foldable.Singletons.FoldrMSym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.FoldrSym1
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI1 Data.Foldable.Singletons.MapM_Sym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.MaximumBySym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI1 Data.Foldable.Singletons.MinimumBySym1
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI1 Data.Foldable.Singletons.Traverse_Sym1
instance Data.Singletons.SingI1 'Data.Foldable.Singletons.MaxInternal
instance Data.Singletons.SingI1 'Data.Foldable.Singletons.MinInternal
instance (Data.Foldable.Singletons.SFoldable t, Data.Eq.Singletons.SEq a) => Data.Singletons.SingI1 Data.Foldable.Singletons.ElemSym1
instance (Data.Foldable.Singletons.SFoldable t, Data.Eq.Singletons.SEq a) => Data.Singletons.SingI1 Data.Foldable.Singletons.NotElemSym1
instance forall (t :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> b)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Foldable.Singletons.Foldl'Sym2 d)
instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> m b)). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Foldable.Singletons.FoldlMSym2 d)
instance forall (t :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> b)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Foldable.Singletons.FoldlSym2 d)
instance forall (t :: * -> *) a b (d :: a Data.Singletons.~> (b Data.Singletons.~> b)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Foldable.Singletons.Foldr'Sym2 d)
instance forall (t :: * -> *) (m :: * -> *) a b (d :: a Data.Singletons.~> (b Data.Singletons.~> m b)). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Foldable.Singletons.FoldrMSym2 d)
instance forall (t :: * -> *) a b (d :: a Data.Singletons.~> (b Data.Singletons.~> b)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Foldable.Singletons.FoldrSym2 d)
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI1 Data.Foldable.Singletons.ForM_Sym1
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI1 Data.Foldable.Singletons.For_Sym1
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI2 Data.Foldable.Singletons.Foldl'Sym2
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI2 Data.Foldable.Singletons.FoldlMSym2
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI2 Data.Foldable.Singletons.FoldlSym2
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI2 Data.Foldable.Singletons.Foldr'Sym2
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI2 Data.Foldable.Singletons.FoldrMSym2
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI2 Data.Foldable.Singletons.FoldrSym2
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.AllSym0
instance forall (t :: * -> *) a (d :: a Data.Singletons.~> GHC.Types.Bool). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.AllSym1 d)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.AndSym0
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.AnySym0
instance forall (t :: * -> *) a (d :: a Data.Singletons.~> GHC.Types.Bool). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.AnySym1 d)
instance Data.Singletons.SingI Data.Foldable.Singletons.AppEndoSym0
instance forall a (d :: Data.Foldable.Singletons.Endo a). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Foldable.Singletons.AppEndoSym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SAlternative f) => Data.Singletons.SingI Data.Foldable.Singletons.AsumSym0
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.ConcatMapSym0
instance forall (t :: * -> *) a b (d :: a Data.Singletons.~> [b]). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.ConcatMapSym1 d)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.ConcatSym0
instance (Data.Foldable.Singletons.SFoldable t, Data.Eq.Singletons.SEq a) => Data.Singletons.SingI Data.Foldable.Singletons.ElemSym0
instance forall (t :: * -> *) a (d :: a). (Data.Foldable.Singletons.SFoldable t, Data.Eq.Singletons.SEq a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.ElemSym1 d)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.FindSym0
instance forall (t :: * -> *) a (d :: a Data.Singletons.~> GHC.Types.Bool). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.FindSym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Data.Monoid.Singletons.SMonoid m) => Data.Singletons.SingI Data.Foldable.Singletons.FoldMapSym0
instance forall (t :: * -> *) m a (d :: a Data.Singletons.~> m). (Data.Foldable.Singletons.SFoldable t, Data.Monoid.Singletons.SMonoid m, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldMapSym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Data.Monoid.Singletons.SMonoid m) => Data.Singletons.SingI Data.Foldable.Singletons.FoldSym0
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.Foldl'Sym0
instance forall (t :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> b)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.Foldl'Sym1 d)
instance forall (t :: * -> *) b a (d1 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (d2 :: b). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Foldable.Singletons.Foldl'Sym2 d1 d2)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.Foldl1Sym0
instance forall (t :: * -> *) a (d :: a Data.Singletons.~> (a Data.Singletons.~> a)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.Foldl1Sym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Data.Foldable.Singletons.FoldlMSym0
instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> m b)). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldlMSym1 d)
instance forall (t :: * -> *) (m :: * -> *) b a (d1 :: b Data.Singletons.~> (a Data.Singletons.~> m b)) (d2 :: b). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldlMSym2 d1 d2)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.FoldlSym0
instance forall (t :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> b)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldlSym1 d)
instance forall (t :: * -> *) b a (d1 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (d2 :: b). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldlSym2 d1 d2)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.Foldr'Sym0
instance forall (t :: * -> *) a b (d :: a Data.Singletons.~> (b Data.Singletons.~> b)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.Foldr'Sym1 d)
instance forall (t :: * -> *) a b (d1 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (d2 :: b). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Foldable.Singletons.Foldr'Sym2 d1 d2)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.Foldr1Sym0
instance forall (t :: * -> *) a (d :: a Data.Singletons.~> (a Data.Singletons.~> a)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.Foldr1Sym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Data.Foldable.Singletons.FoldrMSym0
instance forall (t :: * -> *) (m :: * -> *) a b (d :: a Data.Singletons.~> (b Data.Singletons.~> m b)). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldrMSym1 d)
instance forall (t :: * -> *) (m :: * -> *) a b (d1 :: a Data.Singletons.~> (b Data.Singletons.~> m b)) (d2 :: b). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldrMSym2 d1 d2)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.FoldrSym0
instance forall (t :: * -> *) a b (d :: a Data.Singletons.~> (b Data.Singletons.~> b)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldrSym1 d)
instance forall (t :: * -> *) a b (d1 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (d2 :: b). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Foldable.Singletons.FoldrSym2 d1 d2)
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Data.Foldable.Singletons.ForM_Sym0
instance forall (t :: * -> *) (m :: * -> *) a (d :: t a) b. (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.ForM_Sym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI Data.Foldable.Singletons.For_Sym0
instance forall (t :: * -> *) (f :: * -> *) a (d :: t a) b. (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SApplicative f, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.For_Sym1 d)
instance Data.Singletons.SingI Data.Foldable.Singletons.GetMaxInternalSym0
instance Data.Singletons.SingI Data.Foldable.Singletons.GetMinInternalSym0
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.LengthSym0
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Data.Foldable.Singletons.MapM_Sym0
instance forall (t :: * -> *) (m :: * -> *) a b (d :: a Data.Singletons.~> m b). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.MapM_Sym1 d)
instance Data.Singletons.SingI Data.Foldable.Singletons.MaxInternalSym0
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.MaximumBySym0
instance forall (t :: * -> *) a (d :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Ordering)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.MaximumBySym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Data.Ord.Singletons.SOrd a) => Data.Singletons.SingI Data.Foldable.Singletons.MaximumSym0
instance Data.Singletons.SingI Data.Foldable.Singletons.MinInternalSym0
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.MinimumBySym0
instance forall (t :: * -> *) a (d :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Ordering)). (Data.Foldable.Singletons.SFoldable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.MinimumBySym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Data.Ord.Singletons.SOrd a) => Data.Singletons.SingI Data.Foldable.Singletons.MinimumSym0
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonadPlus m) => Data.Singletons.SingI Data.Foldable.Singletons.MsumSym0
instance (Data.Foldable.Singletons.SFoldable t, Data.Eq.Singletons.SEq a) => Data.Singletons.SingI Data.Foldable.Singletons.NotElemSym0
instance forall (t :: * -> *) a (d :: a). (Data.Foldable.Singletons.SFoldable t, Data.Eq.Singletons.SEq a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.NotElemSym1 d)
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.NullSym0
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.OrSym0
instance (Data.Foldable.Singletons.SFoldable t, GHC.Num.Singletons.SNum a) => Data.Singletons.SingI Data.Foldable.Singletons.ProductSym0
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI Data.Foldable.Singletons.SequenceA_Sym0
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Data.Foldable.Singletons.Sequence_Sym0
instance (Data.Foldable.Singletons.SFoldable t, GHC.Num.Singletons.SNum a) => Data.Singletons.SingI Data.Foldable.Singletons.SumSym0
instance Data.Foldable.Singletons.SFoldable t => Data.Singletons.SingI Data.Foldable.Singletons.ToListSym0
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI Data.Foldable.Singletons.Traverse_Sym0
instance forall (t :: * -> *) (f :: * -> *) a b (d :: a Data.Singletons.~> f b). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SApplicative f, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Foldable.Singletons.Traverse_Sym1 d)
instance forall a (n :: GHC.Maybe.Maybe a). Data.Singletons.SingI n => Data.Singletons.SingI ('Data.Foldable.Singletons.MaxInternal n)
instance forall a (n :: GHC.Maybe.Maybe a). Data.Singletons.SingI n => Data.Singletons.SingI ('Data.Foldable.Singletons.MinInternal n)
instance Data.Singletons.SingKind a => Data.Singletons.SingKind (Data.Foldable.Singletons.MaxInternal a)
instance Data.Singletons.SingKind a => Data.Singletons.SingKind (Data.Foldable.Singletons.MinInternal a)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.AllSym0
instance forall a (t :: * -> *) (a6989586621680390235 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.AllSym1 a6989586621680390235)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.AndSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.AnySym0
instance forall a (t :: * -> *) (a6989586621680390244 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.AnySym1 a6989586621680390244)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.AppEndoSym0
instance forall a (a6989586621680377529 :: Data.Foldable.Singletons.Endo a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.AppEndoSym1 a6989586621680377529)
instance forall (t :: * -> *) k (f :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.AsumSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ConcatMapSym0
instance forall a b (t :: * -> *) (a6989586621680390263 :: a Data.Singletons.~> [b]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.ConcatMapSym1 a6989586621680390263)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ConcatSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ElemSym0
instance forall a (t :: * -> *) (a6989586621680390439 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.ElemSym1 a6989586621680390439)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Elem_6989586621680390639Sym0
instance forall a (t :: * -> *) (a6989586621680390648 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Elem_6989586621680390639Sym1 a6989586621680390648)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Elem_6989586621680390749Sym0
instance forall a (a6989586621680390758 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Elem_6989586621680390749Sym1 a6989586621680390758)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Elem_6989586621680391125Sym0
instance forall a (a6989586621680391130 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Elem_6989586621680391125Sym1 a6989586621680391130)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Elem_6989586621680391157Sym0
instance forall a (a6989586621680391166 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Elem_6989586621680391157Sym1 a6989586621680391166)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Elem_6989586621680391332Sym0
instance forall a (a6989586621680391341 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Elem_6989586621680391332Sym1 a6989586621680391341)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Elem_6989586621680391507Sym0
instance forall a (a6989586621680391516 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Elem_6989586621680391507Sym1 a6989586621680391516)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FindSym0
instance forall a (t :: * -> *) (a6989586621680390168 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FindSym1 a6989586621680390168)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMapSym0
instance forall a m (t :: * -> *) (a6989586621680390387 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMapSym1 a6989586621680390387)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680390464Sym0
instance forall a m (t :: * -> *) (a6989586621680390471 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680390464Sym1 a6989586621680390471)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680390702Sym0
instance forall a m (a6989586621680390711 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680390702Sym1 a6989586621680390711)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680390984Sym0
instance forall a m (a6989586621680390989 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680390984Sym1 a6989586621680390989)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680391012Sym0
instance forall a1 m a2 (a6989586621680391017 :: a1 Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680391012Sym1 a6989586621680391017)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680391054Sym0
instance forall a m (a6989586621680391059 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680391054Sym1 a6989586621680391059)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680391146Sym0
instance forall a m (a6989586621680391151 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680391146Sym1 a6989586621680391151)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680391321Sym0
instance forall a m (a6989586621680391326 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680391321Sym1 a6989586621680391326)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680391496Sym0
instance forall a m (a6989586621680391501 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680391496Sym1 a6989586621680391501)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680485924Sym0
instance forall a1 m a2 (a6989586621680485929 :: a1 Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680485924Sym1 a6989586621680485929)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680485961Sym0
instance forall a m (a6989586621680485966 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680485961Sym1 a6989586621680485966)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldMap_6989586621680485992Sym0
instance forall a m (a6989586621680485997 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldMap_6989586621680485992Sym1 a6989586621680485997)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Fold_6989586621680390454Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Fold_6989586621680390995Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Fold_6989586621680391062Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl'Sym0
instance forall b a (t :: * -> *) (a6989586621680390414 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'Sym1 a6989586621680390414)
instance forall b a (t :: * -> *) (a6989586621680390414 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680390415 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'Sym2 a6989586621680390414 a6989586621680390415)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl'_6989586621680390531Sym0
instance forall b a (t :: * -> *) (a6989586621680390537 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680390531Sym1 a6989586621680390537)
instance forall b a (t :: * -> *) (a6989586621680390537 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680390538 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680390531Sym2 a6989586621680390537 a6989586621680390538)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl'_6989586621680390786Sym0
instance forall b a (a6989586621680390798 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680390786Sym1 a6989586621680390798)
instance forall b a (a6989586621680390798 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680390799 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680390786Sym2 a6989586621680390798 a6989586621680390799)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl'_6989586621680391192Sym0
instance forall b a (a6989586621680391198 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680391192Sym1 a6989586621680391198)
instance forall b a (a6989586621680391198 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680391199 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680391192Sym2 a6989586621680391198 a6989586621680391199)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl'_6989586621680391367Sym0
instance forall b a (a6989586621680391373 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680391367Sym1 a6989586621680391373)
instance forall b a (a6989586621680391373 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680391374 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680391367Sym2 a6989586621680391373 a6989586621680391374)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl'_6989586621680391542Sym0
instance forall b a (a6989586621680391548 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680391542Sym1 a6989586621680391548)
instance forall b a (a6989586621680391548 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680391549 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl'_6989586621680391542Sym2 a6989586621680391548 a6989586621680391549)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl1Sym0
instance forall a (t :: * -> *) (a6989586621680390425 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl1Sym1 a6989586621680390425)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl1_6989586621680390574Sym0
instance forall a (t :: * -> *) (a6989586621680390579 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl1_6989586621680390574Sym1 a6989586621680390579)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl1_6989586621680390806Sym0
instance forall a (a6989586621680390815 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl1_6989586621680390806Sym1 a6989586621680390815)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl1_6989586621680390952Sym0
instance forall a (a6989586621680390957 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl1_6989586621680390952Sym1 a6989586621680390957)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl1_6989586621680391095Sym0
instance forall a (a6989586621680391100 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl1_6989586621680391095Sym1 a6989586621680391100)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl1_6989586621680391206Sym0
instance forall a (a6989586621680391213 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl1_6989586621680391206Sym1 a6989586621680391213)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl1_6989586621680391381Sym0
instance forall a (a6989586621680391388 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl1_6989586621680391381Sym1 a6989586621680391388)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl1_6989586621680391556Sym0
instance forall a (a6989586621680391563 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl1_6989586621680391556Sym1 a6989586621680391563)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldlMSym0
instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621680390349 :: b Data.Singletons.~> (a Data.Singletons.~> m b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldlMSym1 a6989586621680390349)
instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621680390349 :: b Data.Singletons.~> (a Data.Singletons.~> m b)) (a6989586621680390350 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldlMSym2 a6989586621680390349 a6989586621680390350)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldlSym0
instance forall b a (t :: * -> *) (a6989586621680390407 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldlSym1 a6989586621680390407)
instance forall b a (t :: * -> *) (a6989586621680390407 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680390408 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldlSym2 a6989586621680390407 a6989586621680390408)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl_6989586621680390516Sym0
instance forall b a (t :: * -> *) (a6989586621680390522 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680390516Sym1 a6989586621680390522)
instance forall b a (t :: * -> *) (a6989586621680390522 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680390523 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680390516Sym2 a6989586621680390522 a6989586621680390523)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl_6989586621680390734Sym0
instance forall b a (a6989586621680390740 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680390734Sym1 a6989586621680390740)
instance forall b a (a6989586621680390740 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680390741 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680390734Sym2 a6989586621680390740 a6989586621680390741)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl_6989586621680390765Sym0
instance forall b a (a6989586621680390777 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680390765Sym1 a6989586621680390777)
instance forall b a (a6989586621680390777 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680390778 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680390765Sym2 a6989586621680390777 a6989586621680390778)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl_6989586621680390937Sym0
instance forall b a (a6989586621680390943 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680390937Sym1 a6989586621680390943)
instance forall b a (a6989586621680390943 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680390944 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680390937Sym2 a6989586621680390943 a6989586621680390944)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl_6989586621680391083Sym0
instance forall b a (a6989586621680391089 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680391083Sym1 a6989586621680391089)
instance forall b a (a6989586621680391089 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680391090 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680391083Sym2 a6989586621680391089 a6989586621680391090)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl_6989586621680391177Sym0
instance forall b a (a6989586621680391183 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680391177Sym1 a6989586621680391183)
instance forall b a (a6989586621680391183 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680391184 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680391177Sym2 a6989586621680391183 a6989586621680391184)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl_6989586621680391352Sym0
instance forall b a (a6989586621680391358 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680391352Sym1 a6989586621680391358)
instance forall b a (a6989586621680391358 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680391359 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680391352Sym2 a6989586621680391358 a6989586621680391359)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldl_6989586621680391527Sym0
instance forall b a (a6989586621680391533 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680391527Sym1 a6989586621680391533)
instance forall b a (a6989586621680391533 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680391534 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldl_6989586621680391527Sym2 a6989586621680391533 a6989586621680391534)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr'Sym0
instance forall a b (t :: * -> *) (a6989586621680390400 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'Sym1 a6989586621680390400)
instance forall a b (t :: * -> *) (a6989586621680390400 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680390401 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'Sym2 a6989586621680390400 a6989586621680390401)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr'_6989586621680390493Sym0
instance forall a b (t :: * -> *) (a6989586621680390499 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'_6989586621680390493Sym1 a6989586621680390499)
instance forall a b (t :: * -> *) (a6989586621680390499 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680390500 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'_6989586621680390493Sym2 a6989586621680390499 a6989586621680390500)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr'_6989586621680391234Sym0
instance forall a b (a6989586621680391246 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'_6989586621680391234Sym1 a6989586621680391246)
instance forall a b (a6989586621680391246 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680391247 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'_6989586621680391234Sym2 a6989586621680391246 a6989586621680391247)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr'_6989586621680391409Sym0
instance forall a b (a6989586621680391421 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'_6989586621680391409Sym1 a6989586621680391421)
instance forall a b (a6989586621680391421 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680391422 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'_6989586621680391409Sym2 a6989586621680391421 a6989586621680391422)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr'_6989586621680391584Sym0
instance forall a b (a6989586621680391596 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'_6989586621680391584Sym1 a6989586621680391596)
instance forall a b (a6989586621680391596 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680391597 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr'_6989586621680391584Sym2 a6989586621680391596 a6989586621680391597)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr1Sym0
instance forall a (t :: * -> *) (a6989586621680390420 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr1Sym1 a6989586621680390420)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr1_6989586621680390553Sym0
instance forall a (t :: * -> *) (a6989586621680390558 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr1_6989586621680390553Sym1 a6989586621680390558)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr1_6989586621680390842Sym0
instance forall a (a6989586621680390851 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr1_6989586621680390842Sym1 a6989586621680390851)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr1_6989586621680390964Sym0
instance forall a (a6989586621680390969 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr1_6989586621680390964Sym1 a6989586621680390969)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr1_6989586621680391104Sym0
instance forall a (a6989586621680391109 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr1_6989586621680391104Sym1 a6989586621680391109)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr1_6989586621680391254Sym0
instance forall a (a6989586621680391261 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr1_6989586621680391254Sym1 a6989586621680391261)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr1_6989586621680391429Sym0
instance forall a (a6989586621680391436 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr1_6989586621680391429Sym1 a6989586621680391436)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr1_6989586621680391604Sym0
instance forall a (a6989586621680391611 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr1_6989586621680391604Sym1 a6989586621680391611)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldrMSym0
instance forall a b (m :: * -> *) (t :: * -> *) (a6989586621680390367 :: a Data.Singletons.~> (b Data.Singletons.~> m b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldrMSym1 a6989586621680390367)
instance forall a b (m :: * -> *) (t :: * -> *) (a6989586621680390367 :: a Data.Singletons.~> (b Data.Singletons.~> m b)) (a6989586621680390368 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldrMSym2 a6989586621680390367 a6989586621680390368)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.FoldrSym0
instance forall a b (t :: * -> *) (a6989586621680390393 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldrSym1 a6989586621680390393)
instance forall a b (t :: * -> *) (a6989586621680390393 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680390394 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.FoldrSym2 a6989586621680390393 a6989586621680390394)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680390478Sym0
instance forall a b (t :: * -> *) (a6989586621680390484 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680390478Sym1 a6989586621680390484)
instance forall a b (t :: * -> *) (a6989586621680390484 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680390485 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680390478Sym2 a6989586621680390484 a6989586621680390485)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680390718Sym0
instance forall a b (a6989586621680390724 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680390718Sym1 a6989586621680390724)
instance forall a b (a6989586621680390724 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680390725 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680390718Sym2 a6989586621680390724 a6989586621680390725)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680390822Sym0
instance forall a b (a6989586621680390834 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680390822Sym1 a6989586621680390834)
instance forall a b (a6989586621680390834 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680390835 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680390822Sym2 a6989586621680390834 a6989586621680390835)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680390921Sym0
instance forall a b (a6989586621680390927 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680390921Sym1 a6989586621680390927)
instance forall a b (a6989586621680390927 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680390928 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680390921Sym2 a6989586621680390927 a6989586621680390928)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680391024Sym0
instance forall a1 b a2 (a6989586621680391030 :: a1 Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391024Sym1 a6989586621680391030)
instance forall a1 b a2 (a6989586621680391030 :: a1 Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680391031 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391024Sym2 a6989586621680391030 a6989586621680391031)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680391070Sym0
instance forall a b (a6989586621680391076 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391070Sym1 a6989586621680391076)
instance forall a b (a6989586621680391076 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680391077 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391070Sym2 a6989586621680391076 a6989586621680391077)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680391219Sym0
instance forall a b (a6989586621680391225 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391219Sym1 a6989586621680391225)
instance forall a b (a6989586621680391225 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680391226 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391219Sym2 a6989586621680391225 a6989586621680391226)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680391394Sym0
instance forall a b (a6989586621680391400 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391394Sym1 a6989586621680391400)
instance forall a b (a6989586621680391400 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680391401 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391394Sym2 a6989586621680391400 a6989586621680391401)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680391569Sym0
instance forall a b (a6989586621680391575 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391569Sym1 a6989586621680391575)
instance forall a b (a6989586621680391575 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680391576 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680391569Sym2 a6989586621680391575 a6989586621680391576)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680485941Sym0
instance forall a1 b a2 (a6989586621680485947 :: a1 Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680485941Sym1 a6989586621680485947)
instance forall a1 b a2 (a6989586621680485947 :: a1 Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680485948 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680485941Sym2 a6989586621680485947 a6989586621680485948)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680485973Sym0
instance forall a b (a6989586621680485979 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680485973Sym1 a6989586621680485979)
instance forall a b (a6989586621680485979 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680485980 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680485973Sym2 a6989586621680485979 a6989586621680485980)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Foldr_6989586621680486004Sym0
instance forall a b (a6989586621680486010 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680486004Sym1 a6989586621680486010)
instance forall a b (a6989586621680486010 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680486011 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Foldr_6989586621680486004Sym2 a6989586621680486010 a6989586621680486011)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ForM_Sym0
instance forall (t :: * -> *) a (m :: * -> *) b (a6989586621680390312 :: t a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.ForM_Sym1 a6989586621680390312)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.For_Sym0
instance forall (t :: * -> *) a (f :: * -> *) b (a6989586621680390332 :: t a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.For_Sym1 a6989586621680390332)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.GetMaxInternalSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.GetMinInternalSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680390172Sym0
instance forall a k (p6989586621680390170 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390172Sym1 p6989586621680390170)
instance forall a k (p6989586621680390170 :: a Data.Singletons.~> GHC.Types.Bool) (a_69895866216803901636989586621680390171 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390172Sym2 p6989586621680390170 a_69895866216803901636989586621680390171)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680390267Sym0
instance forall k1 (t :: * -> *) a k (f6989586621680390265 :: k1 Data.Singletons.~> t a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390267Sym1 f6989586621680390265)
instance forall k1 (t :: * -> *) a k (f6989586621680390265 :: k1 Data.Singletons.~> t a) (xs6989586621680390266 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390267Sym2 f6989586621680390265 xs6989586621680390266)
instance forall k1 (t :: * -> *) a k (f6989586621680390265 :: k1 Data.Singletons.~> t a) (xs6989586621680390266 :: k) (x6989586621680390269 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390267Sym3 f6989586621680390265 xs6989586621680390266 x6989586621680390269)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680390276Sym0
instance forall k (t :: * -> *) a (xs6989586621680390275 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390276Sym1 xs6989586621680390275)
instance forall k (t :: * -> *) a (xs6989586621680390275 :: k) (x6989586621680390278 :: t a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390276Sym2 xs6989586621680390275 x6989586621680390278)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680390611Sym0
instance forall k1 k2 k3 (a_69895866216803906056989586621680390610 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390611Sym1 a_69895866216803906056989586621680390610)
instance forall k1 k2 k3 (a_69895866216803906056989586621680390610 :: k1) (arg_69895866216803900116989586621680390613 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390611Sym2 a_69895866216803906056989586621680390610 arg_69895866216803900116989586621680390613)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680390628Sym0
instance forall k1 k2 k3 (a_69895866216803906226989586621680390627 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390628Sym1 a_69895866216803906226989586621680390627)
instance forall k1 k2 k3 (a_69895866216803906226989586621680390627 :: k1) (arg_69895866216803900156989586621680390630 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680390628Sym2 a_69895866216803906226989586621680390627 arg_69895866216803900156989586621680390630)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680391170Sym0
instance forall k1 k2 b c (a_69895866216803911596989586621680391168 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680391170Sym1 a_69895866216803911596989586621680391168)
instance forall k1 k2 b c (a_69895866216803911596989586621680391168 :: k1) (a_69895866216803911616989586621680391169 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680391170Sym2 a_69895866216803911596989586621680391168 a_69895866216803911616989586621680391169)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680391345Sym0
instance forall k1 k2 b c (a_69895866216803913346989586621680391343 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680391345Sym1 a_69895866216803913346989586621680391343)
instance forall k1 k2 b c (a_69895866216803913346989586621680391343 :: k1) (a_69895866216803913366989586621680391344 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680391345Sym2 a_69895866216803913346989586621680391343 a_69895866216803913366989586621680391344)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680391520Sym0
instance forall k1 k2 b c (a_69895866216803915096989586621680391518 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680391520Sym1 a_69895866216803915096989586621680391518)
instance forall k1 k2 b c (a_69895866216803915096989586621680391518 :: k1) (a_69895866216803915116989586621680391519 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680391520Sym2 a_69895866216803915096989586621680391518 a_69895866216803915116989586621680391519)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680485934Sym0
instance forall k1 k2 k3 k4 k5 (_f_69895866216804858426989586621680485931 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485934Sym1 _f_69895866216804858426989586621680485931)
instance forall k1 k2 k3 k4 k5 (_f_69895866216804858426989586621680485931 :: k1) (a_69895866216804858486989586621680485932 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485934Sym2 _f_69895866216804858426989586621680485931 a_69895866216804858486989586621680485932)
instance forall k1 k2 k3 k4 k5 (_f_69895866216804858426989586621680485931 :: k1) (a_69895866216804858486989586621680485932 :: k2) (a_69895866216804858506989586621680485933 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485934Sym3 _f_69895866216804858426989586621680485931 a_69895866216804858486989586621680485932 a_69895866216804858506989586621680485933)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680485954Sym0
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216804858426989586621680485950 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485954Sym1 _f_69895866216804858426989586621680485950)
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216804858426989586621680485950 :: k1) (_z_69895866216804858446989586621680485951 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485954Sym2 _f_69895866216804858426989586621680485950 _z_69895866216804858446989586621680485951)
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216804858426989586621680485950 :: k1) (_z_69895866216804858446989586621680485951 :: k2) (a_69895866216804858566989586621680485952 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485954Sym3 _f_69895866216804858426989586621680485950 _z_69895866216804858446989586621680485951 a_69895866216804858566989586621680485952)
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216804858426989586621680485950 :: k1) (_z_69895866216804858446989586621680485951 :: k2) (a_69895866216804858566989586621680485952 :: k3) (a_69895866216804858586989586621680485953 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485954Sym4 _f_69895866216804858426989586621680485950 _z_69895866216804858446989586621680485951 a_69895866216804858566989586621680485952 a_69895866216804858586989586621680485953)
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216804858426989586621680485950 :: k1) (_z_69895866216804858446989586621680485951 :: k2) (a_69895866216804858566989586621680485952 :: k3) (a_69895866216804858586989586621680485953 :: k4) (n1_69895866216804858526989586621680485956 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485954Sym5 _f_69895866216804858426989586621680485950 _z_69895866216804858446989586621680485951 a_69895866216804858566989586621680485952 a_69895866216804858586989586621680485953 n1_69895866216804858526989586621680485956)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680485985Sym0
instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216804858676989586621680485982 :: a Data.Singletons.~> (k1 Data.Singletons.~> k1)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485985Sym1 _f_69895866216804858676989586621680485982)
instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216804858676989586621680485982 :: a Data.Singletons.~> (k1 Data.Singletons.~> k1)) (_z_69895866216804858696989586621680485983 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485985Sym2 _f_69895866216804858676989586621680485982 _z_69895866216804858696989586621680485983)
instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216804858676989586621680485982 :: a Data.Singletons.~> (k1 Data.Singletons.~> k1)) (_z_69895866216804858696989586621680485983 :: k2) (a_69895866216804858896989586621680485984 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485985Sym3 _f_69895866216804858676989586621680485982 _z_69895866216804858696989586621680485983 a_69895866216804858896989586621680485984)
instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216804858676989586621680485982 :: a Data.Singletons.~> (k1 Data.Singletons.~> k1)) (_z_69895866216804858696989586621680485983 :: k2) (a_69895866216804858896989586621680485984 :: k3) (n1_69895866216804858856989586621680485987 :: t a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680485985Sym4 _f_69895866216804858676989586621680485982 _z_69895866216804858696989586621680485983 a_69895866216804858896989586621680485984 n1_69895866216804858856989586621680485987)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Lambda_6989586621680486016Sym0
instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216804858986989586621680486013 :: a Data.Singletons.~> (k1 Data.Singletons.~> k1)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680486016Sym1 _f_69895866216804858986989586621680486013)
instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216804858986989586621680486013 :: a Data.Singletons.~> (k1 Data.Singletons.~> k1)) (_z_69895866216804859006989586621680486014 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680486016Sym2 _f_69895866216804858986989586621680486013 _z_69895866216804859006989586621680486014)
instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216804858986989586621680486013 :: a Data.Singletons.~> (k1 Data.Singletons.~> k1)) (_z_69895866216804859006989586621680486014 :: k2) (a_69895866216804859206989586621680486015 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680486016Sym3 _f_69895866216804858986989586621680486013 _z_69895866216804859006989586621680486014 a_69895866216804859206989586621680486015)
instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216804858986989586621680486013 :: a Data.Singletons.~> (k1 Data.Singletons.~> k1)) (_z_69895866216804859006989586621680486014 :: k2) (a_69895866216804859206989586621680486015 :: k3) (n1_69895866216804859166989586621680486018 :: t a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Lambda_6989586621680486016Sym4 _f_69895866216804858986989586621680486013 _z_69895866216804859006989586621680486014 a_69895866216804859206989586621680486015 n1_69895866216804859166989586621680486018)
instance forall k (t :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.LengthSym0
instance forall k (t :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Length_6989586621680390620Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Length_6989586621680390856Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Length_6989586621680391038Sym0
instance forall k (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Length_6989586621680391112Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Length_6989586621680391265Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Length_6989586621680391440Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Length_6989586621680391615Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680380863MSym0
instance forall k1 k (x6989586621680380861 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680380863MSym1 x6989586621680380861)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680380863NSym0
instance forall k k1 (x6989586621680380861 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680380863NSym1 x6989586621680380861)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680380866Scrutinee_6989586621680380834Sym0
instance forall k1 (x6989586621680380861 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680380866Scrutinee_6989586621680380834Sym1 x6989586621680380861)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680380887MSym0
instance forall k1 k (x6989586621680380885 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680380887MSym1 x6989586621680380885)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680380887NSym0
instance forall k k1 (x6989586621680380885 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680380887NSym1 x6989586621680380885)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680380890Scrutinee_6989586621680380836Sym0
instance forall k1 (x6989586621680380885 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680380890Scrutinee_6989586621680380836Sym1 x6989586621680380885)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390175Scrutinee_6989586621680390029Sym0
instance forall k1 k2 k3 (x6989586621680390174 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390175Scrutinee_6989586621680390029Sym1 x6989586621680390174)
instance forall k1 k2 k3 (x6989586621680390174 :: k1) (p6989586621680390170 :: k1 Data.Singletons.~> k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390175Scrutinee_6989586621680390029Sym2 x6989586621680390174 p6989586621680390170)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390199Min'Sym0
instance forall k1 k2 (cmp6989586621680390197 :: k1 Data.Singletons.~> (k1 Data.Singletons.~> GHC.Types.Ordering)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390199Min'Sym1 cmp6989586621680390197)
instance forall k1 k2 (cmp6989586621680390197 :: k1 Data.Singletons.~> (k1 Data.Singletons.~> GHC.Types.Ordering)) (a_69895866216803901906989586621680390198 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390199Min'Sym2 cmp6989586621680390197 a_69895866216803901906989586621680390198)
instance forall k1 k2 (cmp6989586621680390197 :: k1 Data.Singletons.~> (k1 Data.Singletons.~> GHC.Types.Ordering)) (a_69895866216803901906989586621680390198 :: k2) (a6989586621680390200 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390199Min'Sym3 cmp6989586621680390197 a_69895866216803901906989586621680390198 a6989586621680390200)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390205Scrutinee_6989586621680390027Sym0
instance forall k2 k3 k4 k5 (x6989586621680390203 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390205Scrutinee_6989586621680390027Sym1 x6989586621680390203)
instance forall k2 k3 k4 k5 (x6989586621680390203 :: k2) (y6989586621680390204 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390205Scrutinee_6989586621680390027Sym2 x6989586621680390203 y6989586621680390204)
instance forall k2 k3 k4 k5 (x6989586621680390203 :: k2) (y6989586621680390204 :: k3) (cmp6989586621680390197 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390205Scrutinee_6989586621680390027Sym3 x6989586621680390203 y6989586621680390204 cmp6989586621680390197)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390219Max'Sym0
instance forall k1 k2 (cmp6989586621680390217 :: k1 Data.Singletons.~> (k1 Data.Singletons.~> GHC.Types.Ordering)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390219Max'Sym1 cmp6989586621680390217)
instance forall k1 k2 (cmp6989586621680390217 :: k1 Data.Singletons.~> (k1 Data.Singletons.~> GHC.Types.Ordering)) (a_69895866216803902106989586621680390218 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390219Max'Sym2 cmp6989586621680390217 a_69895866216803902106989586621680390218)
instance forall k1 k2 (cmp6989586621680390217 :: k1 Data.Singletons.~> (k1 Data.Singletons.~> GHC.Types.Ordering)) (a_69895866216803902106989586621680390218 :: k2) (a6989586621680390220 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390219Max'Sym3 cmp6989586621680390217 a_69895866216803902106989586621680390218 a6989586621680390220)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390225Scrutinee_6989586621680390025Sym0
instance forall k2 k3 k4 k5 (x6989586621680390223 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390225Scrutinee_6989586621680390025Sym1 x6989586621680390223)
instance forall k2 k3 k4 k5 (x6989586621680390223 :: k2) (y6989586621680390224 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390225Scrutinee_6989586621680390025Sym2 x6989586621680390223 y6989586621680390224)
instance forall k2 k3 k4 k5 (x6989586621680390223 :: k2) (y6989586621680390224 :: k3) (cmp6989586621680390217 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390225Scrutinee_6989586621680390025Sym3 x6989586621680390223 y6989586621680390224 cmp6989586621680390217)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390355F'Sym0
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390352 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390355F'Sym1 f6989586621680390352)
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390352 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)) (z06989586621680390353 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390355F'Sym2 f6989586621680390352 z06989586621680390353)
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390352 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)) (z06989586621680390353 :: k4) (xs6989586621680390354 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390355F'Sym3 f6989586621680390352 z06989586621680390353 xs6989586621680390354)
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390352 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)) (z06989586621680390353 :: k4) (xs6989586621680390354 :: k5) (a6989586621680390356 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390355F'Sym4 f6989586621680390352 z06989586621680390353 xs6989586621680390354 a6989586621680390356)
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390352 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)) (z06989586621680390353 :: k4) (xs6989586621680390354 :: k5) (a6989586621680390356 :: k3) (a6989586621680390357 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390355F'Sym5 f6989586621680390352 z06989586621680390353 xs6989586621680390354 a6989586621680390356 a6989586621680390357)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390373F'Sym0
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390370 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390373F'Sym1 f6989586621680390370)
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390370 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)) (z06989586621680390371 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390373F'Sym2 f6989586621680390370 z06989586621680390371)
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390370 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)) (z06989586621680390371 :: k4) (xs6989586621680390372 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390373F'Sym3 f6989586621680390370 z06989586621680390371 xs6989586621680390372)
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390370 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)) (z06989586621680390371 :: k4) (xs6989586621680390372 :: k5) (a6989586621680390374 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390373F'Sym4 f6989586621680390370 z06989586621680390371 xs6989586621680390372 a6989586621680390374)
instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680390370 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> m a)) (z06989586621680390371 :: k4) (xs6989586621680390372 :: k5) (a6989586621680390374 :: a Data.Singletons.~> m b) (a6989586621680390375 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390373F'Sym5 f6989586621680390370 z06989586621680390371 xs6989586621680390372 a6989586621680390374 a6989586621680390375)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390505F'Sym0
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390502 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390505F'Sym1 f6989586621680390502)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390502 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (z06989586621680390503 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390505F'Sym2 f6989586621680390502 z06989586621680390503)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390502 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (z06989586621680390503 :: k5) (xs6989586621680390504 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390505F'Sym3 f6989586621680390502 z06989586621680390503 xs6989586621680390504)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390502 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (z06989586621680390503 :: k5) (xs6989586621680390504 :: k6) (a6989586621680390506 :: k4 Data.Singletons.~> k7). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390505F'Sym4 f6989586621680390502 z06989586621680390503 xs6989586621680390504 a6989586621680390506)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390502 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (z06989586621680390503 :: k5) (xs6989586621680390504 :: k6) (a6989586621680390506 :: k4 Data.Singletons.~> k7) (a6989586621680390507 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390505F'Sym5 f6989586621680390502 z06989586621680390503 xs6989586621680390504 a6989586621680390506 a6989586621680390507)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390543F'Sym0
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390540 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390543F'Sym1 f6989586621680390540)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390540 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (z06989586621680390541 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390543F'Sym2 f6989586621680390540 z06989586621680390541)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390540 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (z06989586621680390541 :: k5) (xs6989586621680390542 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390543F'Sym3 f6989586621680390540 z06989586621680390541 xs6989586621680390542)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390540 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (z06989586621680390541 :: k5) (xs6989586621680390542 :: k6) (a6989586621680390544 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390543F'Sym4 f6989586621680390540 z06989586621680390541 xs6989586621680390542 a6989586621680390544)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390540 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (z06989586621680390541 :: k5) (xs6989586621680390542 :: k6) (a6989586621680390544 :: k3) (a6989586621680390545 :: k4 Data.Singletons.~> k7). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390543F'Sym5 f6989586621680390540 z06989586621680390541 xs6989586621680390542 a6989586621680390544 a6989586621680390545)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390562MfSym0
instance forall k2 k3 k (f6989586621680390560 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k2)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390562MfSym1 f6989586621680390560)
instance forall k2 k3 k (f6989586621680390560 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k2)) (xs6989586621680390561 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390562MfSym2 f6989586621680390560 xs6989586621680390561)
instance forall k2 k3 k (f6989586621680390560 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k2)) (xs6989586621680390561 :: k) (a6989586621680390563 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390562MfSym3 f6989586621680390560 xs6989586621680390561 a6989586621680390563)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390583MfSym0
instance forall k2 k3 k (f6989586621680390581 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k3)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390583MfSym1 f6989586621680390581)
instance forall k2 k3 k (f6989586621680390581 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k3)) (xs6989586621680390582 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390583MfSym2 f6989586621680390581 xs6989586621680390582)
instance forall k2 k3 k (f6989586621680390581 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k3)) (xs6989586621680390582 :: k) (a6989586621680390584 :: GHC.Maybe.Maybe k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390583MfSym3 f6989586621680390581 xs6989586621680390582 a6989586621680390584)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390661MkJustSym0
instance forall k a6989586621680389847 (a_69895866216803906556989586621680390660 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390661MkJustSym1 a_69895866216803906556989586621680390660)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390676MkJustSym0
instance forall k a6989586621680389848 (a_69895866216803906706989586621680390675 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390676MkJustSym1 a_69895866216803906706989586621680390675)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Let6989586621680390974GoSym0
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390971 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390974GoSym1 f6989586621680390971)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390971 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (p6989586621680390972 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390974GoSym2 f6989586621680390971 p6989586621680390972)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390971 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (p6989586621680390972 :: k5) (ps6989586621680390973 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390974GoSym3 f6989586621680390971 p6989586621680390972 ps6989586621680390973)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390971 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (p6989586621680390972 :: k5) (ps6989586621680390973 :: k6) (a6989586621680390975 :: k7). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390974GoSym4 f6989586621680390971 p6989586621680390972 ps6989586621680390973 a6989586621680390975)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680390971 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (p6989586621680390972 :: k5) (ps6989586621680390973 :: k6) (a6989586621680390975 :: k7) (a6989586621680390976 :: k7 Data.Singletons.~> k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Let6989586621680390974GoSym5 f6989586621680390971 p6989586621680390972 ps6989586621680390973 a6989586621680390975 a6989586621680390976)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.MapM_Sym0
instance forall a (m :: * -> *) b (t :: * -> *) (a6989586621680390321 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.MapM_Sym1 a6989586621680390321)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.MaxInternalSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.MaximumBySym0
instance forall a (t :: * -> *) (a6989586621680390215 :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Ordering)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.MaximumBySym1 a6989586621680390215)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.MaximumSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Maximum_6989586621680390653Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Maximum_6989586621680390865Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Maximum_6989586621680391271Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Maximum_6989586621680391446Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Maximum_6989586621680391621Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.MinInternalSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.MinimumBySym0
instance forall a (t :: * -> *) (a6989586621680390195 :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Ordering)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.MinimumBySym1 a6989586621680390195)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.MinimumSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Minimum_6989586621680390668Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Minimum_6989586621680390874Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Minimum_6989586621680391280Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Minimum_6989586621680391455Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Minimum_6989586621680391630Sym0
instance forall (t :: * -> *) k (m :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.MsumSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.NotElemSym0
instance forall a (t :: * -> *) (a6989586621680390186 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.NotElemSym1 a6989586621680390186)
instance forall k (t :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.NullSym0
instance forall k (t :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Null_6989586621680390603Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Null_6989586621680390883Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Null_6989586621680391044Sym0
instance forall k (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Null_6989586621680391118Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Null_6989586621680391289Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Null_6989586621680391464Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Null_6989586621680391639Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.OrSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ProductSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Product_6989586621680390692Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Product_6989586621680390892Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Product_6989586621680391139Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Product_6989586621680391295Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Product_6989586621680391470Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Product_6989586621680391645Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.SequenceA_Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Sequence_Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.SumSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Sum_6989586621680390683Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Sum_6989586621680390901Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Sum_6989586621680391133Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Sum_6989586621680391304Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Sum_6989586621680391479Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Sum_6989586621680391654Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.TFHelper_6989586621680377535Sym0
instance forall a (a6989586621680377540 :: Data.Foldable.Singletons.Endo a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.TFHelper_6989586621680377535Sym1 a6989586621680377540)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.TFHelper_6989586621680380852Sym0
instance forall a (a6989586621680380857 :: Data.Foldable.Singletons.MaxInternal a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.TFHelper_6989586621680380852Sym1 a6989586621680380857)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.TFHelper_6989586621680380876Sym0
instance forall a (a6989586621680380881 :: Data.Foldable.Singletons.MinInternal a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.TFHelper_6989586621680380876Sym1 a6989586621680380881)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ToListSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ToList_6989586621680390594Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ToList_6989586621680390910Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ToList_6989586621680391003Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ToList_6989586621680391313Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ToList_6989586621680391488Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.ToList_6989586621680391663Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Foldable.Singletons.Traverse_Sym0
instance forall a (f :: * -> *) b (t :: * -> *) (a6989586621680390341 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Foldable.Singletons.Traverse_Sym1 a6989586621680390341)
-- | Exports the promoted and singled versions of the Identity data
-- type.
module Data.Functor.Identity.Singletons
type family Sing :: k -> Type
data SIdentity (a1 :: Identity a)
[SIdentity] :: forall a (n :: a). Sing n -> SIdentity ('Identity n)
type family RunIdentity (a1 :: Identity a) :: a
sRunIdentity :: forall a (t :: Identity a). Sing t -> Sing (Apply (RunIdentitySym0 :: TyFun (Identity a) a -> Type) t)
data IdentitySym0 (a1 :: TyFun a Identity a)
type family IdentitySym1 (a6989586621679047151 :: a) :: Identity a
data RunIdentitySym0 (a1 :: TyFun Identity a a)
type family RunIdentitySym1 (a6989586621679047154 :: Identity a) :: a
instance Control.Monad.Singletons.Internal.PApplicative Data.Functor.Identity.Identity
instance Data.Singletons.Base.Enum.PEnum (Data.Functor.Identity.Identity a)
instance Data.Foldable.Singletons.PFoldable Data.Functor.Identity.Identity
instance Control.Monad.Singletons.Internal.PFunctor Data.Functor.Identity.Identity
instance Control.Monad.Singletons.Internal.PMonad Data.Functor.Identity.Identity
instance Data.Monoid.Singletons.PMonoid (Data.Functor.Identity.Identity a)
instance GHC.Num.Singletons.PNum (Data.Functor.Identity.Identity a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Functor.Identity.Identity a)
instance Text.Show.Singletons.PShow (Data.Functor.Identity.Identity a)
instance Control.Monad.Singletons.Internal.SApplicative Data.Functor.Identity.Identity
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.Base.Enum.SEnum (Data.Functor.Identity.Identity a)
instance Data.Foldable.Singletons.SFoldable Data.Functor.Identity.Identity
instance Control.Monad.Singletons.Internal.SFunctor Data.Functor.Identity.Identity
instance Control.Monad.Singletons.Internal.SMonad Data.Functor.Identity.Identity
instance Data.Monoid.Singletons.SMonoid a => Data.Monoid.Singletons.SMonoid (Data.Functor.Identity.Identity a)
instance GHC.Num.Singletons.SNum a => GHC.Num.Singletons.SNum (Data.Functor.Identity.Identity a)
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup a => Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Functor.Identity.Identity a)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Functor.Identity.Identity a)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Abs_6989586621680642318Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Elem_6989586621680643610Sym0
instance forall a (a6989586621680643615 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Elem_6989586621680643610Sym1 a6989586621680643615)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.EnumFromThenTo_6989586621680642143Sym0
instance forall a (a6989586621680642149 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.EnumFromThenTo_6989586621680642143Sym1 a6989586621680642149)
instance forall a (a6989586621680642149 :: Data.Functor.Identity.Identity a) (a6989586621680642150 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.EnumFromThenTo_6989586621680642143Sym2 a6989586621680642149 a6989586621680642150)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.EnumFromTo_6989586621680642131Sym0
instance forall a (a6989586621680642136 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.EnumFromTo_6989586621680642131Sym1 a6989586621680642136)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Fmap_6989586621680642398Sym0
instance forall a b (a6989586621680642403 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Fmap_6989586621680642398Sym1 a6989586621680642403)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.FoldMap_6989586621680643599Sym0
instance forall a m (a6989586621680643604 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.FoldMap_6989586621680643599Sym1 a6989586621680643604)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Foldl'_6989586621680643637Sym0
instance forall b a (a6989586621680643643 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldl'_6989586621680643637Sym1 a6989586621680643643)
instance forall b a (a6989586621680643643 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680643644 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldl'_6989586621680643637Sym2 a6989586621680643643 a6989586621680643644)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Foldl1_6989586621680643651Sym0
instance forall a (a6989586621680643656 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldl1_6989586621680643651Sym1 a6989586621680643656)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Foldl_6989586621680643622Sym0
instance forall b a (a6989586621680643628 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldl_6989586621680643622Sym1 a6989586621680643628)
instance forall b a (a6989586621680643628 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621680643629 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldl_6989586621680643622Sym2 a6989586621680643628 a6989586621680643629)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Foldr'_6989586621680643677Sym0
instance forall a b (a6989586621680643689 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldr'_6989586621680643677Sym1 a6989586621680643689)
instance forall a b (a6989586621680643689 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680643690 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldr'_6989586621680643677Sym2 a6989586621680643689 a6989586621680643690)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Foldr1_6989586621680643697Sym0
instance forall a (a6989586621680643702 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldr1_6989586621680643697Sym1 a6989586621680643702)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Foldr_6989586621680643662Sym0
instance forall a b (a6989586621680643668 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldr_6989586621680643662Sym1 a6989586621680643668)
instance forall a b (a6989586621680643668 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680643669 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Foldr_6989586621680643662Sym2 a6989586621680643668 a6989586621680643669)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.FromEnum_6989586621680642123Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.FromInteger_6989586621680642332Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Lambda_6989586621680642418Sym0
instance forall k1 k2 k3 (_z_69895866216806420936989586621680642416 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Lambda_6989586621680642418Sym1 _z_69895866216806420936989586621680642416)
instance forall k1 k2 k3 (_z_69895866216806420936989586621680642416 :: k1) (a_69895866216806420996989586621680642417 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.Lambda_6989586621680642418Sym2 _z_69895866216806420936989586621680642416 a_69895866216806420996989586621680642417)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Length_6989586621680643706Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.LiftA2_6989586621680643775Sym0
instance forall a b c (a6989586621680643781 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.LiftA2_6989586621680643775Sym1 a6989586621680643781)
instance forall a b c (a6989586621680643781 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621680643782 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.LiftA2_6989586621680643775Sym2 a6989586621680643781 a6989586621680643782)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Maximum_6989586621680643712Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Minimum_6989586621680643719Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Negate_6989586621680642311Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Null_6989586621680643726Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Pred_6989586621680642109Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Product_6989586621680643732Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Pure_6989586621680643753Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.ShowsPrec_6989586621680642382Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.ShowsPrec_6989586621680642382Sym1 a6989586621680642390)
instance forall a (a6989586621680642390 :: GHC.Num.Natural.Natural) (a6989586621680642391 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.ShowsPrec_6989586621680642382Sym2 a6989586621680642390 a6989586621680642391)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Signum_6989586621680642325Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Succ_6989586621680642102Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.Sum_6989586621680643739Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.TFHelper_6989586621680642279Sym0
instance forall a (a6989586621680642284 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.TFHelper_6989586621680642279Sym1 a6989586621680642284)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.TFHelper_6989586621680642290Sym0
instance forall a (a6989586621680642295 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.TFHelper_6989586621680642290Sym1 a6989586621680642295)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.TFHelper_6989586621680642301Sym0
instance forall a (a6989586621680642306 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.TFHelper_6989586621680642301Sym1 a6989586621680642306)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.TFHelper_6989586621680642370Sym0
instance forall a (a6989586621680642375 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.TFHelper_6989586621680642370Sym1 a6989586621680642375)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.TFHelper_6989586621680642409Sym0
instance forall a b (a6989586621680642414 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.TFHelper_6989586621680642409Sym1 a6989586621680642414)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.TFHelper_6989586621680643763Sym0
instance forall a b (a6989586621680643768 :: Data.Functor.Identity.Identity (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.TFHelper_6989586621680643763Sym1 a6989586621680643768)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.TFHelper_6989586621680643789Sym0
instance forall a b (a6989586621680643794 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Identity.Singletons.TFHelper_6989586621680643789Sym1 a6989586621680643794)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.ToEnum_6989586621680642116Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Identity.Singletons.ToList_6989586621680643746Sym0
-- | Exports the promoted and singled versions of the Const data
-- type.
module Data.Functor.Const.Singletons
type family Sing :: k -> Type
data SConst (a1 :: Const a b)
[SConst] :: forall {k} a (b :: k) (x :: a). Sing x -> SConst ('Const x :: Const a b)
type family GetConst (a1 :: Const a b) :: a
sGetConst :: forall {k} a (b :: k) (t :: Const a b). Sing t -> Sing (Apply (GetConstSym0 :: TyFun (Const a b) a -> Type) t)
data ConstSym0 (z :: TyFun a Const a b)
type family ConstSym1 (x :: a) :: Const a b
data GetConstSym0 (a1 :: TyFun Const a b a)
type family GetConstSym1 (a6989586621680681956 :: Const a b) :: a
instance forall k a (b :: k) (z :: Data.Functor.Const.Const a b). GHC.Classes.Eq (Data.Functor.Const.Singletons.SConst z)
instance forall k a (b :: k) (z :: Data.Functor.Const.Const a b). GHC.Classes.Ord (Data.Functor.Const.Singletons.SConst z)
instance Control.Monad.Singletons.Internal.PApplicative (Data.Functor.Const.Const m)
instance forall k a (b :: k). Data.Singletons.Base.Enum.PBounded (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Singletons.Base.Enum.PEnum (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Eq.Singletons.PEq (Data.Functor.Const.Const a b)
instance Data.Foldable.Singletons.PFoldable (Data.Functor.Const.Const m)
instance Control.Monad.Singletons.Internal.PFunctor (Data.Functor.Const.Const m)
instance forall k a (b :: k). Data.Monoid.Singletons.PMonoid (Data.Functor.Const.Const a b)
instance forall k a (b :: k). GHC.Num.Singletons.PNum (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Ord.Singletons.POrd (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Text.Show.Singletons.PShow (Data.Functor.Const.Const a b)
instance Data.Monoid.Singletons.SMonoid m => Control.Monad.Singletons.Internal.SApplicative (Data.Functor.Const.Const m)
instance forall k a (b :: k). Data.Singletons.Base.Enum.SBounded a => Data.Singletons.Base.Enum.SBounded (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Singletons.Decide.SDecide a => Data.Singletons.Decide.SDecide (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Singletons.Base.Enum.SEnum a => Data.Singletons.Base.Enum.SEnum (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Eq.Singletons.SEq a => Data.Eq.Singletons.SEq (Data.Functor.Const.Const a b)
instance Data.Foldable.Singletons.SFoldable (Data.Functor.Const.Const m)
instance Control.Monad.Singletons.Internal.SFunctor (Data.Functor.Const.Const m)
instance forall k a (b :: k). Data.Monoid.Singletons.SMonoid a => Data.Monoid.Singletons.SMonoid (Data.Functor.Const.Const a b)
instance forall k a (b :: k). GHC.Num.Singletons.SNum a => GHC.Num.Singletons.SNum (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Ord.Singletons.SOrd a => Data.Ord.Singletons.SOrd (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Semigroup.Singletons.Internal.Classes.SSemigroup a => Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Functor.Const.Const a b)
instance forall k1 k (b :: k). Data.Singletons.SingI1 'Data.Functor.Const.Const
instance forall a1 k (b :: k) (a2 :: a1). Data.Singletons.SingI a2 => Data.Singletons.SingI ('Data.Functor.Const.Const a2)
instance forall a k (b :: k). Data.Singletons.SingI Data.Functor.Const.Singletons.ConstSym0
instance forall k a (b :: k). Data.Singletons.SingI Data.Functor.Const.Singletons.GetConstSym0
instance forall k a (b :: k). Data.Singletons.SingKind a => Data.Singletons.SingKind (Data.Functor.Const.Const a b)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Abs_6989586621680682084Sym0
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Compare_6989586621680681977Sym0
instance forall k a (b :: k) (a6989586621680681982 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Compare_6989586621680681977Sym1 a6989586621680681982)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.EnumFromThenTo_6989586621680682028Sym0
instance forall k a (b :: k) (a6989586621680682034 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.EnumFromThenTo_6989586621680682028Sym1 a6989586621680682034)
instance forall k a (b :: k) (a6989586621680682034 :: Data.Functor.Const.Const a b) (a6989586621680682035 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.EnumFromThenTo_6989586621680682028Sym2 a6989586621680682034 a6989586621680682035)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.EnumFromTo_6989586621680682016Sym0
instance forall k a (b :: k) (a6989586621680682021 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.EnumFromTo_6989586621680682016Sym1 a6989586621680682021)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Fmap_6989586621680682134Sym0
instance forall a b m (a6989586621680682139 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Fmap_6989586621680682134Sym1 a6989586621680682139)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.FoldMap_6989586621680682164Sym0
instance forall a m1 m2 (a6989586621680682169 :: a Data.Singletons.~> m1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.FoldMap_6989586621680682164Sym1 a6989586621680682169)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Foldr_6989586621680682180Sym0
instance forall a b m (a6989586621680682186 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Foldr_6989586621680682180Sym1 a6989586621680682186)
instance forall a b m (a6989586621680682186 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680682187 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Foldr_6989586621680682180Sym2 a6989586621680682186 a6989586621680682187)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.FromEnum_6989586621680682008Sym0
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.FromInteger_6989586621680682098Sym0
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.GetConstSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Lambda_6989586621680682143Sym0
instance forall k1 k2 k3 (_f_69895866216806819256989586621680682141 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682143Sym1 _f_69895866216806819256989586621680682141)
instance forall k1 k2 k3 (_f_69895866216806819256989586621680682141 :: k1) (a_69895866216806819316989586621680682142 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682143Sym2 _f_69895866216806819256989586621680682141 a_69895866216806819316989586621680682142)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Lambda_6989586621680682158Sym0
instance forall k1 k2 k3 (_z_69895866216806819276989586621680682156 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682158Sym1 _z_69895866216806819276989586621680682156)
instance forall k1 k2 k3 (_z_69895866216806819276989586621680682156 :: k1) (a_69895866216806819356989586621680682157 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682158Sym2 _z_69895866216806819276989586621680682156 a_69895866216806819356989586621680682157)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Lambda_6989586621680682173Sym0
instance forall k1 k2 k3 k4 (_f_69895866216806819406989586621680682171 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682173Sym1 _f_69895866216806819406989586621680682171)
instance forall k1 k2 k3 k4 (_f_69895866216806819406989586621680682171 :: k1) (a_69895866216806819466989586621680682172 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682173Sym2 _f_69895866216806819406989586621680682171 a_69895866216806819466989586621680682172)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Lambda_6989586621680682192Sym0
instance forall k1 k2 k3 k4 k5 (_f_69895866216806819406989586621680682189 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682192Sym1 _f_69895866216806819406989586621680682189)
instance forall k1 k2 k3 k4 k5 (_f_69895866216806819406989586621680682189 :: k1) (_z_69895866216806819426989586621680682190 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682192Sym2 _f_69895866216806819406989586621680682189 _z_69895866216806819426989586621680682190)
instance forall k1 k2 k3 k4 k5 (_f_69895866216806819406989586621680682189 :: k1) (_z_69895866216806819426989586621680682190 :: k2) (a_69895866216806819526989586621680682191 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682192Sym3 _f_69895866216806819406989586621680682189 _z_69895866216806819426989586621680682190 a_69895866216806819526989586621680682191)
instance forall k1 k2 k3 k4 k5 (_f_69895866216806819406989586621680682189 :: k1) (_z_69895866216806819426989586621680682190 :: k2) (a_69895866216806819526989586621680682191 :: k3) (n1_69895866216806819486989586621680682194 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.Lambda_6989586621680682192Sym4 _f_69895866216806819406989586621680682189 _z_69895866216806819426989586621680682190 a_69895866216806819526989586621680682191 n1_69895866216806819486989586621680682194)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.LiftA2_6989586621680682206Sym0
instance forall a b c m (a6989586621680682212 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.LiftA2_6989586621680682206Sym1 a6989586621680682212)
instance forall a b c m (a6989586621680682212 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621680682213 :: Data.Functor.Const.Const m a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.LiftA2_6989586621680682206Sym2 a6989586621680682212 a6989586621680682213)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Negate_6989586621680682077Sym0
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Pred_6989586621680681994Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Pure_6989586621680682198Sym0
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.ShowsPrec_6989586621680682118Sym0
instance forall k a (b :: k) (a6989586621680682126 :: GHC.Num.Natural.Natural). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.ShowsPrec_6989586621680682118Sym1 a6989586621680682126)
instance forall k a (b :: k) (a6989586621680682126 :: GHC.Num.Natural.Natural) (a6989586621680682127 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.ShowsPrec_6989586621680682118Sym2 a6989586621680682126 a6989586621680682127)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Signum_6989586621680682091Sym0
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.Succ_6989586621680681987Sym0
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.TFHelper_6989586621680681966Sym0
instance forall k a (b :: k) (a6989586621680681971 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.TFHelper_6989586621680681966Sym1 a6989586621680681971)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.TFHelper_6989586621680682045Sym0
instance forall k a (b :: k) (a6989586621680682050 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.TFHelper_6989586621680682045Sym1 a6989586621680682050)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.TFHelper_6989586621680682056Sym0
instance forall k a (b :: k) (a6989586621680682061 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.TFHelper_6989586621680682056Sym1 a6989586621680682061)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.TFHelper_6989586621680682067Sym0
instance forall k a (b :: k) (a6989586621680682072 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.TFHelper_6989586621680682067Sym1 a6989586621680682072)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.TFHelper_6989586621680682106Sym0
instance forall k a (b :: k) (a6989586621680682111 :: Data.Functor.Const.Const a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.TFHelper_6989586621680682106Sym1 a6989586621680682111)
instance forall a k m (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.TFHelper_6989586621680682149Sym0
instance forall a k m (b :: k) (a6989586621680682154 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.TFHelper_6989586621680682149Sym1 a6989586621680682154)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.TFHelper_6989586621680682219Sym0
instance forall m a b (a6989586621680682224 :: Data.Functor.Const.Const m (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Const.Singletons.TFHelper_6989586621680682219Sym1 a6989586621680682224)
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Const.Singletons.ToEnum_6989586621680682001Sym0
instance forall k a (b :: k). Data.Singletons.Decide.SDecide a => Data.Type.Coercion.TestCoercion Data.Functor.Const.Singletons.SConst
instance forall k a (b :: k). Data.Singletons.Decide.SDecide a => Data.Type.Equality.TestEquality Data.Functor.Const.Singletons.SConst
-- | Defines the promoted and singled versions of the Traversable
-- type class.
module Data.Traversable.Singletons
class PTraversable (t :: Type -> Type) where {
type Traverse (arg :: a ~> f b) (arg1 :: t a) :: f t b;
type SequenceA (arg :: t f a) :: f t a;
type MapM (arg :: a ~> m b) (arg1 :: t a) :: m t b;
type Sequence (arg :: t m a) :: m t a;
type Traverse arg :: a ~> f b arg1 :: t a = Apply Apply Traverse_6989586621680734001Sym0 :: TyFun a ~> f b t a ~> f t b -> Type arg arg1;
type SequenceA arg :: t f a = Apply SequenceA_6989586621680734013Sym0 :: TyFun t f a f t a -> Type arg;
type MapM arg :: a ~> m b arg1 :: t a = Apply Apply MapM_6989586621680734023Sym0 :: TyFun a ~> m b t a ~> m t b -> Type arg arg1;
type Sequence arg :: t m a = Apply Sequence_6989586621680734037Sym0 :: TyFun t m a m t a -> Type arg;
}
class (SFunctor t, SFoldable t) => STraversable (t :: Type -> Type)
sTraverse :: forall a (f :: Type -> Type) b (t1 :: a ~> f b) (t2 :: t a). (STraversable t, SApplicative f) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2)
($dmsTraverse) :: forall a (f :: Type -> Type) b (t1 :: a ~> f b) (t2 :: t a). (STraversable t, Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2 ~ Apply (Apply (Traverse_6989586621680734001Sym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2, SApplicative f) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2)
sSequenceA :: forall (f :: Type -> Type) a (t1 :: t (f a)). (STraversable t, SApplicative f) => Sing t1 -> Sing (Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1)
($dmsSequenceA) :: forall (f :: Type -> Type) a (t1 :: t (f a)). (STraversable t, Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1 ~ Apply (SequenceA_6989586621680734013Sym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1, SApplicative f) => Sing t1 -> Sing (Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1)
sMapM :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: t a). (STraversable t, SMonad m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2)
($dmsMapM) :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: t a). (STraversable t, Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2 ~ Apply (Apply (MapM_6989586621680734023Sym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2, SMonad m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2)
sSequence :: forall (m :: Type -> Type) a (t1 :: t (m a)). (STraversable t, SMonad m) => Sing t1 -> Sing (Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1)
($dmsSequence) :: forall (m :: Type -> Type) a (t1 :: t (m a)). (STraversable t, Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1 ~ Apply (Sequence_6989586621680734037Sym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1, SMonad m) => Sing t1 -> Sing (Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1)
type family For (a1 :: t a) (a2 :: a ~> f b) :: f t b
sFor :: forall (t1 :: Type -> Type) a (f :: Type -> Type) b (t2 :: t1 a) (t3 :: a ~> f b). (STraversable t1, SApplicative f) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (ForSym0 :: TyFun (t1 a) ((a ~> f b) ~> f (t1 b)) -> Type) t2) t3)
type family ForM (a1 :: t a) (a2 :: a ~> m b) :: m t b
sForM :: forall (t1 :: Type -> Type) a (m :: Type -> Type) b (t2 :: t1 a) (t3 :: a ~> m b). (STraversable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (ForMSym0 :: TyFun (t1 a) ((a ~> m b) ~> m (t1 b)) -> Type) t2) t3)
type family MapAccumL (a1 :: a ~> b ~> (a, c)) (a2 :: a) (a3 :: t b) :: (a, t c)
sMapAccumL :: forall (t1 :: Type -> Type) a b c (t2 :: a ~> (b ~> (a, c))) (t3 :: a) (t4 :: t1 b). STraversable t1 => Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (MapAccumLSym0 :: TyFun (a ~> (b ~> (a, c))) (a ~> (t1 b ~> (a, t1 c))) -> Type) t2) t3) t4)
type family MapAccumR (a1 :: a ~> b ~> (a, c)) (a2 :: a) (a3 :: t b) :: (a, t c)
sMapAccumR :: forall a b c (t1 :: Type -> Type) (t2 :: a ~> (b ~> (a, c))) (t3 :: a) (t4 :: t1 b). STraversable t1 => Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (MapAccumRSym0 :: TyFun (a ~> (b ~> (a, c))) (a ~> (t1 b ~> (a, t1 c))) -> Type) t2) t3) t4)
type family FmapDefault (a1 :: a ~> b) (a2 :: t a) :: t b
sFmapDefault :: forall (t1 :: Type -> Type) a b (t2 :: a ~> b) (t3 :: t1 a). STraversable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (FmapDefaultSym0 :: TyFun (a ~> b) (t1 a ~> t1 b) -> Type) t2) t3)
type family FoldMapDefault (a1 :: a ~> m) (a2 :: t a) :: m
sFoldMapDefault :: forall (t1 :: Type -> Type) m a (t2 :: a ~> m) (t3 :: t1 a). (STraversable t1, SMonoid m) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (FoldMapDefaultSym0 :: TyFun (a ~> m) (t1 a ~> m) -> Type) t2) t3)
data TraverseSym0 (a1 :: TyFun a ~> f b t a ~> f t b)
data TraverseSym1 (a6989586621680733986 :: a ~> f b) (b1 :: TyFun t a f t b)
type family TraverseSym2 (a6989586621680733986 :: a ~> f b) (a6989586621680733987 :: t a) :: f t b
data SequenceASym0 (a1 :: TyFun t f a f t a)
type family SequenceASym1 (a6989586621680733990 :: t f a) :: f t a
data MapMSym0 (a1 :: TyFun a ~> m b t a ~> m t b)
data MapMSym1 (a6989586621680733994 :: a ~> m b) (b1 :: TyFun t a m t b)
type family MapMSym2 (a6989586621680733994 :: a ~> m b) (a6989586621680733995 :: t a) :: m t b
data SequenceSym0 (a1 :: TyFun t m a m t a)
type family SequenceSym1 (a6989586621680733998 :: t m a) :: m t a
data ForSym0 (a1 :: TyFun t a a ~> f b ~> f t b)
data ForSym1 (a6989586621680741302 :: t a) (b1 :: TyFun a ~> f b f t b)
type family ForSym2 (a6989586621680741302 :: t a) (a6989586621680741303 :: a ~> f b) :: f t b
data ForMSym0 (a1 :: TyFun t a a ~> m b ~> m t b)
data ForMSym1 (a6989586621680741291 :: t a) (b1 :: TyFun a ~> m b m t b)
type family ForMSym2 (a6989586621680741291 :: t a) (a6989586621680741292 :: a ~> m b) :: m t b
data MapAccumLSym0 (a1 :: TyFun a ~> b ~> (a, c) a ~> t b ~> (a, t c))
data MapAccumLSym1 (a6989586621680741278 :: a ~> b ~> (a, c)) (b1 :: TyFun a t b ~> (a, t c))
data MapAccumLSym2 (a6989586621680741278 :: a ~> b ~> (a, c)) (a6989586621680741279 :: a) (c1 :: TyFun t b (a, t c))
type family MapAccumLSym3 (a6989586621680741278 :: a ~> b ~> (a, c)) (a6989586621680741279 :: a) (a6989586621680741280 :: t b) :: (a, t c)
data MapAccumRSym0 (a1 :: TyFun a ~> b ~> (a, c) a ~> t b ~> (a, t c))
data MapAccumRSym1 (a6989586621680741268 :: a ~> b ~> (a, c)) (b1 :: TyFun a t b ~> (a, t c))
data MapAccumRSym2 (a6989586621680741268 :: a ~> b ~> (a, c)) (a6989586621680741269 :: a) (c1 :: TyFun t b (a, t c))
type family MapAccumRSym3 (a6989586621680741268 :: a ~> b ~> (a, c)) (a6989586621680741269 :: a) (a6989586621680741270 :: t b) :: (a, t c)
data FmapDefaultSym0 (a1 :: TyFun a ~> b t a ~> t b)
data FmapDefaultSym1 (a6989586621680741254 :: a ~> b) (b1 :: TyFun t a t b)
type family FmapDefaultSym2 (a6989586621680741254 :: a ~> b) (a6989586621680741255 :: t a) :: t b
data FoldMapDefaultSym0 (a1 :: TyFun a ~> m t a ~> m)
data FoldMapDefaultSym1 (a6989586621680741235 :: a ~> m) (b :: TyFun t a m)
type family FoldMapDefaultSym2 (a6989586621680741235 :: a ~> m) (a6989586621680741236 :: t a) :: m
instance Control.Monad.Singletons.Internal.PApplicative (Data.Traversable.Singletons.StateL s)
instance Control.Monad.Singletons.Internal.PApplicative (Data.Traversable.Singletons.StateR s)
instance Control.Monad.Singletons.Internal.PFunctor (Data.Traversable.Singletons.StateL s)
instance Control.Monad.Singletons.Internal.PFunctor (Data.Traversable.Singletons.StateR s)
instance Data.Traversable.Singletons.PTraversable (Data.Functor.Const.Const m)
instance Data.Traversable.Singletons.PTraversable Data.Semigroup.Internal.Dual
instance Data.Traversable.Singletons.PTraversable (Data.Either.Either a)
instance Data.Traversable.Singletons.PTraversable Data.Monoid.First
instance Data.Traversable.Singletons.PTraversable Data.Functor.Identity.Identity
instance Data.Traversable.Singletons.PTraversable Data.Monoid.Last
instance Data.Traversable.Singletons.PTraversable []
instance Data.Traversable.Singletons.PTraversable GHC.Maybe.Maybe
instance Data.Traversable.Singletons.PTraversable GHC.Base.NonEmpty
instance Data.Traversable.Singletons.PTraversable Data.Semigroup.Internal.Product
instance Data.Traversable.Singletons.PTraversable Data.Proxy.Proxy
instance Data.Traversable.Singletons.PTraversable Data.Semigroup.Internal.Sum
instance Data.Traversable.Singletons.PTraversable ((,) a)
instance Control.Monad.Singletons.Internal.SApplicative (Data.Traversable.Singletons.StateL s)
instance Control.Monad.Singletons.Internal.SApplicative (Data.Traversable.Singletons.StateR s)
instance Control.Monad.Singletons.Internal.SFunctor (Data.Traversable.Singletons.StateL s)
instance Control.Monad.Singletons.Internal.SFunctor (Data.Traversable.Singletons.StateR s)
instance Data.Traversable.Singletons.STraversable (Data.Functor.Const.Const m)
instance Data.Traversable.Singletons.STraversable Data.Semigroup.Internal.Dual
instance Data.Traversable.Singletons.STraversable (Data.Either.Either a)
instance Data.Traversable.Singletons.STraversable Data.Monoid.First
instance Data.Traversable.Singletons.STraversable Data.Functor.Identity.Identity
instance Data.Traversable.Singletons.STraversable Data.Monoid.Last
instance Data.Traversable.Singletons.STraversable []
instance Data.Traversable.Singletons.STraversable GHC.Maybe.Maybe
instance Data.Traversable.Singletons.STraversable GHC.Base.NonEmpty
instance Data.Traversable.Singletons.STraversable Data.Semigroup.Internal.Product
instance Data.Traversable.Singletons.STraversable Data.Proxy.Proxy
instance Data.Traversable.Singletons.STraversable Data.Semigroup.Internal.Sum
instance Data.Traversable.Singletons.STraversable ((,) a)
instance Data.Traversable.Singletons.STraversable t => Data.Singletons.SingI1 Data.Traversable.Singletons.FmapDefaultSym1
instance (Data.Traversable.Singletons.STraversable t, Data.Monoid.Singletons.SMonoid m) => Data.Singletons.SingI1 Data.Traversable.Singletons.FoldMapDefaultSym1
instance Data.Traversable.Singletons.STraversable t => Data.Singletons.SingI1 Data.Traversable.Singletons.MapAccumLSym1
instance Data.Traversable.Singletons.STraversable t => Data.Singletons.SingI1 Data.Traversable.Singletons.MapAccumRSym1
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI1 Data.Traversable.Singletons.MapMSym1
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI1 Data.Traversable.Singletons.TraverseSym1
instance Data.Singletons.SingI1 Data.Traversable.Singletons.RunStateLSym1
instance Data.Singletons.SingI1 Data.Traversable.Singletons.RunStateRSym1
instance forall (t :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))). (Data.Traversable.Singletons.STraversable t, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Traversable.Singletons.MapAccumLSym2 d)
instance forall (t :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))). (Data.Traversable.Singletons.STraversable t, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Data.Traversable.Singletons.MapAccumRSym2 d)
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI1 Data.Traversable.Singletons.ForMSym1
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI1 Data.Traversable.Singletons.ForSym1
instance Data.Traversable.Singletons.STraversable t => Data.Singletons.SingI2 Data.Traversable.Singletons.MapAccumLSym2
instance Data.Traversable.Singletons.STraversable t => Data.Singletons.SingI2 Data.Traversable.Singletons.MapAccumRSym2
instance Data.Traversable.Singletons.STraversable t => Data.Singletons.SingI Data.Traversable.Singletons.FmapDefaultSym0
instance forall (t :: * -> *) a b (d :: a Data.Singletons.~> b). (Data.Traversable.Singletons.STraversable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Traversable.Singletons.FmapDefaultSym1 d)
instance (Data.Traversable.Singletons.STraversable t, Data.Monoid.Singletons.SMonoid m) => Data.Singletons.SingI Data.Traversable.Singletons.FoldMapDefaultSym0
instance forall (t :: * -> *) m a (d :: a Data.Singletons.~> m). (Data.Traversable.Singletons.STraversable t, Data.Monoid.Singletons.SMonoid m, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Traversable.Singletons.FoldMapDefaultSym1 d)
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Data.Traversable.Singletons.ForMSym0
instance forall (t :: * -> *) (m :: * -> *) a (d :: t a) b. (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Traversable.Singletons.ForMSym1 d)
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI Data.Traversable.Singletons.ForSym0
instance forall (t :: * -> *) (f :: * -> *) a (d :: t a) b. (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SApplicative f, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Traversable.Singletons.ForSym1 d)
instance Data.Traversable.Singletons.STraversable t => Data.Singletons.SingI Data.Traversable.Singletons.MapAccumLSym0
instance forall (t :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))). (Data.Traversable.Singletons.STraversable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Traversable.Singletons.MapAccumLSym1 d)
instance forall (t :: * -> *) a b c (d1 :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))) (d2 :: a). (Data.Traversable.Singletons.STraversable t, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Traversable.Singletons.MapAccumLSym2 d1 d2)
instance Data.Traversable.Singletons.STraversable t => Data.Singletons.SingI Data.Traversable.Singletons.MapAccumRSym0
instance forall (t :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))). (Data.Traversable.Singletons.STraversable t, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Traversable.Singletons.MapAccumRSym1 d)
instance forall (t :: * -> *) a b c (d1 :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))) (d2 :: a). (Data.Traversable.Singletons.STraversable t, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.Traversable.Singletons.MapAccumRSym2 d1 d2)
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Data.Traversable.Singletons.MapMSym0
instance forall (t :: * -> *) (m :: * -> *) a b (d :: a Data.Singletons.~> m b). (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Traversable.Singletons.MapMSym1 d)
instance Data.Singletons.SingI Data.Traversable.Singletons.RunStateLSym0
instance forall s a (d :: Data.Traversable.Singletons.StateL s a). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Traversable.Singletons.RunStateLSym1 d)
instance Data.Singletons.SingI Data.Traversable.Singletons.RunStateRSym0
instance forall s a (d :: Data.Traversable.Singletons.StateR s a). Data.Singletons.SingI d => Data.Singletons.SingI (Data.Traversable.Singletons.RunStateRSym1 d)
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI Data.Traversable.Singletons.SequenceASym0
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Data.Traversable.Singletons.SequenceSym0
instance (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SApplicative f) => Data.Singletons.SingI Data.Traversable.Singletons.TraverseSym0
instance forall (t :: * -> *) (f :: * -> *) a b (d :: a Data.Singletons.~> f b). (Data.Traversable.Singletons.STraversable t, Control.Monad.Singletons.Internal.SApplicative f, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.Traversable.Singletons.TraverseSym1 d)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.FmapDefaultSym0
instance forall a b (t :: * -> *) (a6989586621680741254 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.FmapDefaultSym1 a6989586621680741254)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Fmap_6989586621680741507Sym0
instance forall a b s (a6989586621680741512 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Fmap_6989586621680741507Sym1 a6989586621680741512)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Fmap_6989586621680741705Sym0
instance forall a b s (a6989586621680741710 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Fmap_6989586621680741705Sym1 a6989586621680741710)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.FoldMapDefaultSym0
instance forall a m (t :: * -> *) (a6989586621680741235 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.FoldMapDefaultSym1 a6989586621680741235)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.ForMSym0
instance forall (t :: * -> *) a (m :: * -> *) b (a6989586621680741291 :: t a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.ForMSym1 a6989586621680741291)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.ForSym0
instance forall (t :: * -> *) a (f :: * -> *) b (a6989586621680741302 :: t a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.ForSym1 a6989586621680741302)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Lambda_6989586621680741516Sym0
instance forall k2 k3 k4 k (f6989586621680741514 :: k2 Data.Singletons.~> k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741516Sym1 f6989586621680741514)
instance forall k2 k3 k4 k (f6989586621680741514 :: k2 Data.Singletons.~> k3) (k6989586621680741515 :: k4 Data.Singletons.~> (k, k2)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741516Sym2 f6989586621680741514 k6989586621680741515)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Lambda_6989586621680741595Sym0
instance forall k2 k3 (x6989586621680741594 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741595Sym1 x6989586621680741594)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Lambda_6989586621680741610Sym0
instance forall k2 k3 k4 k5 k (kf6989586621680741608 :: k2 Data.Singletons.~> (k3, k4 Data.Singletons.~> k5)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741610Sym1 kf6989586621680741608)
instance forall k2 k3 k4 k5 k (kf6989586621680741608 :: k2 Data.Singletons.~> (k3, k4 Data.Singletons.~> k5)) (kv6989586621680741609 :: k3 Data.Singletons.~> (k, k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741610Sym2 kf6989586621680741608 kv6989586621680741609)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Lambda_6989586621680741664Sym0
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680741661 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741664Sym1 f6989586621680741661)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680741661 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (kx6989586621680741662 :: k5 Data.Singletons.~> (k6, k2)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741664Sym2 f6989586621680741661 kx6989586621680741662)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680741661 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (kx6989586621680741662 :: k5 Data.Singletons.~> (k6, k2)) (ky6989586621680741663 :: k6 Data.Singletons.~> (k7, k3)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741664Sym3 f6989586621680741661 kx6989586621680741662 ky6989586621680741663)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Lambda_6989586621680741714Sym0
instance forall k2 k3 k4 k (f6989586621680741712 :: k2 Data.Singletons.~> k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741714Sym1 f6989586621680741712)
instance forall k2 k3 k4 k (f6989586621680741712 :: k2 Data.Singletons.~> k3) (k6989586621680741713 :: k4 Data.Singletons.~> (k, k2)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741714Sym2 f6989586621680741712 k6989586621680741713)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Lambda_6989586621680741743Sym0
instance forall k2 k3 (x6989586621680741742 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741743Sym1 x6989586621680741742)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Lambda_6989586621680741758Sym0
instance forall k2 k3 k4 k5 k6 (kf6989586621680741756 :: k2 Data.Singletons.~> (k3, k4 Data.Singletons.~> k5)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741758Sym1 kf6989586621680741756)
instance forall k2 k3 k4 k5 k6 (kf6989586621680741756 :: k2 Data.Singletons.~> (k3, k4 Data.Singletons.~> k5)) (kv6989586621680741757 :: k6 Data.Singletons.~> (k2, k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741758Sym2 kf6989586621680741756 kv6989586621680741757)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Lambda_6989586621680741812Sym0
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680741809 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741812Sym1 f6989586621680741809)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680741809 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (kx6989586621680741810 :: k5 Data.Singletons.~> (k6, k2)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741812Sym2 f6989586621680741809 kx6989586621680741810)
instance forall k2 k3 k4 k5 k6 k7 (f6989586621680741809 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> k4)) (kx6989586621680741810 :: k5 Data.Singletons.~> (k6, k2)) (ky6989586621680741811 :: k7 Data.Singletons.~> (k5, k3)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Lambda_6989586621680741812Sym3 f6989586621680741809 kx6989586621680741810 ky6989586621680741811)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741239MkConstSym0
instance forall k1 k2 k3 k4 m6989586621680740804 (t6989586621680740803 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741239MkConstSym1 t6989586621680740803)
instance forall k1 k2 k3 k4 m1 (t6989586621680740803 :: k1) m2. Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741239MkConstSym2 t6989586621680740803 m2)
instance forall k1 k2 k3 k4 m1 (t6989586621680740803 :: k1) m2 (a6989586621680740805 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741239MkConstSym3 t6989586621680740803 m2 a6989586621680740805)
instance forall k1 k2 k3 k4 m1 (t6989586621680740803 :: k1) m2 (a6989586621680740805 :: k2) (f6989586621680741237 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741239MkConstSym4 t6989586621680740803 m2 a6989586621680740805 f6989586621680741237)
instance forall k1 k2 k3 k4 (t6989586621680740803 :: k1) m6989586621680740804 (a6989586621680740805 :: k2) (f6989586621680741237 :: k3) (x6989586621680741238 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741239MkConstSym5 t6989586621680740803 m6989586621680740804 a6989586621680740805 f6989586621680741237 x6989586621680741238)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741245Scrutinee_6989586621680740898Sym0
instance forall k1 k2 a m (t :: * -> *) (t6989586621680740803 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741245Scrutinee_6989586621680740898Sym1 t6989586621680740803)
instance forall k1 k2 a m (t :: * -> *) (t6989586621680740803 :: k1) m6989586621680740804. Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741245Scrutinee_6989586621680740898Sym2 t6989586621680740803 m6989586621680740804)
instance forall k1 k2 a m (t :: * -> *) (t6989586621680740803 :: k1) m6989586621680740804 (a6989586621680740805 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741245Scrutinee_6989586621680740898Sym3 t6989586621680740803 m6989586621680740804 a6989586621680740805)
instance forall k1 k2 a m (t :: * -> *) (t6989586621680740803 :: k1) m6989586621680740804 (a6989586621680740805 :: k2) (f6989586621680741237 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741245Scrutinee_6989586621680740898Sym4 t6989586621680740803 m6989586621680740804 a6989586621680740805 f6989586621680741237)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741258Scrutinee_6989586621680740895Sym0
instance forall k1 k2 k3 a b (t :: * -> *) (t6989586621680740806 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741258Scrutinee_6989586621680740895Sym1 t6989586621680740806)
instance forall k1 k2 k3 a b (t :: * -> *) (t6989586621680740806 :: k1) (a6989586621680740807 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741258Scrutinee_6989586621680740895Sym2 t6989586621680740806 a6989586621680740807)
instance forall k1 k2 k3 a b (t :: * -> *) (t6989586621680740806 :: k1) (a6989586621680740807 :: k2) (b6989586621680740808 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741258Scrutinee_6989586621680740895Sym3 t6989586621680740806 a6989586621680740807 b6989586621680740808)
instance forall k1 k2 k3 a b (t :: * -> *) (t6989586621680740806 :: k1) (a6989586621680740807 :: k2) (b6989586621680740808 :: k3) (f6989586621680741256 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741258Scrutinee_6989586621680740895Sym4 t6989586621680740806 a6989586621680740807 b6989586621680740808 f6989586621680741256)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741519S'Sym0
instance forall k1 k2 k3 k4 (s6989586621680741518 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741519S'Sym1 s6989586621680741518)
instance forall k1 k2 k3 k4 (s6989586621680741518 :: k1) (f6989586621680741514 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741519S'Sym2 s6989586621680741518 f6989586621680741514)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741519VSym0
instance forall k1 k2 k3 k4 (s6989586621680741518 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741519VSym1 s6989586621680741518)
instance forall k1 k2 k3 k4 (s6989586621680741518 :: k1) (f6989586621680741514 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741519VSym2 s6989586621680741518 f6989586621680741514)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741519X_6989586621680741520Sym0
instance forall k1 k2 k3 (s6989586621680741518 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741519X_6989586621680741520Sym1 s6989586621680741518)
instance forall k1 k2 k3 (s6989586621680741518 :: k1) (f6989586621680741514 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741519X_6989586621680741520Sym2 s6989586621680741518 f6989586621680741514)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741613FSym0
instance forall k1 k2 k3 k4 (s6989586621680741612 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613FSym1 s6989586621680741612)
instance forall k1 k2 k3 k4 (s6989586621680741612 :: k1) (kf6989586621680741608 :: k1 Data.Singletons.~> (k2, k3)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613FSym2 s6989586621680741612 kf6989586621680741608)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741613S''Sym0
instance forall k2 k3 k4 k5 k6 (s6989586621680741612 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613S''Sym1 s6989586621680741612)
instance forall k2 k3 k4 k5 k6 (s6989586621680741612 :: k2) (kf6989586621680741608 :: k2 Data.Singletons.~> (k3, k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613S''Sym2 s6989586621680741612 kf6989586621680741608)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741613S'Sym0
instance forall k1 k2 k3 k4 (s6989586621680741612 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613S'Sym1 s6989586621680741612)
instance forall k1 k2 k3 k4 (s6989586621680741612 :: k1) (kf6989586621680741608 :: k1 Data.Singletons.~> (k2, k3)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613S'Sym2 s6989586621680741612 kf6989586621680741608)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741613VSym0
instance forall k2 k3 k4 k5 k6 (s6989586621680741612 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613VSym1 s6989586621680741612)
instance forall k2 k3 k4 k5 k6 (s6989586621680741612 :: k2) (kf6989586621680741608 :: k2 Data.Singletons.~> (k3, k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613VSym2 s6989586621680741612 kf6989586621680741608)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741613X_6989586621680741614Sym0
instance forall k1 k2 k3 (s6989586621680741612 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613X_6989586621680741614Sym1 s6989586621680741612)
instance forall k1 k2 k3 (s6989586621680741612 :: k1) (kf6989586621680741608 :: k1 Data.Singletons.~> k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613X_6989586621680741614Sym2 s6989586621680741612 kf6989586621680741608)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741613X_6989586621680741620Sym0
instance forall k2 k3 k4 k5 (s6989586621680741612 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613X_6989586621680741620Sym1 s6989586621680741612)
instance forall k2 k3 k4 k5 (s6989586621680741612 :: k2) (kf6989586621680741608 :: k2 Data.Singletons.~> (k3, k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741613X_6989586621680741620Sym2 s6989586621680741612 kf6989586621680741608)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741667S''Sym0
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741666 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667S''Sym1 s6989586621680741666)
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741666 :: k2) (f6989586621680741661 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667S''Sym2 s6989586621680741666 f6989586621680741661)
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741666 :: k2) (f6989586621680741661 :: k3) (kx6989586621680741662 :: k2 Data.Singletons.~> (k4, k5)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667S''Sym3 s6989586621680741666 f6989586621680741661 kx6989586621680741662)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741667S'Sym0
instance forall k1 k2 k3 k4 k5 (s6989586621680741666 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667S'Sym1 s6989586621680741666)
instance forall k1 k2 k3 k4 k5 (s6989586621680741666 :: k1) (f6989586621680741661 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667S'Sym2 s6989586621680741666 f6989586621680741661)
instance forall k1 k2 k3 k4 k5 (s6989586621680741666 :: k1) (f6989586621680741661 :: k2) (kx6989586621680741662 :: k1 Data.Singletons.~> (k3, k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667S'Sym3 s6989586621680741666 f6989586621680741661 kx6989586621680741662)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741667XSym0
instance forall k1 k2 k3 k4 k5 (s6989586621680741666 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667XSym1 s6989586621680741666)
instance forall k1 k2 k3 k4 k5 (s6989586621680741666 :: k1) (f6989586621680741661 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667XSym2 s6989586621680741666 f6989586621680741661)
instance forall k1 k2 k3 k4 k5 (s6989586621680741666 :: k1) (f6989586621680741661 :: k2) (kx6989586621680741662 :: k1 Data.Singletons.~> (k3, k4)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667XSym3 s6989586621680741666 f6989586621680741661 kx6989586621680741662)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741667X_6989586621680741668Sym0
instance forall k1 k2 k3 k4 (s6989586621680741666 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667X_6989586621680741668Sym1 s6989586621680741666)
instance forall k1 k2 k3 k4 (s6989586621680741666 :: k1) (f6989586621680741661 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667X_6989586621680741668Sym2 s6989586621680741666 f6989586621680741661)
instance forall k1 k2 k3 k4 (s6989586621680741666 :: k1) (f6989586621680741661 :: k2) (kx6989586621680741662 :: k1 Data.Singletons.~> k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667X_6989586621680741668Sym3 s6989586621680741666 f6989586621680741661 kx6989586621680741662)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741667X_6989586621680741674Sym0
instance forall k2 k3 k4 k5 k6 (s6989586621680741666 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667X_6989586621680741674Sym1 s6989586621680741666)
instance forall k2 k3 k4 k5 k6 (s6989586621680741666 :: k2) (f6989586621680741661 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667X_6989586621680741674Sym2 s6989586621680741666 f6989586621680741661)
instance forall k2 k3 k4 k5 k6 (s6989586621680741666 :: k2) (f6989586621680741661 :: k3) (kx6989586621680741662 :: k2 Data.Singletons.~> (k4, k5)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667X_6989586621680741674Sym3 s6989586621680741666 f6989586621680741661 kx6989586621680741662)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741667YSym0
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741666 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667YSym1 s6989586621680741666)
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741666 :: k2) (f6989586621680741661 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667YSym2 s6989586621680741666 f6989586621680741661)
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741666 :: k2) (f6989586621680741661 :: k3) (kx6989586621680741662 :: k2 Data.Singletons.~> (k4, k5)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741667YSym3 s6989586621680741666 f6989586621680741661 kx6989586621680741662)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741717S'Sym0
instance forall k1 k2 k3 k4 (s6989586621680741716 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741717S'Sym1 s6989586621680741716)
instance forall k1 k2 k3 k4 (s6989586621680741716 :: k1) (f6989586621680741712 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741717S'Sym2 s6989586621680741716 f6989586621680741712)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741717VSym0
instance forall k1 k2 k3 k4 (s6989586621680741716 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741717VSym1 s6989586621680741716)
instance forall k1 k2 k3 k4 (s6989586621680741716 :: k1) (f6989586621680741712 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741717VSym2 s6989586621680741716 f6989586621680741712)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741717X_6989586621680741718Sym0
instance forall k1 k2 k3 (s6989586621680741716 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741717X_6989586621680741718Sym1 s6989586621680741716)
instance forall k1 k2 k3 (s6989586621680741716 :: k1) (f6989586621680741712 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741717X_6989586621680741718Sym2 s6989586621680741716 f6989586621680741712)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741761FSym0
instance forall k2 k3 k4 k5 k6 (s6989586621680741760 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761FSym1 s6989586621680741760)
instance forall k2 k3 k4 k5 k6 (s6989586621680741760 :: k2) (kf6989586621680741756 :: k3 Data.Singletons.~> (k4, k5)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761FSym2 s6989586621680741760 kf6989586621680741756)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741761S''Sym0
instance forall k2 k3 k4 k5 k6 (s6989586621680741760 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761S''Sym1 s6989586621680741760)
instance forall k2 k3 k4 k5 k6 (s6989586621680741760 :: k2) (kf6989586621680741756 :: k3 Data.Singletons.~> (k4, k5)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761S''Sym2 s6989586621680741760 kf6989586621680741756)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741761S'Sym0
instance forall k1 k2 k3 k4 (s6989586621680741760 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761S'Sym1 s6989586621680741760)
instance forall k1 k2 k3 k4 (s6989586621680741760 :: k1) (kf6989586621680741756 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761S'Sym2 s6989586621680741760 kf6989586621680741756)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741761VSym0
instance forall k1 k2 k3 k4 (s6989586621680741760 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761VSym1 s6989586621680741760)
instance forall k1 k2 k3 k4 (s6989586621680741760 :: k1) (kf6989586621680741756 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761VSym2 s6989586621680741760 kf6989586621680741756)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741761X_6989586621680741762Sym0
instance forall k1 k2 k3 (s6989586621680741760 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761X_6989586621680741762Sym1 s6989586621680741760)
instance forall k1 k2 k3 (s6989586621680741760 :: k1) (kf6989586621680741756 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761X_6989586621680741762Sym2 s6989586621680741760 kf6989586621680741756)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741761X_6989586621680741768Sym0
instance forall k2 k3 k4 k5 (s6989586621680741760 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761X_6989586621680741768Sym1 s6989586621680741760)
instance forall k2 k3 k4 k5 (s6989586621680741760 :: k2) (kf6989586621680741756 :: k3 Data.Singletons.~> k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741761X_6989586621680741768Sym2 s6989586621680741760 kf6989586621680741756)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741815S''Sym0
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741814 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815S''Sym1 s6989586621680741814)
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741814 :: k2) (f6989586621680741809 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815S''Sym2 s6989586621680741814 f6989586621680741809)
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741814 :: k2) (f6989586621680741809 :: k3) (kx6989586621680741810 :: k4 Data.Singletons.~> (k5, k6)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815S''Sym3 s6989586621680741814 f6989586621680741809 kx6989586621680741810)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741815S'Sym0
instance forall k1 k2 k3 k4 k5 (s6989586621680741814 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815S'Sym1 s6989586621680741814)
instance forall k1 k2 k3 k4 k5 (s6989586621680741814 :: k1) (f6989586621680741809 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815S'Sym2 s6989586621680741814 f6989586621680741809)
instance forall k1 k2 k3 k4 k5 (s6989586621680741814 :: k1) (f6989586621680741809 :: k2) (kx6989586621680741810 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815S'Sym3 s6989586621680741814 f6989586621680741809 kx6989586621680741810)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741815XSym0
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741814 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815XSym1 s6989586621680741814)
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741814 :: k2) (f6989586621680741809 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815XSym2 s6989586621680741814 f6989586621680741809)
instance forall k2 k3 k4 k5 k6 k7 (s6989586621680741814 :: k2) (f6989586621680741809 :: k3) (kx6989586621680741810 :: k4 Data.Singletons.~> (k5, k6)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815XSym3 s6989586621680741814 f6989586621680741809 kx6989586621680741810)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741815X_6989586621680741816Sym0
instance forall k1 k2 k3 k4 (s6989586621680741814 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815X_6989586621680741816Sym1 s6989586621680741814)
instance forall k1 k2 k3 k4 (s6989586621680741814 :: k1) (f6989586621680741809 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815X_6989586621680741816Sym2 s6989586621680741814 f6989586621680741809)
instance forall k1 k2 k3 k4 (s6989586621680741814 :: k1) (f6989586621680741809 :: k2) (kx6989586621680741810 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815X_6989586621680741816Sym3 s6989586621680741814 f6989586621680741809 kx6989586621680741810)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741815X_6989586621680741822Sym0
instance forall k2 k3 k4 k5 k6 (s6989586621680741814 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815X_6989586621680741822Sym1 s6989586621680741814)
instance forall k2 k3 k4 k5 k6 (s6989586621680741814 :: k2) (f6989586621680741809 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815X_6989586621680741822Sym2 s6989586621680741814 f6989586621680741809)
instance forall k2 k3 k4 k5 k6 (s6989586621680741814 :: k2) (f6989586621680741809 :: k3) (kx6989586621680741810 :: k4 Data.Singletons.~> k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815X_6989586621680741822Sym3 s6989586621680741814 f6989586621680741809 kx6989586621680741810)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Let6989586621680741815YSym0
instance forall k1 k2 k3 k4 k5 (s6989586621680741814 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815YSym1 s6989586621680741814)
instance forall k1 k2 k3 k4 k5 (s6989586621680741814 :: k1) (f6989586621680741809 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815YSym2 s6989586621680741814 f6989586621680741809)
instance forall k1 k2 k3 k4 k5 (s6989586621680741814 :: k1) (f6989586621680741809 :: k2) (kx6989586621680741810 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Let6989586621680741815YSym3 s6989586621680741814 f6989586621680741809 kx6989586621680741810)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.LiftA2_6989586621680741652Sym0
instance forall a b c s (a6989586621680741658 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.LiftA2_6989586621680741652Sym1 a6989586621680741658)
instance forall a b c s (a6989586621680741658 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621680741659 :: Data.Traversable.Singletons.StateL s a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.LiftA2_6989586621680741652Sym2 a6989586621680741658 a6989586621680741659)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.LiftA2_6989586621680741800Sym0
instance forall a b c s (a6989586621680741806 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.LiftA2_6989586621680741800Sym1 a6989586621680741806)
instance forall a b c s (a6989586621680741806 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621680741807 :: Data.Traversable.Singletons.StateR s a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.LiftA2_6989586621680741800Sym2 a6989586621680741806 a6989586621680741807)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.MapAccumLSym0
instance forall a b c (t :: * -> *) (a6989586621680741278 :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.MapAccumLSym1 a6989586621680741278)
instance forall a b c (t :: * -> *) (a6989586621680741278 :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))) (a6989586621680741279 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.MapAccumLSym2 a6989586621680741278 a6989586621680741279)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.MapAccumRSym0
instance forall a b c (t :: * -> *) (a6989586621680741268 :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.MapAccumRSym1 a6989586621680741268)
instance forall a b c (t :: * -> *) (a6989586621680741268 :: a Data.Singletons.~> (b Data.Singletons.~> (a, c))) (a6989586621680741269 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.MapAccumRSym2 a6989586621680741268 a6989586621680741269)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.MapMSym0
instance forall a (m :: * -> *) b (t :: * -> *) (a6989586621680733994 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.MapMSym1 a6989586621680733994)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.MapM_6989586621680734023Sym0
instance forall a (m :: * -> *) b (t :: * -> *) (a6989586621680734032 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.MapM_6989586621680734023Sym1 a6989586621680734032)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.MapM_6989586621680741385Sym0
instance forall a (m :: * -> *) b (a6989586621680741390 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.MapM_6989586621680741385Sym1 a6989586621680741390)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Pure_6989586621680741589Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Pure_6989586621680741737Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.RunStateLSym0
instance forall s a (a6989586621680732396 :: Data.Traversable.Singletons.StateL s a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.RunStateLSym1 a6989586621680732396)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.RunStateRSym0
instance forall s a (a6989586621680732387 :: Data.Traversable.Singletons.StateR s a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.RunStateRSym1 a6989586621680732387)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.SequenceASym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.SequenceA_6989586621680734013Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.SequenceA_6989586621680741378Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.SequenceSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Sequence_6989586621680734037Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Sequence_6989586621680741393Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.TFHelper_6989586621680741601Sym0
instance forall s a b (a6989586621680741606 :: Data.Traversable.Singletons.StateL s (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.TFHelper_6989586621680741601Sym1 a6989586621680741606)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.TFHelper_6989586621680741749Sym0
instance forall s a b (a6989586621680741754 :: Data.Traversable.Singletons.StateR s (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.TFHelper_6989586621680741749Sym1 a6989586621680741754)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.TraverseSym0
instance forall a (f :: * -> *) b (t :: * -> *) (a6989586621680733986 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.TraverseSym1 a6989586621680733986)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680734001Sym0
instance forall a (f :: * -> *) b (t :: * -> *) (a6989586621680734008 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680734001Sym1 a6989586621680734008)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741308Sym0
instance forall a (f :: * -> *) b (a6989586621680741313 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741308Sym1 a6989586621680741313)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741320Sym0
instance forall a (f :: * -> *) b (a6989586621680741325 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741320Sym1 a6989586621680741325)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741333Sym0
instance forall a (f :: * -> *) b (a6989586621680741338 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741333Sym1 a6989586621680741338)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741345Sym0
instance forall a1 (f :: * -> *) b a2 (a6989586621680741350 :: a1 Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741345Sym1 a6989586621680741350)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741358Sym0
instance forall a1 (f :: * -> *) b a2 (a6989586621680741363 :: a1 Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741358Sym1 a6989586621680741363)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741370Sym0
instance forall a (f :: * -> *) b (a6989586621680741375 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741370Sym1 a6989586621680741375)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741400Sym0
instance forall a (f :: * -> *) b m (a6989586621680741405 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741400Sym1 a6989586621680741405)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741411Sym0
instance forall a (f :: * -> *) b (a6989586621680741416 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741411Sym1 a6989586621680741416)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741422Sym0
instance forall a (f :: * -> *) b (a6989586621680741427 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741422Sym1 a6989586621680741427)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741433Sym0
instance forall a (f :: * -> *) b (a6989586621680741438 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741433Sym1 a6989586621680741438)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741444Sym0
instance forall a (f :: * -> *) b (a6989586621680741449 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741444Sym1 a6989586621680741449)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741455Sym0
instance forall a (f :: * -> *) b (a6989586621680741460 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741455Sym1 a6989586621680741460)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Traversable.Singletons.Traverse_6989586621680741466Sym0
instance forall a (f :: * -> *) b (a6989586621680741471 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Traversable.Singletons.Traverse_6989586621680741466Sym1 a6989586621680741471)
-- | Defines the promoted version of Semigroup, PSemigroup,
-- and the singleton version, SSemigroup.
module Data.Semigroup.Singletons
class PSemigroup a where {
type (arg :: a) <> (arg1 :: a) :: a;
type Sconcat (arg :: NonEmpty a) :: a;
type Sconcat arg :: NonEmpty a = Apply Sconcat_6989586621679207895Sym0 :: TyFun NonEmpty a a -> Type arg;
}
infixr 6 <>
class SSemigroup a
(%<>) :: forall (t1 :: a) (t2 :: a). SSemigroup a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<>@#@$) :: TyFun a (a ~> a) -> Type) t1) t2)
sSconcat :: forall (t :: NonEmpty a). SSemigroup a => Sing t -> Sing (Apply (SconcatSym0 :: TyFun (NonEmpty a) a -> Type) t)
($dmsSconcat) :: forall (t :: NonEmpty a). (SSemigroup a, Apply (SconcatSym0 :: TyFun (NonEmpty a) a -> Type) t ~ Apply (Sconcat_6989586621679207895Sym0 :: TyFun (NonEmpty a) a -> Type) t) => Sing t -> Sing (Apply (SconcatSym0 :: TyFun (NonEmpty a) a -> Type) t)
infixr 6 %<>
type family Sing :: k -> Type
data SMin (a1 :: Min a)
[SMin] :: forall a (n :: a). Sing n -> SMin ('Min n)
data SMax (a1 :: Max a)
[SMax] :: forall a (n :: a). Sing n -> SMax ('Max n)
data SFirst (a1 :: First a)
[SFirst] :: forall a (n :: a). Sing n -> SFirst ('First n)
data SLast (a1 :: Last a)
[SLast] :: forall a (n :: a). Sing n -> SLast ('Last n)
data SWrappedMonoid (a :: WrappedMonoid m)
[SWrapMonoid] :: forall m (n :: m). Sing n -> SWrappedMonoid ('WrapMonoid n)
data SDual (a1 :: Dual a)
[SDual] :: forall a (n :: a). Sing n -> SDual ('Dual n)
data SAll (a :: All)
[SAll] :: forall (n :: Bool). Sing n -> SAll ('All n)
data SAny (a :: Any)
[SAny] :: forall (n :: Bool). Sing n -> SAny ('Any n)
data SSum (a1 :: Sum a)
[SSum] :: forall a (n :: a). Sing n -> SSum ('Sum n)
data SProduct (a1 :: Product a)
[SProduct] :: forall a (n :: a). Sing n -> SProduct ('Product n)
data SArg (a1 :: Arg a b)
[SArg] :: forall a b (n1 :: a) (n2 :: b). Sing n1 -> Sing n2 -> SArg ('Arg n1 n2)
type family GetMin (a1 :: Min a) :: a
type family GetMax (a1 :: Max a) :: a
type family GetFirst (a1 :: First a) :: a
type family GetLast (a1 :: Last a) :: a
type family UnwrapMonoid (a :: WrappedMonoid m) :: m
type family GetDual (a1 :: Dual a) :: a
type family GetAll (a :: All) :: Bool
type family GetAny (a :: Any) :: Bool
type family GetSum (a1 :: Sum a) :: a
type family GetProduct (a1 :: Product a) :: a
sGetMin :: forall a (t :: Min a). Sing t -> Sing (Apply (GetMinSym0 :: TyFun (Min a) a -> Type) t)
sGetMax :: forall a (t :: Max a). Sing t -> Sing (Apply (GetMaxSym0 :: TyFun (Max a) a -> Type) t)
sGetFirst :: forall a (t :: First a). Sing t -> Sing (Apply (GetFirstSym0 :: TyFun (First a) a -> Type) t)
sGetLast :: forall a (t :: Last a). Sing t -> Sing (Apply (GetLastSym0 :: TyFun (Last a) a -> Type) t)
sUnwrapMonoid :: forall m (t :: WrappedMonoid m). Sing t -> Sing (Apply (UnwrapMonoidSym0 :: TyFun (WrappedMonoid m) m -> Type) t)
sGetDual :: forall a (t :: Dual a). Sing t -> Sing (Apply (GetDualSym0 :: TyFun (Dual a) a -> Type) t)
sGetAll :: forall (t :: All). Sing t -> Sing (Apply GetAllSym0 t)
sGetAny :: forall (t :: Any). Sing t -> Sing (Apply GetAnySym0 t)
sGetSum :: forall a (t :: Sum a). Sing t -> Sing (Apply (GetSumSym0 :: TyFun (Sum a) a -> Type) t)
sGetProduct :: forall a (t :: Product a). Sing t -> Sing (Apply (GetProductSym0 :: TyFun (Product a) a -> Type) t)
data (a1 :: TyFun a a ~> a) <>@#@$
infixr 6 <>@#@$
data (a6989586621679207889 :: a) <>@#@$$ (b :: TyFun a a)
infixr 6 <>@#@$$
type family (a6989586621679207889 :: a) <>@#@$$$ (a6989586621679207890 :: a) :: a
infixr 6 <>@#@$$$
data SconcatSym0 (a1 :: TyFun NonEmpty a a)
type family SconcatSym1 (a6989586621679207893 :: NonEmpty a) :: a
data MinSym0 (a1 :: TyFun a Min a)
type family MinSym1 (a6989586621679687620 :: a) :: Min a
data GetMinSym0 (a1 :: TyFun Min a a)
type family GetMinSym1 (a6989586621679687623 :: Min a) :: a
data MaxSym0 (a1 :: TyFun a Max a)
type family MaxSym1 (a6989586621679687639 :: a) :: Max a
data GetMaxSym0 (a1 :: TyFun Max a a)
type family GetMaxSym1 (a6989586621679687642 :: Max a) :: a
data FirstSym0 (a1 :: TyFun a First a)
type family FirstSym1 (a6989586621679687658 :: a) :: First a
data GetFirstSym0 (a1 :: TyFun First a a)
type family GetFirstSym1 (a6989586621679687661 :: First a) :: a
data LastSym0 (a1 :: TyFun a Last a)
type family LastSym1 (a6989586621679687677 :: a) :: Last a
data GetLastSym0 (a1 :: TyFun Last a a)
type family GetLastSym1 (a6989586621679687680 :: Last a) :: a
data WrapMonoidSym0 (a :: TyFun m WrappedMonoid m)
type family WrapMonoidSym1 (a6989586621679687696 :: m) :: WrappedMonoid m
data UnwrapMonoidSym0 (a :: TyFun WrappedMonoid m m)
type family UnwrapMonoidSym1 (a6989586621679687699 :: WrappedMonoid m) :: m
data DualSym0 (a1 :: TyFun a Dual a)
type family DualSym1 (a6989586621679687531 :: a) :: Dual a
data GetDualSym0 (a1 :: TyFun Dual a a)
type family GetDualSym1 (a6989586621679687534 :: Dual a) :: a
data AllSym0 (a :: TyFun Bool All)
type family AllSym1 (a6989586621679687547 :: Bool) :: All
data GetAllSym0 (a :: TyFun All Bool)
type family GetAllSym1 (a6989586621679687550 :: All) :: Bool
data AnySym0 (a :: TyFun Bool Any)
type family AnySym1 (a6989586621679687563 :: Bool) :: Any
data GetAnySym0 (a :: TyFun Any Bool)
type family GetAnySym1 (a6989586621679687566 :: Any) :: Bool
data SumSym0 (a1 :: TyFun a Sum a)
type family SumSym1 (a6989586621679687582 :: a) :: Sum a
data GetSumSym0 (a1 :: TyFun Sum a a)
type family GetSumSym1 (a6989586621679687585 :: Sum a) :: a
data ProductSym0 (a1 :: TyFun a Product a)
type family ProductSym1 (a6989586621679687601 :: a) :: Product a
data GetProductSym0 (a1 :: TyFun Product a a)
type family GetProductSym1 (a6989586621679687604 :: Product a) :: a
data ArgSym0 (a1 :: TyFun a b ~> Arg a b)
data ArgSym1 (a6989586621680862528 :: a) (b1 :: TyFun b Arg a b)
type family ArgSym2 (a6989586621680862528 :: a) (a6989586621680862529 :: b) :: Arg a b
instance forall a b (z :: Data.Semigroup.Arg a b). GHC.Classes.Eq (Data.Semigroup.Singletons.SArg z)
instance forall a b (z :: Data.Semigroup.Arg a b). GHC.Classes.Ord (Data.Semigroup.Singletons.SArg z)
instance Control.Monad.Singletons.Internal.PApplicative Data.Semigroup.First
instance Control.Monad.Singletons.Internal.PApplicative Data.Semigroup.Last
instance Control.Monad.Singletons.Internal.PApplicative Data.Semigroup.Max
instance Control.Monad.Singletons.Internal.PApplicative Data.Semigroup.Min
instance Data.Singletons.Base.Enum.PEnum (Data.Semigroup.First a)
instance Data.Singletons.Base.Enum.PEnum (Data.Semigroup.Last a)
instance Data.Singletons.Base.Enum.PEnum (Data.Semigroup.Max a)
instance Data.Singletons.Base.Enum.PEnum (Data.Semigroup.Min a)
instance Data.Singletons.Base.Enum.PEnum (Data.Semigroup.WrappedMonoid a)
instance Data.Eq.Singletons.PEq (Data.Semigroup.Arg a b)
instance Data.Foldable.Singletons.PFoldable (Data.Semigroup.Arg a)
instance Data.Foldable.Singletons.PFoldable Data.Semigroup.First
instance Data.Foldable.Singletons.PFoldable Data.Semigroup.Last
instance Data.Foldable.Singletons.PFoldable Data.Semigroup.Max
instance Data.Foldable.Singletons.PFoldable Data.Semigroup.Min
instance Control.Monad.Singletons.Internal.PFunctor (Data.Semigroup.Arg a)
instance Control.Monad.Singletons.Internal.PFunctor Data.Semigroup.First
instance Control.Monad.Singletons.Internal.PFunctor Data.Semigroup.Last
instance Control.Monad.Singletons.Internal.PFunctor Data.Semigroup.Max
instance Control.Monad.Singletons.Internal.PFunctor Data.Semigroup.Min
instance Control.Monad.Singletons.Internal.PMonad Data.Semigroup.First
instance Control.Monad.Singletons.Internal.PMonad Data.Semigroup.Last
instance Control.Monad.Singletons.Internal.PMonad Data.Semigroup.Max
instance Control.Monad.Singletons.Internal.PMonad Data.Semigroup.Min
instance Data.Monoid.Singletons.PMonoid (Data.Semigroup.Max a)
instance Data.Monoid.Singletons.PMonoid (Data.Semigroup.Min a)
instance Data.Monoid.Singletons.PMonoid (Data.Semigroup.WrappedMonoid m)
instance GHC.Num.Singletons.PNum (Data.Semigroup.Max a)
instance GHC.Num.Singletons.PNum (Data.Semigroup.Min a)
instance Data.Ord.Singletons.POrd (Data.Semigroup.Arg a b)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Semigroup.First a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Semigroup.Last a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Semigroup.Max a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Semigroup.Min a)
instance Data.Semigroup.Singletons.Internal.Classes.PSemigroup (Data.Semigroup.WrappedMonoid m)
instance Text.Show.Singletons.PShow Data.Semigroup.Internal.All
instance Text.Show.Singletons.PShow Data.Semigroup.Internal.Any
instance Text.Show.Singletons.PShow (Data.Semigroup.Arg a b)
instance Text.Show.Singletons.PShow (Data.Semigroup.Internal.Dual a)
instance Text.Show.Singletons.PShow (Data.Semigroup.First a)
instance Text.Show.Singletons.PShow (Data.Semigroup.Last a)
instance Text.Show.Singletons.PShow (Data.Semigroup.Max a)
instance Text.Show.Singletons.PShow (Data.Semigroup.Min a)
instance Text.Show.Singletons.PShow (Data.Semigroup.Internal.Product a)
instance Text.Show.Singletons.PShow (Data.Semigroup.Internal.Sum a)
instance Text.Show.Singletons.PShow (Data.Semigroup.WrappedMonoid m)
instance Data.Traversable.Singletons.PTraversable (Data.Semigroup.Arg a)
instance Data.Traversable.Singletons.PTraversable Data.Semigroup.First
instance Data.Traversable.Singletons.PTraversable Data.Semigroup.Last
instance Data.Traversable.Singletons.PTraversable Data.Semigroup.Max
instance Data.Traversable.Singletons.PTraversable Data.Semigroup.Min
instance Control.Monad.Singletons.Internal.SApplicative Data.Semigroup.First
instance Control.Monad.Singletons.Internal.SApplicative Data.Semigroup.Last
instance Control.Monad.Singletons.Internal.SApplicative Data.Semigroup.Max
instance Control.Monad.Singletons.Internal.SApplicative Data.Semigroup.Min
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.Base.Enum.SEnum (Data.Semigroup.First a)
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.Base.Enum.SEnum (Data.Semigroup.Last a)
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.Base.Enum.SEnum (Data.Semigroup.Max a)
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.Base.Enum.SEnum (Data.Semigroup.Min a)
instance Data.Singletons.Base.Enum.SEnum a => Data.Singletons.Base.Enum.SEnum (Data.Semigroup.WrappedMonoid a)
instance Data.Eq.Singletons.SEq a => Data.Eq.Singletons.SEq (Data.Semigroup.Arg a b)
instance Data.Foldable.Singletons.SFoldable (Data.Semigroup.Arg a)
instance Data.Foldable.Singletons.SFoldable Data.Semigroup.First
instance Data.Foldable.Singletons.SFoldable Data.Semigroup.Last
instance Data.Foldable.Singletons.SFoldable Data.Semigroup.Max
instance Data.Foldable.Singletons.SFoldable Data.Semigroup.Min
instance Control.Monad.Singletons.Internal.SFunctor (Data.Semigroup.Arg a)
instance Control.Monad.Singletons.Internal.SFunctor Data.Semigroup.First
instance Control.Monad.Singletons.Internal.SFunctor Data.Semigroup.Last
instance Control.Monad.Singletons.Internal.SFunctor Data.Semigroup.Max
instance Control.Monad.Singletons.Internal.SFunctor Data.Semigroup.Min
instance Control.Monad.Singletons.Internal.SMonad Data.Semigroup.First
instance Control.Monad.Singletons.Internal.SMonad Data.Semigroup.Last
instance Control.Monad.Singletons.Internal.SMonad Data.Semigroup.Max
instance Control.Monad.Singletons.Internal.SMonad Data.Semigroup.Min
instance (Data.Ord.Singletons.SOrd a, Data.Singletons.Base.Enum.SBounded a) => Data.Monoid.Singletons.SMonoid (Data.Semigroup.Max a)
instance (Data.Ord.Singletons.SOrd a, Data.Singletons.Base.Enum.SBounded a) => Data.Monoid.Singletons.SMonoid (Data.Semigroup.Min a)
instance Data.Monoid.Singletons.SMonoid m => Data.Monoid.Singletons.SMonoid (Data.Semigroup.WrappedMonoid m)
instance GHC.Num.Singletons.SNum a => GHC.Num.Singletons.SNum (Data.Semigroup.Max a)
instance GHC.Num.Singletons.SNum a => GHC.Num.Singletons.SNum (Data.Semigroup.Min a)
instance Data.Ord.Singletons.SOrd a => Data.Ord.Singletons.SOrd (Data.Semigroup.Arg a b)
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Semigroup.First a)
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Semigroup.Last a)
instance Data.Ord.Singletons.SOrd a => Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Semigroup.Max a)
instance Data.Ord.Singletons.SOrd a => Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Semigroup.Min a)
instance Data.Monoid.Singletons.SMonoid m => Data.Semigroup.Singletons.Internal.Classes.SSemigroup (Data.Semigroup.WrappedMonoid m)
instance Text.Show.Singletons.SShow GHC.Types.Bool => Text.Show.Singletons.SShow Data.Semigroup.Internal.All
instance Text.Show.Singletons.SShow GHC.Types.Bool => Text.Show.Singletons.SShow Data.Semigroup.Internal.Any
instance (Text.Show.Singletons.SShow a, Text.Show.Singletons.SShow b) => Text.Show.Singletons.SShow (Data.Semigroup.Arg a b)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Semigroup.Internal.Dual a)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Semigroup.First a)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Semigroup.Last a)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Semigroup.Max a)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Semigroup.Min a)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Semigroup.Internal.Product a)
instance Text.Show.Singletons.SShow a => Text.Show.Singletons.SShow (Data.Semigroup.Internal.Sum a)
instance Text.Show.Singletons.SShow m => Text.Show.Singletons.SShow (Data.Semigroup.WrappedMonoid m)
instance Data.Traversable.Singletons.STraversable (Data.Semigroup.Arg a)
instance Data.Traversable.Singletons.STraversable Data.Semigroup.First
instance Data.Traversable.Singletons.STraversable Data.Semigroup.Last
instance Data.Traversable.Singletons.STraversable Data.Semigroup.Max
instance Data.Traversable.Singletons.STraversable Data.Semigroup.Min
instance Data.Singletons.ShowSing.ShowSing GHC.Types.Bool => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SAll z)
instance Data.Singletons.ShowSing.ShowSing GHC.Types.Bool => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SAny z)
instance forall a b (z :: Data.Semigroup.Arg a b). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b) => GHC.Show.Show (Data.Semigroup.Singletons.SArg z)
instance forall a (z :: Data.Semigroup.Internal.Dual a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SDual z)
instance forall a (z :: Data.Semigroup.First a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SFirst z)
instance forall a (z :: Data.Semigroup.Last a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SLast z)
instance forall a (z :: Data.Semigroup.Max a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SMax z)
instance forall a (z :: Data.Semigroup.Min a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SMin z)
instance forall a (z :: Data.Semigroup.Internal.Product a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SProduct z)
instance forall a (z :: Data.Semigroup.Internal.Sum a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SSum z)
instance forall m (z :: Data.Semigroup.WrappedMonoid m). Data.Singletons.ShowSing.ShowSing m => GHC.Show.Show (Data.Semigroup.Singletons.Internal.Wrappers.SWrappedMonoid z)
instance Data.Singletons.SingI1 Data.Semigroup.Singletons.ArgSym1
instance forall k1 a (n :: a). Data.Singletons.SingI n => Data.Singletons.SingI1 ('Data.Semigroup.Arg n)
instance Data.Singletons.SingI2 'Data.Semigroup.Arg
instance forall a (n1 :: a) b (n2 :: b). (Data.Singletons.SingI n1, Data.Singletons.SingI n2) => Data.Singletons.SingI ('Data.Semigroup.Arg n1 n2)
instance Data.Singletons.SingI Data.Semigroup.Singletons.ArgSym0
instance forall a (d :: a) b. Data.Singletons.SingI d => Data.Singletons.SingI (Data.Semigroup.Singletons.ArgSym1 d)
instance (Data.Singletons.SingKind a, Data.Singletons.SingKind b) => Data.Singletons.SingKind (Data.Semigroup.Arg a b)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Abs_6989586621680883187Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Abs_6989586621680883952Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ArgSym0
instance forall a b (a6989586621680862528 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ArgSym1 a6989586621680862528)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Compare_6989586621680884131Sym0
instance forall a b (a6989586621680884136 :: Data.Semigroup.Arg a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Compare_6989586621680884131Sym1 a6989586621680884136)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromThenTo_6989586621680882885Sym0
instance forall a (a6989586621680882891 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680882885Sym1 a6989586621680882891)
instance forall a (a6989586621680882891 :: Data.Semigroup.Min a) (a6989586621680882892 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680882885Sym2 a6989586621680882891 a6989586621680882892)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromThenTo_6989586621680883833Sym0
instance forall a (a6989586621680883839 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680883833Sym1 a6989586621680883839)
instance forall a (a6989586621680883839 :: Data.Semigroup.Max a) (a6989586621680883840 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680883833Sym2 a6989586621680883839 a6989586621680883840)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884352Sym0
instance forall a (a6989586621680884358 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884352Sym1 a6989586621680884358)
instance forall a (a6989586621680884358 :: Data.Semigroup.First a) (a6989586621680884359 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884352Sym2 a6989586621680884358 a6989586621680884359)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884560Sym0
instance forall a (a6989586621680884566 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884560Sym1 a6989586621680884566)
instance forall a (a6989586621680884566 :: Data.Semigroup.Last a) (a6989586621680884567 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884560Sym2 a6989586621680884566 a6989586621680884567)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884729Sym0
instance forall a (a6989586621680884735 :: Data.Semigroup.WrappedMonoid a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884729Sym1 a6989586621680884735)
instance forall a (a6989586621680884735 :: Data.Semigroup.WrappedMonoid a) (a6989586621680884736 :: Data.Semigroup.WrappedMonoid a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromThenTo_6989586621680884729Sym2 a6989586621680884735 a6989586621680884736)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromTo_6989586621680882873Sym0
instance forall a (a6989586621680882878 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromTo_6989586621680882873Sym1 a6989586621680882878)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromTo_6989586621680883821Sym0
instance forall a (a6989586621680883826 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromTo_6989586621680883821Sym1 a6989586621680883826)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromTo_6989586621680884340Sym0
instance forall a (a6989586621680884345 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromTo_6989586621680884340Sym1 a6989586621680884345)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromTo_6989586621680884548Sym0
instance forall a (a6989586621680884553 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromTo_6989586621680884548Sym1 a6989586621680884553)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.EnumFromTo_6989586621680884717Sym0
instance forall a (a6989586621680884722 :: Data.Semigroup.WrappedMonoid a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.EnumFromTo_6989586621680884717Sym1 a6989586621680884722)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Fmap_6989586621680882937Sym0
instance forall a b (a6989586621680882942 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Fmap_6989586621680882937Sym1 a6989586621680882942)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Fmap_6989586621680883847Sym0
instance forall a b (a6989586621680883852 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Fmap_6989586621680883847Sym1 a6989586621680883852)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Fmap_6989586621680884047Sym0
instance forall a1 b a2 (a6989586621680884052 :: a1 Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Fmap_6989586621680884047Sym1 a6989586621680884052)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Fmap_6989586621680884366Sym0
instance forall a b (a6989586621680884371 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Fmap_6989586621680884366Sym1 a6989586621680884371)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Fmap_6989586621680884574Sym0
instance forall a b (a6989586621680884579 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Fmap_6989586621680884574Sym1 a6989586621680884579)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FoldMap_6989586621680883293Sym0
instance forall a m (a6989586621680883298 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.FoldMap_6989586621680883293Sym1 a6989586621680883298)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FoldMap_6989586621680883976Sym0
instance forall a m (a6989586621680883981 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.FoldMap_6989586621680883976Sym1 a6989586621680883981)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FoldMap_6989586621680884208Sym0
instance forall a1 m a2 (a6989586621680884213 :: a1 Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.FoldMap_6989586621680884208Sym1 a6989586621680884213)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FoldMap_6989586621680884428Sym0
instance forall a m (a6989586621680884433 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.FoldMap_6989586621680884428Sym1 a6989586621680884433)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FoldMap_6989586621680884636Sym0
instance forall a m (a6989586621680884641 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.FoldMap_6989586621680884636Sym1 a6989586621680884641)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Foldr_6989586621680883305Sym0
instance forall a b (a6989586621680883311 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680883305Sym1 a6989586621680883311)
instance forall a b (a6989586621680883311 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680883312 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680883305Sym2 a6989586621680883311 a6989586621680883312)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Foldr_6989586621680883988Sym0
instance forall a b (a6989586621680883994 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680883988Sym1 a6989586621680883994)
instance forall a b (a6989586621680883994 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680883995 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680883988Sym2 a6989586621680883994 a6989586621680883995)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Foldr_6989586621680884225Sym0
instance forall a1 b a2 (a6989586621680884231 :: a1 Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680884225Sym1 a6989586621680884231)
instance forall a1 b a2 (a6989586621680884231 :: a1 Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680884232 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680884225Sym2 a6989586621680884231 a6989586621680884232)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Foldr_6989586621680884440Sym0
instance forall a b (a6989586621680884446 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680884440Sym1 a6989586621680884446)
instance forall a b (a6989586621680884446 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680884447 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680884440Sym2 a6989586621680884446 a6989586621680884447)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Foldr_6989586621680884648Sym0
instance forall a b (a6989586621680884654 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680884648Sym1 a6989586621680884654)
instance forall a b (a6989586621680884654 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621680884655 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Foldr_6989586621680884648Sym2 a6989586621680884654 a6989586621680884655)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FromEnum_6989586621680882865Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FromEnum_6989586621680883813Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FromEnum_6989586621680884332Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FromEnum_6989586621680884540Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FromEnum_6989586621680884709Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FromInteger_6989586621680883201Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.FromInteger_6989586621680883966Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680882957Sym0
instance forall k1 k2 k3 (_z_69895866216808824486989586621680882955 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680882957Sym1 _z_69895866216808824486989586621680882955)
instance forall k1 k2 k3 (_z_69895866216808824486989586621680882955 :: k1) (a_69895866216808824546989586621680882956 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680882957Sym2 _z_69895866216808824486989586621680882955 a_69895866216808824546989586621680882956)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680883867Sym0
instance forall k1 k2 k3 (_z_69895866216808824736989586621680883865 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680883867Sym1 _z_69895866216808824736989586621680883865)
instance forall k1 k2 k3 (_z_69895866216808824736989586621680883865 :: k1) (a_69895866216808824796989586621680883866 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680883867Sym2 _z_69895866216808824736989586621680883865 a_69895866216808824796989586621680883866)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680884057Sym0
instance forall k1 k2 k3 k4 (_f_69895866216808824976989586621680884054 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884057Sym1 _f_69895866216808824976989586621680884054)
instance forall k1 k2 k3 k4 (_f_69895866216808824976989586621680884054 :: k1) (a_69895866216808825036989586621680884055 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884057Sym2 _f_69895866216808824976989586621680884054 a_69895866216808825036989586621680884055)
instance forall k1 k2 k3 k4 (_f_69895866216808824976989586621680884054 :: k1) (a_69895866216808825036989586621680884055 :: k2) (a_69895866216808825056989586621680884056 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884057Sym3 _f_69895866216808824976989586621680884054 a_69895866216808825036989586621680884055 a_69895866216808825056989586621680884056)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680884073Sym0
instance forall k1 k2 k3 k4 (_z_69895866216808824996989586621680884070 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884073Sym1 _z_69895866216808824996989586621680884070)
instance forall k1 k2 k3 k4 (_z_69895866216808824996989586621680884070 :: k1) (a_69895866216808825116989586621680884071 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884073Sym2 _z_69895866216808824996989586621680884070 a_69895866216808825116989586621680884071)
instance forall k1 k2 k3 k4 (_z_69895866216808824996989586621680884070 :: k1) (a_69895866216808825116989586621680884071 :: k2) (a_69895866216808825136989586621680884072 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884073Sym3 _z_69895866216808824996989586621680884070 a_69895866216808825116989586621680884071 a_69895866216808825136989586621680884072)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680884077Sym0
instance forall k1 k2 k3 k4 (_z_69895866216808824996989586621680884070 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884077Sym1 _z_69895866216808824996989586621680884070)
instance forall k1 k2 k3 k4 (_z_69895866216808824996989586621680884070 :: k1) (a_69895866216808825116989586621680884071 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884077Sym2 _z_69895866216808824996989586621680884070 a_69895866216808825116989586621680884071)
instance forall k1 k2 k3 k4 (_z_69895866216808824996989586621680884070 :: k1) (a_69895866216808825116989586621680884071 :: k2) (a_69895866216808825136989586621680884072 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884077Sym3 _z_69895866216808824996989586621680884070 a_69895866216808825116989586621680884071 a_69895866216808825136989586621680884072)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680884218Sym0
instance forall k1 k2 k3 k4 k5 (_f_69895866216808825256989586621680884215 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884218Sym1 _f_69895866216808825256989586621680884215)
instance forall k1 k2 k3 k4 k5 (_f_69895866216808825256989586621680884215 :: k1) (a_69895866216808825316989586621680884216 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884218Sym2 _f_69895866216808825256989586621680884215 a_69895866216808825316989586621680884216)
instance forall k1 k2 k3 k4 k5 (_f_69895866216808825256989586621680884215 :: k1) (a_69895866216808825316989586621680884216 :: k2) (a_69895866216808825336989586621680884217 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884218Sym3 _f_69895866216808825256989586621680884215 a_69895866216808825316989586621680884216 a_69895866216808825336989586621680884217)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680884238Sym0
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216808825256989586621680884234 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884238Sym1 _f_69895866216808825256989586621680884234)
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216808825256989586621680884234 :: k1) (_z_69895866216808825276989586621680884235 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884238Sym2 _f_69895866216808825256989586621680884234 _z_69895866216808825276989586621680884235)
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216808825256989586621680884234 :: k1) (_z_69895866216808825276989586621680884235 :: k2) (a_69895866216808825396989586621680884236 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884238Sym3 _f_69895866216808825256989586621680884234 _z_69895866216808825276989586621680884235 a_69895866216808825396989586621680884236)
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216808825256989586621680884234 :: k1) (_z_69895866216808825276989586621680884235 :: k2) (a_69895866216808825396989586621680884236 :: k3) (a_69895866216808825416989586621680884237 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884238Sym4 _f_69895866216808825256989586621680884234 _z_69895866216808825276989586621680884235 a_69895866216808825396989586621680884236 a_69895866216808825416989586621680884237)
instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216808825256989586621680884234 :: k1) (_z_69895866216808825276989586621680884235 :: k2) (a_69895866216808825396989586621680884236 :: k3) (a_69895866216808825416989586621680884237 :: k4) (n1_69895866216808825356989586621680884240 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884238Sym5 _f_69895866216808825256989586621680884234 _z_69895866216808825276989586621680884235 a_69895866216808825396989586621680884236 a_69895866216808825416989586621680884237 n1_69895866216808825356989586621680884240)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680884386Sym0
instance forall k1 k2 k3 (_z_69895866216808825546989586621680884384 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884386Sym1 _z_69895866216808825546989586621680884384)
instance forall k1 k2 k3 (_z_69895866216808825546989586621680884384 :: k1) (a_69895866216808825606989586621680884385 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884386Sym2 _z_69895866216808825546989586621680884384 a_69895866216808825606989586621680884385)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Lambda_6989586621680884594Sym0
instance forall k1 k2 k3 (_z_69895866216808825796989586621680884592 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884594Sym1 _z_69895866216808825796989586621680884592)
instance forall k1 k2 k3 (_z_69895866216808825796989586621680884592 :: k1) (a_69895866216808825856989586621680884593 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Lambda_6989586621680884594Sym2 _z_69895866216808825796989586621680884592 a_69895866216808825856989586621680884593)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Let6989586621680884157XSym0
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157XSym1 a6989586621680884153)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2) (wild_69895866216808822816989586621680884154 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157XSym2 a6989586621680884153 wild_69895866216808822816989586621680884154)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2) (wild_69895866216808822816989586621680884154 :: k3) (b6989586621680884155 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157XSym3 a6989586621680884153 wild_69895866216808822816989586621680884154 b6989586621680884155)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2) (wild_69895866216808822816989586621680884154 :: k3) (b6989586621680884155 :: k4) (wild_69895866216808822836989586621680884156 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157XSym4 a6989586621680884153 wild_69895866216808822816989586621680884154 b6989586621680884155 wild_69895866216808822836989586621680884156)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2) (wild_69895866216808822816989586621680884154 :: k3) (b6989586621680884155 :: k4) (wild_69895866216808822836989586621680884156 :: k5) (arg_69895866216808822776989586621680884149 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157XSym5 a6989586621680884153 wild_69895866216808822816989586621680884154 b6989586621680884155 wild_69895866216808822836989586621680884156 arg_69895866216808822776989586621680884149)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Let6989586621680884157YSym0
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157YSym1 a6989586621680884153)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2) (wild_69895866216808822816989586621680884154 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157YSym2 a6989586621680884153 wild_69895866216808822816989586621680884154)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2) (wild_69895866216808822816989586621680884154 :: k3) (b6989586621680884155 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157YSym3 a6989586621680884153 wild_69895866216808822816989586621680884154 b6989586621680884155)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2) (wild_69895866216808822816989586621680884154 :: k3) (b6989586621680884155 :: k4) (wild_69895866216808822836989586621680884156 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157YSym4 a6989586621680884153 wild_69895866216808822816989586621680884154 b6989586621680884155 wild_69895866216808822836989586621680884156)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884153 :: k2) (wild_69895866216808822816989586621680884154 :: k3) (b6989586621680884155 :: k4) (wild_69895866216808822836989586621680884156 :: k5) (arg_69895866216808822776989586621680884149 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884157YSym5 a6989586621680884153 wild_69895866216808822816989586621680884154 b6989586621680884155 wild_69895866216808822836989586621680884156 arg_69895866216808822776989586621680884149)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Let6989586621680884181XSym0
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181XSym1 a6989586621680884177)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2) (wild_69895866216808822936989586621680884178 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181XSym2 a6989586621680884177 wild_69895866216808822936989586621680884178)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2) (wild_69895866216808822936989586621680884178 :: k3) (b6989586621680884179 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181XSym3 a6989586621680884177 wild_69895866216808822936989586621680884178 b6989586621680884179)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2) (wild_69895866216808822936989586621680884178 :: k3) (b6989586621680884179 :: k4) (wild_69895866216808822956989586621680884180 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181XSym4 a6989586621680884177 wild_69895866216808822936989586621680884178 b6989586621680884179 wild_69895866216808822956989586621680884180)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2) (wild_69895866216808822936989586621680884178 :: k3) (b6989586621680884179 :: k4) (wild_69895866216808822956989586621680884180 :: k5) (arg_69895866216808822896989586621680884173 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181XSym5 a6989586621680884177 wild_69895866216808822936989586621680884178 b6989586621680884179 wild_69895866216808822956989586621680884180 arg_69895866216808822896989586621680884173)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Let6989586621680884181YSym0
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181YSym1 a6989586621680884177)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2) (wild_69895866216808822936989586621680884178 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181YSym2 a6989586621680884177 wild_69895866216808822936989586621680884178)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2) (wild_69895866216808822936989586621680884178 :: k3) (b6989586621680884179 :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181YSym3 a6989586621680884177 wild_69895866216808822936989586621680884178 b6989586621680884179)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2) (wild_69895866216808822936989586621680884178 :: k3) (b6989586621680884179 :: k4) (wild_69895866216808822956989586621680884180 :: k5). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181YSym4 a6989586621680884177 wild_69895866216808822936989586621680884178 b6989586621680884179 wild_69895866216808822956989586621680884180)
instance forall k2 k3 k4 k5 k6 k7 (a6989586621680884177 :: k2) (wild_69895866216808822936989586621680884178 :: k3) (b6989586621680884179 :: k4) (wild_69895866216808822956989586621680884180 :: k5) (arg_69895866216808822896989586621680884173 :: k6). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Let6989586621680884181YSym5 a6989586621680884177 wild_69895866216808822936989586621680884178 b6989586621680884179 wild_69895866216808822956989586621680884180 arg_69895866216808822896989586621680884173)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.LiftA2_6989586621680882748Sym0
instance forall a b c (a6989586621680882754 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.LiftA2_6989586621680882748Sym1 a6989586621680882754)
instance forall a b c (a6989586621680882754 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621680882755 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.LiftA2_6989586621680882748Sym2 a6989586621680882754 a6989586621680882755)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.LiftA2_6989586621680883777Sym0
instance forall a b c (a6989586621680883783 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.LiftA2_6989586621680883777Sym1 a6989586621680883783)
instance forall a b c (a6989586621680883783 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621680883784 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.LiftA2_6989586621680883777Sym2 a6989586621680883783 a6989586621680883784)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.LiftA2_6989586621680884296Sym0
instance forall a b c (a6989586621680884302 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.LiftA2_6989586621680884296Sym1 a6989586621680884302)
instance forall a b c (a6989586621680884302 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621680884303 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.LiftA2_6989586621680884296Sym2 a6989586621680884302 a6989586621680884303)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.LiftA2_6989586621680884504Sym0
instance forall a b c (a6989586621680884510 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.LiftA2_6989586621680884504Sym1 a6989586621680884510)
instance forall a b c (a6989586621680884510 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621680884511 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.LiftA2_6989586621680884504Sym2 a6989586621680884510 a6989586621680884511)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Max_6989586621680884166Sym0
instance forall a b (a6989586621680884171 :: Data.Semigroup.Arg a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Max_6989586621680884166Sym1 a6989586621680884171)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Min_6989586621680884142Sym0
instance forall a b (a6989586621680884147 :: Data.Semigroup.Arg a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Min_6989586621680884142Sym1 a6989586621680884147)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Negate_6989586621680883180Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Negate_6989586621680883945Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pred_6989586621680882849Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pred_6989586621680883797Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pred_6989586621680884316Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pred_6989586621680884524Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pred_6989586621680884693Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pure_6989586621680882706Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pure_6989586621680883735Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pure_6989586621680884256Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Pure_6989586621680884464Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864355Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864355Sym1 a6989586621680864363)
instance forall a (a6989586621680864363 :: GHC.Num.Natural.Natural) (a6989586621680864364 :: Data.Semigroup.Internal.Dual a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864355Sym2 a6989586621680864363 a6989586621680864364)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864376Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864376Sym1 a6989586621680864384)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864376Sym2 a6989586621680864384 a6989586621680864385)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864397Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864397Sym1 a6989586621680864405)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864397Sym2 a6989586621680864405 a6989586621680864406)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864421Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864421Sym1 a6989586621680864429)
instance forall a (a6989586621680864429 :: GHC.Num.Natural.Natural) (a6989586621680864430 :: Data.Semigroup.Internal.Sum a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864421Sym2 a6989586621680864429 a6989586621680864430)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864445Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864445Sym1 a6989586621680864453)
instance forall a (a6989586621680864453 :: GHC.Num.Natural.Natural) (a6989586621680864454 :: Data.Semigroup.Internal.Product a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864445Sym2 a6989586621680864453 a6989586621680864454)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864469Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864469Sym1 a6989586621680864477)
instance forall a (a6989586621680864477 :: GHC.Num.Natural.Natural) (a6989586621680864478 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864469Sym2 a6989586621680864477 a6989586621680864478)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864493Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864493Sym1 a6989586621680864501)
instance forall a (a6989586621680864501 :: GHC.Num.Natural.Natural) (a6989586621680864502 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864493Sym2 a6989586621680864501 a6989586621680864502)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864517Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864517Sym1 a6989586621680864525)
instance forall a (a6989586621680864525 :: GHC.Num.Natural.Natural) (a6989586621680864526 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864517Sym2 a6989586621680864525 a6989586621680864526)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864541Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864541Sym1 a6989586621680864549)
instance forall a (a6989586621680864549 :: GHC.Num.Natural.Natural) (a6989586621680864550 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864541Sym2 a6989586621680864549 a6989586621680864550)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680864565Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864565Sym1 a6989586621680864573)
instance forall m (a6989586621680864573 :: GHC.Num.Natural.Natural) (a6989586621680864574 :: Data.Semigroup.WrappedMonoid m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680864565Sym2 a6989586621680864573 a6989586621680864574)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ShowsPrec_6989586621680884191Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680884191Sym1 a6989586621680884199)
instance forall a b (a6989586621680884199 :: GHC.Num.Natural.Natural) (a6989586621680884200 :: Data.Semigroup.Arg a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.ShowsPrec_6989586621680884191Sym2 a6989586621680884199 a6989586621680884200)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Signum_6989586621680883194Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Signum_6989586621680883959Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Succ_6989586621680882842Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Succ_6989586621680883790Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Succ_6989586621680884309Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Succ_6989586621680884517Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Succ_6989586621680884686Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680882716Sym0
instance forall a b (a6989586621680882721 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680882716Sym1 a6989586621680882721)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680882726Sym0
instance forall a b (a6989586621680882731 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680882726Sym1 a6989586621680882731)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680882736Sym0
instance forall a b (a6989586621680882741 :: Data.Semigroup.Min (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680882736Sym1 a6989586621680882741)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680882948Sym0
instance forall a b (a6989586621680882953 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680882948Sym1 a6989586621680882953)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680882973Sym0
instance forall a b (a6989586621680882982 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680882973Sym1 a6989586621680882982)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680882988Sym0
instance forall a b (a6989586621680882993 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680882988Sym1 a6989586621680882993)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883022Sym0
instance forall a (a6989586621680883027 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883022Sym1 a6989586621680883027)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883148Sym0
instance forall a (a6989586621680883153 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883148Sym1 a6989586621680883153)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883159Sym0
instance forall a (a6989586621680883164 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883159Sym1 a6989586621680883164)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883170Sym0
instance forall a (a6989586621680883175 :: Data.Semigroup.Min a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883170Sym1 a6989586621680883175)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883745Sym0
instance forall a b (a6989586621680883750 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883745Sym1 a6989586621680883750)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883755Sym0
instance forall a b (a6989586621680883760 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883755Sym1 a6989586621680883760)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883765Sym0
instance forall a b (a6989586621680883770 :: Data.Semigroup.Max (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883765Sym1 a6989586621680883770)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883858Sym0
instance forall a b (a6989586621680883863 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883858Sym1 a6989586621680883863)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883873Sym0
instance forall a b (a6989586621680883882 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883873Sym1 a6989586621680883882)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883888Sym0
instance forall a b (a6989586621680883893 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883888Sym1 a6989586621680883893)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883899Sym0
instance forall a (a6989586621680883904 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883899Sym1 a6989586621680883904)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883913Sym0
instance forall a (a6989586621680883918 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883913Sym1 a6989586621680883918)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883924Sym0
instance forall a (a6989586621680883929 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883924Sym1 a6989586621680883929)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680883935Sym0
instance forall a (a6989586621680883940 :: Data.Semigroup.Max a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680883935Sym1 a6989586621680883940)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884036Sym0
instance forall a b (a6989586621680884041 :: Data.Semigroup.Arg a b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884036Sym1 a6989586621680884041)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884063Sym0
instance forall a1 a2 b (a6989586621680884068 :: a1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884063Sym1 a6989586621680884068)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884264Sym0
instance forall a b (a6989586621680884269 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884264Sym1 a6989586621680884269)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884274Sym0
instance forall a b (a6989586621680884279 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884274Sym1 a6989586621680884279)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884284Sym0
instance forall a b (a6989586621680884289 :: Data.Semigroup.First (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884284Sym1 a6989586621680884289)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884377Sym0
instance forall a b (a6989586621680884382 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884377Sym1 a6989586621680884382)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884392Sym0
instance forall a b (a6989586621680884401 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884392Sym1 a6989586621680884401)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884407Sym0
instance forall a b (a6989586621680884412 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884407Sym1 a6989586621680884412)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884418Sym0
instance forall a (a6989586621680884423 :: Data.Semigroup.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884418Sym1 a6989586621680884423)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884472Sym0
instance forall a b (a6989586621680884477 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884472Sym1 a6989586621680884477)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884482Sym0
instance forall a b (a6989586621680884487 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884482Sym1 a6989586621680884487)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884492Sym0
instance forall a b (a6989586621680884497 :: Data.Semigroup.Last (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884492Sym1 a6989586621680884497)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884585Sym0
instance forall a b (a6989586621680884590 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884585Sym1 a6989586621680884590)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884600Sym0
instance forall a b (a6989586621680884609 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884600Sym1 a6989586621680884609)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884615Sym0
instance forall a b (a6989586621680884620 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884615Sym1 a6989586621680884620)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884626Sym0
instance forall a (a6989586621680884631 :: Data.Semigroup.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884626Sym1 a6989586621680884631)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.TFHelper_6989586621680884673Sym0
instance forall m (a6989586621680884678 :: Data.Semigroup.WrappedMonoid m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.TFHelper_6989586621680884673Sym1 a6989586621680884678)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ToEnum_6989586621680882856Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ToEnum_6989586621680883804Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ToEnum_6989586621680884323Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ToEnum_6989586621680884531Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.ToEnum_6989586621680884700Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Traverse_6989586621680883725Sym0
instance forall a (f :: * -> *) b (a6989586621680883730 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Traverse_6989586621680883725Sym1 a6989586621680883730)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Traverse_6989586621680884002Sym0
instance forall a (f :: * -> *) b (a6989586621680884007 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Traverse_6989586621680884002Sym1 a6989586621680884007)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Traverse_6989586621680884245Sym0
instance forall a1 (f :: * -> *) b a2 (a6989586621680884250 :: a1 Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Traverse_6989586621680884245Sym1 a6989586621680884250)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Traverse_6989586621680884454Sym0
instance forall a (f :: * -> *) b (a6989586621680884459 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Traverse_6989586621680884454Sym1 a6989586621680884459)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Semigroup.Singletons.Traverse_6989586621680884662Sym0
instance forall a (f :: * -> *) b (a6989586621680884667 :: a Data.Singletons.~> f b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Semigroup.Singletons.Traverse_6989586621680884662Sym1 a6989586621680884667)
-- | Defines functions and datatypes relating to the singleton for '[]',
-- including singled versions of a few of the definitions in
-- Data.List.
--
-- 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.List. Also, please excuse
-- the apparent repeated variable names. This is due to an interaction
-- between Template Haskell and Haddock.
module Data.List.Singletons
type family Sing :: k -> Type
data SList (a1 :: [a])
[SNil] :: forall a. SList ('[] :: [a])
[SCons] :: forall a (n1 :: a) (n2 :: [a]). Sing n1 -> Sing n2 -> SList (n1 ': n2)
infixr 5 `SCons`
type family (a1 :: [a]) ++ (a2 :: [a]) :: [a]
infixr 5 ++
(%++) :: forall a (t1 :: [a]) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((++@#@$) :: TyFun [a] ([a] ~> [a]) -> Type) t1) t2)
infixr 5 %++
type family Head (a1 :: [a]) :: a
sHead :: forall a (t :: [a]). Sing t -> Sing (Apply (HeadSym0 :: TyFun [a] a -> Type) t)
type family Last (a1 :: [a]) :: a
sLast :: forall a (t :: [a]). Sing t -> Sing (Apply (LastSym0 :: TyFun [a] a -> Type) t)
type family Tail (a1 :: [a]) :: [a]
sTail :: forall a (t :: [a]). Sing t -> Sing (Apply (TailSym0 :: TyFun [a] [a] -> Type) t)
type family Init (a1 :: [a]) :: [a]
sInit :: forall a (t :: [a]). Sing t -> Sing (Apply (InitSym0 :: TyFun [a] [a] -> Type) t)
type family Null (arg :: t a) :: Bool
sNull :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (NullSym0 :: TyFun (t a) Bool -> Type) t1)
type family Length (arg :: t a) :: Natural
sLength :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (LengthSym0 :: TyFun (t a) Natural -> Type) t1)
type family Map (a1 :: a ~> b) (a2 :: [a]) :: [b]
sMap :: forall a b (t1 :: a ~> b) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapSym0 :: TyFun (a ~> b) ([a] ~> [b]) -> Type) t1) t2)
type family Reverse (a1 :: [a]) :: [a]
sReverse :: forall a (t :: [a]). Sing t -> Sing (Apply (ReverseSym0 :: TyFun [a] [a] -> Type) t)
type family Intersperse (a1 :: a) (a2 :: [a]) :: [a]
sIntersperse :: forall a (t1 :: a) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (IntersperseSym0 :: TyFun a ([a] ~> [a]) -> Type) t1) t2)
type family Intercalate (a1 :: [a]) (a2 :: [[a]]) :: [a]
sIntercalate :: forall a (t1 :: [a]) (t2 :: [[a]]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (IntercalateSym0 :: TyFun [a] ([[a]] ~> [a]) -> Type) t1) t2)
type family Transpose (a1 :: [[a]]) :: [[a]]
sTranspose :: forall a (t :: [[a]]). Sing t -> Sing (Apply (TransposeSym0 :: TyFun [[a]] [[a]] -> Type) t)
type family Subsequences (a1 :: [a]) :: [[a]]
sSubsequences :: forall a (t :: [a]). Sing t -> Sing (Apply (SubsequencesSym0 :: TyFun [a] [[a]] -> Type) t)
type family Permutations (a1 :: [a]) :: [[a]]
sPermutations :: forall a (t :: [a]). Sing t -> Sing (Apply (PermutationsSym0 :: TyFun [a] [[a]] -> Type) t)
type family Foldl (arg :: b ~> a ~> b) (arg1 :: b) (arg2 :: t a) :: b
sFoldl :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
type family Foldl' (arg :: b ~> a ~> b) (arg1 :: b) (arg2 :: t a) :: b
sFoldl' :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldl'Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
type family Foldl1 (arg :: a ~> a ~> a) (arg1 :: t a) :: a
sFoldl1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
type family Foldl1' (a1 :: a ~> a ~> a) (a2 :: [a]) :: a
sFoldl1' :: forall a (t1 :: a ~> (a ~> a)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1'Sym0 :: TyFun (a ~> (a ~> a)) ([a] ~> a) -> Type) t1) t2)
type family Foldr (arg :: a ~> b ~> b) (arg1 :: b) (arg2 :: t a) :: b
sFoldr :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
type family Foldr1 (arg :: a ~> a ~> a) (arg1 :: t a) :: a
sFoldr1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
type family Concat (a1 :: t [a]) :: [a]
sConcat :: forall (t1 :: Type -> Type) a (t2 :: t1 [a]). SFoldable t1 => Sing t2 -> Sing (Apply (ConcatSym0 :: TyFun (t1 [a]) [a] -> Type) t2)
type family ConcatMap (a1 :: a ~> [b]) (a2 :: t a) :: [b]
sConcatMap :: forall a b (t1 :: Type -> Type) (t2 :: a ~> [b]) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (ConcatMapSym0 :: TyFun (a ~> [b]) (t1 a ~> [b]) -> Type) t2) t3)
type family And (a :: t Bool) :: Bool
sAnd :: forall (t1 :: Type -> Type) (t2 :: t1 Bool). SFoldable t1 => Sing t2 -> Sing (Apply (AndSym0 :: TyFun (t1 Bool) Bool -> Type) t2)
type family Or (a :: t Bool) :: Bool
sOr :: forall (t1 :: Type -> Type) (t2 :: t1 Bool). SFoldable t1 => Sing t2 -> Sing (Apply (OrSym0 :: TyFun (t1 Bool) Bool -> Type) t2)
type family Any (a1 :: a ~> Bool) (a2 :: t a) :: Bool
sAny :: forall a (t1 :: Type -> Type) (t2 :: a ~> Bool) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (AnySym0 :: TyFun (a ~> Bool) (t1 a ~> Bool) -> Type) t2) t3)
type family All (a1 :: a ~> Bool) (a2 :: t a) :: Bool
sAll :: forall a (t1 :: Type -> Type) (t2 :: a ~> Bool) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (AllSym0 :: TyFun (a ~> Bool) (t1 a ~> Bool) -> Type) t2) t3)
type family Sum (arg :: t a) :: a
sSum :: forall a (t1 :: t a). (SFoldable t, SNum a) => Sing t1 -> Sing (Apply (SumSym0 :: TyFun (t a) a -> Type) t1)
type family Product (arg :: t a) :: a
sProduct :: forall a (t1 :: t a). (SFoldable t, SNum a) => Sing t1 -> Sing (Apply (ProductSym0 :: TyFun (t a) a -> Type) t1)
type family Maximum (arg :: t a) :: a
sMaximum :: forall a (t1 :: t a). (SFoldable t, SOrd a) => Sing t1 -> Sing (Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1)
type family Minimum (arg :: t a) :: a
sMinimum :: forall a (t1 :: t a). (SFoldable t, SOrd a) => Sing t1 -> Sing (Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1)
type family Scanl (a1 :: b ~> a ~> b) (a2 :: b) (a3 :: [a]) :: [b]
sScanl :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ScanlSym0 :: TyFun (b ~> (a ~> b)) (b ~> ([a] ~> [b])) -> Type) t1) t2) t3)
type family Scanl1 (a1 :: a ~> a ~> a) (a2 :: [a]) :: [a]
sScanl1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Scanl1Sym0 :: TyFun (a ~> (a ~> a)) ([a] ~> [a]) -> Type) t1) t2)
type family Scanr (a1 :: a ~> b ~> b) (a2 :: b) (a3 :: [a]) :: [b]
sScanr :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ScanrSym0 :: TyFun (a ~> (b ~> b)) (b ~> ([a] ~> [b])) -> Type) t1) t2) t3)
type family Scanr1 (a1 :: a ~> a ~> a) (a2 :: [a]) :: [a]
sScanr1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Scanr1Sym0 :: TyFun (a ~> (a ~> a)) ([a] ~> [a]) -> Type) t1) t2)
type family MapAccumL (a1 :: a ~> b ~> (a, c)) (a2 :: a) (a3 :: t b) :: (a, t c)
sMapAccumL :: forall (t1 :: Type -> Type) a b c (t2 :: a ~> (b ~> (a, c))) (t3 :: a) (t4 :: t1 b). STraversable t1 => Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (MapAccumLSym0 :: TyFun (a ~> (b ~> (a, c))) (a ~> (t1 b ~> (a, t1 c))) -> Type) t2) t3) t4)
type family MapAccumR (a1 :: a ~> b ~> (a, c)) (a2 :: a) (a3 :: t b) :: (a, t c)
sMapAccumR :: forall a b c (t1 :: Type -> Type) (t2 :: a ~> (b ~> (a, c))) (t3 :: a) (t4 :: t1 b). STraversable t1 => Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (MapAccumRSym0 :: TyFun (a ~> (b ~> (a, c))) (a ~> (t1 b ~> (a, t1 c))) -> Type) t2) t3) t4)
type family Replicate (a1 :: Natural) (a2 :: a) :: [a]
sReplicate :: forall a (t1 :: Natural) (t2 :: a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ReplicateSym0 :: TyFun Natural (a ~> [a]) -> Type) t1) t2)
type family Unfoldr (a1 :: b ~> Maybe (a, b)) (a2 :: b) :: [a]
sUnfoldr :: forall b a (t1 :: b ~> Maybe (a, b)) (t2 :: b). Sing t1 -> Sing t2 -> Sing (Apply (Apply (UnfoldrSym0 :: TyFun (b ~> Maybe (a, b)) (b ~> [a]) -> Type) t1) t2)
type family Take (a1 :: Natural) (a2 :: [a]) :: [a]
sTake :: forall a (t1 :: Natural) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (TakeSym0 :: TyFun Natural ([a] ~> [a]) -> Type) t1) t2)
type family Drop (a1 :: Natural) (a2 :: [a]) :: [a]
sDrop :: forall a (t1 :: Natural) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (DropSym0 :: TyFun Natural ([a] ~> [a]) -> Type) t1) t2)
type family SplitAt (a1 :: Natural) (a2 :: [a]) :: ([a], [a])
sSplitAt :: forall a (t1 :: Natural) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SplitAtSym0 :: TyFun Natural ([a] ~> ([a], [a])) -> Type) t1) t2)
type family TakeWhile (a1 :: a ~> Bool) (a2 :: [a]) :: [a]
sTakeWhile :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (TakeWhileSym0 :: TyFun (a ~> Bool) ([a] ~> [a]) -> Type) t1) t2)
type family DropWhile (a1 :: a ~> Bool) (a2 :: [a]) :: [a]
sDropWhile :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (DropWhileSym0 :: TyFun (a ~> Bool) ([a] ~> [a]) -> Type) t1) t2)
type family DropWhileEnd (a1 :: a ~> Bool) (a2 :: [a]) :: [a]
sDropWhileEnd :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (DropWhileEndSym0 :: TyFun (a ~> Bool) ([a] ~> [a]) -> Type) t1) t2)
type family Span (a1 :: a ~> Bool) (a2 :: [a]) :: ([a], [a])
sSpan :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SpanSym0 :: TyFun (a ~> Bool) ([a] ~> ([a], [a])) -> Type) t1) t2)
type family Break (a1 :: a ~> Bool) (a2 :: [a]) :: ([a], [a])
sBreak :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (BreakSym0 :: TyFun (a ~> Bool) ([a] ~> ([a], [a])) -> Type) t1) t2)
type family StripPrefix (a1 :: [a]) (a2 :: [a]) :: Maybe [a]
type family Group (a1 :: [a]) :: [[a]]
sGroup :: forall a (t :: [a]). SEq a => Sing t -> Sing (Apply (GroupSym0 :: TyFun [a] [[a]] -> Type) t)
type family Inits (a1 :: [a]) :: [[a]]
sInits :: forall a (t :: [a]). Sing t -> Sing (Apply (InitsSym0 :: TyFun [a] [[a]] -> Type) t)
type family Tails (a1 :: [a]) :: [[a]]
sTails :: forall a (t :: [a]). Sing t -> Sing (Apply (TailsSym0 :: TyFun [a] [[a]] -> Type) t)
type family IsPrefixOf (a1 :: [a]) (a2 :: [a]) :: Bool
sIsPrefixOf :: forall a (t1 :: [a]) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (IsPrefixOfSym0 :: TyFun [a] ([a] ~> Bool) -> Type) t1) t2)
type family IsSuffixOf (a1 :: [a]) (a2 :: [a]) :: Bool
sIsSuffixOf :: forall a (t1 :: [a]) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (IsSuffixOfSym0 :: TyFun [a] ([a] ~> Bool) -> Type) t1) t2)
type family IsInfixOf (a1 :: [a]) (a2 :: [a]) :: Bool
sIsInfixOf :: forall a (t1 :: [a]) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (IsInfixOfSym0 :: TyFun [a] ([a] ~> Bool) -> Type) t1) t2)
type family Elem (arg :: a) (arg1 :: t a) :: Bool
sElem :: forall a (t1 :: a) (t2 :: t a). (SFoldable t, SEq a) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2)
type family NotElem (a1 :: a) (a2 :: t a) :: Bool
sNotElem :: forall a (t1 :: Type -> Type) (t2 :: a) (t3 :: t1 a). (SFoldable t1, SEq a) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (NotElemSym0 :: TyFun a (t1 a ~> Bool) -> Type) t2) t3)
type family Lookup (a1 :: a) (a2 :: [(a, b)]) :: Maybe b
sLookup :: forall a b (t1 :: a) (t2 :: [(a, b)]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (LookupSym0 :: TyFun a ([(a, b)] ~> Maybe b) -> Type) t1) t2)
type family Find (a1 :: a ~> Bool) (a2 :: t a) :: Maybe a
sFind :: forall a (t1 :: Type -> Type) (t2 :: a ~> Bool) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (FindSym0 :: TyFun (a ~> Bool) (t1 a ~> Maybe a) -> Type) t2) t3)
type family Filter (a1 :: a ~> Bool) (a2 :: [a]) :: [a]
sFilter :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FilterSym0 :: TyFun (a ~> Bool) ([a] ~> [a]) -> Type) t1) t2)
type family Partition (a1 :: a ~> Bool) (a2 :: [a]) :: ([a], [a])
sPartition :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (PartitionSym0 :: TyFun (a ~> Bool) ([a] ~> ([a], [a])) -> Type) t1) t2)
type family (a1 :: [a]) !! (a2 :: Natural) :: a
infixl 9 !!
(%!!) :: forall a (t1 :: [a]) (t2 :: Natural). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((!!@#@$) :: TyFun [a] (Natural ~> a) -> Type) t1) t2)
infixl 9 %!!
type family ElemIndex (a1 :: a) (a2 :: [a]) :: Maybe Natural
sElemIndex :: forall a (t1 :: a) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemIndexSym0 :: TyFun a ([a] ~> Maybe Natural) -> Type) t1) t2)
type family ElemIndices (a1 :: a) (a2 :: [a]) :: [Natural]
sElemIndices :: forall a (t1 :: a) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemIndicesSym0 :: TyFun a ([a] ~> [Natural]) -> Type) t1) t2)
type family FindIndex (a1 :: a ~> Bool) (a2 :: [a]) :: Maybe Natural
sFindIndex :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FindIndexSym0 :: TyFun (a ~> Bool) ([a] ~> Maybe Natural) -> Type) t1) t2)
type family FindIndices (a1 :: a ~> Bool) (a2 :: [a]) :: [Natural]
sFindIndices :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FindIndicesSym0 :: TyFun (a ~> Bool) ([a] ~> [Natural]) -> Type) t1) t2)
type family Zip (a1 :: [a]) (a2 :: [b]) :: [(a, b)]
sZip :: forall a b (t1 :: [a]) (t2 :: [b]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ZipSym0 :: TyFun [a] ([b] ~> [(a, b)]) -> Type) t1) t2)
type family Zip3 (a1 :: [a]) (a2 :: [b]) (a3 :: [c]) :: [(a, b, c)]
sZip3 :: forall a b c (t1 :: [a]) (t2 :: [b]) (t3 :: [c]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Zip3Sym0 :: TyFun [a] ([b] ~> ([c] ~> [(a, b, c)])) -> Type) t1) t2) t3)
type family Zip4 (a1 :: [a]) (a2 :: [b]) (a3 :: [c]) (a4 :: [d]) :: [(a, b, c, d)]
type family Zip5 (a1 :: [a]) (a2 :: [b]) (a3 :: [c]) (a4 :: [d]) (a5 :: [e]) :: [(a, b, c, d, e)]
type family Zip6 (a1 :: [a]) (a2 :: [b]) (a3 :: [c]) (a4 :: [d]) (a5 :: [e]) (a6 :: [f]) :: [(a, b, c, d, e, f)]
type family Zip7 (a1 :: [a]) (a2 :: [b]) (a3 :: [c]) (a4 :: [d]) (a5 :: [e]) (a6 :: [f]) (a7 :: [g]) :: [(a, b, c, d, e, f, g)]
type family ZipWith (a1 :: a ~> b ~> c) (a2 :: [a]) (a3 :: [b]) :: [c]
sZipWith :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: [a]) (t3 :: [b]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ZipWithSym0 :: TyFun (a ~> (b ~> c)) ([a] ~> ([b] ~> [c])) -> Type) t1) t2) t3)
type family ZipWith3 (a1 :: a ~> b ~> c ~> d) (a2 :: [a]) (a3 :: [b]) (a4 :: [c]) :: [d]
sZipWith3 :: forall a b c d (t1 :: a ~> (b ~> (c ~> d))) (t2 :: [a]) (t3 :: [b]) (t4 :: [c]). Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (Apply (ZipWith3Sym0 :: TyFun (a ~> (b ~> (c ~> d))) ([a] ~> ([b] ~> ([c] ~> [d]))) -> Type) t1) t2) t3) t4)
type family ZipWith4 (a1 :: a ~> b ~> c ~> d ~> e) (a2 :: [a]) (a3 :: [b]) (a4 :: [c]) (a5 :: [d]) :: [e]
type family ZipWith5 (a1 :: a ~> b ~> c ~> d ~> e ~> f) (a2 :: [a]) (a3 :: [b]) (a4 :: [c]) (a5 :: [d]) (a6 :: [e]) :: [f]
type family ZipWith6 (a1 :: a ~> b ~> c ~> d ~> e ~> f ~> g) (a2 :: [a]) (a3 :: [b]) (a4 :: [c]) (a5 :: [d]) (a6 :: [e]) (a7 :: [f]) :: [g]
type family ZipWith7 (a1 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (a2 :: [a]) (a3 :: [b]) (a4 :: [c]) (a5 :: [d]) (a6 :: [e]) (a7 :: [f]) (a8 :: [g]) :: [h]
type family Unzip (a1 :: [(a, b)]) :: ([a], [b])
sUnzip :: forall a b (t :: [(a, b)]). Sing t -> Sing (Apply (UnzipSym0 :: TyFun [(a, b)] ([a], [b]) -> Type) t)
type family Unzip3 (a1 :: [(a, b, c)]) :: ([a], [b], [c])
sUnzip3 :: forall a b c (t :: [(a, b, c)]). Sing t -> Sing (Apply (Unzip3Sym0 :: TyFun [(a, b, c)] ([a], [b], [c]) -> Type) t)
type family Unzip4 (a1 :: [(a, b, c, d)]) :: ([a], [b], [c], [d])
sUnzip4 :: forall a b c d (t :: [(a, b, c, d)]). Sing t -> Sing (Apply (Unzip4Sym0 :: TyFun [(a, b, c, d)] ([a], [b], [c], [d]) -> Type) t)
type family Unzip5 (a1 :: [(a, b, c, d, e)]) :: ([a], [b], [c], [d], [e])
sUnzip5 :: forall a b c d e (t :: [(a, b, c, d, e)]). Sing t -> Sing (Apply (Unzip5Sym0 :: TyFun [(a, b, c, d, e)] ([a], [b], [c], [d], [e]) -> Type) t)
type family Unzip6 (a1 :: [(a, b, c, d, e, f)]) :: ([a], [b], [c], [d], [e], [f])
sUnzip6 :: forall a b c d e f (t :: [(a, b, c, d, e, f)]). Sing t -> Sing (Apply (Unzip6Sym0 :: TyFun [(a, b, c, d, e, f)] ([a], [b], [c], [d], [e], [f]) -> Type) t)
type family Unzip7 (a1 :: [(a, b, c, d, e, f, g)]) :: ([a], [b], [c], [d], [e], [f], [g])
sUnzip7 :: forall a b c d e f g (t :: [(a, b, c, d, e, f, g)]). Sing t -> Sing (Apply (Unzip7Sym0 :: TyFun [(a, b, c, d, e, f, g)] ([a], [b], [c], [d], [e], [f], [g]) -> Type) t)
type family Unlines (a :: [Symbol]) :: Symbol
sUnlines :: forall (t :: [Symbol]). Sing t -> Sing (Apply UnlinesSym0 t)
type family Unwords (a :: [Symbol]) :: Symbol
sUnwords :: forall (t :: [Symbol]). Sing t -> Sing (Apply UnwordsSym0 t)
type family Nub (a1 :: [a]) :: [a]
sNub :: forall a (t :: [a]). SEq a => Sing t -> Sing (Apply (NubSym0 :: TyFun [a] [a] -> Type) t)
type family Delete (a1 :: a) (a2 :: [a]) :: [a]
sDelete :: forall a (t1 :: a) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (DeleteSym0 :: TyFun a ([a] ~> [a]) -> Type) t1) t2)
type family (a1 :: [a]) \\ (a2 :: [a]) :: [a]
infix 5 \\
(%\\) :: forall a (t1 :: [a]) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((\\@#@$) :: TyFun [a] ([a] ~> [a]) -> Type) t1) t2)
infix 5 %\\
type family Union (a1 :: [a]) (a2 :: [a]) :: [a]
sUnion :: forall a (t1 :: [a]) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (UnionSym0 :: TyFun [a] ([a] ~> [a]) -> Type) t1) t2)
type family Intersect (a1 :: [a]) (a2 :: [a]) :: [a]
sIntersect :: forall a (t1 :: [a]) (t2 :: [a]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (IntersectSym0 :: TyFun [a] ([a] ~> [a]) -> Type) t1) t2)
type family Insert (a1 :: a) (a2 :: [a]) :: [a]
sInsert :: forall a (t1 :: a) (t2 :: [a]). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (InsertSym0 :: TyFun a ([a] ~> [a]) -> Type) t1) t2)
type family Sort (a1 :: [a]) :: [a]
sSort :: forall a (t :: [a]). SOrd a => Sing t -> Sing (Apply (SortSym0 :: TyFun [a] [a] -> Type) t)
type family NubBy (a1 :: a ~> a ~> Bool) (a2 :: [a]) :: [a]
sNubBy :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (NubBySym0 :: TyFun (a ~> (a ~> Bool)) ([a] ~> [a]) -> Type) t1) t2)
type family DeleteBy (a1 :: a ~> a ~> Bool) (a2 :: a) (a3 :: [a]) :: [a]
sDeleteBy :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: a) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (DeleteBySym0 :: TyFun (a ~> (a ~> Bool)) (a ~> ([a] ~> [a])) -> Type) t1) t2) t3)
type family DeleteFirstsBy (a1 :: a ~> a ~> Bool) (a2 :: [a]) (a3 :: [a]) :: [a]
sDeleteFirstsBy :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: [a]) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (DeleteFirstsBySym0 :: TyFun (a ~> (a ~> Bool)) ([a] ~> ([a] ~> [a])) -> Type) t1) t2) t3)
type family UnionBy (a1 :: a ~> a ~> Bool) (a2 :: [a]) (a3 :: [a]) :: [a]
sUnionBy :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: [a]) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (UnionBySym0 :: TyFun (a ~> (a ~> Bool)) ([a] ~> ([a] ~> [a])) -> Type) t1) t2) t3)
type family IntersectBy (a1 :: a ~> a ~> Bool) (a2 :: [a]) (a3 :: [a]) :: [a]
sIntersectBy :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: [a]) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (IntersectBySym0 :: TyFun (a ~> (a ~> Bool)) ([a] ~> ([a] ~> [a])) -> Type) t1) t2) t3)
type family GroupBy (a1 :: a ~> a ~> Bool) (a2 :: [a]) :: [[a]]
sGroupBy :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (GroupBySym0 :: TyFun (a ~> (a ~> Bool)) ([a] ~> [[a]]) -> Type) t1) t2)
type family SortBy (a1 :: a ~> a ~> Ordering) (a2 :: [a]) :: [a]
sSortBy :: forall a (t1 :: a ~> (a ~> Ordering)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SortBySym0 :: TyFun (a ~> (a ~> Ordering)) ([a] ~> [a]) -> Type) t1) t2)
type family InsertBy (a1 :: a ~> a ~> Ordering) (a2 :: a) (a3 :: [a]) :: [a]
sInsertBy :: forall a (t1 :: a ~> (a ~> Ordering)) (t2 :: a) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (InsertBySym0 :: TyFun (a ~> (a ~> Ordering)) (a ~> ([a] ~> [a])) -> Type) t1) t2) t3)
type family MaximumBy (a1 :: a ~> a ~> Ordering) (a2 :: t a) :: a
sMaximumBy :: forall a (t1 :: Type -> Type) (t2 :: a ~> (a ~> Ordering)) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (MaximumBySym0 :: TyFun (a ~> (a ~> Ordering)) (t1 a ~> a) -> Type) t2) t3)
type family MinimumBy (a1 :: a ~> a ~> Ordering) (a2 :: t a) :: a
sMinimumBy :: forall a (t1 :: Type -> Type) (t2 :: a ~> (a ~> Ordering)) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (MinimumBySym0 :: TyFun (a ~> (a ~> Ordering)) (t1 a ~> a) -> Type) t2) t3)
type family GenericLength (a1 :: [a]) :: i
sGenericLength :: forall a i (t :: [a]). SNum i => Sing t -> Sing (Apply (GenericLengthSym0 :: TyFun [a] i -> Type) t)
type family NilSym0 :: [a]
data (a1 :: TyFun a [a] ~> [a]) :@#@$
infixr 5 :@#@$
data (a6989586621679046238 :: a) :@#@$$ (b :: TyFun [a] [a])
infixr 5 :@#@$$
type family (a6989586621679046238 :: a) :@#@$$$ (a6989586621679046239 :: [a]) :: [a]
infixr 5 :@#@$$$
type family (a6989586621679180230 :: [a]) ++@#@$$$ (a6989586621679180231 :: [a]) :: [a]
infixr 5 ++@#@$$$
data (a6989586621679180230 :: [a]) ++@#@$$ (b :: TyFun [a] [a])
infixr 5 ++@#@$$
data (a1 :: TyFun [a] [a] ~> [a]) ++@#@$
infixr 5 ++@#@$
data HeadSym0 (a1 :: TyFun [a] a)
type family HeadSym1 (a6989586621679815823 :: [a]) :: a
data LastSym0 (a1 :: TyFun [a] a)
type family LastSym1 (a6989586621679815817 :: [a]) :: a
data TailSym0 (a1 :: TyFun [a] [a])
type family TailSym1 (a6989586621679815813 :: [a]) :: [a]
data InitSym0 (a1 :: TyFun [a] [a])
type family InitSym1 (a6989586621679815801 :: [a]) :: [a]
data NullSym0 (a1 :: TyFun t a Bool)
type family NullSym1 (a6989586621680390432 :: t a) :: Bool
data LengthSym0 (a1 :: TyFun t a Natural)
type family LengthSym1 (a6989586621680390435 :: t a) :: Natural
data MapSym0 (a1 :: TyFun a ~> b [a] ~> [b])
data MapSym1 (a6989586621679180239 :: a ~> b) (b1 :: TyFun [a] [b])
type family MapSym2 (a6989586621679180239 :: a ~> b) (a6989586621679180240 :: [a]) :: [b]
data ReverseSym0 (a1 :: TyFun [a] [a])
type family ReverseSym1 (a6989586621679815786 :: [a]) :: [a]
data IntersperseSym0 (a1 :: TyFun a [a] ~> [a])
data IntersperseSym1 (a6989586621679815779 :: a) (b :: TyFun [a] [a])
type family IntersperseSym2 (a6989586621679815779 :: a) (a6989586621679815780 :: [a]) :: [a]
data IntercalateSym0 (a1 :: TyFun [a] [[a]] ~> [a])
data IntercalateSym1 (a6989586621679815772 :: [a]) (b :: TyFun [[a]] [a])
type family IntercalateSym2 (a6989586621679815772 :: [a]) (a6989586621679815773 :: [[a]]) :: [a]
data TransposeSym0 (a1 :: TyFun [[a]] [[a]])
type family TransposeSym1 (a6989586621679814673 :: [[a]]) :: [[a]]
data SubsequencesSym0 (a1 :: TyFun [a] [[a]])
type family SubsequencesSym1 (a6989586621679815767 :: [a]) :: [[a]]
data PermutationsSym0 (a1 :: TyFun [a] [[a]])
type family PermutationsSym1 (a6989586621679815693 :: [a]) :: [[a]]
data FoldlSym0 (a1 :: TyFun b ~> a ~> b b ~> t a ~> b)
data FoldlSym1 (a6989586621680390407 :: b ~> a ~> b) (b1 :: TyFun b t a ~> b)
data FoldlSym2 (a6989586621680390407 :: b ~> a ~> b) (a6989586621680390408 :: b) (c :: TyFun t a b)
type family FoldlSym3 (a6989586621680390407 :: b ~> a ~> b) (a6989586621680390408 :: b) (a6989586621680390409 :: t a) :: b
data Foldl'Sym0 (a1 :: TyFun b ~> a ~> b b ~> t a ~> b)
data Foldl'Sym1 (a6989586621680390414 :: b ~> a ~> b) (b1 :: TyFun b t a ~> b)
data Foldl'Sym2 (a6989586621680390414 :: b ~> a ~> b) (a6989586621680390415 :: b) (c :: TyFun t a b)
type family Foldl'Sym3 (a6989586621680390414 :: b ~> a ~> b) (a6989586621680390415 :: b) (a6989586621680390416 :: t a) :: b
data Foldl1Sym0 (a1 :: TyFun a ~> a ~> a t a ~> a)
data Foldl1Sym1 (a6989586621680390425 :: a ~> a ~> a) (b :: TyFun t a a)
type family Foldl1Sym2 (a6989586621680390425 :: a ~> a ~> a) (a6989586621680390426 :: t a) :: a
data Foldl1'Sym0 (a1 :: TyFun a ~> a ~> a [a] ~> a)
data Foldl1'Sym1 (a6989586621679815658 :: a ~> a ~> a) (b :: TyFun [a] a)
type family Foldl1'Sym2 (a6989586621679815658 :: a ~> a ~> a) (a6989586621679815659 :: [a]) :: a
data FoldrSym0 (a1 :: TyFun a ~> b ~> b b ~> t a ~> b)
data FoldrSym1 (a6989586621680390393 :: a ~> b ~> b) (b1 :: TyFun b t a ~> b)
data FoldrSym2 (a6989586621680390393 :: a ~> b ~> b) (a6989586621680390394 :: b) (c :: TyFun t a b)
type family FoldrSym3 (a6989586621680390393 :: a ~> b ~> b) (a6989586621680390394 :: b) (a6989586621680390395 :: t a) :: b
data Foldr1Sym0 (a1 :: TyFun a ~> a ~> a t a ~> a)
data Foldr1Sym1 (a6989586621680390420 :: a ~> a ~> a) (b :: TyFun t a a)
type family Foldr1Sym2 (a6989586621680390420 :: a ~> a ~> a) (a6989586621680390421 :: t a) :: a
data ConcatSym0 (a1 :: TyFun t [a] [a])
type family ConcatSym1 (a6989586621680390274 :: t [a]) :: [a]
data ConcatMapSym0 (a1 :: TyFun a ~> [b] t a ~> [b])
data ConcatMapSym1 (a6989586621680390263 :: a ~> [b]) (b1 :: TyFun t a [b])
type family ConcatMapSym2 (a6989586621680390263 :: a ~> [b]) (a6989586621680390264 :: t a) :: [b]
data AndSym0 (a :: TyFun t Bool Bool)
type family AndSym1 (a6989586621680390258 :: t Bool) :: Bool
data OrSym0 (a :: TyFun t Bool Bool)
type family OrSym1 (a6989586621680390252 :: t Bool) :: Bool
data AnySym0 (a1 :: TyFun a ~> Bool t a ~> Bool)
data AnySym1 (a6989586621680390244 :: a ~> Bool) (b :: TyFun t a Bool)
type family AnySym2 (a6989586621680390244 :: a ~> Bool) (a6989586621680390245 :: t a) :: Bool
data AllSym0 (a1 :: TyFun a ~> Bool t a ~> Bool)
data AllSym1 (a6989586621680390235 :: a ~> Bool) (b :: TyFun t a Bool)
type family AllSym2 (a6989586621680390235 :: a ~> Bool) (a6989586621680390236 :: t a) :: Bool
data SumSym0 (a1 :: TyFun t a a)
type family SumSym1 (a6989586621680390449 :: t a) :: a
data ProductSym0 (a1 :: TyFun t a a)
type family ProductSym1 (a6989586621680390452 :: t a) :: a
data MaximumSym0 (a1 :: TyFun t a a)
type family MaximumSym1 (a6989586621680390443 :: t a) :: a
data MinimumSym0 (a1 :: TyFun t a a)
type family MinimumSym1 (a6989586621680390446 :: t a) :: a
data ScanlSym0 (a1 :: TyFun b ~> a ~> b b ~> [a] ~> [b])
data ScanlSym1 (a6989586621679815591 :: b ~> a ~> b) (b1 :: TyFun b [a] ~> [b])
data ScanlSym2 (a6989586621679815591 :: b ~> a ~> b) (a6989586621679815592 :: b) (c :: TyFun [a] [b])
type family ScanlSym3 (a6989586621679815591 :: b ~> a ~> b) (a6989586621679815592 :: b) (a6989586621679815593 :: [a]) :: [b]
data Scanl1Sym0 (a1 :: TyFun a ~> a ~> a [a] ~> [a])
data Scanl1Sym1 (a6989586621679815582 :: a ~> a ~> a) (b :: TyFun [a] [a])
type family Scanl1Sym2 (a6989586621679815582 :: a ~> a ~> a) (a6989586621679815583 :: [a]) :: [a]
data ScanrSym0 (a1 :: TyFun a ~> b ~> b b ~> [a] ~> [b])
data ScanrSym1 (a6989586621679815564 :: a ~> b ~> b) (b1 :: TyFun b [a] ~> [b])
data ScanrSym2 (a6989586621679815564 :: a ~> b ~> b) (a6989586621679815565 :: b) (c :: TyFun [a] [b])
type family ScanrSym3 (a6989586621679815564 :: a ~> b ~> b) (a6989586621679815565 :: b) (a6989586621679815566 :: [a]) :: [b]
data Scanr1Sym0 (a1 :: TyFun a ~> a ~> a [a] ~> [a])
data Scanr1Sym1 (a6989586621679815544 :: a ~> a ~> a) (b :: TyFun [a] [a])
type family Scanr1Sym2 (a6989586621679815544 :: a ~> a ~> a) (a6989586621679815545 :: [a]) :: [a]
data MapAccumLSym0 (a1 :: TyFun a ~> b ~> (a, c) a ~> t b ~> (a, t c))
data MapAccumLSym1 (a6989586621680741278 :: a ~> b ~> (a, c)) (b1 :: TyFun a t b ~> (a, t c))
data MapAccumLSym2 (a6989586621680741278 :: a ~> b ~> (a, c)) (a6989586621680741279 :: a) (c1 :: TyFun t b (a, t c))
type family MapAccumLSym3 (a6989586621680741278 :: a ~> b ~> (a, c)) (a6989586621680741279 :: a) (a6989586621680741280 :: t b) :: (a, t c)
data MapAccumRSym0 (a1 :: TyFun a ~> b ~> (a, c) a ~> t b ~> (a, t c))
data MapAccumRSym1 (a6989586621680741268 :: a ~> b ~> (a, c)) (b1 :: TyFun a t b ~> (a, t c))
data MapAccumRSym2 (a6989586621680741268 :: a ~> b ~> (a, c)) (a6989586621680741269 :: a) (c1 :: TyFun t b (a, t c))
type family MapAccumRSym3 (a6989586621680741268 :: a ~> b ~> (a, c)) (a6989586621680741269 :: a) (a6989586621680741270 :: t b) :: (a, t c)
data ReplicateSym0 (a1 :: TyFun Natural a ~> [a])
data ReplicateSym1 (a6989586621679814681 :: Natural) (b :: TyFun a [a])
type family ReplicateSym2 (a6989586621679814681 :: Natural) (a6989586621679814682 :: a) :: [a]
data UnfoldrSym0 (a1 :: TyFun b ~> Maybe (a, b) b ~> [a])
data UnfoldrSym1 (a6989586621679815436 :: b ~> Maybe (a, b)) (b1 :: TyFun b [a])
type family UnfoldrSym2 (a6989586621679815436 :: b ~> Maybe (a, b)) (a6989586621679815437 :: b) :: [a]
data TakeSym0 (a1 :: TyFun Natural [a] ~> [a])
data TakeSym1 (a6989586621679814836 :: Natural) (b :: TyFun [a] [a])
type family TakeSym2 (a6989586621679814836 :: Natural) (a6989586621679814837 :: [a]) :: [a]
data DropSym0 (a1 :: TyFun Natural [a] ~> [a])
data DropSym1 (a6989586621679814823 :: Natural) (b :: TyFun [a] [a])
type family DropSym2 (a6989586621679814823 :: Natural) (a6989586621679814824 :: [a]) :: [a]
data SplitAtSym0 (a1 :: TyFun Natural [a] ~> ([a], [a]))
data SplitAtSym1 (a6989586621679814816 :: Natural) (b :: TyFun [a] ([a], [a]))
type family SplitAtSym2 (a6989586621679814816 :: Natural) (a6989586621679814817 :: [a]) :: ([a], [a])
data TakeWhileSym0 (a1 :: TyFun a ~> Bool [a] ~> [a])
data TakeWhileSym1 (a6989586621679814953 :: a ~> Bool) (b :: TyFun [a] [a])
type family TakeWhileSym2 (a6989586621679814953 :: a ~> Bool) (a6989586621679814954 :: [a]) :: [a]
data DropWhileSym0 (a1 :: TyFun a ~> Bool [a] ~> [a])
data DropWhileSym1 (a6989586621679814938 :: a ~> Bool) (b :: TyFun [a] [a])
type family DropWhileSym2 (a6989586621679814938 :: a ~> Bool) (a6989586621679814939 :: [a]) :: [a]
data DropWhileEndSym0 (a1 :: TyFun a ~> Bool [a] ~> [a])
data DropWhileEndSym1 (a6989586621679814921 :: a ~> Bool) (b :: TyFun [a] [a])
type family DropWhileEndSym2 (a6989586621679814921 :: a ~> Bool) (a6989586621679814922 :: [a]) :: [a]
data SpanSym0 (a1 :: TyFun a ~> Bool [a] ~> ([a], [a]))
data SpanSym1 (a6989586621679814884 :: a ~> Bool) (b :: TyFun [a] ([a], [a]))
type family SpanSym2 (a6989586621679814884 :: a ~> Bool) (a6989586621679814885 :: [a]) :: ([a], [a])
data BreakSym0 (a1 :: TyFun a ~> Bool [a] ~> ([a], [a]))
data BreakSym1 (a6989586621679814849 :: a ~> Bool) (b :: TyFun [a] ([a], [a]))
type family BreakSym2 (a6989586621679814849 :: a ~> Bool) (a6989586621679814850 :: [a]) :: ([a], [a])
data StripPrefixSym0 (a1 :: TyFun [a] [a] ~> Maybe [a])
data StripPrefixSym1 (a6989586621679966032 :: [a]) (b :: TyFun [a] Maybe [a])
type family StripPrefixSym2 (a6989586621679966032 :: [a]) (a6989586621679966033 :: [a]) :: Maybe [a]
data GroupSym0 (a1 :: TyFun [a] [[a]])
type family GroupSym1 (a6989586621679814811 :: [a]) :: [[a]]
data InitsSym0 (a1 :: TyFun [a] [[a]])
type family InitsSym1 (a6989586621679815426 :: [a]) :: [[a]]
data TailsSym0 (a1 :: TyFun [a] [[a]])
type family TailsSym1 (a6989586621679815418 :: [a]) :: [[a]]
data IsPrefixOfSym0 (a1 :: TyFun [a] [a] ~> Bool)
data IsPrefixOfSym1 (a6989586621679815410 :: [a]) (b :: TyFun [a] Bool)
type family IsPrefixOfSym2 (a6989586621679815410 :: [a]) (a6989586621679815411 :: [a]) :: Bool
data IsSuffixOfSym0 (a1 :: TyFun [a] [a] ~> Bool)
data IsSuffixOfSym1 (a6989586621679815403 :: [a]) (b :: TyFun [a] Bool)
type family IsSuffixOfSym2 (a6989586621679815403 :: [a]) (a6989586621679815404 :: [a]) :: Bool
data IsInfixOfSym0 (a1 :: TyFun [a] [a] ~> Bool)
data IsInfixOfSym1 (a6989586621679815396 :: [a]) (b :: TyFun [a] Bool)
type family IsInfixOfSym2 (a6989586621679815396 :: [a]) (a6989586621679815397 :: [a]) :: Bool
data ElemSym0 (a1 :: TyFun a t a ~> Bool)
data ElemSym1 (a6989586621680390439 :: a) (b :: TyFun t a Bool)
type family ElemSym2 (a6989586621680390439 :: a) (a6989586621680390440 :: t a) :: Bool
data NotElemSym0 (a1 :: TyFun a t a ~> Bool)
data NotElemSym1 (a6989586621680390186 :: a) (b :: TyFun t a Bool)
type family NotElemSym2 (a6989586621680390186 :: a) (a6989586621680390187 :: t a) :: Bool
data LookupSym0 (a1 :: TyFun a [(a, b)] ~> Maybe b)
data LookupSym1 (a6989586621679814744 :: a) (b1 :: TyFun [(a, b)] Maybe b)
type family LookupSym2 (a6989586621679814744 :: a) (a6989586621679814745 :: [(a, b)]) :: Maybe b
data FindSym0 (a1 :: TyFun a ~> Bool t a ~> Maybe a)
data FindSym1 (a6989586621680390168 :: a ~> Bool) (b :: TyFun t a Maybe a)
type family FindSym2 (a6989586621680390168 :: a ~> Bool) (a6989586621680390169 :: t a) :: Maybe a
data FilterSym0 (a1 :: TyFun a ~> Bool [a] ~> [a])
data FilterSym1 (a6989586621679815053 :: a ~> Bool) (b :: TyFun [a] [a])
type family FilterSym2 (a6989586621679815053 :: a ~> Bool) (a6989586621679815054 :: [a]) :: [a]
data PartitionSym0 (a1 :: TyFun a ~> Bool [a] ~> ([a], [a]))
data PartitionSym1 (a6989586621679814737 :: a ~> Bool) (b :: TyFun [a] ([a], [a]))
type family PartitionSym2 (a6989586621679814737 :: a ~> Bool) (a6989586621679814738 :: [a]) :: ([a], [a])
data (a1 :: TyFun [a] Natural ~> a) !!@#@$
infixl 9 !!@#@$
data (a6989586621679814661 :: [a]) !!@#@$$ (b :: TyFun Natural a)
infixl 9 !!@#@$$
type family (a6989586621679814661 :: [a]) !!@#@$$$ (a6989586621679814662 :: Natural) :: a
infixl 9 !!@#@$$$
data ElemIndexSym0 (a1 :: TyFun a [a] ~> Maybe Natural)
data ElemIndexSym1 (a6989586621679815037 :: a) (b :: TyFun [a] Maybe Natural)
type family ElemIndexSym2 (a6989586621679815037 :: a) (a6989586621679815038 :: [a]) :: Maybe Natural
data ElemIndicesSym0 (a1 :: TyFun a [a] ~> [Natural])
data ElemIndicesSym1 (a6989586621679815028 :: a) (b :: TyFun [a] [Natural])
type family ElemIndicesSym2 (a6989586621679815028 :: a) (a6989586621679815029 :: [a]) :: [Natural]
data FindIndexSym0 (a1 :: TyFun a ~> Bool [a] ~> Maybe Natural)
data FindIndexSym1 (a6989586621679815019 :: a ~> Bool) (b :: TyFun [a] Maybe Natural)
type family FindIndexSym2 (a6989586621679815019 :: a ~> Bool) (a6989586621679815020 :: [a]) :: Maybe Natural
data FindIndicesSym0 (a1 :: TyFun a ~> Bool [a] ~> [Natural])
data FindIndicesSym1 (a6989586621679814996 :: a ~> Bool) (b :: TyFun [a] [Natural])
type family FindIndicesSym2 (a6989586621679814996 :: a ~> Bool) (a6989586621679814997 :: [a]) :: [Natural]
data ZipSym0 (a1 :: TyFun [a] [b] ~> [(a, b)])
data ZipSym1 (a6989586621679815371 :: [a]) (b1 :: TyFun [b] [(a, b)])
type family ZipSym2 (a6989586621679815371 :: [a]) (a6989586621679815372 :: [b]) :: [(a, b)]
data Zip3Sym0 (a1 :: TyFun [a] [b] ~> [c] ~> [(a, b, c)])
data Zip3Sym1 (a6989586621679815359 :: [a]) (b1 :: TyFun [b] [c] ~> [(a, b, c)])
data Zip3Sym2 (a6989586621679815359 :: [a]) (a6989586621679815360 :: [b]) (c1 :: TyFun [c] [(a, b, c)])
type family Zip3Sym3 (a6989586621679815359 :: [a]) (a6989586621679815360 :: [b]) (a6989586621679815361 :: [c]) :: [(a, b, c)]
data Zip4Sym0 (a1 :: TyFun [a] [b] ~> [c] ~> [d] ~> [(a, b, c, d)])
data Zip4Sym1 (a6989586621679966021 :: [a]) (b1 :: TyFun [b] [c] ~> [d] ~> [(a, b, c, d)])
data Zip4Sym2 (a6989586621679966021 :: [a]) (a6989586621679966022 :: [b]) (c1 :: TyFun [c] [d] ~> [(a, b, c, d)])
data Zip4Sym3 (a6989586621679966021 :: [a]) (a6989586621679966022 :: [b]) (a6989586621679966023 :: [c]) (d1 :: TyFun [d] [(a, b, c, d)])
type family Zip4Sym4 (a6989586621679966021 :: [a]) (a6989586621679966022 :: [b]) (a6989586621679966023 :: [c]) (a6989586621679966024 :: [d]) :: [(a, b, c, d)]
data Zip5Sym0 (a1 :: TyFun [a] [b] ~> [c] ~> [d] ~> [e] ~> [(a, b, c, d, e)])
data Zip5Sym1 (a6989586621679965998 :: [a]) (b1 :: TyFun [b] [c] ~> [d] ~> [e] ~> [(a, b, c, d, e)])
data Zip5Sym2 (a6989586621679965998 :: [a]) (a6989586621679965999 :: [b]) (c1 :: TyFun [c] [d] ~> [e] ~> [(a, b, c, d, e)])
data Zip5Sym3 (a6989586621679965998 :: [a]) (a6989586621679965999 :: [b]) (a6989586621679966000 :: [c]) (d1 :: TyFun [d] [e] ~> [(a, b, c, d, e)])
data Zip5Sym4 (a6989586621679965998 :: [a]) (a6989586621679965999 :: [b]) (a6989586621679966000 :: [c]) (a6989586621679966001 :: [d]) (e1 :: TyFun [e] [(a, b, c, d, e)])
type family Zip5Sym5 (a6989586621679965998 :: [a]) (a6989586621679965999 :: [b]) (a6989586621679966000 :: [c]) (a6989586621679966001 :: [d]) (a6989586621679966002 :: [e]) :: [(a, b, c, d, e)]
data Zip6Sym0 (a1 :: TyFun [a] [b] ~> [c] ~> [d] ~> [e] ~> [f] ~> [(a, b, c, d, e, f)])
data Zip6Sym1 (a6989586621679965970 :: [a]) (b1 :: TyFun [b] [c] ~> [d] ~> [e] ~> [f] ~> [(a, b, c, d, e, f)])
data Zip6Sym2 (a6989586621679965970 :: [a]) (a6989586621679965971 :: [b]) (c1 :: TyFun [c] [d] ~> [e] ~> [f] ~> [(a, b, c, d, e, f)])
data Zip6Sym3 (a6989586621679965970 :: [a]) (a6989586621679965971 :: [b]) (a6989586621679965972 :: [c]) (d1 :: TyFun [d] [e] ~> [f] ~> [(a, b, c, d, e, f)])
data Zip6Sym4 (a6989586621679965970 :: [a]) (a6989586621679965971 :: [b]) (a6989586621679965972 :: [c]) (a6989586621679965973 :: [d]) (e1 :: TyFun [e] [f] ~> [(a, b, c, d, e, f)])
data Zip6Sym5 (a6989586621679965970 :: [a]) (a6989586621679965971 :: [b]) (a6989586621679965972 :: [c]) (a6989586621679965973 :: [d]) (a6989586621679965974 :: [e]) (f1 :: TyFun [f] [(a, b, c, d, e, f)])
type family Zip6Sym6 (a6989586621679965970 :: [a]) (a6989586621679965971 :: [b]) (a6989586621679965972 :: [c]) (a6989586621679965973 :: [d]) (a6989586621679965974 :: [e]) (a6989586621679965975 :: [f]) :: [(a, b, c, d, e, f)]
data Zip7Sym0 (a1 :: TyFun [a] [b] ~> [c] ~> [d] ~> [e] ~> [f] ~> [g] ~> [(a, b, c, d, e, f, g)])
data Zip7Sym1 (a6989586621679965937 :: [a]) (b1 :: TyFun [b] [c] ~> [d] ~> [e] ~> [f] ~> [g] ~> [(a, b, c, d, e, f, g)])
data Zip7Sym2 (a6989586621679965937 :: [a]) (a6989586621679965938 :: [b]) (c1 :: TyFun [c] [d] ~> [e] ~> [f] ~> [g] ~> [(a, b, c, d, e, f, g)])
data Zip7Sym3 (a6989586621679965937 :: [a]) (a6989586621679965938 :: [b]) (a6989586621679965939 :: [c]) (d1 :: TyFun [d] [e] ~> [f] ~> [g] ~> [(a, b, c, d, e, f, g)])
data Zip7Sym4 (a6989586621679965937 :: [a]) (a6989586621679965938 :: [b]) (a6989586621679965939 :: [c]) (a6989586621679965940 :: [d]) (e1 :: TyFun [e] [f] ~> [g] ~> [(a, b, c, d, e, f, g)])
data Zip7Sym5 (a6989586621679965937 :: [a]) (a6989586621679965938 :: [b]) (a6989586621679965939 :: [c]) (a6989586621679965940 :: [d]) (a6989586621679965941 :: [e]) (f1 :: TyFun [f] [g] ~> [(a, b, c, d, e, f, g)])
data Zip7Sym6 (a6989586621679965937 :: [a]) (a6989586621679965938 :: [b]) (a6989586621679965939 :: [c]) (a6989586621679965940 :: [d]) (a6989586621679965941 :: [e]) (a6989586621679965942 :: [f]) (g1 :: TyFun [g] [(a, b, c, d, e, f, g)])
type family Zip7Sym7 (a6989586621679965937 :: [a]) (a6989586621679965938 :: [b]) (a6989586621679965939 :: [c]) (a6989586621679965940 :: [d]) (a6989586621679965941 :: [e]) (a6989586621679965942 :: [f]) (a6989586621679965943 :: [g]) :: [(a, b, c, d, e, f, g)]
data ZipWithSym0 (a1 :: TyFun a ~> b ~> c [a] ~> [b] ~> [c])
data ZipWithSym1 (a6989586621679815347 :: a ~> b ~> c) (b1 :: TyFun [a] [b] ~> [c])
data ZipWithSym2 (a6989586621679815347 :: a ~> b ~> c) (a6989586621679815348 :: [a]) (c1 :: TyFun [b] [c])
type family ZipWithSym3 (a6989586621679815347 :: a ~> b ~> c) (a6989586621679815348 :: [a]) (a6989586621679815349 :: [b]) :: [c]
data ZipWith3Sym0 (a1 :: TyFun a ~> b ~> c ~> d [a] ~> [b] ~> [c] ~> [d])
data ZipWith3Sym1 (a6989586621679815332 :: a ~> b ~> c ~> d) (b1 :: TyFun [a] [b] ~> [c] ~> [d])
data ZipWith3Sym2 (a6989586621679815332 :: a ~> b ~> c ~> d) (a6989586621679815333 :: [a]) (c1 :: TyFun [b] [c] ~> [d])
data ZipWith3Sym3 (a6989586621679815332 :: a ~> b ~> c ~> d) (a6989586621679815333 :: [a]) (a6989586621679815334 :: [b]) (d1 :: TyFun [c] [d])
type family ZipWith3Sym4 (a6989586621679815332 :: a ~> b ~> c ~> d) (a6989586621679815333 :: [a]) (a6989586621679815334 :: [b]) (a6989586621679815335 :: [c]) :: [d]
data ZipWith4Sym0 (a1 :: TyFun a ~> b ~> c ~> d ~> e [a] ~> [b] ~> [c] ~> [d] ~> [e])
data ZipWith4Sym1 (a6989586621679965901 :: a ~> b ~> c ~> d ~> e) (b1 :: TyFun [a] [b] ~> [c] ~> [d] ~> [e])
data ZipWith4Sym2 (a6989586621679965901 :: a ~> b ~> c ~> d ~> e) (a6989586621679965902 :: [a]) (c1 :: TyFun [b] [c] ~> [d] ~> [e])
data ZipWith4Sym3 (a6989586621679965901 :: a ~> b ~> c ~> d ~> e) (a6989586621679965902 :: [a]) (a6989586621679965903 :: [b]) (d1 :: TyFun [c] [d] ~> [e])
data ZipWith4Sym4 (a6989586621679965901 :: a ~> b ~> c ~> d ~> e) (a6989586621679965902 :: [a]) (a6989586621679965903 :: [b]) (a6989586621679965904 :: [c]) (e1 :: TyFun [d] [e])
type family ZipWith4Sym5 (a6989586621679965901 :: a ~> b ~> c ~> d ~> e) (a6989586621679965902 :: [a]) (a6989586621679965903 :: [b]) (a6989586621679965904 :: [c]) (a6989586621679965905 :: [d]) :: [e]
data ZipWith5Sym0 (a1 :: TyFun a ~> b ~> c ~> d ~> e ~> f [a] ~> [b] ~> [c] ~> [d] ~> [e] ~> [f])
data ZipWith5Sym1 (a6989586621679965878 :: a ~> b ~> c ~> d ~> e ~> f) (b1 :: TyFun [a] [b] ~> [c] ~> [d] ~> [e] ~> [f])
data ZipWith5Sym2 (a6989586621679965878 :: a ~> b ~> c ~> d ~> e ~> f) (a6989586621679965879 :: [a]) (c1 :: TyFun [b] [c] ~> [d] ~> [e] ~> [f])
data ZipWith5Sym3 (a6989586621679965878 :: a ~> b ~> c ~> d ~> e ~> f) (a6989586621679965879 :: [a]) (a6989586621679965880 :: [b]) (d1 :: TyFun [c] [d] ~> [e] ~> [f])
data ZipWith5Sym4 (a6989586621679965878 :: a ~> b ~> c ~> d ~> e ~> f) (a6989586621679965879 :: [a]) (a6989586621679965880 :: [b]) (a6989586621679965881 :: [c]) (e1 :: TyFun [d] [e] ~> [f])
data ZipWith5Sym5 (a6989586621679965878 :: a ~> b ~> c ~> d ~> e ~> f) (a6989586621679965879 :: [a]) (a6989586621679965880 :: [b]) (a6989586621679965881 :: [c]) (a6989586621679965882 :: [d]) (f1 :: TyFun [e] [f])
type family ZipWith5Sym6 (a6989586621679965878 :: a ~> b ~> c ~> d ~> e ~> f) (a6989586621679965879 :: [a]) (a6989586621679965880 :: [b]) (a6989586621679965881 :: [c]) (a6989586621679965882 :: [d]) (a6989586621679965883 :: [e]) :: [f]
data ZipWith6Sym0 (a1 :: TyFun a ~> b ~> c ~> d ~> e ~> f ~> g [a] ~> [b] ~> [c] ~> [d] ~> [e] ~> [f] ~> [g])
data ZipWith6Sym1 (a6989586621679965851 :: a ~> b ~> c ~> d ~> e ~> f ~> g) (b1 :: TyFun [a] [b] ~> [c] ~> [d] ~> [e] ~> [f] ~> [g])
data ZipWith6Sym2 (a6989586621679965851 :: a ~> b ~> c ~> d ~> e ~> f ~> g) (a6989586621679965852 :: [a]) (c1 :: TyFun [b] [c] ~> [d] ~> [e] ~> [f] ~> [g])
data ZipWith6Sym3 (a6989586621679965851 :: a ~> b ~> c ~> d ~> e ~> f ~> g) (a6989586621679965852 :: [a]) (a6989586621679965853 :: [b]) (d1 :: TyFun [c] [d] ~> [e] ~> [f] ~> [g])
data ZipWith6Sym4 (a6989586621679965851 :: a ~> b ~> c ~> d ~> e ~> f ~> g) (a6989586621679965852 :: [a]) (a6989586621679965853 :: [b]) (a6989586621679965854 :: [c]) (e1 :: TyFun [d] [e] ~> [f] ~> [g])
data ZipWith6Sym5 (a6989586621679965851 :: a ~> b ~> c ~> d ~> e ~> f ~> g) (a6989586621679965852 :: [a]) (a6989586621679965853 :: [b]) (a6989586621679965854 :: [c]) (a6989586621679965855 :: [d]) (f1 :: TyFun [e] [f] ~> [g])
data ZipWith6Sym6 (a6989586621679965851 :: a ~> b ~> c ~> d ~> e ~> f ~> g) (a6989586621679965852 :: [a]) (a6989586621679965853 :: [b]) (a6989586621679965854 :: [c]) (a6989586621679965855 :: [d]) (a6989586621679965856 :: [e]) (g1 :: TyFun [f] [g])
type family ZipWith6Sym7 (a6989586621679965851 :: a ~> b ~> c ~> d ~> e ~> f ~> g) (a6989586621679965852 :: [a]) (a6989586621679965853 :: [b]) (a6989586621679965854 :: [c]) (a6989586621679965855 :: [d]) (a6989586621679965856 :: [e]) (a6989586621679965857 :: [f]) :: [g]
data ZipWith7Sym0 (a1 :: TyFun a ~> b ~> c ~> d ~> e ~> f ~> g ~> h [a] ~> [b] ~> [c] ~> [d] ~> [e] ~> [f] ~> [g] ~> [h])
data ZipWith7Sym1 (a6989586621679965820 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (b1 :: TyFun [a] [b] ~> [c] ~> [d] ~> [e] ~> [f] ~> [g] ~> [h])
data ZipWith7Sym2 (a6989586621679965820 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (a6989586621679965821 :: [a]) (c1 :: TyFun [b] [c] ~> [d] ~> [e] ~> [f] ~> [g] ~> [h])
data ZipWith7Sym3 (a6989586621679965820 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (a6989586621679965821 :: [a]) (a6989586621679965822 :: [b]) (d1 :: TyFun [c] [d] ~> [e] ~> [f] ~> [g] ~> [h])
data ZipWith7Sym4 (a6989586621679965820 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (a6989586621679965821 :: [a]) (a6989586621679965822 :: [b]) (a6989586621679965823 :: [c]) (e1 :: TyFun [d] [e] ~> [f] ~> [g] ~> [h])
data ZipWith7Sym5 (a6989586621679965820 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (a6989586621679965821 :: [a]) (a6989586621679965822 :: [b]) (a6989586621679965823 :: [c]) (a6989586621679965824 :: [d]) (f1 :: TyFun [e] [f] ~> [g] ~> [h])
data ZipWith7Sym6 (a6989586621679965820 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (a6989586621679965821 :: [a]) (a6989586621679965822 :: [b]) (a6989586621679965823 :: [c]) (a6989586621679965824 :: [d]) (a6989586621679965825 :: [e]) (g1 :: TyFun [f] [g] ~> [h])
data ZipWith7Sym7 (a6989586621679965820 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (a6989586621679965821 :: [a]) (a6989586621679965822 :: [b]) (a6989586621679965823 :: [c]) (a6989586621679965824 :: [d]) (a6989586621679965825 :: [e]) (a6989586621679965826 :: [f]) (h1 :: TyFun [g] [h])
type family ZipWith7Sym8 (a6989586621679965820 :: a ~> b ~> c ~> d ~> e ~> f ~> g ~> h) (a6989586621679965821 :: [a]) (a6989586621679965822 :: [b]) (a6989586621679965823 :: [c]) (a6989586621679965824 :: [d]) (a6989586621679965825 :: [e]) (a6989586621679965826 :: [f]) (a6989586621679965827 :: [g]) :: [h]
data UnzipSym0 (a1 :: TyFun [(a, b)] ([a], [b]))
type family UnzipSym1 (a6989586621679815313 :: [(a, b)]) :: ([a], [b])
data Unzip3Sym0 (a1 :: TyFun [(a, b, c)] ([a], [b], [c]))
type family Unzip3Sym1 (a6989586621679815295 :: [(a, b, c)]) :: ([a], [b], [c])
data Unzip4Sym0 (a1 :: TyFun [(a, b, c, d)] ([a], [b], [c], [d]))
type family Unzip4Sym1 (a6989586621679815275 :: [(a, b, c, d)]) :: ([a], [b], [c], [d])
data Unzip5Sym0 (a1 :: TyFun [(a, b, c, d, e)] ([a], [b], [c], [d], [e]))
type family Unzip5Sym1 (a6989586621679815253 :: [(a, b, c, d, e)]) :: ([a], [b], [c], [d], [e])
data Unzip6Sym0 (a1 :: TyFun [(a, b, c, d, e, f)] ([a], [b], [c], [d], [e], [f]))
type family Unzip6Sym1 (a6989586621679815229 :: [(a, b, c, d, e, f)]) :: ([a], [b], [c], [d], [e], [f])
data Unzip7Sym0 (a1 :: TyFun [(a, b, c, d, e, f, g)] ([a], [b], [c], [d], [e], [f], [g]))
type family Unzip7Sym1 (a6989586621679815203 :: [(a, b, c, d, e, f, g)]) :: ([a], [b], [c], [d], [e], [f], [g])
data UnlinesSym0 (a :: TyFun [Symbol] Symbol)
type family UnlinesSym1 (a6989586621679815198 :: [Symbol]) :: Symbol
data UnwordsSym0 (a :: TyFun [Symbol] Symbol)
type family UnwordsSym1 (a6989586621679815188 :: [Symbol]) :: Symbol
data NubSym0 (a1 :: TyFun [a] [a])
type family NubSym1 (a6989586621679814644 :: [a]) :: [a]
data DeleteSym0 (a1 :: TyFun a [a] ~> [a])
data DeleteSym1 (a6989586621679815182 :: a) (b :: TyFun [a] [a])
type family DeleteSym2 (a6989586621679815182 :: a) (a6989586621679815183 :: [a]) :: [a]
data (a1 :: TyFun [a] [a] ~> [a]) \\@#@$
infix 5 \\@#@$
data (a6989586621679815171 :: [a]) \\@#@$$ (b :: TyFun [a] [a])
infix 5 \\@#@$$
type family (a6989586621679815171 :: [a]) \\@#@$$$ (a6989586621679815172 :: [a]) :: [a]
infix 5 \\@#@$$$
data UnionSym0 (a1 :: TyFun [a] [a] ~> [a])
data UnionSym1 (a6989586621679814598 :: [a]) (b :: TyFun [a] [a])
type family UnionSym2 (a6989586621679814598 :: [a]) (a6989586621679814599 :: [a]) :: [a]
data IntersectSym0 (a1 :: TyFun [a] [a] ~> [a])
data IntersectSym1 (a6989586621679814989 :: [a]) (b :: TyFun [a] [a])
type family IntersectSym2 (a6989586621679814989 :: [a]) (a6989586621679814990 :: [a]) :: [a]
data InsertSym0 (a1 :: TyFun a [a] ~> [a])
data InsertSym1 (a6989586621679814791 :: a) (b :: TyFun [a] [a])
type family InsertSym2 (a6989586621679814791 :: a) (a6989586621679814792 :: [a]) :: [a]
data SortSym0 (a1 :: TyFun [a] [a])
type family SortSym1 (a6989586621679814786 :: [a]) :: [a]
data NubBySym0 (a1 :: TyFun a ~> a ~> Bool [a] ~> [a])
data NubBySym1 (a6989586621679814626 :: a ~> a ~> Bool) (b :: TyFun [a] [a])
type family NubBySym2 (a6989586621679814626 :: a ~> a ~> Bool) (a6989586621679814627 :: [a]) :: [a]
data DeleteBySym0 (a1 :: TyFun a ~> a ~> Bool a ~> [a] ~> [a])
data DeleteBySym1 (a6989586621679815152 :: a ~> a ~> Bool) (b :: TyFun a [a] ~> [a])
data DeleteBySym2 (a6989586621679815152 :: a ~> a ~> Bool) (a6989586621679815153 :: a) (c :: TyFun [a] [a])
type family DeleteBySym3 (a6989586621679815152 :: a ~> a ~> Bool) (a6989586621679815153 :: a) (a6989586621679815154 :: [a]) :: [a]
data DeleteFirstsBySym0 (a1 :: TyFun a ~> a ~> Bool [a] ~> [a] ~> [a])
data DeleteFirstsBySym1 (a6989586621679815142 :: a ~> a ~> Bool) (b :: TyFun [a] [a] ~> [a])
data DeleteFirstsBySym2 (a6989586621679815142 :: a ~> a ~> Bool) (a6989586621679815143 :: [a]) (c :: TyFun [a] [a])
type family DeleteFirstsBySym3 (a6989586621679815142 :: a ~> a ~> Bool) (a6989586621679815143 :: [a]) (a6989586621679815144 :: [a]) :: [a]
data UnionBySym0 (a1 :: TyFun a ~> a ~> Bool [a] ~> [a] ~> [a])
data UnionBySym1 (a6989586621679814606 :: a ~> a ~> Bool) (b :: TyFun [a] [a] ~> [a])
data UnionBySym2 (a6989586621679814606 :: a ~> a ~> Bool) (a6989586621679814607 :: [a]) (c :: TyFun [a] [a])
type family UnionBySym3 (a6989586621679814606 :: a ~> a ~> Bool) (a6989586621679814607 :: [a]) (a6989586621679814608 :: [a]) :: [a]
data IntersectBySym0 (a1 :: TyFun a ~> a ~> Bool [a] ~> [a] ~> [a])
data IntersectBySym1 (a6989586621679814967 :: a ~> a ~> Bool) (b :: TyFun [a] [a] ~> [a])
data IntersectBySym2 (a6989586621679814967 :: a ~> a ~> Bool) (a6989586621679814968 :: [a]) (c :: TyFun [a] [a])
type family IntersectBySym3 (a6989586621679814967 :: a ~> a ~> Bool) (a6989586621679814968 :: [a]) (a6989586621679814969 :: [a]) :: [a]
data GroupBySym0 (a1 :: TyFun a ~> a ~> Bool [a] ~> [[a]])
data GroupBySym1 (a6989586621679814759 :: a ~> a ~> Bool) (b :: TyFun [a] [[a]])
type family GroupBySym2 (a6989586621679814759 :: a ~> a ~> Bool) (a6989586621679814760 :: [a]) :: [[a]]
data SortBySym0 (a1 :: TyFun a ~> a ~> Ordering [a] ~> [a])
data SortBySym1 (a6989586621679815130 :: a ~> a ~> Ordering) (b :: TyFun [a] [a])
type family SortBySym2 (a6989586621679815130 :: a ~> a ~> Ordering) (a6989586621679815131 :: [a]) :: [a]
data InsertBySym0 (a1 :: TyFun a ~> a ~> Ordering a ~> [a] ~> [a])
data InsertBySym1 (a6989586621679815110 :: a ~> a ~> Ordering) (b :: TyFun a [a] ~> [a])
data InsertBySym2 (a6989586621679815110 :: a ~> a ~> Ordering) (a6989586621679815111 :: a) (c :: TyFun [a] [a])
type family InsertBySym3 (a6989586621679815110 :: a ~> a ~> Ordering) (a6989586621679815111 :: a) (a6989586621679815112 :: [a]) :: [a]
data MaximumBySym0 (a1 :: TyFun a ~> a ~> Ordering t a ~> a)
data MaximumBySym1 (a6989586621680390215 :: a ~> a ~> Ordering) (b :: TyFun t a a)
type family MaximumBySym2 (a6989586621680390215 :: a ~> a ~> Ordering) (a6989586621680390216 :: t a) :: a
data MinimumBySym0 (a1 :: TyFun a ~> a ~> Ordering t a ~> a)
data MinimumBySym1 (a6989586621680390195 :: a ~> a ~> Ordering) (b :: TyFun t a a)
type family MinimumBySym2 (a6989586621680390195 :: a ~> a ~> Ordering) (a6989586621680390196 :: t a) :: a
data GenericLengthSym0 (a1 :: TyFun [a] i)
type family GenericLengthSym1 (a6989586621679814589 :: [a]) :: i
-- | Defines the promoted and singled versions of the MonadZip
-- type class.
module Control.Monad.Zip.Singletons
class PMonadZip (m :: Type -> Type) where {
type Mzip (arg :: m a) (arg1 :: m b) :: m (a, b);
type MzipWith (arg :: a ~> b ~> c) (arg1 :: m a) (arg2 :: m b) :: m c;
type Munzip (arg :: m (a, b)) :: (m a, m b);
type Mzip arg :: m a arg1 :: m b = Apply Apply Mzip_6989586621681083545Sym0 :: TyFun m a m b ~> m (a, b) -> Type arg arg1;
type MzipWith arg :: a ~> b ~> c arg1 :: m a arg2 :: m b = Apply Apply Apply MzipWith_6989586621681083561Sym0 :: TyFun a ~> b ~> c m a ~> m b ~> m c -> Type arg arg1 arg2;
type Munzip arg :: m (a, b) = Apply Munzip_6989586621681083574Sym0 :: TyFun m (a, b) (m a, m b) -> Type arg;
}
class SMonad m => SMonadZip (m :: Type -> Type)
sMzip :: forall a b (t1 :: m a) (t2 :: m b). SMonadZip m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MzipSym0 :: TyFun (m a) (m b ~> m (a, b)) -> Type) t1) t2)
($dmsMzip) :: forall a b (t1 :: m a) (t2 :: m b). (SMonadZip m, Apply (Apply (MzipSym0 :: TyFun (m a) (m b ~> m (a, b)) -> Type) t1) t2 ~ Apply (Apply (Mzip_6989586621681083545Sym0 :: TyFun (m a) (m b ~> m (a, b)) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MzipSym0 :: TyFun (m a) (m b ~> m (a, b)) -> Type) t1) t2)
sMzipWith :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: m a) (t3 :: m b). SMonadZip m => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (MzipWithSym0 :: TyFun (a ~> (b ~> c)) (m a ~> (m b ~> m c)) -> Type) t1) t2) t3)
($dmsMzipWith) :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: m a) (t3 :: m b). (SMonadZip m, Apply (Apply (Apply (MzipWithSym0 :: TyFun (a ~> (b ~> c)) (m a ~> (m b ~> m c)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (MzipWith_6989586621681083561Sym0 :: TyFun (a ~> (b ~> c)) (m a ~> (m b ~> m c)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (MzipWithSym0 :: TyFun (a ~> (b ~> c)) (m a ~> (m b ~> m c)) -> Type) t1) t2) t3)
sMunzip :: forall a b (t :: m (a, b)). SMonadZip m => Sing t -> Sing (Apply (MunzipSym0 :: TyFun (m (a, b)) (m a, m b) -> Type) t)
($dmsMunzip) :: forall a b (t :: m (a, b)). (SMonadZip m, Apply (MunzipSym0 :: TyFun (m (a, b)) (m a, m b) -> Type) t ~ Apply (Munzip_6989586621681083574Sym0 :: TyFun (m (a, b)) (m a, m b) -> Type) t) => Sing t -> Sing (Apply (MunzipSym0 :: TyFun (m (a, b)) (m a, m b) -> Type) t)
data MzipSym0 (a1 :: TyFun m a m b ~> m (a, b))
data MzipSym1 (a6989586621681083531 :: m a) (b1 :: TyFun m b m (a, b))
type family MzipSym2 (a6989586621681083531 :: m a) (a6989586621681083532 :: m b) :: m (a, b)
data MzipWithSym0 (a1 :: TyFun a ~> b ~> c m a ~> m b ~> m c)
data MzipWithSym1 (a6989586621681083537 :: a ~> b ~> c) (b1 :: TyFun m a m b ~> m c)
data MzipWithSym2 (a6989586621681083537 :: a ~> b ~> c) (a6989586621681083538 :: m a) (c1 :: TyFun m b m c)
type family MzipWithSym3 (a6989586621681083537 :: a ~> b ~> c) (a6989586621681083538 :: m a) (a6989586621681083539 :: m b) :: m c
data MunzipSym0 (a1 :: TyFun m (a, b) (m a, m b))
type family MunzipSym1 (a6989586621681083542 :: m (a, b)) :: (m a, m b)
instance Control.Monad.Zip.Singletons.PMonadZip Data.Semigroup.Internal.Dual
instance Control.Monad.Zip.Singletons.PMonadZip Data.Monoid.First
instance Control.Monad.Zip.Singletons.PMonadZip Data.Functor.Identity.Identity
instance Control.Monad.Zip.Singletons.PMonadZip Data.Monoid.Last
instance Control.Monad.Zip.Singletons.PMonadZip []
instance Control.Monad.Zip.Singletons.PMonadZip GHC.Maybe.Maybe
instance Control.Monad.Zip.Singletons.PMonadZip Data.Semigroup.Internal.Product
instance Control.Monad.Zip.Singletons.PMonadZip Data.Proxy.Proxy
instance Control.Monad.Zip.Singletons.PMonadZip Data.Semigroup.Internal.Sum
instance Control.Monad.Zip.Singletons.SMonadZip Data.Semigroup.Internal.Dual
instance Control.Monad.Zip.Singletons.SMonadZip Data.Monoid.First
instance Control.Monad.Zip.Singletons.SMonadZip Data.Functor.Identity.Identity
instance Control.Monad.Zip.Singletons.SMonadZip Data.Monoid.Last
instance Control.Monad.Zip.Singletons.SMonadZip []
instance Control.Monad.Zip.Singletons.SMonadZip GHC.Maybe.Maybe
instance Control.Monad.Zip.Singletons.SMonadZip Data.Semigroup.Internal.Product
instance Control.Monad.Zip.Singletons.SMonadZip Data.Proxy.Proxy
instance Control.Monad.Zip.Singletons.SMonadZip Data.Semigroup.Internal.Sum
instance Control.Monad.Zip.Singletons.SMonadZip m => Data.Singletons.SingI1 Control.Monad.Zip.Singletons.MzipWithSym1
instance Control.Monad.Zip.Singletons.SMonadZip m => Data.Singletons.SingI1 Control.Monad.Zip.Singletons.MzipSym1
instance forall (m :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> c)). (Control.Monad.Zip.Singletons.SMonadZip m, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Control.Monad.Zip.Singletons.MzipWithSym2 d)
instance Control.Monad.Zip.Singletons.SMonadZip m => Data.Singletons.SingI2 Control.Monad.Zip.Singletons.MzipWithSym2
instance Control.Monad.Zip.Singletons.SMonadZip m => Data.Singletons.SingI Control.Monad.Zip.Singletons.MunzipSym0
instance Control.Monad.Zip.Singletons.SMonadZip m => Data.Singletons.SingI Control.Monad.Zip.Singletons.MzipSym0
instance forall (m :: * -> *) a (d :: m a) b. (Control.Monad.Zip.Singletons.SMonadZip m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Zip.Singletons.MzipSym1 d)
instance Control.Monad.Zip.Singletons.SMonadZip m => Data.Singletons.SingI Control.Monad.Zip.Singletons.MzipWithSym0
instance forall (m :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> c)). (Control.Monad.Zip.Singletons.SMonadZip m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Zip.Singletons.MzipWithSym1 d)
instance forall (m :: * -> *) a b c (d1 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (d2 :: m a). (Control.Monad.Zip.Singletons.SMonadZip m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Control.Monad.Zip.Singletons.MzipWithSym2 d1 d2)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MunzipSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.Munzip_6989586621681083574Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.Munzip_6989586621681083617Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.Munzip_6989586621681083647Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipSym0
instance forall (m :: * -> *) a b (a6989586621681083531 :: m a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipSym1 a6989586621681083531)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWithSym0
instance forall a b c (m :: * -> *) (a6989586621681083537 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWithSym1 a6989586621681083537)
instance forall a b c (m :: * -> *) (a6989586621681083537 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083538 :: m a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWithSym2 a6989586621681083537 a6989586621681083538)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083561Sym0
instance forall a b c (m :: * -> *) (a6989586621681083567 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083561Sym1 a6989586621681083567)
instance forall a b c (m :: * -> *) (a6989586621681083567 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083568 :: m a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083561Sym2 a6989586621681083567 a6989586621681083568)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083598Sym0
instance forall a b c (a6989586621681083610 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083598Sym1 a6989586621681083610)
instance forall a b c (a6989586621681083610 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083611 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083598Sym2 a6989586621681083610 a6989586621681083611)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083628Sym0
instance forall a b c (a6989586621681083640 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083628Sym1 a6989586621681083640)
instance forall a b c (a6989586621681083640 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083641 :: Data.Functor.Identity.Identity a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083628Sym2 a6989586621681083640 a6989586621681083641)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083657Sym0
instance forall a b c (a6989586621681083669 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083657Sym1 a6989586621681083669)
instance forall a b c (a6989586621681083669 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083670 :: Data.Semigroup.Internal.Dual a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083657Sym2 a6989586621681083669 a6989586621681083670)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083678Sym0
instance forall a b c (a6989586621681083690 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083678Sym1 a6989586621681083690)
instance forall a b c (a6989586621681083690 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083691 :: Data.Semigroup.Internal.Sum a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083678Sym2 a6989586621681083690 a6989586621681083691)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083699Sym0
instance forall a b c (a6989586621681083711 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083699Sym1 a6989586621681083711)
instance forall a b c (a6989586621681083711 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083712 :: Data.Semigroup.Internal.Product a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083699Sym2 a6989586621681083711 a6989586621681083712)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083720Sym0
instance forall a b c (a6989586621681083732 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083720Sym1 a6989586621681083732)
instance forall a b c (a6989586621681083732 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083733 :: GHC.Maybe.Maybe a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083720Sym2 a6989586621681083732 a6989586621681083733)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083741Sym0
instance forall a b c (a6989586621681083753 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083741Sym1 a6989586621681083753)
instance forall a b c (a6989586621681083753 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083754 :: Data.Monoid.First a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083741Sym2 a6989586621681083753 a6989586621681083754)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083762Sym0
instance forall a b c (a6989586621681083774 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083762Sym1 a6989586621681083774)
instance forall a b c (a6989586621681083774 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083775 :: Data.Monoid.Last a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083762Sym2 a6989586621681083774 a6989586621681083775)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.MzipWith_6989586621681083783Sym0
instance forall a b c (a6989586621681083789 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083783Sym1 a6989586621681083789)
instance forall a b c (a6989586621681083789 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681083790 :: Data.Proxy.Proxy a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.MzipWith_6989586621681083783Sym2 a6989586621681083789 a6989586621681083790)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.Mzip_6989586621681083545Sym0
instance forall (m :: * -> *) a b (a6989586621681083554 :: m a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.Mzip_6989586621681083545Sym1 a6989586621681083554)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Zip.Singletons.Mzip_6989586621681083582Sym0
instance forall a b (a6989586621681083591 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Zip.Singletons.Mzip_6989586621681083582Sym1 a6989586621681083591)
-- | Defines functions and datatypes relating to the singleton for
-- NonEmpty, including singled versions of all the definitions in
-- Data.List.NonEmpty.
--
-- 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.List.NonEmpty. Also,
-- please excuse the apparent repeated variable names. This is due to an
-- interaction between Template Haskell and Haddock.
module Data.List.NonEmpty.Singletons
type family Sing :: k -> Type
data SNonEmpty (a1 :: NonEmpty a)
[:%|] :: forall a (n1 :: a) (n2 :: [a]). Sing n1 -> Sing n2 -> SNonEmpty (n1 ':| n2)
infixr 5 :%|
type family Map (a1 :: a ~> b) (a2 :: NonEmpty a) :: NonEmpty b
sMap :: forall a b (t1 :: a ~> b) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapSym0 :: TyFun (a ~> b) (NonEmpty a ~> NonEmpty b) -> Type) t1) t2)
type family Intersperse (a1 :: a) (a2 :: NonEmpty a) :: NonEmpty a
sIntersperse :: forall a (t1 :: a) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (IntersperseSym0 :: TyFun a (NonEmpty a ~> NonEmpty a) -> Type) t1) t2)
type family Scanl (a1 :: b ~> a ~> b) (a2 :: b) (a3 :: [a]) :: NonEmpty b
sScanl :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ScanlSym0 :: TyFun (b ~> (a ~> b)) (b ~> ([a] ~> NonEmpty b)) -> Type) t1) t2) t3)
type family Scanr (a1 :: a ~> b ~> b) (a2 :: b) (a3 :: [a]) :: NonEmpty b
sScanr :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ScanrSym0 :: TyFun (a ~> (b ~> b)) (b ~> ([a] ~> NonEmpty b)) -> Type) t1) t2) t3)
type family Scanl1 (a1 :: a ~> a ~> a) (a2 :: NonEmpty a) :: NonEmpty a
sScanl1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Scanl1Sym0 :: TyFun (a ~> (a ~> a)) (NonEmpty a ~> NonEmpty a) -> Type) t1) t2)
type family Scanr1 (a1 :: a ~> a ~> a) (a2 :: NonEmpty a) :: NonEmpty a
sScanr1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Scanr1Sym0 :: TyFun (a ~> (a ~> a)) (NonEmpty a ~> NonEmpty a) -> Type) t1) t2)
type family Transpose (a1 :: NonEmpty NonEmpty a) :: NonEmpty NonEmpty a
sTranspose :: forall a (t :: NonEmpty (NonEmpty a)). Sing t -> Sing (Apply (TransposeSym0 :: TyFun (NonEmpty (NonEmpty a)) (NonEmpty (NonEmpty a)) -> Type) t)
type family SortBy (a1 :: a ~> a ~> Ordering) (a2 :: NonEmpty a) :: NonEmpty a
sSortBy :: forall a (t1 :: a ~> (a ~> Ordering)) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SortBySym0 :: TyFun (a ~> (a ~> Ordering)) (NonEmpty a ~> NonEmpty a) -> Type) t1) t2)
type family SortWith (a1 :: a ~> o) (a2 :: NonEmpty a) :: NonEmpty a
sSortWith :: forall a o (t1 :: a ~> o) (t2 :: NonEmpty a). SOrd o => Sing t1 -> Sing t2 -> Sing (Apply (Apply (SortWithSym0 :: TyFun (a ~> o) (NonEmpty a ~> NonEmpty a) -> Type) t1) t2)
type family Length (a1 :: NonEmpty a) :: Natural
sLength :: forall a (t :: NonEmpty a). Sing t -> Sing (Apply (LengthSym0 :: TyFun (NonEmpty a) Natural -> Type) t)
type family Head (a1 :: NonEmpty a) :: a
sHead :: forall a (t :: NonEmpty a). Sing t -> Sing (Apply (HeadSym0 :: TyFun (NonEmpty a) a -> Type) t)
type family Tail (a1 :: NonEmpty a) :: [a]
sTail :: forall a (t :: NonEmpty a). Sing t -> Sing (Apply (TailSym0 :: TyFun (NonEmpty a) [a] -> Type) t)
type family Last (a1 :: NonEmpty a) :: a
sLast :: forall a (t :: NonEmpty a). Sing t -> Sing (Apply (LastSym0 :: TyFun (NonEmpty a) a -> Type) t)
type family Init (a1 :: NonEmpty a) :: [a]
sInit :: forall a (t :: NonEmpty a). Sing t -> Sing (Apply (InitSym0 :: TyFun (NonEmpty a) [a] -> Type) t)
type family (a1 :: a) <| (a2 :: NonEmpty a) :: NonEmpty a
(%<|) :: forall a (t1 :: a) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<|@#@$) :: TyFun a (NonEmpty a ~> NonEmpty a) -> Type) t1) t2)
type family Cons (a1 :: a) (a2 :: NonEmpty a) :: NonEmpty a
sCons :: forall a (t1 :: a) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ConsSym0 :: TyFun a (NonEmpty a ~> NonEmpty a) -> Type) t1) t2)
type family Uncons (a1 :: NonEmpty a) :: (a, Maybe NonEmpty a)
sUncons :: forall a (t :: NonEmpty a). Sing t -> Sing (Apply (UnconsSym0 :: TyFun (NonEmpty a) (a, Maybe (NonEmpty a)) -> Type) t)
type family Unfoldr (a1 :: a ~> (b, Maybe a)) (a2 :: a) :: NonEmpty b
sUnfoldr :: forall a b (t1 :: a ~> (b, Maybe a)) (t2 :: a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (UnfoldrSym0 :: TyFun (a ~> (b, Maybe a)) (a ~> NonEmpty b) -> Type) t1) t2)
type family Sort (a1 :: NonEmpty a) :: NonEmpty a
sSort :: forall a (t :: NonEmpty a). SOrd a => Sing t -> Sing (Apply (SortSym0 :: TyFun (NonEmpty a) (NonEmpty a) -> Type) t)
type family Reverse (a1 :: NonEmpty a) :: NonEmpty a
sReverse :: forall a (t :: NonEmpty a). Sing t -> Sing (Apply (ReverseSym0 :: TyFun (NonEmpty a) (NonEmpty a) -> Type) t)
type family Inits (a1 :: [a]) :: NonEmpty [a]
sInits :: forall a (t :: [a]). Sing t -> Sing (Apply (InitsSym0 :: TyFun [a] (NonEmpty [a]) -> Type) t)
type family Tails (a1 :: [a]) :: NonEmpty [a]
sTails :: forall a (t :: [a]). Sing t -> Sing (Apply (TailsSym0 :: TyFun [a] (NonEmpty [a]) -> Type) t)
type family Unfold (a1 :: a ~> (b, Maybe a)) (a2 :: a) :: NonEmpty b
sUnfold :: forall a b (t1 :: a ~> (b, Maybe a)) (t2 :: a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (UnfoldSym0 :: TyFun (a ~> (b, Maybe a)) (a ~> NonEmpty b) -> Type) t1) t2)
type family Insert (a1 :: a) (a2 :: [a]) :: NonEmpty a
sInsert :: forall a (t1 :: a) (t2 :: [a]). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (InsertSym0 :: TyFun a ([a] ~> NonEmpty a) -> Type) t1) t2)
type family Take (a1 :: Natural) (a2 :: NonEmpty a) :: [a]
sTake :: forall a (t1 :: Natural) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (TakeSym0 :: TyFun Natural (NonEmpty a ~> [a]) -> Type) t1) t2)
type family Drop (a1 :: Natural) (a2 :: NonEmpty a) :: [a]
sDrop :: forall a (t1 :: Natural) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (DropSym0 :: TyFun Natural (NonEmpty a ~> [a]) -> Type) t1) t2)
type family SplitAt (a1 :: Natural) (a2 :: NonEmpty a) :: ([a], [a])
sSplitAt :: forall a (t1 :: Natural) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SplitAtSym0 :: TyFun Natural (NonEmpty a ~> ([a], [a])) -> Type) t1) t2)
type family TakeWhile (a1 :: a ~> Bool) (a2 :: NonEmpty a) :: [a]
sTakeWhile :: forall a (t1 :: a ~> Bool) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (TakeWhileSym0 :: TyFun (a ~> Bool) (NonEmpty a ~> [a]) -> Type) t1) t2)
type family DropWhile (a1 :: a ~> Bool) (a2 :: NonEmpty a) :: [a]
sDropWhile :: forall a (t1 :: a ~> Bool) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (DropWhileSym0 :: TyFun (a ~> Bool) (NonEmpty a ~> [a]) -> Type) t1) t2)
type family Span (a1 :: a ~> Bool) (a2 :: NonEmpty a) :: ([a], [a])
sSpan :: forall a (t1 :: a ~> Bool) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SpanSym0 :: TyFun (a ~> Bool) (NonEmpty a ~> ([a], [a])) -> Type) t1) t2)
type family Break (a1 :: a ~> Bool) (a2 :: NonEmpty a) :: ([a], [a])
sBreak :: forall a (t1 :: a ~> Bool) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (BreakSym0 :: TyFun (a ~> Bool) (NonEmpty a ~> ([a], [a])) -> Type) t1) t2)
type family Filter (a1 :: a ~> Bool) (a2 :: NonEmpty a) :: [a]
sFilter :: forall a (t1 :: a ~> Bool) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FilterSym0 :: TyFun (a ~> Bool) (NonEmpty a ~> [a]) -> Type) t1) t2)
type family Partition (a1 :: a ~> Bool) (a2 :: NonEmpty a) :: ([a], [a])
sPartition :: forall a (t1 :: a ~> Bool) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (PartitionSym0 :: TyFun (a ~> Bool) (NonEmpty a ~> ([a], [a])) -> Type) t1) t2)
type family Group (a1 :: [a]) :: [NonEmpty a]
sGroup :: forall a (t :: [a]). SEq a => Sing t -> Sing (Apply (GroupSym0 :: TyFun [a] [NonEmpty a] -> Type) t)
type family GroupBy (a1 :: a ~> a ~> Bool) (a2 :: [a]) :: [NonEmpty a]
sGroupBy :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (GroupBySym0 :: TyFun (a ~> (a ~> Bool)) ([a] ~> [NonEmpty a]) -> Type) t1) t2)
type family GroupWith (a1 :: a ~> b) (a2 :: [a]) :: [NonEmpty a]
sGroupWith :: forall a b (t1 :: a ~> b) (t2 :: [a]). SEq b => Sing t1 -> Sing t2 -> Sing (Apply (Apply (GroupWithSym0 :: TyFun (a ~> b) ([a] ~> [NonEmpty a]) -> Type) t1) t2)
type family GroupAllWith (a1 :: a ~> b) (a2 :: [a]) :: [NonEmpty a]
sGroupAllWith :: forall a b (t1 :: a ~> b) (t2 :: [a]). SOrd b => Sing t1 -> Sing t2 -> Sing (Apply (Apply (GroupAllWithSym0 :: TyFun (a ~> b) ([a] ~> [NonEmpty a]) -> Type) t1) t2)
type family Group1 (a1 :: NonEmpty a) :: NonEmpty NonEmpty a
sGroup1 :: forall a (t :: NonEmpty a). SEq a => Sing t -> Sing (Apply (Group1Sym0 :: TyFun (NonEmpty a) (NonEmpty (NonEmpty a)) -> Type) t)
type family GroupBy1 (a1 :: a ~> a ~> Bool) (a2 :: NonEmpty a) :: NonEmpty NonEmpty a
sGroupBy1 :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (GroupBy1Sym0 :: TyFun (a ~> (a ~> Bool)) (NonEmpty a ~> NonEmpty (NonEmpty a)) -> Type) t1) t2)
type family GroupWith1 (a1 :: a ~> b) (a2 :: NonEmpty a) :: NonEmpty NonEmpty a
sGroupWith1 :: forall a b (t1 :: a ~> b) (t2 :: NonEmpty a). SEq b => Sing t1 -> Sing t2 -> Sing (Apply (Apply (GroupWith1Sym0 :: TyFun (a ~> b) (NonEmpty a ~> NonEmpty (NonEmpty a)) -> Type) t1) t2)
type family GroupAllWith1 (a1 :: a ~> b) (a2 :: NonEmpty a) :: NonEmpty NonEmpty a
sGroupAllWith1 :: forall a b (t1 :: a ~> b) (t2 :: NonEmpty a). SOrd b => Sing t1 -> Sing t2 -> Sing (Apply (Apply (GroupAllWith1Sym0 :: TyFun (a ~> b) (NonEmpty a ~> NonEmpty (NonEmpty a)) -> Type) t1) t2)
type family IsPrefixOf (a1 :: [a]) (a2 :: NonEmpty a) :: Bool
sIsPrefixOf :: forall a (t1 :: [a]) (t2 :: NonEmpty a). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (IsPrefixOfSym0 :: TyFun [a] (NonEmpty a ~> Bool) -> Type) t1) t2)
type family Nub (a1 :: NonEmpty a) :: NonEmpty a
sNub :: forall a (t :: NonEmpty a). SEq a => Sing t -> Sing (Apply (NubSym0 :: TyFun (NonEmpty a) (NonEmpty a) -> Type) t)
type family NubBy (a1 :: a ~> a ~> Bool) (a2 :: NonEmpty a) :: NonEmpty a
sNubBy :: forall a (t1 :: a ~> (a ~> Bool)) (t2 :: NonEmpty a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (NubBySym0 :: TyFun (a ~> (a ~> Bool)) (NonEmpty a ~> NonEmpty a) -> Type) t1) t2)
type family (a1 :: NonEmpty a) !! (a2 :: Natural) :: a
(%!!) :: forall a (t1 :: NonEmpty a) (t2 :: Natural). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((!!@#@$) :: TyFun (NonEmpty a) (Natural ~> a) -> Type) t1) t2)
type family Zip (a1 :: NonEmpty a) (a2 :: NonEmpty b) :: NonEmpty (a, b)
sZip :: forall a b (t1 :: NonEmpty a) (t2 :: NonEmpty b). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ZipSym0 :: TyFun (NonEmpty a) (NonEmpty b ~> NonEmpty (a, b)) -> Type) t1) t2)
type family ZipWith (a1 :: a ~> b ~> c) (a2 :: NonEmpty a) (a3 :: NonEmpty b) :: NonEmpty c
sZipWith :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: NonEmpty a) (t3 :: NonEmpty b). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ZipWithSym0 :: TyFun (a ~> (b ~> c)) (NonEmpty a ~> (NonEmpty b ~> NonEmpty c)) -> Type) t1) t2) t3)
type family Unzip (a1 :: NonEmpty (a, b)) :: (NonEmpty a, NonEmpty b)
sUnzip :: forall a b (t :: NonEmpty (a, b)). Sing t -> Sing (Apply (UnzipSym0 :: TyFun (NonEmpty (a, b)) (NonEmpty a, NonEmpty b) -> Type) t)
type family FromList (a1 :: [a]) :: NonEmpty a
sFromList :: forall a (t :: [a]). Sing t -> Sing (Apply (FromListSym0 :: TyFun [a] (NonEmpty a) -> Type) t)
type family ToList (a1 :: NonEmpty a) :: [a]
sToList :: forall a (t :: NonEmpty a). Sing t -> Sing (Apply (ToListSym0 :: TyFun (NonEmpty a) [a] -> Type) t)
type family NonEmpty_ (a1 :: [a]) :: Maybe NonEmpty a
sNonEmpty_ :: forall a (t :: [a]). Sing t -> Sing (Apply (NonEmpty_Sym0 :: TyFun [a] (Maybe (NonEmpty a)) -> Type) t)
type family Xor (a :: NonEmpty Bool) :: Bool
sXor :: forall (t :: NonEmpty Bool). Sing t -> Sing (Apply XorSym0 t)
data (a1 :: TyFun a [a] ~> NonEmpty a) :|@#@$
infixr 5 :|@#@$
data (a6989586621679046311 :: a) :|@#@$$ (b :: TyFun [a] NonEmpty a)
infixr 5 :|@#@$$
type family (a6989586621679046311 :: a) :|@#@$$$ (a6989586621679046312 :: [a]) :: NonEmpty a
infixr 5 :|@#@$$$
data MapSym0 (a1 :: TyFun a ~> b NonEmpty a ~> NonEmpty b)
data MapSym1 (a6989586621681120679 :: a ~> b) (b1 :: TyFun NonEmpty a NonEmpty b)
type family MapSym2 (a6989586621681120679 :: a ~> b) (a6989586621681120680 :: NonEmpty a) :: NonEmpty b
data IntersperseSym0 (a1 :: TyFun a NonEmpty a ~> NonEmpty a)
data IntersperseSym1 (a6989586621681120607 :: a) (b :: TyFun NonEmpty a NonEmpty a)
type family IntersperseSym2 (a6989586621681120607 :: a) (a6989586621681120608 :: NonEmpty a) :: NonEmpty a
data ScanlSym0 (a1 :: TyFun b ~> a ~> b b ~> [a] ~> NonEmpty b)
data ScanlSym1 (a6989586621681120649 :: b ~> a ~> b) (b1 :: TyFun b [a] ~> NonEmpty b)
data ScanlSym2 (a6989586621681120649 :: b ~> a ~> b) (a6989586621681120650 :: b) (c :: TyFun [a] NonEmpty b)
type family ScanlSym3 (a6989586621681120649 :: b ~> a ~> b) (a6989586621681120650 :: b) (a6989586621681120651 :: [a]) :: NonEmpty b
data ScanrSym0 (a1 :: TyFun a ~> b ~> b b ~> [a] ~> NonEmpty b)
data ScanrSym1 (a6989586621681120637 :: a ~> b ~> b) (b1 :: TyFun b [a] ~> NonEmpty b)
data ScanrSym2 (a6989586621681120637 :: a ~> b ~> b) (a6989586621681120638 :: b) (c :: TyFun [a] NonEmpty b)
type family ScanrSym3 (a6989586621681120637 :: a ~> b ~> b) (a6989586621681120638 :: b) (a6989586621681120639 :: [a]) :: NonEmpty b
data Scanl1Sym0 (a1 :: TyFun a ~> a ~> a NonEmpty a ~> NonEmpty a)
data Scanl1Sym1 (a6989586621681120626 :: a ~> a ~> a) (b :: TyFun NonEmpty a NonEmpty a)
type family Scanl1Sym2 (a6989586621681120626 :: a ~> a ~> a) (a6989586621681120627 :: NonEmpty a) :: NonEmpty a
data Scanr1Sym0 (a1 :: TyFun a ~> a ~> a NonEmpty a ~> NonEmpty a)
data Scanr1Sym1 (a6989586621681120618 :: a ~> a ~> a) (b :: TyFun NonEmpty a NonEmpty a)
type family Scanr1Sym2 (a6989586621681120618 :: a ~> a ~> a) (a6989586621681120619 :: NonEmpty a) :: NonEmpty a
data TransposeSym0 (a1 :: TyFun NonEmpty NonEmpty a NonEmpty NonEmpty a)
type family TransposeSym1 (a6989586621681120316 :: NonEmpty NonEmpty a) :: NonEmpty NonEmpty a
data SortBySym0 (a1 :: TyFun a ~> a ~> Ordering NonEmpty a ~> NonEmpty a)
data SortBySym1 (a6989586621681120308 :: a ~> a ~> Ordering) (b :: TyFun NonEmpty a NonEmpty a)
type family SortBySym2 (a6989586621681120308 :: a ~> a ~> Ordering) (a6989586621681120309 :: NonEmpty a) :: NonEmpty a
data SortWithSym0 (a1 :: TyFun a ~> o NonEmpty a ~> NonEmpty a)
data SortWithSym1 (a6989586621681120299 :: a ~> o) (b :: TyFun NonEmpty a NonEmpty a)
type family SortWithSym2 (a6989586621681120299 :: a ~> o) (a6989586621681120300 :: NonEmpty a) :: NonEmpty a
data LengthSym0 (a1 :: TyFun NonEmpty a Natural)
type family LengthSym1 (a6989586621681120809 :: NonEmpty a) :: Natural
data HeadSym0 (a1 :: TyFun NonEmpty a a)
type family HeadSym1 (a6989586621681120744 :: NonEmpty a) :: a
data TailSym0 (a1 :: TyFun NonEmpty a [a])
type family TailSym1 (a6989586621681120740 :: NonEmpty a) :: [a]
data LastSym0 (a1 :: TyFun NonEmpty a a)
type family LastSym1 (a6989586621681120735 :: NonEmpty a) :: a
data InitSym0 (a1 :: TyFun NonEmpty a [a])
type family InitSym1 (a6989586621681120730 :: NonEmpty a) :: [a]
data (a1 :: TyFun a NonEmpty a ~> NonEmpty a) <|@#@$
data (a6989586621681120723 :: a) <|@#@$$ (b :: TyFun NonEmpty a NonEmpty a)
type family (a6989586621681120723 :: a) <|@#@$$$ (a6989586621681120724 :: NonEmpty a) :: NonEmpty a
data ConsSym0 (a1 :: TyFun a NonEmpty a ~> NonEmpty a)
data ConsSym1 (a6989586621681120716 :: a) (b :: TyFun NonEmpty a NonEmpty a)
type family ConsSym2 (a6989586621681120716 :: a) (a6989586621681120717 :: NonEmpty a) :: NonEmpty a
data UnconsSym0 (a1 :: TyFun NonEmpty a (a, Maybe NonEmpty a))
type family UnconsSym1 (a6989586621681120773 :: NonEmpty a) :: (a, Maybe NonEmpty a)
data UnfoldrSym0 (a1 :: TyFun a ~> (b, Maybe a) a ~> NonEmpty b)
data UnfoldrSym1 (a6989586621681120749 :: a ~> (b, Maybe a)) (b1 :: TyFun a NonEmpty b)
type family UnfoldrSym2 (a6989586621681120749 :: a ~> (b, Maybe a)) (a6989586621681120750 :: a) :: NonEmpty b
data SortSym0 (a1 :: TyFun NonEmpty a NonEmpty a)
type family SortSym1 (a6989586621681120707 :: NonEmpty a) :: NonEmpty a
data ReverseSym0 (a1 :: TyFun NonEmpty a NonEmpty a)
type family ReverseSym1 (a6989586621681120602 :: NonEmpty a) :: NonEmpty a
data InitsSym0 (a1 :: TyFun [a] NonEmpty [a])
type family InitsSym1 (a6989586621681120674 :: [a]) :: NonEmpty [a]
data TailsSym0 (a1 :: TyFun [a] NonEmpty [a])
type family TailsSym1 (a6989586621681120668 :: [a]) :: NonEmpty [a]
data UnfoldSym0 (a1 :: TyFun a ~> (b, Maybe a) a ~> NonEmpty b)
data UnfoldSym1 (a6989586621681120784 :: a ~> (b, Maybe a)) (b1 :: TyFun a NonEmpty b)
data InsertSym0 (a1 :: TyFun a [a] ~> NonEmpty a)
data InsertSym1 (a6989586621681120660 :: a) (b :: TyFun [a] NonEmpty a)
type family InsertSym2 (a6989586621681120660 :: a) (a6989586621681120661 :: [a]) :: NonEmpty a
data TakeSym0 (a1 :: TyFun Natural NonEmpty a ~> [a])
data TakeSym1 (a6989586621681120594 :: Natural) (b :: TyFun NonEmpty a [a])
type family TakeSym2 (a6989586621681120594 :: Natural) (a6989586621681120595 :: NonEmpty a) :: [a]
data DropSym0 (a1 :: TyFun Natural NonEmpty a ~> [a])
data DropSym1 (a6989586621681120585 :: Natural) (b :: TyFun NonEmpty a [a])
type family DropSym2 (a6989586621681120585 :: Natural) (a6989586621681120586 :: NonEmpty a) :: [a]
data SplitAtSym0 (a1 :: TyFun Natural NonEmpty a ~> ([a], [a]))
data SplitAtSym1 (a6989586621681120576 :: Natural) (b :: TyFun NonEmpty a ([a], [a]))
type family SplitAtSym2 (a6989586621681120576 :: Natural) (a6989586621681120577 :: NonEmpty a) :: ([a], [a])
data TakeWhileSym0 (a1 :: TyFun a ~> Bool NonEmpty a ~> [a])
data TakeWhileSym1 (a6989586621681120567 :: a ~> Bool) (b :: TyFun NonEmpty a [a])
type family TakeWhileSym2 (a6989586621681120567 :: a ~> Bool) (a6989586621681120568 :: NonEmpty a) :: [a]
data DropWhileSym0 (a1 :: TyFun a ~> Bool NonEmpty a ~> [a])
data DropWhileSym1 (a6989586621681120558 :: a ~> Bool) (b :: TyFun NonEmpty a [a])
type family DropWhileSym2 (a6989586621681120558 :: a ~> Bool) (a6989586621681120559 :: NonEmpty a) :: [a]
data SpanSym0 (a1 :: TyFun a ~> Bool NonEmpty a ~> ([a], [a]))
data SpanSym1 (a6989586621681120549 :: a ~> Bool) (b :: TyFun NonEmpty a ([a], [a]))
type family SpanSym2 (a6989586621681120549 :: a ~> Bool) (a6989586621681120550 :: NonEmpty a) :: ([a], [a])
data BreakSym0 (a1 :: TyFun a ~> Bool NonEmpty a ~> ([a], [a]))
data BreakSym1 (a6989586621681120540 :: a ~> Bool) (b :: TyFun NonEmpty a ([a], [a]))
type family BreakSym2 (a6989586621681120540 :: a ~> Bool) (a6989586621681120541 :: NonEmpty a) :: ([a], [a])
data FilterSym0 (a1 :: TyFun a ~> Bool NonEmpty a ~> [a])
data FilterSym1 (a6989586621681120531 :: a ~> Bool) (b :: TyFun NonEmpty a [a])
type family FilterSym2 (a6989586621681120531 :: a ~> Bool) (a6989586621681120532 :: NonEmpty a) :: [a]
data PartitionSym0 (a1 :: TyFun a ~> Bool NonEmpty a ~> ([a], [a]))
data PartitionSym1 (a6989586621681120522 :: a ~> Bool) (b :: TyFun NonEmpty a ([a], [a]))
type family PartitionSym2 (a6989586621681120522 :: a ~> Bool) (a6989586621681120523 :: NonEmpty a) :: ([a], [a])
data GroupSym0 (a1 :: TyFun [a] [NonEmpty a])
type family GroupSym1 (a6989586621681120515 :: [a]) :: [NonEmpty a]
data GroupBySym0 (a1 :: TyFun a ~> a ~> Bool [a] ~> [NonEmpty a])
data GroupBySym1 (a6989586621681120482 :: a ~> a ~> Bool) (b :: TyFun [a] [NonEmpty a])
type family GroupBySym2 (a6989586621681120482 :: a ~> a ~> Bool) (a6989586621681120483 :: [a]) :: [NonEmpty a]
data GroupWithSym0 (a1 :: TyFun a ~> b [a] ~> [NonEmpty a])
data GroupWithSym1 (a6989586621681120473 :: a ~> b) (b1 :: TyFun [a] [NonEmpty a])
type family GroupWithSym2 (a6989586621681120473 :: a ~> b) (a6989586621681120474 :: [a]) :: [NonEmpty a]
data GroupAllWithSym0 (a1 :: TyFun a ~> b [a] ~> [NonEmpty a])
data GroupAllWithSym1 (a6989586621681120464 :: a ~> b) (b1 :: TyFun [a] [NonEmpty a])
type family GroupAllWithSym2 (a6989586621681120464 :: a ~> b) (a6989586621681120465 :: [a]) :: [NonEmpty a]
data Group1Sym0 (a1 :: TyFun NonEmpty a NonEmpty NonEmpty a)
type family Group1Sym1 (a6989586621681120457 :: NonEmpty a) :: NonEmpty NonEmpty a
data GroupBy1Sym0 (a1 :: TyFun a ~> a ~> Bool NonEmpty a ~> NonEmpty NonEmpty a)
data GroupBy1Sym1 (a6989586621681120430 :: a ~> a ~> Bool) (b :: TyFun NonEmpty a NonEmpty NonEmpty a)
type family GroupBy1Sym2 (a6989586621681120430 :: a ~> a ~> Bool) (a6989586621681120431 :: NonEmpty a) :: NonEmpty NonEmpty a
data GroupWith1Sym0 (a1 :: TyFun a ~> b NonEmpty a ~> NonEmpty NonEmpty a)
data GroupWith1Sym1 (a6989586621681120423 :: a ~> b) (b1 :: TyFun NonEmpty a NonEmpty NonEmpty a)
type family GroupWith1Sym2 (a6989586621681120423 :: a ~> b) (a6989586621681120424 :: NonEmpty a) :: NonEmpty NonEmpty a
data GroupAllWith1Sym0 (a1 :: TyFun a ~> b NonEmpty a ~> NonEmpty NonEmpty a)
data GroupAllWith1Sym1 (a6989586621681120414 :: a ~> b) (b1 :: TyFun NonEmpty a NonEmpty NonEmpty a)
type family GroupAllWith1Sym2 (a6989586621681120414 :: a ~> b) (a6989586621681120415 :: NonEmpty a) :: NonEmpty NonEmpty a
data IsPrefixOfSym0 (a1 :: TyFun [a] NonEmpty a ~> Bool)
data IsPrefixOfSym1 (a6989586621681120403 :: [a]) (b :: TyFun NonEmpty a Bool)
type family IsPrefixOfSym2 (a6989586621681120403 :: [a]) (a6989586621681120404 :: NonEmpty a) :: Bool
data NubSym0 (a1 :: TyFun NonEmpty a NonEmpty a)
type family NubSym1 (a6989586621681120334 :: NonEmpty a) :: NonEmpty a
data NubBySym0 (a1 :: TyFun a ~> a ~> Bool NonEmpty a ~> NonEmpty a)
data NubBySym1 (a6989586621681120321 :: a ~> a ~> Bool) (b :: TyFun NonEmpty a NonEmpty a)
type family NubBySym2 (a6989586621681120321 :: a ~> a ~> Bool) (a6989586621681120322 :: NonEmpty a) :: NonEmpty a
data (a1 :: TyFun NonEmpty a Natural ~> a) !!@#@$
data (a6989586621681120384 :: NonEmpty a) !!@#@$$ (b :: TyFun Natural a)
type family (a6989586621681120384 :: NonEmpty a) !!@#@$$$ (a6989586621681120385 :: Natural) :: a
data ZipSym0 (a1 :: TyFun NonEmpty a NonEmpty b ~> NonEmpty (a, b))
data ZipSym1 (a6989586621681120375 :: NonEmpty a) (b1 :: TyFun NonEmpty b NonEmpty (a, b))
type family ZipSym2 (a6989586621681120375 :: NonEmpty a) (a6989586621681120376 :: NonEmpty b) :: NonEmpty (a, b)
data ZipWithSym0 (a1 :: TyFun a ~> b ~> c NonEmpty a ~> NonEmpty b ~> NonEmpty c)
data ZipWithSym1 (a6989586621681120364 :: a ~> b ~> c) (b1 :: TyFun NonEmpty a NonEmpty b ~> NonEmpty c)
data ZipWithSym2 (a6989586621681120364 :: a ~> b ~> c) (a6989586621681120365 :: NonEmpty a) (c1 :: TyFun NonEmpty b NonEmpty c)
type family ZipWithSym3 (a6989586621681120364 :: a ~> b ~> c) (a6989586621681120365 :: NonEmpty a) (a6989586621681120366 :: NonEmpty b) :: NonEmpty c
data UnzipSym0 (a1 :: TyFun NonEmpty (a, b) (NonEmpty a, NonEmpty b))
type family UnzipSym1 (a6989586621681120338 :: NonEmpty (a, b)) :: (NonEmpty a, NonEmpty b)
data FromListSym0 (a1 :: TyFun [a] NonEmpty a)
type family FromListSym1 (a6989586621681120700 :: [a]) :: NonEmpty a
data ToListSym0 (a1 :: TyFun NonEmpty a [a])
type family ToListSym1 (a6989586621681120695 :: NonEmpty a) :: [a]
data NonEmpty_Sym0 (a1 :: TyFun [a] Maybe NonEmpty a)
type family NonEmpty_Sym1 (a6989586621681120778 :: [a]) :: Maybe NonEmpty a
data XorSym0 (a :: TyFun NonEmpty Bool Bool)
type family XorSym1 (a6989586621681120798 :: NonEmpty Bool) :: Bool
instance Control.Monad.Zip.Singletons.PMonadZip GHC.Base.NonEmpty
instance Control.Monad.Zip.Singletons.SMonadZip GHC.Base.NonEmpty
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.BreakSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.DropWhileSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.FilterSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.FmapSym1
instance Data.Ord.Singletons.SOrd b => Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.GroupAllWith1Sym1
instance Data.Ord.Singletons.SOrd b => Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.GroupAllWithSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.GroupBy1Sym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.GroupBySym1
instance Data.Eq.Singletons.SEq b => Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.GroupWith1Sym1
instance Data.Eq.Singletons.SEq b => Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.GroupWithSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.LiftSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.MapSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.NubBySym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.PartitionSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.Scanl1Sym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.ScanlSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.Scanr1Sym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.ScanrSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.SortBySym1
instance Data.Ord.Singletons.SOrd o => Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.SortWithSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.SpanSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.TakeWhileSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.UnfoldSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.UnfoldrSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.ZipWithSym1
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.IsPrefixOfSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.DropSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.SplitAtSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.TakeSym1
instance Data.Singletons.SingI1 (Data.List.NonEmpty.Singletons.!!@#@$$)
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.ZipSym1
instance forall a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.List.NonEmpty.Singletons.ZipWithSym2 d)
instance Data.Singletons.SingI1 (Data.List.NonEmpty.Singletons.<|@#@$$)
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.ConsSym1
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.InsertSym1
instance Data.Singletons.SingI1 Data.List.NonEmpty.Singletons.IntersperseSym1
instance forall b a (d :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.List.NonEmpty.Singletons.ScanlSym2 d)
instance forall a b (d :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.SingI d => Data.Singletons.SingI1 (Data.List.NonEmpty.Singletons.ScanrSym2 d)
instance Data.Singletons.SingI2 Data.List.NonEmpty.Singletons.ZipWithSym2
instance Data.Singletons.SingI2 Data.List.NonEmpty.Singletons.ScanlSym2
instance Data.Singletons.SingI2 Data.List.NonEmpty.Singletons.ScanrSym2
instance Data.Singletons.SingI (Data.List.NonEmpty.Singletons.!!@#@$)
instance forall a (d :: GHC.Base.NonEmpty a). Data.Singletons.SingI d => Data.Singletons.SingI ((Data.List.NonEmpty.Singletons.!!@#@$$) d)
instance Data.Singletons.SingI (Data.List.NonEmpty.Singletons.<|@#@$)
instance forall a (d :: a). Data.Singletons.SingI d => Data.Singletons.SingI ((Data.List.NonEmpty.Singletons.<|@#@$$) d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.BreakSym0
instance forall a (d :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.BreakSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.ConsSym0
instance forall a (d :: a). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.ConsSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.DropSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.DropSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.DropWhileSym0
instance forall a (d :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.DropWhileSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.FilterSym0
instance forall a (d :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.FilterSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.FmapSym0
instance forall a b (d :: a Data.Singletons.~> b). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.FmapSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.FromListSym0
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI Data.List.NonEmpty.Singletons.Group1Sym0
instance Data.Ord.Singletons.SOrd b => Data.Singletons.SingI Data.List.NonEmpty.Singletons.GroupAllWith1Sym0
instance forall b a (d :: a Data.Singletons.~> b). (Data.Ord.Singletons.SOrd b, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.GroupAllWith1Sym1 d)
instance Data.Ord.Singletons.SOrd b => Data.Singletons.SingI Data.List.NonEmpty.Singletons.GroupAllWithSym0
instance forall b a (d :: a Data.Singletons.~> b). (Data.Ord.Singletons.SOrd b, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.GroupAllWithSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.GroupBy1Sym0
instance forall a (d :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.GroupBy1Sym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.GroupBySym0
instance forall a (d :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.GroupBySym1 d)
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI Data.List.NonEmpty.Singletons.GroupSym0
instance Data.Eq.Singletons.SEq b => Data.Singletons.SingI Data.List.NonEmpty.Singletons.GroupWith1Sym0
instance forall b a (d :: a Data.Singletons.~> b). (Data.Eq.Singletons.SEq b, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.GroupWith1Sym1 d)
instance Data.Eq.Singletons.SEq b => Data.Singletons.SingI Data.List.NonEmpty.Singletons.GroupWithSym0
instance forall b a (d :: a Data.Singletons.~> b). (Data.Eq.Singletons.SEq b, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.GroupWithSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.HeadSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.InitSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.InitsSym0
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI Data.List.NonEmpty.Singletons.InsertSym0
instance forall a (d :: a). (Data.Ord.Singletons.SOrd a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.InsertSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.IntersperseSym0
instance forall a (d :: a). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.IntersperseSym1 d)
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI Data.List.NonEmpty.Singletons.IsPrefixOfSym0
instance forall a (d :: [a]). (Data.Eq.Singletons.SEq a, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.IsPrefixOfSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.LastSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.LengthSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.LiftSym0
instance forall a b (d :: [a] Data.Singletons.~> [b]). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.LiftSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.MapSym0
instance forall a b (d :: a Data.Singletons.~> b). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.MapSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.NonEmpty_Sym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.NubBySym0
instance forall a (d :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.NubBySym1 d)
instance Data.Eq.Singletons.SEq a => Data.Singletons.SingI Data.List.NonEmpty.Singletons.NubSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.PartitionSym0
instance forall a (d :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.PartitionSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.ReverseSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.Scanl1Sym0
instance forall a (d :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.Scanl1Sym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.ScanlSym0
instance forall b a (d :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.ScanlSym1 d)
instance forall b a (d1 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (d2 :: b). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.ScanlSym2 d1 d2)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.Scanr1Sym0
instance forall a (d :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.Scanr1Sym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.ScanrSym0
instance forall a b (d :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.ScanrSym1 d)
instance forall a b (d1 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (d2 :: b). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.ScanrSym2 d1 d2)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.SortBySym0
instance forall a (d :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Ordering)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.SortBySym1 d)
instance Data.Ord.Singletons.SOrd a => Data.Singletons.SingI Data.List.NonEmpty.Singletons.SortSym0
instance Data.Ord.Singletons.SOrd o => Data.Singletons.SingI Data.List.NonEmpty.Singletons.SortWithSym0
instance forall o a (d :: a Data.Singletons.~> o). (Data.Ord.Singletons.SOrd o, Data.Singletons.SingI d) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.SortWithSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.SpanSym0
instance forall a (d :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.SpanSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.SplitAtSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.SplitAtSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.TailSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.TailsSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.TakeSym0
instance Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.TakeSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.TakeWhileSym0
instance forall a (d :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.TakeWhileSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.ToListSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.TransposeSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.UnconsSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.UnfoldSym0
instance forall a b (d :: a Data.Singletons.~> (b, GHC.Maybe.Maybe a)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.UnfoldSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.UnfoldrSym0
instance forall a b (d :: a Data.Singletons.~> (b, GHC.Maybe.Maybe a)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.UnfoldrSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.UnzipSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.XorSym0
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.ZipSym0
instance forall a (d :: GHC.Base.NonEmpty a) b. Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.ZipSym1 d)
instance Data.Singletons.SingI Data.List.NonEmpty.Singletons.ZipWithSym0
instance forall a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.SingI d => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.ZipWithSym1 d)
instance forall a b c (d1 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (d2 :: GHC.Base.NonEmpty a). (Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Data.List.NonEmpty.Singletons.ZipWithSym2 d1 d2)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.!!@#@$)
instance forall a (a6989586621681120384 :: GHC.Base.NonEmpty a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.List.NonEmpty.Singletons.!!@#@$$) a6989586621681120384)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.<|@#@$)
instance forall a (a6989586621681120723 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.List.NonEmpty.Singletons.<|@#@$$) a6989586621681120723)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.BreakSym0
instance forall a (a6989586621681120540 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.BreakSym1 a6989586621681120540)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.ConsSym0
instance forall a (a6989586621681120716 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.ConsSym1 a6989586621681120716)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.DropSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.DropSym1 a6989586621681120585)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.DropWhileSym0
instance forall a (a6989586621681120558 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.DropWhileSym1 a6989586621681120558)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.FilterSym0
instance forall a (a6989586621681120531 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.FilterSym1 a6989586621681120531)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.FmapSym0
instance forall a b (a6989586621681120814 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.FmapSym1 a6989586621681120814)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.FromListSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Group1Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.GroupAllWith1Sym0
instance forall a b (a6989586621681120414 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.GroupAllWith1Sym1 a6989586621681120414)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.GroupAllWithSym0
instance forall a b (a6989586621681120464 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.GroupAllWithSym1 a6989586621681120464)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.GroupBy1Sym0
instance forall a (a6989586621681120430 :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.GroupBy1Sym1 a6989586621681120430)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.GroupBySym0
instance forall a (a6989586621681120482 :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.GroupBySym1 a6989586621681120482)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.GroupSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.GroupWith1Sym0
instance forall a b (a6989586621681120423 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.GroupWith1Sym1 a6989586621681120423)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.GroupWithSym0
instance forall a b (a6989586621681120473 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.GroupWithSym1 a6989586621681120473)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.HeadSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.InitSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.InitsSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.InsertSym0
instance forall a (a6989586621681120660 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.InsertSym1 a6989586621681120660)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.IntersperseSym0
instance forall a (a6989586621681120607 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.IntersperseSym1 a6989586621681120607)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.IsPrefixOfSym0
instance forall a (a6989586621681120403 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.IsPrefixOfSym1 a6989586621681120403)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Lambda_6989586621681120326Sym0
instance forall k2 k3 k (eq6989586621681120323 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Lambda_6989586621681120326Sym1 eq6989586621681120323)
instance forall k2 k3 k (eq6989586621681120323 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> GHC.Types.Bool)) (a6989586621681120324 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Lambda_6989586621681120326Sym2 eq6989586621681120323 a6989586621681120324)
instance forall k2 k3 k (eq6989586621681120323 :: k2 Data.Singletons.~> (k3 Data.Singletons.~> GHC.Types.Bool)) (a6989586621681120324 :: k2) (as6989586621681120325 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Lambda_6989586621681120326Sym3 eq6989586621681120323 a6989586621681120324 as6989586621681120325)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.LastSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.LengthSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120342AsSym0
instance forall k1 k2 a b (a6989586621681120339 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120342AsSym1 a6989586621681120339)
instance forall k1 k2 a b (a6989586621681120339 :: k1) (b6989586621681120340 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120342AsSym2 a6989586621681120339 b6989586621681120340)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120342BsSym0
instance forall k1 k2 a b (a6989586621681120339 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120342BsSym1 a6989586621681120339)
instance forall k1 k2 a b (a6989586621681120339 :: k1) (b6989586621681120340 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120342BsSym2 a6989586621681120339 b6989586621681120340)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120342X_6989586621681120343Sym0
instance forall k1 k2 a b (a6989586621681120339 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120342X_6989586621681120343Sym1 a6989586621681120339)
instance forall k1 k2 a b (a6989586621681120339 :: k1) (b6989586621681120340 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120342X_6989586621681120343Sym2 a6989586621681120339 b6989586621681120340)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120435X_6989586621681120436Sym0
instance forall k1 a (eq6989586621681120432 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120435X_6989586621681120436Sym1 eq6989586621681120432)
instance forall k1 a (eq6989586621681120432 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120433 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120435X_6989586621681120436Sym2 eq6989586621681120432 x6989586621681120433)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120435YsSym0
instance forall k1 a (eq6989586621681120432 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120435YsSym1 eq6989586621681120432)
instance forall k1 a (eq6989586621681120432 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120433 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120435YsSym2 eq6989586621681120432 x6989586621681120433)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120435ZsSym0
instance forall k1 a (eq6989586621681120432 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120435ZsSym1 eq6989586621681120432)
instance forall k1 a (eq6989586621681120432 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120433 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120435ZsSym2 eq6989586621681120432 x6989586621681120433)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120486GoSym0
instance forall k1 k2 a (eq06989586621681120484 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120486GoSym1 eq06989586621681120484)
instance forall k1 k2 a (eq06989586621681120484 :: k1) (a_69895866216811204776989586621681120485 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120486GoSym2 eq06989586621681120484 a_69895866216811204776989586621681120485)
instance forall k1 k2 a (eq06989586621681120484 :: k1) (a_69895866216811204776989586621681120485 :: k2) (a6989586621681120487 :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120486GoSym3 eq06989586621681120484 a_69895866216811204776989586621681120485 a6989586621681120487)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120493X_6989586621681120494Sym0
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493X_6989586621681120494Sym1 eq6989586621681120490)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493X_6989586621681120494Sym2 eq6989586621681120490 x6989586621681120491)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1) (xs6989586621681120492 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493X_6989586621681120494Sym3 eq6989586621681120490 x6989586621681120491 xs6989586621681120492)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1) (xs6989586621681120492 :: [a]) (eq06989586621681120484 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493X_6989586621681120494Sym4 eq6989586621681120490 x6989586621681120491 xs6989586621681120492 eq06989586621681120484)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120493YsSym0
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493YsSym1 eq6989586621681120490)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493YsSym2 eq6989586621681120490 x6989586621681120491)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1) (xs6989586621681120492 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493YsSym3 eq6989586621681120490 x6989586621681120491 xs6989586621681120492)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1) (xs6989586621681120492 :: [a]) (eq06989586621681120484 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493YsSym4 eq6989586621681120490 x6989586621681120491 xs6989586621681120492 eq06989586621681120484)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120493ZsSym0
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493ZsSym1 eq6989586621681120490)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493ZsSym2 eq6989586621681120490 x6989586621681120491)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1) (xs6989586621681120492 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493ZsSym3 eq6989586621681120490 x6989586621681120491 xs6989586621681120492)
instance forall k1 a k2 k3 (eq6989586621681120490 :: k1 Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)) (x6989586621681120491 :: k1) (xs6989586621681120492 :: [a]) (eq06989586621681120484 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120493ZsSym4 eq6989586621681120490 x6989586621681120491 xs6989586621681120492 eq06989586621681120484)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120753GoSym0
instance forall k2 k3 k (f6989586621681120751 :: k2 Data.Singletons.~> (k3, GHC.Maybe.Maybe k2)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120753GoSym1 f6989586621681120751)
instance forall k2 k3 k (f6989586621681120751 :: k2 Data.Singletons.~> (k3, GHC.Maybe.Maybe k2)) (a6989586621681120752 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120753GoSym2 f6989586621681120751 a6989586621681120752)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120757Scrutinee_6989586621681119332Sym0
instance forall k1 k2 k3 (c6989586621681120756 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120757Scrutinee_6989586621681119332Sym1 c6989586621681120756)
instance forall k1 k2 k3 (c6989586621681120756 :: k1) (f6989586621681120751 :: k1 Data.Singletons.~> k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120757Scrutinee_6989586621681119332Sym2 c6989586621681120756 f6989586621681120751)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120764Scrutinee_6989586621681119328Sym0
instance forall k1 k (f6989586621681120751 :: k1 Data.Singletons.~> k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120764Scrutinee_6989586621681119328Sym1 f6989586621681120751)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120788Scrutinee_6989586621681119318Sym0
instance forall k1 k (f6989586621681120786 :: k1 Data.Singletons.~> k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120788Scrutinee_6989586621681119318Sym1 f6989586621681120786)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Let6989586621681120801Xor'Sym0
instance forall k1 k2 (x6989586621681120799 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120801Xor'Sym1 x6989586621681120799)
instance forall k1 k2 (x6989586621681120799 :: k1) (xs6989586621681120800 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120801Xor'Sym2 x6989586621681120799 xs6989586621681120800)
instance forall k1 k2 (x6989586621681120799 :: k1) (xs6989586621681120800 :: k2) (a6989586621681120802 :: GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Let6989586621681120801Xor'Sym3 x6989586621681120799 xs6989586621681120800 a6989586621681120802)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.LiftSym0
instance forall a b (a6989586621681120689 :: [a] Data.Singletons.~> [b]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.LiftSym1 a6989586621681120689)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.MapSym0
instance forall a b (a6989586621681120679 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.MapSym1 a6989586621681120679)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Munzip_6989586621681121103Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.MzipWith_6989586621681121084Sym0
instance forall a b c (a6989586621681121096 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.MzipWith_6989586621681121084Sym1 a6989586621681121096)
instance forall a b c (a6989586621681121096 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681121097 :: GHC.Base.NonEmpty a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.MzipWith_6989586621681121084Sym2 a6989586621681121096 a6989586621681121097)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Mzip_6989586621681121068Sym0
instance forall a b (a6989586621681121077 :: GHC.Base.NonEmpty a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Mzip_6989586621681121068Sym1 a6989586621681121077)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.NonEmpty_Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.NubBySym0
instance forall a (a6989586621681120321 :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Bool)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.NubBySym1 a6989586621681120321)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.NubSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.PartitionSym0
instance forall a (a6989586621681120522 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.PartitionSym1 a6989586621681120522)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.ReverseSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Scanl1Sym0
instance forall a (a6989586621681120626 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Scanl1Sym1 a6989586621681120626)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.ScanlSym0
instance forall b a (a6989586621681120649 :: b Data.Singletons.~> (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.ScanlSym1 a6989586621681120649)
instance forall b a (a6989586621681120649 :: b Data.Singletons.~> (a Data.Singletons.~> b)) (a6989586621681120650 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.ScanlSym2 a6989586621681120649 a6989586621681120650)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.Scanr1Sym0
instance forall a (a6989586621681120618 :: a Data.Singletons.~> (a Data.Singletons.~> a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.Scanr1Sym1 a6989586621681120618)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.ScanrSym0
instance forall a b (a6989586621681120637 :: a Data.Singletons.~> (b Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.ScanrSym1 a6989586621681120637)
instance forall a b (a6989586621681120637 :: a Data.Singletons.~> (b Data.Singletons.~> b)) (a6989586621681120638 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.ScanrSym2 a6989586621681120637 a6989586621681120638)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.SortBySym0
instance forall a (a6989586621681120308 :: a Data.Singletons.~> (a Data.Singletons.~> GHC.Types.Ordering)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.SortBySym1 a6989586621681120308)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.SortSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.SortWithSym0
instance forall a o (a6989586621681120299 :: a Data.Singletons.~> o). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.SortWithSym1 a6989586621681120299)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.SpanSym0
instance forall a (a6989586621681120549 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.SpanSym1 a6989586621681120549)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.SplitAtSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.SplitAtSym1 a6989586621681120576)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.TailSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.TailsSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.TakeSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.TakeSym1 a6989586621681120594)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.TakeWhileSym0
instance forall a (a6989586621681120567 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.TakeWhileSym1 a6989586621681120567)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.ToListSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.TransposeSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.UnconsSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.UnfoldSym0
instance forall a b (a6989586621681120784 :: a Data.Singletons.~> (b, GHC.Maybe.Maybe a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.UnfoldSym1 a6989586621681120784)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.UnfoldrSym0
instance forall a b (a6989586621681120749 :: a Data.Singletons.~> (b, GHC.Maybe.Maybe a)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.UnfoldrSym1 a6989586621681120749)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.UnzipSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.XorSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.ZipSym0
instance forall a b (a6989586621681120375 :: GHC.Base.NonEmpty a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.ZipSym1 a6989586621681120375)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.List.NonEmpty.Singletons.ZipWithSym0
instance forall a b c (a6989586621681120364 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.ZipWithSym1 a6989586621681120364)
instance forall a b c (a6989586621681120364 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681120365 :: GHC.Base.NonEmpty a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.List.NonEmpty.Singletons.ZipWithSym2 a6989586621681120364 a6989586621681120365)
-- | Exports the promoted and singled versions of the Sum data type.
module Data.Functor.Sum.Singletons
type family Sing :: k -> Type
data SSum (a1 :: Sum f g a)
[SInL] :: forall {k} (f :: k -> Type) (g :: k -> Type) (a :: k) (x :: f a). Sing x -> SSum ('InL x :: Sum f g a)
[SInR] :: forall {k} (f :: k -> Type) (g :: k -> Type) (a :: k) (y :: g a). Sing y -> SSum ('InR y :: Sum f g a)
data InLSym0 (z :: TyFun f a Sum f g a)
type family InLSym1 (x :: f a) :: Sum f g a
data InRSym0 (z :: TyFun g a Sum f g a)
type family InRSym1 (x :: g a) :: Sum f g a
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (z :: Data.Functor.Sum.Sum f g a). GHC.Classes.Eq (Data.Functor.Sum.Singletons.SSum z)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (z :: Data.Functor.Sum.Sum f g a). GHC.Classes.Ord (Data.Functor.Sum.Singletons.SSum z)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Eq.Singletons.PEq (Data.Functor.Sum.Sum f g a)
instance Data.Foldable.Singletons.PFoldable (Data.Functor.Sum.Sum f g)
instance Control.Monad.Singletons.Internal.PFunctor (Data.Functor.Sum.Sum f g)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Ord.Singletons.POrd (Data.Functor.Sum.Sum f g a)
instance Data.Traversable.Singletons.PTraversable (Data.Functor.Sum.Sum f g)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Singletons.Decide.SDecide (f a), Data.Singletons.Decide.SDecide (g a)) => Data.Singletons.Decide.SDecide (Data.Functor.Sum.Sum f g a)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Eq.Singletons.SEq (f a), Data.Eq.Singletons.SEq (g a)) => Data.Eq.Singletons.SEq (Data.Functor.Sum.Sum f g a)
instance (Data.Foldable.Singletons.SFoldable f, Data.Foldable.Singletons.SFoldable g) => Data.Foldable.Singletons.SFoldable (Data.Functor.Sum.Sum f g)
instance (Control.Monad.Singletons.Internal.SFunctor f, Control.Monad.Singletons.Internal.SFunctor g) => Control.Monad.Singletons.Internal.SFunctor (Data.Functor.Sum.Sum f g)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Ord.Singletons.SOrd (f a), Data.Ord.Singletons.SOrd (g a)) => Data.Ord.Singletons.SOrd (Data.Functor.Sum.Sum f g a)
instance (Data.Traversable.Singletons.STraversable f, Data.Traversable.Singletons.STraversable g) => Data.Traversable.Singletons.STraversable (Data.Functor.Sum.Sum f g)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). Data.Singletons.SingI1 'Data.Functor.Sum.InL
instance forall k (g :: k -> *) (a :: k) (f :: k -> *). Data.Singletons.SingI1 'Data.Functor.Sum.InR
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). Data.Singletons.SingI Data.Functor.Sum.Singletons.InLSym0
instance forall k (g :: k -> *) (a :: k) (f :: k -> *). Data.Singletons.SingI Data.Functor.Sum.Singletons.InRSym0
instance forall k (f :: k -> *) (a :: k) (g :: k -> *) (x :: f a). Data.Singletons.SingI x => Data.Singletons.SingI ('Data.Functor.Sum.InL x)
instance forall k (g :: k -> *) (a :: k) (f :: k -> *) (y :: g a). Data.Singletons.SingI y => Data.Singletons.SingI ('Data.Functor.Sum.InR y)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Sum.Singletons.Compare_6989586621681172044Sym0
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (a6989586621681172049 :: Data.Functor.Sum.Sum f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Sum.Singletons.Compare_6989586621681172044Sym1 a6989586621681172049)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Sum.Singletons.Fmap_6989586621681172164Sym0
instance forall a b (f :: * -> *) (g :: * -> *) (a6989586621681172169 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Sum.Singletons.Fmap_6989586621681172164Sym1 a6989586621681172169)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Sum.Singletons.FoldMap_6989586621681172516Sym0
instance forall a m (f :: * -> *) (g :: * -> *) (a6989586621681172521 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Sum.Singletons.FoldMap_6989586621681172516Sym1 a6989586621681172521)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Sum.Singletons.TFHelper_6989586621681171983Sym0
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (a6989586621681171988 :: Data.Functor.Sum.Sum f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Sum.Singletons.TFHelper_6989586621681171983Sym1 a6989586621681171988)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Sum.Singletons.TFHelper_6989586621681172177Sym0
instance forall a (f :: * -> *) (g :: * -> *) b (a6989586621681172182 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Sum.Singletons.TFHelper_6989586621681172177Sym1 a6989586621681172182)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Sum.Singletons.Traverse_6989586621681172656Sym0
instance forall a (f1 :: * -> *) b (f2 :: * -> *) (g :: * -> *) (a6989586621681172661 :: a Data.Singletons.~> f1 b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Sum.Singletons.Traverse_6989586621681172656Sym1 a6989586621681172661)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Singletons.Decide.SDecide (f a), Data.Singletons.Decide.SDecide (g a)) => Data.Type.Coercion.TestCoercion Data.Functor.Sum.Singletons.SSum
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Singletons.Decide.SDecide (f a), Data.Singletons.Decide.SDecide (g a)) => Data.Type.Equality.TestEquality Data.Functor.Sum.Singletons.SSum
-- | Defines and exports a promoted and singled version of the
-- IsString type class from Data.String.
module Data.String.Singletons
class PIsString a where {
type FromString (arg :: Symbol) :: a;
}
class SIsString a
sFromString :: forall (t :: Symbol). SIsString a => Sing t -> Sing (Apply (FromStringSym0 :: TyFun Symbol a -> Type) t)
data FromStringSym0 (a1 :: TyFun Symbol a)
type family FromStringSym1 (a6989586621681179965 :: Symbol) :: a
instance forall a k (b :: k). Data.String.Singletons.PIsString (Data.Functor.Const.Const a b)
instance Data.String.Singletons.PIsString (Data.Functor.Identity.Identity a)
instance Data.String.Singletons.PIsString GHC.Types.Symbol
instance forall a k (b :: k). Data.String.Singletons.SIsString a => Data.String.Singletons.SIsString (Data.Functor.Const.Const a b)
instance Data.String.Singletons.SIsString a => Data.String.Singletons.SIsString (Data.Functor.Identity.Identity a)
instance Data.String.Singletons.SIsString GHC.Types.Symbol
instance Data.String.Singletons.SIsString a => Data.Singletons.SingI Data.String.Singletons.FromStringSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.String.Singletons.FromStringSym0
instance forall k a (b :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.String.Singletons.FromString_6989586621681179967Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.String.Singletons.FromString_6989586621681179974Sym0
-- | Provides the SomeSing data type along with instances of
-- Eq, Ord, etc., which are defined as orphans due to
-- SomeSing originally being defined in a separate library
-- (singletons).
module Data.Singletons.Base.SomeSing
data SomeSing k
[SomeSing] :: forall k (a :: k). Sing a -> SomeSing k
instance Data.Singletons.Base.Enum.SBounded k => GHC.Enum.Bounded (Data.Singletons.SomeSing k)
instance Data.Singletons.Base.Enum.SEnum k => GHC.Enum.Enum (Data.Singletons.SomeSing k)
instance Data.Eq.Singletons.SEq k => GHC.Classes.Eq (Data.Singletons.SomeSing k)
instance Data.String.Singletons.SIsString k => Data.String.IsString (Data.Singletons.SomeSing k)
instance Data.Monoid.Singletons.SMonoid k => GHC.Base.Monoid (Data.Singletons.SomeSing k)
instance GHC.Num.Singletons.SNum k => GHC.Num.Num (Data.Singletons.SomeSing k)
instance Data.Ord.Singletons.SOrd k => GHC.Classes.Ord (Data.Singletons.SomeSing k)
instance Data.Semigroup.Singletons.Internal.Classes.SSemigroup k => GHC.Base.Semigroup (Data.Singletons.SomeSing k)
instance Data.Singletons.ShowSing.ShowSing k => GHC.Show.Show (Data.Singletons.SomeSing k)
-- | Defines the promoted and singled versions of the Applicative
-- type class.
module Control.Applicative.Singletons
class PApplicative (f :: Type -> Type) where {
type Pure (arg :: a) :: f a;
type (arg :: f a ~> b) <*> (arg1 :: f a) :: f b;
type LiftA2 (arg :: a ~> b ~> c) (arg1 :: f a) (arg2 :: f b) :: f c;
type (arg :: f a) *> (arg1 :: f b) :: f b;
type (arg :: f a) <* (arg1 :: f b) :: f a;
type arg :: f a ~> b <*> arg1 :: f a = Apply Apply TFHelper_6989586621679348533Sym0 :: TyFun f a ~> b f a ~> f b -> Type arg arg1;
type LiftA2 arg :: a ~> b ~> c arg1 :: f a arg2 :: f b = Apply Apply Apply LiftA2_6989586621679348549Sym0 :: TyFun a ~> b ~> c f a ~> f b ~> f c -> Type arg arg1 arg2;
type arg :: f a *> arg1 :: f b = Apply Apply TFHelper_6989586621679348565Sym0 :: TyFun f a f b ~> f b -> Type arg arg1;
type arg :: f a <* arg1 :: f b = Apply Apply TFHelper_6989586621679348576Sym0 :: TyFun f a f b ~> f a -> Type arg arg1;
}
infixl 4 <*>
infixl 4 *>
infixl 4 <*
class SFunctor f => SApplicative (f :: Type -> Type)
sPure :: forall a (t :: a). SApplicative f => Sing t -> Sing (Apply (PureSym0 :: TyFun a (f a) -> Type) t)
(%<*>) :: forall a b (t1 :: f (a ~> b)) (t2 :: f a). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2)
($dm%<*>) :: forall a b (t1 :: f (a ~> b)) (t2 :: f a). (SApplicative f, Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348533Sym0 :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2)
sLiftA2 :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: f a) (t3 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3)
($dmsLiftA2) :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: f a) (t3 :: f b). (SApplicative f, Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (LiftA2_6989586621679348549Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3)
(%*>) :: forall a b (t1 :: f a) (t2 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2)
($dm%*>) :: forall a b (t1 :: f a) (t2 :: f b). (SApplicative f, Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348565Sym0 :: TyFun (f a) (f b ~> f b) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2)
(%<*) :: forall a b (t1 :: f a) (t2 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2)
($dm%<*) :: forall a b (t1 :: f a) (t2 :: f b). (SApplicative f, Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348576Sym0 :: TyFun (f a) (f b ~> f a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2)
infixl 4 %<*>
infixl 4 %*>
infixl 4 %<*
class PAlternative (f :: k -> Type) where {
type Empty :: f a;
type (arg :: f a) <|> (arg1 :: f a) :: f a;
}
infixl 3 <|>
class SApplicative f => SAlternative (f :: Type -> Type)
sEmpty :: SAlternative f => Sing (EmptySym0 :: f a)
(%<|>) :: forall a (t1 :: f a) (t2 :: f a). SAlternative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<|>@#@$) :: TyFun (f a) (f a ~> f a) -> Type) t1) t2)
infixl 3 %<|>
type family Sing :: k -> Type
data SConst (a1 :: Const a b)
[SConst] :: forall {k} a (b :: k) (x :: a). Sing x -> SConst ('Const x :: Const a b)
-- | The Const functor.
data Const a (b :: k)
type family GetConst (a1 :: Const a b) :: a
sGetConst :: forall {k} a (b :: k) (t :: Const a b). Sing t -> Sing (Apply (GetConstSym0 :: TyFun (Const a b) a -> Type) t)
type family (a1 :: a ~> b) <$> (a2 :: f a) :: f b
infixl 4 <$>
(%<$>) :: forall a b (f :: Type -> Type) (t1 :: a ~> b) (t2 :: f a). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$>@#@$) :: TyFun (a ~> b) (f a ~> f b) -> Type) t1) t2)
infixl 4 %<$>
type family (arg :: a) <$ (arg1 :: f b) :: f a
infixl 4 <$
(%<$) :: forall a b (t1 :: a) (t2 :: f b). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2)
infixl 4 %<$
type family (a1 :: f a) <**> (a2 :: f a ~> b) :: f b
infixl 4 <**>
(%<**>) :: forall (f :: Type -> Type) a b (t1 :: f a) (t2 :: f (a ~> b)). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<**>@#@$) :: TyFun (f a) (f (a ~> b) ~> f b) -> Type) t1) t2)
infixl 4 %<**>
type family LiftA (a1 :: a ~> b) (a2 :: f a) :: f b
sLiftA :: forall a b (f :: Type -> Type) (t1 :: a ~> b) (t2 :: f a). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply (LiftASym0 :: TyFun (a ~> b) (f a ~> f b) -> Type) t1) t2)
type family LiftA3 (a1 :: a ~> b ~> c ~> d) (a2 :: f a) (a3 :: f b) (a4 :: f c) :: f d
sLiftA3 :: forall a b c d (f :: Type -> Type) (t1 :: a ~> (b ~> (c ~> d))) (t2 :: f a) (t3 :: f b) (t4 :: f c). SApplicative f => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (Apply (LiftA3Sym0 :: TyFun (a ~> (b ~> (c ~> d))) (f a ~> (f b ~> (f c ~> f d))) -> Type) t1) t2) t3) t4)
type family Optional (a1 :: f a) :: f Maybe a
sOptional :: forall (f :: Type -> Type) a (t :: f a). SAlternative f => Sing t -> Sing (Apply (OptionalSym0 :: TyFun (f a) (f (Maybe a)) -> Type) t)
data PureSym0 (a1 :: TyFun a f a)
type family PureSym1 (a6989586621679348508 :: a) :: f a
data (a1 :: TyFun f a ~> b f a ~> f b) <*>@#@$
infixl 4 <*>@#@$
data (a6989586621679348512 :: f a ~> b) <*>@#@$$ (b1 :: TyFun f a f b)
infixl 4 <*>@#@$$
type family (a6989586621679348512 :: f a ~> b) <*>@#@$$$ (a6989586621679348513 :: f a) :: f b
infixl 4 <*>@#@$$$
data (a1 :: TyFun f a f b ~> f b) *>@#@$
infixl 4 *>@#@$
data (a6989586621679348524 :: f a) *>@#@$$ (b1 :: TyFun f b f b)
infixl 4 *>@#@$$
type family (a6989586621679348524 :: f a) *>@#@$$$ (a6989586621679348525 :: f b) :: f b
infixl 4 *>@#@$$$
data (a1 :: TyFun f a f b ~> f a) <*@#@$
infixl 4 <*@#@$
data (a6989586621679348529 :: f a) <*@#@$$ (b1 :: TyFun f b f a)
infixl 4 <*@#@$$
type family (a6989586621679348529 :: f a) <*@#@$$$ (a6989586621679348530 :: f b) :: f a
infixl 4 <*@#@$$$
type family EmptySym0 :: f a
data (a1 :: TyFun f a f a ~> f a) <|>@#@$
infixl 3 <|>@#@$
data (a6989586621679348633 :: f a) <|>@#@$$ (b :: TyFun f a f a)
infixl 3 <|>@#@$$
type family (a6989586621679348633 :: f a) <|>@#@$$$ (a6989586621679348634 :: f a) :: f a
infixl 3 <|>@#@$$$
data ConstSym0 (z :: TyFun a Const a b)
type family ConstSym1 (x :: a) :: Const a b
data GetConstSym0 (a1 :: TyFun Const a b a)
type family GetConstSym1 (a6989586621680681956 :: Const a b) :: a
data (a1 :: TyFun a ~> b f a ~> f b) <$>@#@$
infixl 4 <$>@#@$
data (a6989586621679532919 :: a ~> b) <$>@#@$$ (b1 :: TyFun f a f b)
infixl 4 <$>@#@$$
type family (a6989586621679532919 :: a ~> b) <$>@#@$$$ (a6989586621679532920 :: f a) :: f b
infixl 4 <$>@#@$$$
data (a1 :: TyFun a f b ~> f a) <$@#@$
infixl 4 <$@#@$
data (a6989586621679348489 :: a) <$@#@$$ (b1 :: TyFun f b f a)
infixl 4 <$@#@$$
type family (a6989586621679348489 :: a) <$@#@$$$ (a6989586621679348490 :: f b) :: f a
infixl 4 <$@#@$$$
data (a1 :: TyFun f a f a ~> b ~> f b) <**>@#@$
infixl 4 <**>@#@$
data (a6989586621679348472 :: f a) <**>@#@$$ (b1 :: TyFun f a ~> b f b)
infixl 4 <**>@#@$$
type family (a6989586621679348472 :: f a) <**>@#@$$$ (a6989586621679348473 :: f a ~> b) :: f b
infixl 4 <**>@#@$$$
data LiftASym0 (a1 :: TyFun a ~> b f a ~> f b)
data LiftASym1 (a6989586621679348461 :: a ~> b) (b1 :: TyFun f a f b)
type family LiftASym2 (a6989586621679348461 :: a ~> b) (a6989586621679348462 :: f a) :: f b
data LiftA2Sym0 (a1 :: TyFun a ~> b ~> c f a ~> f b ~> f c)
data LiftA2Sym1 (a6989586621679348518 :: a ~> b ~> c) (b1 :: TyFun f a f b ~> f c)
data LiftA2Sym2 (a6989586621679348518 :: a ~> b ~> c) (a6989586621679348519 :: f a) (c1 :: TyFun f b f c)
type family LiftA2Sym3 (a6989586621679348518 :: a ~> b ~> c) (a6989586621679348519 :: f a) (a6989586621679348520 :: f b) :: f c
data LiftA3Sym0 (a1 :: TyFun a ~> b ~> c ~> d f a ~> f b ~> f c ~> f d)
data LiftA3Sym1 (a6989586621679348450 :: a ~> b ~> c ~> d) (b1 :: TyFun f a f b ~> f c ~> f d)
data LiftA3Sym2 (a6989586621679348450 :: a ~> b ~> c ~> d) (a6989586621679348451 :: f a) (c1 :: TyFun f b f c ~> f d)
data LiftA3Sym3 (a6989586621679348450 :: a ~> b ~> c ~> d) (a6989586621679348451 :: f a) (a6989586621679348452 :: f b) (d1 :: TyFun f c f d)
data OptionalSym0 (a1 :: TyFun f a f Maybe a)
type family OptionalSym1 (a6989586621681182611 :: f a) :: f Maybe a
instance Control.Monad.Singletons.Internal.PApplicative Data.Ord.Down
instance Control.Monad.Singletons.Internal.PApplicative ((,) a)
instance Control.Monad.Singletons.Internal.SApplicative Data.Ord.Down
instance Data.Monoid.Singletons.SMonoid a => Control.Monad.Singletons.Internal.SApplicative ((,) a)
instance Control.Monad.Singletons.Internal.SAlternative f => Data.Singletons.SingI Control.Applicative.Singletons.OptionalSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Applicative.Singletons.LiftA2_6989586621681182636Sym0
instance forall a1 b c a2 (a6989586621681182642 :: a1 Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Applicative.Singletons.LiftA2_6989586621681182636Sym1 a6989586621681182642)
instance forall a1 b c a2 (a6989586621681182642 :: a1 Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681182643 :: (a2, a1)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Applicative.Singletons.LiftA2_6989586621681182636Sym2 a6989586621681182642 a6989586621681182643)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Applicative.Singletons.OptionalSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Applicative.Singletons.Pure_6989586621681182614Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Applicative.Singletons.Pure_6989586621681182651Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Applicative.Singletons.TFHelper_6989586621681182622Sym0
instance forall a1 a2 b (a6989586621681182627 :: (a1, a2 Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Applicative.Singletons.TFHelper_6989586621681182622Sym1 a6989586621681182627)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Applicative.Singletons.TFHelper_6989586621681182661Sym0
instance forall a b (a6989586621681182666 :: Data.Ord.Down (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Applicative.Singletons.TFHelper_6989586621681182661Sym1 a6989586621681182666)
-- | This module contains everything you need to derive your own singletons
-- via Template Haskell, exporting both Template Haskell functionality
-- and definitions that are likely to be mentioned in promoted or singled
-- code. For a version of this module that only contains the Template
-- Haskell functionality and nothing else, see Data.Singletons.TH
-- from the singletons-th library.
module Data.Singletons.Base.TH
singletons :: OptionsMonad q => q [Dec] -> q [Dec]
singletonsOnly :: OptionsMonad q => q [Dec] -> q [Dec]
genSingletons :: OptionsMonad q => [Name] -> q [Dec]
promote :: OptionsMonad q => q [Dec] -> q [Dec]
promoteOnly :: OptionsMonad q => q [Dec] -> q [Dec]
genDefunSymbols :: OptionsMonad q => [Name] -> q [Dec]
genPromotions :: OptionsMonad q => [Name] -> q [Dec]
promoteEqInstances :: OptionsMonad q => [Name] -> q [Dec]
promoteEqInstance :: OptionsMonad q => Name -> q [Dec]
singEqInstances :: OptionsMonad q => [Name] -> q [Dec]
singEqInstance :: OptionsMonad q => Name -> q [Dec]
singDecideInstances :: OptionsMonad q => [Name] -> q [Dec]
singDecideInstance :: OptionsMonad q => Name -> q [Dec]
promoteOrdInstances :: OptionsMonad q => [Name] -> q [Dec]
promoteOrdInstance :: OptionsMonad q => Name -> q [Dec]
singOrdInstances :: OptionsMonad q => [Name] -> q [Dec]
singOrdInstance :: OptionsMonad q => Name -> q [Dec]
promoteBoundedInstances :: OptionsMonad q => [Name] -> q [Dec]
promoteBoundedInstance :: OptionsMonad q => Name -> q [Dec]
singBoundedInstances :: OptionsMonad q => [Name] -> q [Dec]
singBoundedInstance :: OptionsMonad q => Name -> q [Dec]
promoteEnumInstances :: OptionsMonad q => [Name] -> q [Dec]
promoteEnumInstance :: OptionsMonad q => Name -> q [Dec]
singEnumInstances :: OptionsMonad q => [Name] -> q [Dec]
singEnumInstance :: OptionsMonad q => Name -> q [Dec]
promoteShowInstances :: OptionsMonad q => [Name] -> q [Dec]
promoteShowInstance :: OptionsMonad q => Name -> q [Dec]
singShowInstances :: OptionsMonad q => [Name] -> q [Dec]
singShowInstance :: OptionsMonad q => Name -> q [Dec]
showSingInstances :: OptionsMonad q => [Name] -> q [Dec]
showSingInstance :: OptionsMonad q => Name -> q [Dec]
singITyConInstances :: DsMonad q => [Int] -> q [Dec]
singITyConInstance :: DsMonad q => Int -> q Dec
cases :: DsMonad q => Name -> q Exp -> q Exp -> q Exp
sCases :: OptionsMonad q => Name -> q Exp -> q Exp -> q Exp
data SList (a1 :: [a])
[SNil] :: forall a. SList ('[] :: [a])
[SCons] :: forall a (n1 :: a) (n2 :: [a]). Sing n1 -> Sing n2 -> SList (n1 ': n2)
infixr 5 `SCons`
data SBool (a :: Bool)
[SFalse] :: SBool 'False
[STrue] :: SBool 'True
data STuple0 (a :: ())
[STuple0] :: STuple0 '()
data STuple2 (a1 :: (a, b))
[STuple2] :: forall a b (n1 :: a) (n2 :: b). Sing n1 -> Sing n2 -> STuple2 '(n1, n2)
data STuple3 (a1 :: (a, b, c))
[STuple3] :: forall a b c (n1 :: a) (n2 :: b) (n3 :: c). Sing n1 -> Sing n2 -> Sing n3 -> STuple3 '(n1, n2, n3)
data STuple4 (a1 :: (a, b, c, d))
[STuple4] :: forall a b c d (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> STuple4 '(n1, n2, n3, n4)
data STuple5 (a1 :: (a, b, c, d, e))
[STuple5] :: forall a b c d e (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> STuple5 '(n1, n2, n3, n4, n5)
data STuple6 (a1 :: (a, b, c, d, e, f))
[STuple6] :: forall a b c d e f (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e) (n6 :: f). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> Sing n6 -> STuple6 '(n1, n2, n3, n4, n5, n6)
data STuple7 (a1 :: (a, b, c, d, e, f, g))
[STuple7] :: forall a b c d e f g (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e) (n6 :: f) (n7 :: g). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> Sing n6 -> Sing n7 -> STuple7 '(n1, n2, n3, n4, n5, n6, n7)
data SOrdering (a :: Ordering)
[SLT] :: SOrdering 'LT
[SEQ] :: SOrdering 'EQ
[SGT] :: SOrdering 'GT
data family TyCon :: k1 -> k2 -> unmatchable_fun
-- | Proxy is a type that holds no data, but has a phantom parameter
-- of arbitrary type (or even kind). Its use is to provide type
-- information, even though there is no value available of that type (or
-- it may be too costly to create one).
--
-- Historically, Proxy :: Proxy a is a safer
-- alternative to the undefined :: a idiom.
--
--
-- >>> Proxy :: Proxy (Void, Int -> Int)
-- Proxy
--
--
-- Proxy can even hold types of higher kinds,
--
--
-- >>> Proxy :: Proxy Either
-- Proxy
--
--
--
-- >>> Proxy :: Proxy Functor
-- Proxy
--
--
--
-- >>> Proxy :: Proxy complicatedStructure
-- Proxy
--
data Proxy (t :: k)
Proxy :: Proxy (t :: k)
class SingKind k where {
type Demote k = (r :: Type) | r -> k;
}
fromSing :: forall (a :: k). SingKind k => Sing a -> Demote k
toSing :: SingKind k => Demote k -> SomeSing k
class SingI (a :: k)
sing :: SingI a => Sing a
type family Sing :: k -> Type
pattern Sing :: forall k (a :: k). () => SingI a => Sing a
data SomeSing k
[SomeSing] :: forall k (a :: k). Sing a -> SomeSing k
type (a :: k1 ~> k2) @@ (b :: k1) = Apply a b
(@@) :: forall k1 k2 (f :: k1 ~> k2) (t :: k1). Sing f -> Sing t -> Sing (f @@ t)
pattern FromSing :: forall k (a :: k). SingKind k => Sing a -> Demote k
pattern SLambda2 :: forall {a1} {a2} {b} (f :: a1 ~> (a2 ~> b)). SingFunction2 f -> Sing f
pattern SLambda3 :: forall {a1} {a2} {a3} {b} (f :: a1 ~> (a2 ~> (a3 ~> b))). SingFunction3 f -> Sing f
pattern SLambda4 :: forall {a1} {a2} {a3} {a4} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). SingFunction4 f -> Sing f
pattern SLambda5 :: forall {a1} {a2} {a3} {a4} {a5} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). SingFunction5 f -> Sing f
pattern SLambda6 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). SingFunction6 f -> Sing f
pattern SLambda7 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). SingFunction7 f -> Sing f
pattern SLambda8 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). SingFunction8 f -> Sing f
applySing2 :: forall {a1} {a2} {b} (f :: a1 ~> (a2 ~> b)). Sing f -> SingFunction2 f
applySing3 :: forall {a1} {a2} {a3} {b} (f :: a1 ~> (a2 ~> (a3 ~> b))). Sing f -> SingFunction3 f
applySing4 :: forall {a1} {a2} {a3} {a4} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). Sing f -> SingFunction4 f
applySing5 :: forall {a1} {a2} {a3} {a4} {a5} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). Sing f -> SingFunction5 f
applySing6 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). Sing f -> SingFunction6 f
applySing7 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). Sing f -> SingFunction7 f
applySing8 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). Sing f -> SingFunction8 f
demote :: forall {k} (a :: k). (SingKind k, SingI a) => Demote k
demote1 :: forall {k1} {k2} (f :: k1 -> k2) (x :: k1). (SingKind k2, SingI1 f, SingI x) => Demote k2
demote2 :: forall {k1} {k2} {k3} (f :: k1 -> k2 -> k3) (x :: k1) (y :: k2). (SingKind k3, SingI2 f, SingI x, SingI y) => Demote k3
sing1 :: forall {k1} {k} (f :: k1 -> k) (x :: k1). (SingI1 f, SingI x) => Sing (f x)
sing2 :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2). (SingI2 f, SingI x, SingI y) => Sing (f x y)
singByProxy :: forall {k} (a :: k) proxy. SingI a => proxy a -> Sing a
singByProxy# :: forall {k} (a :: k). SingI a => Proxy# a -> Sing a
singByProxy1 :: forall {k1} {k} (f :: k1 -> k) (x :: k1) proxy. (SingI1 f, SingI x) => proxy (f x) -> Sing (f x)
singByProxy1# :: forall {k1} {k} (f :: k1 -> k) (x :: k1). (SingI1 f, SingI x) => Proxy# (f x) -> Sing (f x)
singByProxy2 :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2) proxy. (SingI2 f, SingI x, SingI y) => proxy (f x y) -> Sing (f x y)
singByProxy2# :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2). (SingI2 f, SingI x, SingI y) => Proxy# (f x y) -> Sing (f x y)
singFun1 :: forall {a1} {b} (f :: a1 ~> b). SingFunction1 f -> Sing f
singFun2 :: forall {a1} {a2} {b} (f :: a1 ~> (a2 ~> b)). SingFunction2 f -> Sing f
singFun3 :: forall {a1} {a2} {a3} {b} (f :: a1 ~> (a2 ~> (a3 ~> b))). SingFunction3 f -> Sing f
singFun4 :: forall {a1} {a2} {a3} {a4} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). SingFunction4 f -> Sing f
singFun5 :: forall {a1} {a2} {a3} {a4} {a5} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). SingFunction5 f -> Sing f
singFun6 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). SingFunction6 f -> Sing f
singFun7 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). SingFunction7 f -> Sing f
singFun8 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). SingFunction8 f -> Sing f
singInstance :: forall k (a :: k). Sing a -> SingInstance a
singThat :: forall k (a :: k). (SingKind k, SingI a) => (Demote k -> Bool) -> Maybe (Sing a)
singThat1 :: forall k1 k2 (f :: k1 -> k2) (x :: k1). (SingKind k2, SingI1 f, SingI x) => (Demote k2 -> Bool) -> Maybe (Sing (f x))
singThat2 :: forall k1 k2 k3 (f :: k1 -> k2 -> k3) (x :: k1) (y :: k2). (SingKind k3, SingI2 f, SingI x, SingI y) => (Demote k3 -> Bool) -> Maybe (Sing (f x y))
unSingFun1 :: forall {a1} {b} (f :: a1 ~> b). Sing f -> SingFunction1 f
unSingFun2 :: forall {a1} {a2} {b} (f :: a1 ~> (a2 ~> b)). Sing f -> SingFunction2 f
unSingFun3 :: forall {a1} {a2} {a3} {b} (f :: a1 ~> (a2 ~> (a3 ~> b))). Sing f -> SingFunction3 f
unSingFun4 :: forall {a1} {a2} {a3} {a4} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). Sing f -> SingFunction4 f
unSingFun5 :: forall {a1} {a2} {a3} {a4} {a5} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). Sing f -> SingFunction5 f
unSingFun6 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). Sing f -> SingFunction6 f
unSingFun7 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). Sing f -> SingFunction7 f
unSingFun8 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). Sing f -> SingFunction8 f
usingSingI1 :: forall {k1} {k} (f :: k1 -> k) (x :: k1) r. (SingI1 f, SingI x) => (SingI (f x) => r) -> r
usingSingI2 :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2) r. (SingI2 f, SingI x, SingI y) => (SingI (f x y) => r) -> r
withSing :: forall {k} (a :: k) b. SingI a => (Sing a -> b) -> b
withSing1 :: forall {k1} {k} (f :: k1 -> k) (x :: k1) b. (SingI1 f, SingI x) => (Sing (f x) -> b) -> b
withSing2 :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2) b. (SingI2 f, SingI x, SingI y) => (Sing (f x y) -> b) -> b
withSingI :: forall {k} (n :: k) r. Sing n -> (SingI n => r) -> r
withSomeSing :: SingKind k => Demote k -> (forall (a :: k). () => Sing a -> r) -> r
data (a1 :: TyFun a ~> b a ~> b) @@@#@$
data (a1 :: a ~> b) @@@#@$$ (b1 :: TyFun a b)
type (f :: a ~> b) @@@#@$$$ (x :: a) = f @@ x
type family Apply (f :: k1 ~> k2) (x :: k1) :: k2
data ApplySym0 (a1 :: TyFun a ~> b a ~> b)
data ApplySym1 (a1 :: a ~> b) (b1 :: TyFun a b)
type ApplySym2 (f :: a ~> b) (x :: a) = Apply f x
type family ApplyTyCon :: k1 -> k2 -> TyFun k1 unmatchable_fun -> Type
data ApplyTyConAux1 (a :: k1 -> k2) (b :: TyFun k1 k2)
data ApplyTyConAux2 (a :: k1 -> k2 -> k3) (b :: TyFun k1 unmatchable_fun)
type family Demote k = (r :: Type) | r -> k
data DemoteSym0 (a :: TyFun Type Type)
type DemoteSym1 x = Demote x
type KindOf (a :: k) = k
data KindOfSym0 (a :: TyFun k Type)
type KindOfSym1 (x :: k) = KindOf x
newtype SLambda (f :: k1 ~> k2)
SLambda :: (forall (t :: k1). () => Sing t -> Sing (f @@ t)) -> SLambda (f :: k1 ~> k2)
[applySing] :: SLambda (f :: k1 ~> k2) -> forall (t :: k1). () => Sing t -> Sing (f @@ t)
newtype SWrappedSing (a1 :: WrappedSing a)
[SWrapSing] :: forall k (a :: k) (a1 :: WrappedSing a). Sing a -> SWrappedSing a1
type SameKind (a :: k) (b :: k) = ()
data SameKindSym0 (a :: TyFun k k ~> Constraint)
data SameKindSym1 (a :: k) (b :: TyFun k Constraint)
type SameKindSym2 (x :: k) (y :: k) = SameKind x y
type SingFunction1 (f :: a1 ~> b) = forall (t :: a1). () => Sing t -> Sing f @@ t
type SingFunction2 (f :: a1 ~> a2 ~> b) = forall (t1 :: a1) (t2 :: a2). () => Sing t1 -> Sing t2 -> Sing f @@ t1 @@ t2
type SingFunction3 (f :: a1 ~> a2 ~> a3 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing f @@ t1 @@ t2 @@ t3
type SingFunction4 (f :: a1 ~> a2 ~> a3 ~> a4 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4
type SingFunction5 (f :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4) (t5 :: a5). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5
type SingFunction6 (f :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> a6 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4) (t5 :: a5) (t6 :: a6). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing t6 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5 @@ t6
type SingFunction7 (f :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> a6 ~> a7 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4) (t5 :: a5) (t6 :: a6) (t7 :: a7). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing t6 -> Sing t7 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5 @@ t6 @@ t7
type SingFunction8 (f :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> a6 ~> a7 ~> a8 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4) (t5 :: a5) (t6 :: a6) (t7 :: a7) (t8 :: a8). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing t6 -> Sing t7 -> Sing t8 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5 @@ t6 @@ t7 @@ t8
class forall (x :: k1). SingI x => SingI f x => SingI1 (f :: k1 -> k2)
liftSing :: forall (x :: k1). SingI1 f => Sing x -> Sing (f x)
class forall (x :: k1) (y :: k2). (SingI x, SingI y) => SingI f x y => SingI2 (f :: k1 -> k2 -> k3)
liftSing2 :: forall (x :: k1) (y :: k2). SingI2 f => Sing x -> Sing y -> Sing (f x y)
data SingInstance (a :: k)
[SingInstance] :: forall {k} (a :: k). SingI a => SingInstance a
type TyCon1 = TyCon :: k1 -> k2 -> k1 ~> k2
type TyCon2 = TyCon :: k1 -> k2 -> k3 -> k1 ~> k2 ~> k3
type TyCon3 = TyCon :: k1 -> k2 -> k3 -> k4 -> k1 ~> k2 ~> k3 ~> k4
type TyCon4 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k1 ~> k2 ~> k3 ~> k4 ~> k5
type TyCon5 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k1 ~> k2 ~> k3 ~> k4 ~> k5 ~> k6
type TyCon6 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k1 ~> k2 ~> k3 ~> k4 ~> k5 ~> k6 ~> k7
type TyCon7 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k8 -> k1 ~> k2 ~> k3 ~> k4 ~> k5 ~> k6 ~> k7 ~> k8
type TyCon8 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k8 -> k9 -> k1 ~> k2 ~> k3 ~> k4 ~> k5 ~> k6 ~> k7 ~> k8 ~> k9
data TyFun a b
type family UnwrapSing (ws :: WrappedSing a) :: Sing a
newtype WrappedSing (a :: k)
[WrapSing] :: forall k (a :: k). Sing a -> WrappedSing a
type a ~> b = TyFun a b -> Type
data (a :: TyFun Type Type ~> Type) ~>@#@$
data a ~>@#@$$ (b :: TyFun Type Type)
type x ~>@#@$$$ y = x ~> y
class PEq a where {
type (arg :: a) == (arg1 :: a) :: Bool;
type (arg :: a) /= (arg1 :: a) :: Bool;
type arg :: a == arg1 :: a = Apply Apply TFHelper_6989586621679137938Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a /= arg1 :: a = Apply Apply TFHelper_6989586621679137927Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
}
infix 4 ==
infix 4 /=
-- | Type-level If. If True a b ==> a; If
-- False a b ==> b
type family If (cond :: Bool) (tru :: k) (fls :: k) :: k
-- | Conditional over singletons
sIf :: forall {k} (a :: Bool) (b :: k) (c :: k). Sing a -> Sing b -> Sing c -> Sing (If a b c)
-- | Type-level "and"
type family (a :: Bool) && (b :: Bool) :: Bool
infixr 3 &&
-- | Conjunction of singletons
(%&&) :: forall (a :: Bool) (b :: Bool). Sing a -> Sing b -> Sing (a && b)
infixr 3 %&&
class SEq a
(%==) :: forall (t1 :: a) (t2 :: a). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%==) :: forall (t1 :: a) (t2 :: a). (SEq a, Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679137938Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%/=) :: forall (t1 :: a) (t2 :: a). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%/=) :: forall (t1 :: a) (t2 :: a). (SEq a, Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679137927Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
infix 4 %==
infix 4 %/=
class POrd a where {
type Compare (arg :: a) (arg1 :: a) :: Ordering;
type (arg :: a) < (arg1 :: a) :: Bool;
type (arg :: a) <= (arg1 :: a) :: Bool;
type (arg :: a) > (arg1 :: a) :: Bool;
type (arg :: a) >= (arg1 :: a) :: Bool;
type Max (arg :: a) (arg1 :: a) :: a;
type Min (arg :: a) (arg1 :: a) :: a;
type Compare arg :: a arg1 :: a = Apply Apply Compare_6989586621679237142Sym0 :: TyFun a a ~> Ordering -> Type arg arg1;
type arg :: a < arg1 :: a = Apply Apply TFHelper_6989586621679237163Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a <= arg1 :: a = Apply Apply TFHelper_6989586621679237179Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a > arg1 :: a = Apply Apply TFHelper_6989586621679237195Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a >= arg1 :: a = Apply Apply TFHelper_6989586621679237211Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type Max arg :: a arg1 :: a = Apply Apply Max_6989586621679237227Sym0 :: TyFun a a ~> a -> Type arg arg1;
type Min arg :: a arg1 :: a = Apply Apply Min_6989586621679237243Sym0 :: TyFun a a ~> a -> Type arg arg1;
}
infix 4 <
infix 4 <=
infix 4 >
infix 4 >=
class SEq a => SOrd a
sCompare :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2)
($dmsCompare) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2 ~ Apply (Apply (Compare_6989586621679237142Sym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2)
(%<) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%<) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237163Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%<=) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%<=) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237179Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%>) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%>) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237195Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%>=) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%>=) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237211Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
sMax :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMax) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Max_6989586621679237227Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
sMin :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMin) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Min_6989586621679237243Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
infix 4 %<
infix 4 %<=
infix 4 %>
infix 4 %>=
class SDecide k
(%~) :: forall (a :: k) (b :: k). SDecide k => Sing a -> Sing b -> Decision (a :~: b)
-- | Propositional equality. If a :~: b is inhabited by some
-- terminating value, then the type a is the same as the type
-- b. To use this equality in practice, pattern-match on the
-- a :~: b to get out the Refl constructor; in the body
-- of the pattern-match, the compiler knows that a ~ b.
data (a :: k) :~: (b :: k)
[Refl] :: forall {k} (a :: k). a :~: a
infix 4 :~:
-- | Uninhabited data type
data Void
type Refuted a = a -> Void
data Decision a
Proved :: a -> Decision a
Disproved :: Refuted a -> Decision a
class PBounded a where {
type MinBound :: a;
type MaxBound :: a;
}
class SBounded a
sMinBound :: SBounded a => Sing (MinBoundSym0 :: a)
sMaxBound :: SBounded a => Sing (MaxBoundSym0 :: a)
class PEnum a where {
type ToEnum (arg :: Natural) :: a;
type FromEnum (arg :: a) :: Natural;
type Succ arg :: a = Apply Succ_6989586621679612946Sym0 :: TyFun a a -> Type arg;
type Pred arg :: a = Apply Pred_6989586621679612959Sym0 :: TyFun a a -> Type arg;
type EnumFromTo arg :: a arg1 :: a = Apply Apply EnumFromTo_6989586621679612969Sym0 :: TyFun a a ~> [a] -> Type arg arg1;
type EnumFromThenTo arg :: a arg1 :: a arg2 :: a = Apply Apply Apply EnumFromThenTo_6989586621679612981Sym0 :: TyFun a a ~> a ~> [a] -> Type arg arg1 arg2;
}
class SEnum a
sToEnum :: forall (t :: Natural). SEnum a => Sing t -> Sing (Apply (ToEnumSym0 :: TyFun Natural a -> Type) t)
sFromEnum :: forall (t :: a). SEnum a => Sing t -> Sing (Apply (FromEnumSym0 :: TyFun a Natural -> Type) t)
class PShow a where {
type ShowsPrec (arg :: Natural) (arg1 :: a) (arg2 :: Symbol) :: Symbol;
type Show_ (arg :: a) :: Symbol;
type ShowList (arg :: [a]) (arg1 :: Symbol) :: Symbol;
type ShowsPrec arg :: Natural arg1 :: a arg2 :: Symbol = Apply Apply Apply ShowsPrec_6989586621680208728Sym0 :: TyFun Natural a ~> Symbol ~> Symbol -> Type arg arg1 arg2;
type Show_ arg :: a = Apply Show__6989586621680208740Sym0 :: TyFun a Symbol -> Type arg;
type ShowList arg :: [a] arg1 :: Symbol = Apply Apply ShowList_6989586621680208748Sym0 :: TyFun [a] Symbol ~> Symbol -> Type arg arg1;
}
class SShow a
sShowsPrec :: forall (t1 :: Natural) (t2 :: a) (t3 :: Symbol). SShow a => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3)
($dmsShowsPrec) :: forall (t1 :: Natural) (t2 :: a) (t3 :: Symbol). (SShow a, Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (ShowsPrec_6989586621680208728Sym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3)
sShow_ :: forall (t :: a). SShow a => Sing t -> Sing (Apply (Show_Sym0 :: TyFun a Symbol -> Type) t)
($dmsShow_) :: forall (t :: a). (SShow a, Apply (Show_Sym0 :: TyFun a Symbol -> Type) t ~ Apply (Show__6989586621680208740Sym0 :: TyFun a Symbol -> Type) t) => Sing t -> Sing (Apply (Show_Sym0 :: TyFun a Symbol -> Type) t)
sShowList :: forall (t1 :: [a]) (t2 :: Symbol). SShow a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2)
($dmsShowList) :: forall (t1 :: [a]) (t2 :: Symbol). (SShow a, Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2 ~ Apply (Apply (ShowList_6989586621680208748Sym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2)
class PIsString a where {
type FromString (arg :: Symbol) :: a;
}
class SIsString a
sFromString :: forall (t :: Symbol). SIsString a => Sing t -> Sing (Apply (FromStringSym0 :: TyFun Symbol a -> Type) t)
type family ShowString (a :: Symbol) (a1 :: Symbol) :: Symbol
sShowString :: forall (t1 :: Symbol) (t2 :: Symbol). Sing t1 -> Sing t2 -> Sing (Apply (Apply ShowStringSym0 t1) t2)
type family ShowParen (a :: Bool) (a1 :: Symbol ~> Symbol) (a2 :: Symbol) :: Symbol
sShowParen :: forall (t1 :: Bool) (t2 :: Symbol ~> Symbol) (t3 :: Symbol). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply ShowParenSym0 t1) t2) t3)
type family ShowSpace (a :: Symbol) :: Symbol
sShowSpace :: forall (t :: Symbol). Sing t -> Sing (Apply ShowSpaceSym0 t)
type family ShowChar (a :: Char) (a1 :: Symbol) :: Symbol
sShowChar :: forall (t1 :: Char) (t2 :: Symbol). Sing t1 -> Sing t2 -> Sing (Apply (Apply ShowCharSym0 t1) t2)
type family ShowCommaSpace (a :: Symbol) :: Symbol
sShowCommaSpace :: forall (t :: Symbol). Sing t -> Sing (Apply ShowCommaSpaceSym0 t)
type family FromInteger (arg :: Natural) :: a
sFromInteger :: forall (t :: Natural). SNum a => Sing t -> Sing (Apply (FromIntegerSym0 :: TyFun Natural a -> Type) t)
type family Negate (arg :: a) :: a
sNegate :: forall (t :: a). SNum a => Sing t -> Sing (Apply (NegateSym0 :: TyFun a a -> Type) t)
class PFunctor (f :: Type -> Type) where {
type Fmap (arg :: a ~> b) (arg1 :: f a) :: f b;
type (arg :: a) <$ (arg1 :: f b) :: f a;
type arg :: a <$ arg1 :: f b = Apply Apply TFHelper_6989586621679348493Sym0 :: TyFun a f b ~> f a -> Type arg arg1;
}
infixl 4 <$
class SFunctor (f :: Type -> Type)
sFmap :: forall a b (t1 :: a ~> b) (t2 :: f a). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FmapSym0 :: TyFun (a ~> b) (f a ~> f b) -> Type) t1) t2)
(%<$) :: forall a b (t1 :: a) (t2 :: f b). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2)
($dm%<$) :: forall a b (t1 :: a) (t2 :: f b). (SFunctor f, Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348493Sym0 :: TyFun a (f b ~> f a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2)
infixl 4 %<$
class PFoldable (t :: Type -> Type) where {
type Fold (arg :: t m) :: m;
type FoldMap (arg :: a ~> m) (arg1 :: t a) :: m;
type Foldr (arg :: a ~> b ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldr' (arg :: a ~> b ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldl (arg :: b ~> a ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldl' (arg :: b ~> a ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldr1 (arg :: a ~> a ~> a) (arg1 :: t a) :: a;
type Foldl1 (arg :: a ~> a ~> a) (arg1 :: t a) :: a;
type ToList (arg :: t a) :: [a];
type Null (arg :: t a) :: Bool;
type Length (arg :: t a) :: Natural;
type Elem (arg :: a) (arg1 :: t a) :: Bool;
type Maximum (arg :: t a) :: a;
type Minimum (arg :: t a) :: a;
type Sum (arg :: t a) :: a;
type Product (arg :: t a) :: a;
type Fold arg :: t m = Apply Fold_6989586621680390454Sym0 :: TyFun t m m -> Type arg;
type FoldMap arg :: a ~> m arg1 :: t a = Apply Apply FoldMap_6989586621680390464Sym0 :: TyFun a ~> m t a ~> m -> Type arg arg1;
type Foldr arg :: a ~> b ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldr_6989586621680390478Sym0 :: TyFun a ~> b ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldr' arg :: a ~> b ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldr'_6989586621680390493Sym0 :: TyFun a ~> b ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldl arg :: b ~> a ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldl_6989586621680390516Sym0 :: TyFun b ~> a ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldl' arg :: b ~> a ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldl'_6989586621680390531Sym0 :: TyFun b ~> a ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldr1 arg :: a ~> a ~> a arg1 :: t a = Apply Apply Foldr1_6989586621680390553Sym0 :: TyFun a ~> a ~> a t a ~> a -> Type arg arg1;
type Foldl1 arg :: a ~> a ~> a arg1 :: t a = Apply Apply Foldl1_6989586621680390574Sym0 :: TyFun a ~> a ~> a t a ~> a -> Type arg arg1;
type ToList arg :: t a = Apply ToList_6989586621680390594Sym0 :: TyFun t a [a] -> Type arg;
type Null arg :: t a = Apply Null_6989586621680390603Sym0 :: TyFun t a Bool -> Type arg;
type Length arg :: t a = Apply Length_6989586621680390620Sym0 :: TyFun t a Natural -> Type arg;
type Elem arg :: a arg1 :: t a = Apply Apply Elem_6989586621680390639Sym0 :: TyFun a t a ~> Bool -> Type arg arg1;
type Maximum arg :: t a = Apply Maximum_6989586621680390653Sym0 :: TyFun t a a -> Type arg;
type Minimum arg :: t a = Apply Minimum_6989586621680390668Sym0 :: TyFun t a a -> Type arg;
type Sum arg :: t a = Apply Sum_6989586621680390683Sym0 :: TyFun t a a -> Type arg;
type Product arg :: t a = Apply Product_6989586621680390692Sym0 :: TyFun t a a -> Type arg;
}
class SFoldable (t :: Type -> Type)
sFold :: forall m (t1 :: t m). (SFoldable t, SMonoid m) => Sing t1 -> Sing (Apply (FoldSym0 :: TyFun (t m) m -> Type) t1)
($dmsFold) :: forall m (t1 :: t m). (SFoldable t, Apply (FoldSym0 :: TyFun (t m) m -> Type) t1 ~ Apply (Fold_6989586621680390454Sym0 :: TyFun (t m) m -> Type) t1, SMonoid m) => Sing t1 -> Sing (Apply (FoldSym0 :: TyFun (t m) m -> Type) t1)
sFoldMap :: forall a m (t1 :: a ~> m) (t2 :: t a). (SFoldable t, SMonoid m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2)
($dmsFoldMap) :: forall a m (t1 :: a ~> m) (t2 :: t a). (SFoldable t, Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2 ~ Apply (Apply (FoldMap_6989586621680390464Sym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2, SMonoid m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2)
sFoldr :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldr) :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldr_6989586621680390478Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldr' :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldr'Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldr') :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (Foldr'Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldr'_6989586621680390493Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldr'Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldl :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldl) :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldl_6989586621680390516Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldl' :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldl'Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldl') :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (Foldl'Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldl'_6989586621680390531Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Foldl'Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldr1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
($dmsFoldr1) :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). (SFoldable t, Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2 ~ Apply (Apply (Foldr1_6989586621680390553Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
sFoldl1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
($dmsFoldl1) :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). (SFoldable t, Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2 ~ Apply (Apply (Foldl1_6989586621680390574Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
sToList :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (ToListSym0 :: TyFun (t a) [a] -> Type) t1)
($dmsToList) :: forall a (t1 :: t a). (SFoldable t, Apply (ToListSym0 :: TyFun (t a) [a] -> Type) t1 ~ Apply (ToList_6989586621680390594Sym0 :: TyFun (t a) [a] -> Type) t1) => Sing t1 -> Sing (Apply (ToListSym0 :: TyFun (t a) [a] -> Type) t1)
sNull :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (NullSym0 :: TyFun (t a) Bool -> Type) t1)
($dmsNull) :: forall a (t1 :: t a). (SFoldable t, Apply (NullSym0 :: TyFun (t a) Bool -> Type) t1 ~ Apply (Null_6989586621680390603Sym0 :: TyFun (t a) Bool -> Type) t1) => Sing t1 -> Sing (Apply (NullSym0 :: TyFun (t a) Bool -> Type) t1)
sLength :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (LengthSym0 :: TyFun (t a) Natural -> Type) t1)
($dmsLength) :: forall a (t1 :: t a). (SFoldable t, Apply (LengthSym0 :: TyFun (t a) Natural -> Type) t1 ~ Apply (Length_6989586621680390620Sym0 :: TyFun (t a) Natural -> Type) t1) => Sing t1 -> Sing (Apply (LengthSym0 :: TyFun (t a) Natural -> Type) t1)
sElem :: forall a (t1 :: a) (t2 :: t a). (SFoldable t, SEq a) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2)
($dmsElem) :: forall a (t1 :: a) (t2 :: t a). (SFoldable t, Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (Elem_6989586621680390639Sym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2, SEq a) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2)
sMaximum :: forall a (t1 :: t a). (SFoldable t, SOrd a) => Sing t1 -> Sing (Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1)
($dmsMaximum) :: forall a (t1 :: t a). (SFoldable t, Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Maximum_6989586621680390653Sym0 :: TyFun (t a) a -> Type) t1, SOrd a) => Sing t1 -> Sing (Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1)
sMinimum :: forall a (t1 :: t a). (SFoldable t, SOrd a) => Sing t1 -> Sing (Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1)
($dmsMinimum) :: forall a (t1 :: t a). (SFoldable t, Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Minimum_6989586621680390668Sym0 :: TyFun (t a) a -> Type) t1, SOrd a) => Sing t1 -> Sing (Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1)
sSum :: forall a (t1 :: t a). (SFoldable t, SNum a) => Sing t1 -> Sing (Apply (SumSym0 :: TyFun (t a) a -> Type) t1)
($dmsSum) :: forall a (t1 :: t a). (SFoldable t, Apply (SumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Sum_6989586621680390683Sym0 :: TyFun (t a) a -> Type) t1, SNum a) => Sing t1 -> Sing (Apply (SumSym0 :: TyFun (t a) a -> Type) t1)
sProduct :: forall a (t1 :: t a). (SFoldable t, SNum a) => Sing t1 -> Sing (Apply (ProductSym0 :: TyFun (t a) a -> Type) t1)
($dmsProduct) :: forall a (t1 :: t a). (SFoldable t, Apply (ProductSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Product_6989586621680390692Sym0 :: TyFun (t a) a -> Type) t1, SNum a) => Sing t1 -> Sing (Apply (ProductSym0 :: TyFun (t a) a -> Type) t1)
class PSemigroup a where {
type (arg :: a) <> (arg1 :: a) :: a;
type Sconcat (arg :: NonEmpty a) :: a;
type Sconcat arg :: NonEmpty a = Apply Sconcat_6989586621679207895Sym0 :: TyFun NonEmpty a a -> Type arg;
}
infixr 6 <>
class SSemigroup a
(%<>) :: forall (t1 :: a) (t2 :: a). SSemigroup a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<>@#@$) :: TyFun a (a ~> a) -> Type) t1) t2)
sSconcat :: forall (t :: NonEmpty a). SSemigroup a => Sing t -> Sing (Apply (SconcatSym0 :: TyFun (NonEmpty a) a -> Type) t)
($dmsSconcat) :: forall (t :: NonEmpty a). (SSemigroup a, Apply (SconcatSym0 :: TyFun (NonEmpty a) a -> Type) t ~ Apply (Sconcat_6989586621679207895Sym0 :: TyFun (NonEmpty a) a -> Type) t) => Sing t -> Sing (Apply (SconcatSym0 :: TyFun (NonEmpty a) a -> Type) t)
infixr 6 %<>
class PMonoid a where {
type Mempty :: a;
type Mappend (arg :: a) (arg1 :: a) :: a;
type Mconcat (arg :: [a]) :: a;
type Mappend arg :: a arg1 :: a = Apply Apply Mappend_6989586621680292333Sym0 :: TyFun a a ~> a -> Type arg arg1;
type Mconcat arg :: [a] = Apply Mconcat_6989586621680292347Sym0 :: TyFun [a] a -> Type arg;
}
class SSemigroup a => SMonoid a
sMempty :: SMonoid a => Sing (MemptySym0 :: a)
sMappend :: forall (t1 :: a) (t2 :: a). SMonoid a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMappend) :: forall (t1 :: a) (t2 :: a). (SMonoid a, Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Mappend_6989586621680292333Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
sMconcat :: forall (t :: [a]). SMonoid a => Sing t -> Sing (Apply (MconcatSym0 :: TyFun [a] a -> Type) t)
($dmsMconcat) :: forall (t :: [a]). (SMonoid a, Apply (MconcatSym0 :: TyFun [a] a -> Type) t ~ Apply (Mconcat_6989586621680292347Sym0 :: TyFun [a] a -> Type) t) => Sing t -> Sing (Apply (MconcatSym0 :: TyFun [a] a -> Type) t)
class PTraversable (t :: Type -> Type) where {
type Traverse (arg :: a ~> f b) (arg1 :: t a) :: f t b;
type SequenceA (arg :: t f a) :: f t a;
type MapM (arg :: a ~> m b) (arg1 :: t a) :: m t b;
type Sequence (arg :: t m a) :: m t a;
type Traverse arg :: a ~> f b arg1 :: t a = Apply Apply Traverse_6989586621680734001Sym0 :: TyFun a ~> f b t a ~> f t b -> Type arg arg1;
type SequenceA arg :: t f a = Apply SequenceA_6989586621680734013Sym0 :: TyFun t f a f t a -> Type arg;
type MapM arg :: a ~> m b arg1 :: t a = Apply Apply MapM_6989586621680734023Sym0 :: TyFun a ~> m b t a ~> m t b -> Type arg arg1;
type Sequence arg :: t m a = Apply Sequence_6989586621680734037Sym0 :: TyFun t m a m t a -> Type arg;
}
class (SFunctor t, SFoldable t) => STraversable (t :: Type -> Type)
sTraverse :: forall a (f :: Type -> Type) b (t1 :: a ~> f b) (t2 :: t a). (STraversable t, SApplicative f) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2)
($dmsTraverse) :: forall a (f :: Type -> Type) b (t1 :: a ~> f b) (t2 :: t a). (STraversable t, Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2 ~ Apply (Apply (Traverse_6989586621680734001Sym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2, SApplicative f) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2)
sSequenceA :: forall (f :: Type -> Type) a (t1 :: t (f a)). (STraversable t, SApplicative f) => Sing t1 -> Sing (Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1)
($dmsSequenceA) :: forall (f :: Type -> Type) a (t1 :: t (f a)). (STraversable t, Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1 ~ Apply (SequenceA_6989586621680734013Sym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1, SApplicative f) => Sing t1 -> Sing (Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1)
sMapM :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: t a). (STraversable t, SMonad m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2)
($dmsMapM) :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: t a). (STraversable t, Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2 ~ Apply (Apply (MapM_6989586621680734023Sym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2, SMonad m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2)
sSequence :: forall (m :: Type -> Type) a (t1 :: t (m a)). (STraversable t, SMonad m) => Sing t1 -> Sing (Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1)
($dmsSequence) :: forall (m :: Type -> Type) a (t1 :: t (m a)). (STraversable t, Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1 ~ Apply (Sequence_6989586621680734037Sym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1, SMonad m) => Sing t1 -> Sing (Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1)
class PApplicative (f :: Type -> Type) where {
type Pure (arg :: a) :: f a;
type (arg :: f a ~> b) <*> (arg1 :: f a) :: f b;
type LiftA2 (arg :: a ~> b ~> c) (arg1 :: f a) (arg2 :: f b) :: f c;
type (arg :: f a) *> (arg1 :: f b) :: f b;
type (arg :: f a) <* (arg1 :: f b) :: f a;
type arg :: f a ~> b <*> arg1 :: f a = Apply Apply TFHelper_6989586621679348533Sym0 :: TyFun f a ~> b f a ~> f b -> Type arg arg1;
type LiftA2 arg :: a ~> b ~> c arg1 :: f a arg2 :: f b = Apply Apply Apply LiftA2_6989586621679348549Sym0 :: TyFun a ~> b ~> c f a ~> f b ~> f c -> Type arg arg1 arg2;
type arg :: f a *> arg1 :: f b = Apply Apply TFHelper_6989586621679348565Sym0 :: TyFun f a f b ~> f b -> Type arg arg1;
type arg :: f a <* arg1 :: f b = Apply Apply TFHelper_6989586621679348576Sym0 :: TyFun f a f b ~> f a -> Type arg arg1;
}
infixl 4 <*>
infixl 4 *>
infixl 4 <*
class SFunctor f => SApplicative (f :: Type -> Type)
sPure :: forall a (t :: a). SApplicative f => Sing t -> Sing (Apply (PureSym0 :: TyFun a (f a) -> Type) t)
(%<*>) :: forall a b (t1 :: f (a ~> b)) (t2 :: f a). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2)
($dm%<*>) :: forall a b (t1 :: f (a ~> b)) (t2 :: f a). (SApplicative f, Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348533Sym0 :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2)
sLiftA2 :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: f a) (t3 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3)
($dmsLiftA2) :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: f a) (t3 :: f b). (SApplicative f, Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (LiftA2_6989586621679348549Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3)
(%*>) :: forall a b (t1 :: f a) (t2 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2)
($dm%*>) :: forall a b (t1 :: f a) (t2 :: f b). (SApplicative f, Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348565Sym0 :: TyFun (f a) (f b ~> f b) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2)
(%<*) :: forall a b (t1 :: f a) (t2 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2)
($dm%<*) :: forall a b (t1 :: f a) (t2 :: f b). (SApplicative f, Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348576Sym0 :: TyFun (f a) (f b ~> f a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2)
infixl 4 %<*>
infixl 4 %*>
infixl 4 %<*
type family ( (a1 :: b ~> c) . (a2 :: a ~> b) ) (a3 :: a) :: c
infixr 9 .
(%.) :: forall b c a (t1 :: b ~> c) (t2 :: a ~> b) (t3 :: a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply ((.@#@$) :: TyFun (b ~> c) ((a ~> b) ~> (a ~> c)) -> Type) t1) t2) t3)
infixr 9 %.
-- | A promoted version of error. This implements Error as a
-- stuck type family with a Symbol argument. Depending on your
-- needs, you might also consider the following alternatives:
--
--
-- - Data.Singletons.Base.PolyError provides PolyError,
-- which generalizes the argument to be kind-polymorphic. This allows
-- passing additional information to the error besides raw
-- Symbols.
-- - Data.Singletons.Base.TypeError provides TypeError,
-- a slightly modified version of the custom type error machinery found
-- in GHC.TypeLits. This allows emitting error messages as
-- compiler errors rather than as stuck type families.
--
type family Error (str :: Symbol) :: a
-- | The singleton for error.
sError :: forall (str :: Symbol) a. HasCallStack => Sing str -> a
data ErrorSym0 (a1 :: TyFun Symbol a)
type family ErrorSym1 (a6989586621679555664 :: Symbol) :: a
-- | The promotion of undefined.
type family Undefined :: a
-- | The singleton for undefined.
sUndefined :: HasCallStack => a
type family UndefinedSym0 :: a
type family TrueSym0 :: Bool
type family FalseSym0 :: Bool
data (a1 :: TyFun a a ~> Bool) ==@#@$
infix 4 ==@#@$
data (a6989586621679137918 :: a) ==@#@$$ (b :: TyFun a Bool)
infix 4 ==@#@$$
type family (a6989586621679137918 :: a) ==@#@$$$ (a6989586621679137919 :: a) :: Bool
infix 4 ==@#@$$$
data (a1 :: TyFun a a ~> Bool) >@#@$
infix 4 >@#@$
data (a6989586621679237123 :: a) >@#@$$ (b :: TyFun a Bool)
infix 4 >@#@$$
type family (a6989586621679237123 :: a) >@#@$$$ (a6989586621679237124 :: a) :: Bool
infix 4 >@#@$$$
data IfSym0 (a :: TyFun Bool k ~> k ~> k)
data IfSym1 (a6989586621679133031 :: Bool) (b :: TyFun k k ~> k)
data IfSym2 (a6989586621679133031 :: Bool) (a6989586621679133032 :: k) (c :: TyFun k k)
type family IfSym3 (a6989586621679133031 :: Bool) (a6989586621679133032 :: k) (a6989586621679133033 :: k) :: k
data (a :: TyFun Bool Bool ~> Bool) &&@#@$
infixr 3 &&@#@$
data (a6989586621679132115 :: Bool) &&@#@$$ (b :: TyFun Bool Bool)
infixr 3 &&@#@$$
type family (a6989586621679132115 :: Bool) &&@#@$$$ (a6989586621679132116 :: Bool) :: Bool
infixr 3 &&@#@$$$
type family LTSym0 :: Ordering
type family EQSym0 :: Ordering
type family GTSym0 :: Ordering
type family Tuple0Sym0 :: ()
data Tuple2Sym0 (a1 :: TyFun a b ~> (a, b))
data Tuple2Sym1 (a6989586621679046729 :: a) (b1 :: TyFun b (a, b))
type family Tuple2Sym2 (a6989586621679046729 :: a) (a6989586621679046730 :: b) :: (a, b)
data Tuple3Sym0 (a1 :: TyFun a b ~> c ~> (a, b, c))
data Tuple3Sym1 (a6989586621679046760 :: a) (b1 :: TyFun b c ~> (a, b, c))
data Tuple3Sym2 (a6989586621679046760 :: a) (a6989586621679046761 :: b) (c1 :: TyFun c (a, b, c))
type family Tuple3Sym3 (a6989586621679046760 :: a) (a6989586621679046761 :: b) (a6989586621679046762 :: c) :: (a, b, c)
data Tuple4Sym0 (a1 :: TyFun a b ~> c ~> d ~> (a, b, c, d))
data Tuple4Sym1 (a6989586621679046809 :: a) (b1 :: TyFun b c ~> d ~> (a, b, c, d))
data Tuple4Sym2 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (c1 :: TyFun c d ~> (a, b, c, d))
data Tuple4Sym3 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (a6989586621679046811 :: c) (d1 :: TyFun d (a, b, c, d))
type family Tuple4Sym4 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (a6989586621679046811 :: c) (a6989586621679046812 :: d) :: (a, b, c, d)
data Tuple5Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> (a, b, c, d, e))
data Tuple5Sym1 (a6989586621679046878 :: a) (b1 :: TyFun b c ~> d ~> e ~> (a, b, c, d, e))
data Tuple5Sym2 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (c1 :: TyFun c d ~> e ~> (a, b, c, d, e))
data Tuple5Sym3 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (d1 :: TyFun d e ~> (a, b, c, d, e))
data Tuple5Sym4 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (a6989586621679046881 :: d) (e1 :: TyFun e (a, b, c, d, e))
type family Tuple5Sym5 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (a6989586621679046881 :: d) (a6989586621679046882 :: e) :: (a, b, c, d, e)
data Tuple6Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym1 (a6989586621679046969 :: a) (b1 :: TyFun b c ~> d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym2 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (c1 :: TyFun c d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym3 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (d1 :: TyFun d e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym4 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (e1 :: TyFun e f ~> (a, b, c, d, e, f))
data Tuple6Sym5 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (a6989586621679046973 :: e) (f1 :: TyFun f (a, b, c, d, e, f))
type family Tuple6Sym6 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (a6989586621679046973 :: e) (a6989586621679046974 :: f) :: (a, b, c, d, e, f)
data Tuple7Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym1 (a6989586621679047084 :: a) (b1 :: TyFun b c ~> d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym2 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (c1 :: TyFun c d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym3 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (d1 :: TyFun d e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym4 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (e1 :: TyFun e f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym5 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (f1 :: TyFun f g ~> (a, b, c, d, e, f, g))
data Tuple7Sym6 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (a6989586621679047089 :: f) (g1 :: TyFun g (a, b, c, d, e, f, g))
type family Tuple7Sym7 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (a6989586621679047089 :: f) (a6989586621679047090 :: g) :: (a, b, c, d, e, f, g)
data CompareSym0 (a1 :: TyFun a a ~> Ordering)
data CompareSym1 (a6989586621679237108 :: a) (b :: TyFun a Ordering)
type family CompareSym2 (a6989586621679237108 :: a) (a6989586621679237109 :: a) :: Ordering
data FoldlSym0 (a1 :: TyFun b ~> a ~> b b ~> t a ~> b)
data FoldlSym1 (a6989586621680390407 :: b ~> a ~> b) (b1 :: TyFun b t a ~> b)
data FoldlSym2 (a6989586621680390407 :: b ~> a ~> b) (a6989586621680390408 :: b) (c :: TyFun t a b)
type family FoldlSym3 (a6989586621680390407 :: b ~> a ~> b) (a6989586621680390408 :: b) (a6989586621680390409 :: t a) :: b
type family MinBoundSym0 :: a
type family MaxBoundSym0 :: a
data ShowsPrecSym0 (a1 :: TyFun Natural a ~> Symbol ~> Symbol)
data ShowsPrecSym1 (a6989586621680208714 :: Natural) (b :: TyFun a Symbol ~> Symbol)
data ShowsPrecSym2 (a6989586621680208714 :: Natural) (a6989586621680208715 :: a) (c :: TyFun Symbol Symbol)
type family ShowsPrecSym3 (a6989586621680208714 :: Natural) (a6989586621680208715 :: a) (a6989586621680208716 :: Symbol) :: Symbol
data ShowStringSym0 (a :: TyFun Symbol Symbol ~> Symbol)
data ShowStringSym1 (a6989586621680208669 :: Symbol) (b :: TyFun Symbol Symbol)
type family ShowStringSym2 (a6989586621680208669 :: Symbol) (a6989586621680208670 :: Symbol) :: Symbol
data ShowParenSym0 (a :: TyFun Bool Symbol ~> Symbol ~> Symbol ~> Symbol)
data ShowParenSym1 (a6989586621680208653 :: Bool) (b :: TyFun Symbol ~> Symbol Symbol ~> Symbol)
data ShowParenSym2 (a6989586621680208653 :: Bool) (a6989586621680208654 :: Symbol ~> Symbol) (c :: TyFun Symbol Symbol)
data ShowSpaceSym0 (a :: TyFun Symbol Symbol)
type family ShowSpaceSym1 (a6989586621680208641 :: Symbol) :: Symbol
data ShowCharSym0 (a :: TyFun Char Symbol ~> Symbol)
data ShowCharSym1 (a6989586621680208680 :: Char) (b :: TyFun Symbol Symbol)
type family ShowCharSym2 (a6989586621680208680 :: Char) (a6989586621680208681 :: Symbol) :: Symbol
data ShowCommaSpaceSym0 (a :: TyFun Symbol Symbol)
type family ShowCommaSpaceSym1 (a6989586621680208635 :: Symbol) :: Symbol
data FromIntegerSym0 (a1 :: TyFun Natural a)
type family FromIntegerSym1 (a6989586621679590965 :: Natural) :: a
data NegateSym0 (a1 :: TyFun a a)
type family NegateSym1 (a6989586621679590956 :: a) :: a
data FromStringSym0 (a1 :: TyFun Symbol a)
type family FromStringSym1 (a6989586621681179965 :: Symbol) :: a
data FmapSym0 (a1 :: TyFun a ~> b f a ~> f b)
data FmapSym1 (a6989586621679348484 :: a ~> b) (b1 :: TyFun f a f b)
type family FmapSym2 (a6989586621679348484 :: a ~> b) (a6989586621679348485 :: f a) :: f b
data (a1 :: TyFun a f b ~> f a) <$@#@$
infixl 4 <$@#@$
data (a6989586621679348489 :: a) <$@#@$$ (b1 :: TyFun f b f a)
infixl 4 <$@#@$$
type family (a6989586621679348489 :: a) <$@#@$$$ (a6989586621679348490 :: f b) :: f a
infixl 4 <$@#@$$$
data FoldMapSym0 (a1 :: TyFun a ~> m t a ~> m)
data FoldMapSym1 (a6989586621680390387 :: a ~> m) (b :: TyFun t a m)
type family FoldMapSym2 (a6989586621680390387 :: a ~> m) (a6989586621680390388 :: t a) :: m
data (a1 :: TyFun a a ~> a) <>@#@$
infixr 6 <>@#@$
data (a6989586621679207889 :: a) <>@#@$$ (b :: TyFun a a)
infixr 6 <>@#@$$
type family (a6989586621679207889 :: a) <>@#@$$$ (a6989586621679207890 :: a) :: a
infixr 6 <>@#@$$$
type family MemptySym0 :: a
data MappendSym0 (a1 :: TyFun a a ~> a)
data MappendSym1 (a6989586621680292326 :: a) (b :: TyFun a a)
type family MappendSym2 (a6989586621680292326 :: a) (a6989586621680292327 :: a) :: a
data FoldrSym0 (a1 :: TyFun a ~> b ~> b b ~> t a ~> b)
data FoldrSym1 (a6989586621680390393 :: a ~> b ~> b) (b1 :: TyFun b t a ~> b)
data FoldrSym2 (a6989586621680390393 :: a ~> b ~> b) (a6989586621680390394 :: b) (c :: TyFun t a b)
type family FoldrSym3 (a6989586621680390393 :: a ~> b ~> b) (a6989586621680390394 :: b) (a6989586621680390395 :: t a) :: b
data TraverseSym0 (a1 :: TyFun a ~> f b t a ~> f t b)
data TraverseSym1 (a6989586621680733986 :: a ~> f b) (b1 :: TyFun t a f t b)
type family TraverseSym2 (a6989586621680733986 :: a ~> f b) (a6989586621680733987 :: t a) :: f t b
data PureSym0 (a1 :: TyFun a f a)
type family PureSym1 (a6989586621679348508 :: a) :: f a
data (a1 :: TyFun f a ~> b f a ~> f b) <*>@#@$
infixl 4 <*>@#@$
data (a6989586621679348512 :: f a ~> b) <*>@#@$$ (b1 :: TyFun f a f b)
infixl 4 <*>@#@$$
type family (a6989586621679348512 :: f a ~> b) <*>@#@$$$ (a6989586621679348513 :: f a) :: f b
infixl 4 <*>@#@$$$
data LiftA2Sym0 (a1 :: TyFun a ~> b ~> c f a ~> f b ~> f c)
data LiftA2Sym1 (a6989586621679348518 :: a ~> b ~> c) (b1 :: TyFun f a f b ~> f c)
data LiftA2Sym2 (a6989586621679348518 :: a ~> b ~> c) (a6989586621679348519 :: f a) (c1 :: TyFun f b f c)
type family LiftA2Sym3 (a6989586621679348518 :: a ~> b ~> c) (a6989586621679348519 :: f a) (a6989586621679348520 :: f b) :: f c
data (a1 :: TyFun b ~> c a ~> b ~> a ~> c) .@#@$
infixr 9 .@#@$
data (a6989586621679180207 :: b ~> c) .@#@$$ (b1 :: TyFun a ~> b a ~> c)
infixr 9 .@#@$$
data ( (a6989586621679180207 :: b ~> c) .@#@$$$ (a6989586621679180208 :: a ~> b) ) (c1 :: TyFun a c)
infixr 9 .@#@$$$
type family ( (a6989586621679180207 :: b ~> c) .@#@$$$$ (a6989586621679180208 :: a ~> b) ) (a6989586621679180209 :: a) :: c
infixr 9 .@#@$$$$
type family NilSym0 :: [a]
data (a1 :: TyFun a [a] ~> [a]) :@#@$
infixr 5 :@#@$
data (a6989586621679046238 :: a) :@#@$$ (b :: TyFun [a] [a])
infixr 5 :@#@$$
type family (a6989586621679046238 :: a) :@#@$$$ (a6989586621679046239 :: [a]) :: [a]
infixr 5 :@#@$$$
class SuppressUnusedWarnings (t :: k)
suppressUnusedWarnings :: SuppressUnusedWarnings t => ()
-- | This file implements singletonStar, which generates a datatype
-- Rep and associated singleton from a list of types. The
-- promoted version of Rep is kind * and the Haskell
-- types themselves. This is still very experimental, so expect unusual
-- results!
--
-- See also Data.Singletons.TH.CustomStar from
-- singletons-th, a more minimal version of this module that
-- does not re-export anything from Prelude.Singletons.
module Data.Singletons.Base.CustomStar
singletonStar :: OptionsMonad q => [Name] -> q [Dec]
-- | Exports the promoted and singled versions of the Compose data
-- type.
module Data.Functor.Compose.Singletons
type family Sing :: k -> Type
data SCompose (a1 :: Compose f g a)
[SCompose] :: forall {k} {k1} (f :: k -> Type) (g :: k1 -> k) (a :: k1) (x :: f (g a)). Sing x -> SCompose ('Compose x)
infixr 9 `SCompose`
infixr 9 `SCompose`
type family GetCompose (a1 :: Compose f g a) :: f g a
sGetCompose :: forall {k1} {k2} (f :: k1 -> Type) (g :: k2 -> k1) (a :: k2) (t :: Compose f g a). Sing t -> Sing (Apply (GetComposeSym0 :: TyFun (Compose f g a) (f (g a)) -> Type) t)
data ComposeSym0 (z :: TyFun f g a Compose f g a)
infixr 9 `ComposeSym0`
type family ComposeSym1 (x :: f g a) :: Compose f g a
infixr 9 `ComposeSym1`
data GetComposeSym0 (a1 :: TyFun Compose f g a f g a)
type family GetComposeSym1 (a6989586621681192397 :: Compose f g a) :: f g a
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1) (z :: Data.Functor.Compose.Compose f g a). GHC.Classes.Eq (Data.Functor.Compose.Singletons.SCompose z)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1) (z :: Data.Functor.Compose.Compose f g a). GHC.Classes.Ord (Data.Functor.Compose.Singletons.SCompose z)
instance forall k1 k2 (f :: k1 -> *) (g :: k2 -> k1). Control.Monad.Singletons.Internal.PAlternative (Data.Functor.Compose.Compose f g)
instance forall k (f :: k -> *) (g :: * -> k). Control.Monad.Singletons.Internal.PApplicative (Data.Functor.Compose.Compose f g)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Eq.Singletons.PEq (Data.Functor.Compose.Compose f g a)
instance forall k (f :: k -> *) (g :: * -> k). Data.Foldable.Singletons.PFoldable (Data.Functor.Compose.Compose f g)
instance forall k (f :: k -> *) (g :: * -> k). Control.Monad.Singletons.Internal.PFunctor (Data.Functor.Compose.Compose f g)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Ord.Singletons.POrd (Data.Functor.Compose.Compose f g a)
instance forall k (f :: k -> *) (g :: * -> k). Data.Traversable.Singletons.PTraversable (Data.Functor.Compose.Compose f g)
instance (Control.Monad.Singletons.Internal.SAlternative f, Control.Monad.Singletons.Internal.SApplicative g) => Control.Monad.Singletons.Internal.SAlternative (Data.Functor.Compose.Compose f g)
instance (Control.Monad.Singletons.Internal.SApplicative f, Control.Monad.Singletons.Internal.SApplicative g) => Control.Monad.Singletons.Internal.SApplicative (Data.Functor.Compose.Compose f g)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Singletons.Decide.SDecide (f (g a)) => Data.Singletons.Decide.SDecide (Data.Functor.Compose.Compose f g a)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Eq.Singletons.SEq (f (g a)) => Data.Eq.Singletons.SEq (Data.Functor.Compose.Compose f g a)
instance (Data.Foldable.Singletons.SFoldable f, Data.Foldable.Singletons.SFoldable g) => Data.Foldable.Singletons.SFoldable (Data.Functor.Compose.Compose f g)
instance (Control.Monad.Singletons.Internal.SFunctor f, Control.Monad.Singletons.Internal.SFunctor g) => Control.Monad.Singletons.Internal.SFunctor (Data.Functor.Compose.Compose f g)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Ord.Singletons.SOrd (f (g a)) => Data.Ord.Singletons.SOrd (Data.Functor.Compose.Compose f g a)
instance (Data.Traversable.Singletons.STraversable f, Data.Traversable.Singletons.STraversable g) => Data.Traversable.Singletons.STraversable (Data.Functor.Compose.Compose f g)
instance forall k (f :: k -> *) k1 (g :: k1 -> k) (a :: k1). Data.Singletons.SingI1 'Data.Functor.Compose.Compose
instance forall k (f :: k -> *) k1 (g :: k1 -> k) (a :: k1) (x :: f (g a)). Data.Singletons.SingI x => Data.Singletons.SingI ('Data.Functor.Compose.Compose x)
instance forall k (f :: k -> *) k1 (g :: k1 -> k) (a :: k1). Data.Singletons.SingI Data.Functor.Compose.Singletons.ComposeSym0
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Singletons.SingI Data.Functor.Compose.Singletons.GetComposeSym0
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.Compare_6989586621681192412Sym0
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1) (a6989586621681192417 :: Data.Functor.Compose.Compose f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.Compare_6989586621681192412Sym1 a6989586621681192417)
instance forall a b k (f :: k -> *) (g :: * -> k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.Fmap_6989586621681192423Sym0
instance forall a b k (f :: k -> *) (g :: * -> k) (a6989586621681192428 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.Fmap_6989586621681192423Sym1 a6989586621681192428)
instance forall a m k (f :: k -> *) (g :: * -> k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.FoldMap_6989586621681192445Sym0
instance forall a m k (f :: k -> *) (g :: * -> k) (a6989586621681192450 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.FoldMap_6989586621681192445Sym1 a6989586621681192450)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.GetComposeSym0
instance forall a b c k (f :: k -> *) (g :: * -> k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.LiftA2_6989586621681192687Sym0
instance forall a b c k (f :: k -> *) (g :: * -> k) (a6989586621681192693 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.LiftA2_6989586621681192687Sym1 a6989586621681192693)
instance forall a b c k (f :: k -> *) (g :: * -> k) (a6989586621681192693 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681192694 :: Data.Functor.Compose.Compose f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.LiftA2_6989586621681192687Sym2 a6989586621681192693 a6989586621681192694)
instance forall a k (f :: k -> *) (g :: * -> k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.Pure_6989586621681192667Sym0
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.TFHelper_6989586621681192401Sym0
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1) (a6989586621681192406 :: Data.Functor.Compose.Compose f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.TFHelper_6989586621681192401Sym1 a6989586621681192406)
instance forall a k (f :: k -> *) (g :: * -> k) b. Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.TFHelper_6989586621681192434Sym0
instance forall a k (f :: k -> *) (g :: * -> k) b (a6989586621681192439 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.TFHelper_6989586621681192434Sym1 a6989586621681192439)
instance forall k (f :: k -> *) (g :: * -> k) a b. Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.TFHelper_6989586621681192675Sym0
instance forall k (f :: k -> *) (g :: * -> k) a b (a6989586621681192680 :: Data.Functor.Compose.Compose f g (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.TFHelper_6989586621681192675Sym1 a6989586621681192680)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.TFHelper_6989586621681192713Sym0
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1) (a6989586621681192718 :: Data.Functor.Compose.Compose f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.TFHelper_6989586621681192713Sym1 a6989586621681192718)
instance forall a (f1 :: * -> *) b k (f2 :: k -> *) (g :: * -> k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Compose.Singletons.Traverse_6989586621681192456Sym0
instance forall a (f1 :: * -> *) b k (f2 :: k -> *) (g :: * -> k) (a6989586621681192461 :: a Data.Singletons.~> f1 b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Compose.Singletons.Traverse_6989586621681192456Sym1 a6989586621681192461)
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Singletons.Decide.SDecide (f (g a)) => Data.Type.Coercion.TestCoercion Data.Functor.Compose.Singletons.SCompose
instance forall k k1 (f :: k -> *) (g :: k1 -> k) (a :: k1). Data.Singletons.Decide.SDecide (f (g a)) => Data.Type.Equality.TestEquality Data.Functor.Compose.Singletons.SCompose
-- | Defines the promoted and singled versions of the Monad type
-- class.
module Control.Monad.Singletons
class PFunctor (f :: Type -> Type) where {
type Fmap (arg :: a ~> b) (arg1 :: f a) :: f b;
type arg :: a <$ arg1 :: f b = Apply Apply TFHelper_6989586621679348493Sym0 :: TyFun a f b ~> f a -> Type arg arg1;
}
class SFunctor (f :: Type -> Type)
sFmap :: forall a b (t1 :: a ~> b) (t2 :: f a). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FmapSym0 :: TyFun (a ~> b) (f a ~> f b) -> Type) t1) t2)
class PMonad (m :: Type -> Type) where {
type (arg :: m a) >>= (arg1 :: a ~> m b) :: m b;
type (arg :: m a) >> (arg1 :: m b) :: m b;
type Return (arg :: a) :: m a;
type arg :: m a >> arg1 :: m b = Apply Apply TFHelper_6989586621679348604Sym0 :: TyFun m a m b ~> m b -> Type arg arg1;
type Return arg :: a = Apply Return_6989586621679348621Sym0 :: TyFun a m a -> Type arg;
}
infixl 1 >>=
infixl 1 >>
class SApplicative m => SMonad (m :: Type -> Type)
(%>>=) :: forall a b (t1 :: m a) (t2 :: a ~> m b). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>>=@#@$) :: TyFun (m a) ((a ~> m b) ~> m b) -> Type) t1) t2)
(%>>) :: forall a b (t1 :: m a) (t2 :: m b). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>>@#@$) :: TyFun (m a) (m b ~> m b) -> Type) t1) t2)
($dm%>>) :: forall a b (t1 :: m a) (t2 :: m b). (SMonad m, Apply (Apply ((>>@#@$) :: TyFun (m a) (m b ~> m b) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348604Sym0 :: TyFun (m a) (m b ~> m b) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>>@#@$) :: TyFun (m a) (m b ~> m b) -> Type) t1) t2)
sReturn :: forall a (t :: a). SMonad m => Sing t -> Sing (Apply (ReturnSym0 :: TyFun a (m a) -> Type) t)
($dmsReturn) :: forall a (t :: a). (SMonad m, Apply (ReturnSym0 :: TyFun a (m a) -> Type) t ~ Apply (Return_6989586621679348621Sym0 :: TyFun a (m a) -> Type) t) => Sing t -> Sing (Apply (ReturnSym0 :: TyFun a (m a) -> Type) t)
infixl 1 %>>=
infixl 1 %>>
class PMonadPlus (m :: k -> Type) where {
type Mzero :: m a;
type Mplus (arg :: m a) (arg1 :: m a) :: m a;
type Mzero = Mzero_6989586621679348641Sym0 :: m a;
type Mplus arg :: m a arg1 :: m a = Apply Apply Mplus_6989586621679348646Sym0 :: TyFun m a m a ~> m a -> Type arg arg1;
}
class (SAlternative m, SMonad m) => SMonadPlus (m :: Type -> Type)
sMzero :: SMonadPlus m => Sing (MzeroSym0 :: m a)
($dmsMzero) :: (SMonadPlus m, (MzeroSym0 :: m a) ~ (Mzero_6989586621679348641Sym0 :: m a)) => Sing (MzeroSym0 :: m a)
sMplus :: forall a (t1 :: m a) (t2 :: m a). SMonadPlus m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MplusSym0 :: TyFun (m a) (m a ~> m a) -> Type) t1) t2)
($dmsMplus) :: forall a (t1 :: m a) (t2 :: m a). (SMonadPlus m, Apply (Apply (MplusSym0 :: TyFun (m a) (m a ~> m a) -> Type) t1) t2 ~ Apply (Apply (Mplus_6989586621679348646Sym0 :: TyFun (m a) (m a ~> m a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MplusSym0 :: TyFun (m a) (m a ~> m a) -> Type) t1) t2)
class PMonadFail (m :: k -> Type) where {
type Fail (arg :: [Char]) :: m a;
}
class SMonad m => SMonadFail (m :: Type -> Type)
sFail :: forall a (t :: [Char]). SMonadFail m => Sing t -> Sing (Apply (FailSym0 :: TyFun [Char] (m a) -> Type) t)
type family MapM (arg :: a ~> m b) (arg1 :: t a) :: m t b
sMapM :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: t a). (STraversable t, SMonad m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2)
type family MapM_ (a1 :: a ~> m b) (a2 :: t a) :: m ()
sMapM_ :: forall a (m :: Type -> Type) b (t1 :: Type -> Type) (t2 :: a ~> m b) (t3 :: t1 a). (SFoldable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (MapM_Sym0 :: TyFun (a ~> m b) (t1 a ~> m ()) -> Type) t2) t3)
type family ForM (a1 :: t a) (a2 :: a ~> m b) :: m t b
sForM :: forall (t1 :: Type -> Type) a (m :: Type -> Type) b (t2 :: t1 a) (t3 :: a ~> m b). (STraversable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (ForMSym0 :: TyFun (t1 a) ((a ~> m b) ~> m (t1 b)) -> Type) t2) t3)
type family Sequence (arg :: t m a) :: m t a
sSequence :: forall (m :: Type -> Type) a (t1 :: t (m a)). (STraversable t, SMonad m) => Sing t1 -> Sing (Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1)
type family Sequence_ (a1 :: t m a) :: m ()
sSequence_ :: forall (t1 :: Type -> Type) (m :: Type -> Type) a (t2 :: t1 (m a)). (SFoldable t1, SMonad m) => Sing t2 -> Sing (Apply (Sequence_Sym0 :: TyFun (t1 (m a)) (m ()) -> Type) t2)
type family (a1 :: a ~> m b) =<< (a2 :: m a) :: m b
infixr 1 =<<
(%=<<) :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: m a). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((=<<@#@$) :: TyFun (a ~> m b) (m a ~> m b) -> Type) t1) t2)
infixr 1 %=<<
type family ( (a1 :: a ~> m b) >=> (a2 :: b ~> m c) ) (a3 :: a) :: m c
infixr 1 >=>
(%>=>) :: forall a (m :: Type -> Type) b c (t1 :: a ~> m b) (t2 :: b ~> m c) (t3 :: a). SMonad m => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply ((>=>@#@$) :: TyFun (a ~> m b) ((b ~> m c) ~> (a ~> m c)) -> Type) t1) t2) t3)
infixr 1 %>=>
type family ( (a1 :: b ~> m c) <=< (a2 :: a ~> m b) ) (a3 :: a) :: m c
infixr 1 <=<
(%<=<) :: forall b (m :: Type -> Type) c a (t1 :: b ~> m c) (t2 :: a ~> m b) (t3 :: a). SMonad m => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply ((<=<@#@$) :: TyFun (b ~> m c) ((a ~> m b) ~> (a ~> m c)) -> Type) t1) t2) t3)
infixr 1 %<=<
type family Void (a1 :: f a) :: f ()
sVoid :: forall (f :: Type -> Type) a (t :: f a). SFunctor f => Sing t -> Sing (Apply (VoidSym0 :: TyFun (f a) (f ()) -> Type) t)
type family Join (a1 :: m m a) :: m a
sJoin :: forall (m :: Type -> Type) a (t :: m (m a)). SMonad m => Sing t -> Sing (Apply (JoinSym0 :: TyFun (m (m a)) (m a) -> Type) t)
type family Msum (a1 :: t m a) :: m a
sMsum :: forall (t1 :: Type -> Type) (m :: Type -> Type) a (t2 :: t1 (m a)). (SFoldable t1, SMonadPlus m) => Sing t2 -> Sing (Apply (MsumSym0 :: TyFun (t1 (m a)) (m a) -> Type) t2)
type family Mfilter (a1 :: a ~> Bool) (a2 :: m a) :: m a
sMfilter :: forall a (m :: Type -> Type) (t1 :: a ~> Bool) (t2 :: m a). SMonadPlus m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MfilterSym0 :: TyFun (a ~> Bool) (m a ~> m a) -> Type) t1) t2)
type family FilterM (a1 :: a ~> m Bool) (a2 :: [a]) :: m [a]
sFilterM :: forall a (m :: Type -> Type) (t1 :: a ~> m Bool) (t2 :: [a]). SApplicative m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FilterMSym0 :: TyFun (a ~> m Bool) ([a] ~> m [a]) -> Type) t1) t2)
type family MapAndUnzipM (a1 :: a ~> m (b, c)) (a2 :: [a]) :: m ([b], [c])
sMapAndUnzipM :: forall a (m :: Type -> Type) b c (t1 :: a ~> m (b, c)) (t2 :: [a]). SApplicative m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapAndUnzipMSym0 :: TyFun (a ~> m (b, c)) ([a] ~> m ([b], [c])) -> Type) t1) t2)
type family ZipWithM (a1 :: a ~> b ~> m c) (a2 :: [a]) (a3 :: [b]) :: m [c]
sZipWithM :: forall a b (m :: Type -> Type) c (t1 :: a ~> (b ~> m c)) (t2 :: [a]) (t3 :: [b]). SApplicative m => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ZipWithMSym0 :: TyFun (a ~> (b ~> m c)) ([a] ~> ([b] ~> m [c])) -> Type) t1) t2) t3)
type family ZipWithM_ (a1 :: a ~> b ~> m c) (a2 :: [a]) (a3 :: [b]) :: m ()
sZipWithM_ :: forall a b (m :: Type -> Type) c (t1 :: a ~> (b ~> m c)) (t2 :: [a]) (t3 :: [b]). SApplicative m => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ZipWithM_Sym0 :: TyFun (a ~> (b ~> m c)) ([a] ~> ([b] ~> m ())) -> Type) t1) t2) t3)
type family FoldlM (a1 :: b ~> a ~> m b) (a2 :: b) (a3 :: t a) :: m b
sFoldlM :: forall b a (m :: Type -> Type) (t1 :: Type -> Type) (t2 :: b ~> (a ~> m b)) (t3 :: b) (t4 :: t1 a). (SFoldable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (FoldlMSym0 :: TyFun (b ~> (a ~> m b)) (b ~> (t1 a ~> m b)) -> Type) t2) t3) t4)
type family ReplicateM (a1 :: Natural) (a2 :: m a) :: m [a]
sReplicateM :: forall (m :: Type -> Type) a (t1 :: Natural) (t2 :: m a). SApplicative m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ReplicateMSym0 :: TyFun Natural (m a ~> m [a]) -> Type) t1) t2)
type family ReplicateM_ (a1 :: Natural) (a2 :: m a) :: m ()
sReplicateM_ :: forall (m :: Type -> Type) a (t1 :: Natural) (t2 :: m a). SApplicative m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ReplicateM_Sym0 :: TyFun Natural (m a ~> m ()) -> Type) t1) t2)
type family Guard (a :: Bool) :: f ()
sGuard :: forall (f :: Type -> Type) (t :: Bool). SAlternative f => Sing t -> Sing (Apply (GuardSym0 :: TyFun Bool (f ()) -> Type) t)
type family When (a :: Bool) (a1 :: f ()) :: f ()
sWhen :: forall (f :: Type -> Type) (t1 :: Bool) (t2 :: f ()). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply (WhenSym0 :: TyFun Bool (f () ~> f ()) -> Type) t1) t2)
type family Unless (a :: Bool) (a1 :: f ()) :: f ()
sUnless :: forall (f :: Type -> Type) (t1 :: Bool) (t2 :: f ()). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply (UnlessSym0 :: TyFun Bool (f () ~> f ()) -> Type) t1) t2)
type family LiftM (a :: a1 ~> r) (a2 :: m a1) :: m r
sLiftM :: forall a1 r (m :: Type -> Type) (t1 :: a1 ~> r) (t2 :: m a1). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (LiftMSym0 :: TyFun (a1 ~> r) (m a1 ~> m r) -> Type) t1) t2)
type family LiftM2 (a :: a1 ~> a2 ~> r) (a4 :: m a1) (a5 :: m a2) :: m r
sLiftM2 :: forall a1 a2 r (m :: Type -> Type) (t1 :: a1 ~> (a2 ~> r)) (t2 :: m a1) (t3 :: m a2). SMonad m => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (LiftM2Sym0 :: TyFun (a1 ~> (a2 ~> r)) (m a1 ~> (m a2 ~> m r)) -> Type) t1) t2) t3)
type family LiftM3 (a :: a1 ~> a2 ~> a3 ~> r) (a4 :: m a1) (a5 :: m a2) (a6 :: m a3) :: m r
sLiftM3 :: forall a1 a2 a3 r (m :: Type -> Type) (t1 :: a1 ~> (a2 ~> (a3 ~> r))) (t2 :: m a1) (t3 :: m a2) (t4 :: m a3). SMonad m => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (Apply (LiftM3Sym0 :: TyFun (a1 ~> (a2 ~> (a3 ~> r))) (m a1 ~> (m a2 ~> (m a3 ~> m r))) -> Type) t1) t2) t3) t4)
type family LiftM4 (a :: a1 ~> a2 ~> a3 ~> a4 ~> r) (a7 :: m a1) (a8 :: m a2) (a9 :: m a3) (a10 :: m a4) :: m r
sLiftM4 :: forall a1 a2 a3 a4 r (m :: Type -> Type) (t1 :: a1 ~> (a2 ~> (a3 ~> (a4 ~> r)))) (t2 :: m a1) (t3 :: m a2) (t4 :: m a3) (t5 :: m a4). SMonad m => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing (Apply (Apply (Apply (Apply (Apply (LiftM4Sym0 :: TyFun (a1 ~> (a2 ~> (a3 ~> (a4 ~> r)))) (m a1 ~> (m a2 ~> (m a3 ~> (m a4 ~> m r)))) -> Type) t1) t2) t3) t4) t5)
type family LiftM5 (a :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> r) (a7 :: m a1) (a8 :: m a2) (a9 :: m a3) (a10 :: m a4) (a11 :: m a5) :: m r
sLiftM5 :: forall a1 a2 a3 a4 a5 r (m :: Type -> Type) (t1 :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> r))))) (t2 :: m a1) (t3 :: m a2) (t4 :: m a3) (t5 :: m a4) (t6 :: m a5). SMonad m => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing t6 -> Sing (Apply (Apply (Apply (Apply (Apply (Apply (LiftM5Sym0 :: TyFun (a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> r))))) (m a1 ~> (m a2 ~> (m a3 ~> (m a4 ~> (m a5 ~> m r))))) -> Type) t1) t2) t3) t4) t5) t6)
type family Ap (a1 :: m a ~> b) (a2 :: m a) :: m b
sAp :: forall (m :: Type -> Type) a b (t1 :: m (a ~> b)) (t2 :: m a). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ApSym0 :: TyFun (m (a ~> b)) (m a ~> m b) -> Type) t1) t2)
type family (a1 :: a ~> b) <$!> (a2 :: m a) :: m b
infixl 4 <$!>
(%<$!>) :: forall a b (m :: Type -> Type) (t1 :: a ~> b) (t2 :: m a). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$!>@#@$) :: TyFun (a ~> b) (m a ~> m b) -> Type) t1) t2)
infixl 4 %<$!>
data FmapSym0 (a1 :: TyFun a ~> b f a ~> f b)
data FmapSym1 (a6989586621679348484 :: a ~> b) (b1 :: TyFun f a f b)
type family FmapSym2 (a6989586621679348484 :: a ~> b) (a6989586621679348485 :: f a) :: f b
data (a1 :: TyFun m a a ~> m b ~> m b) >>=@#@$
infixl 1 >>=@#@$
data (a6989586621679348592 :: m a) >>=@#@$$ (b1 :: TyFun a ~> m b m b)
infixl 1 >>=@#@$$
type family (a6989586621679348592 :: m a) >>=@#@$$$ (a6989586621679348593 :: a ~> m b) :: m b
infixl 1 >>=@#@$$$
data (a1 :: TyFun m a m b ~> m b) >>@#@$
infixl 1 >>@#@$
data (a6989586621679348597 :: m a) >>@#@$$ (b1 :: TyFun m b m b)
infixl 1 >>@#@$$
type family (a6989586621679348597 :: m a) >>@#@$$$ (a6989586621679348598 :: m b) :: m b
infixl 1 >>@#@$$$
data ReturnSym0 (a1 :: TyFun a m a)
type family ReturnSym1 (a6989586621679348601 :: a) :: m a
data FailSym0 (a1 :: TyFun [Char] m a)
type family FailSym1 (a6989586621679549513 :: [Char]) :: m a
type family MzeroSym0 :: m a
data MplusSym0 (a1 :: TyFun m a m a ~> m a)
data MplusSym1 (a6989586621679348639 :: m a) (b :: TyFun m a m a)
type family MplusSym2 (a6989586621679348639 :: m a) (a6989586621679348640 :: m a) :: m a
data MapMSym0 (a1 :: TyFun a ~> m b t a ~> m t b)
data MapMSym1 (a6989586621680733994 :: a ~> m b) (b1 :: TyFun t a m t b)
type family MapMSym2 (a6989586621680733994 :: a ~> m b) (a6989586621680733995 :: t a) :: m t b
data MapM_Sym0 (a1 :: TyFun a ~> m b t a ~> m ())
data MapM_Sym1 (a6989586621680390321 :: a ~> m b) (b1 :: TyFun t a m ())
type family MapM_Sym2 (a6989586621680390321 :: a ~> m b) (a6989586621680390322 :: t a) :: m ()
data ForMSym0 (a1 :: TyFun t a a ~> m b ~> m t b)
data ForMSym1 (a6989586621680741291 :: t a) (b1 :: TyFun a ~> m b m t b)
type family ForMSym2 (a6989586621680741291 :: t a) (a6989586621680741292 :: a ~> m b) :: m t b
data SequenceSym0 (a1 :: TyFun t m a m t a)
type family SequenceSym1 (a6989586621680733998 :: t m a) :: m t a
data Sequence_Sym0 (a1 :: TyFun t m a m ())
type family Sequence_Sym1 (a6989586621680390297 :: t m a) :: m ()
data (a1 :: TyFun a ~> m b m a ~> m b) =<<@#@$
infixr 1 =<<@#@$
data (a6989586621679348437 :: a ~> m b) =<<@#@$$ (b1 :: TyFun m a m b)
infixr 1 =<<@#@$$
type family (a6989586621679348437 :: a ~> m b) =<<@#@$$$ (a6989586621679348438 :: m a) :: m b
infixr 1 =<<@#@$$$
data (a1 :: TyFun a ~> m b b ~> m c ~> a ~> m c) >=>@#@$
infixr 1 >=>@#@$
data (a6989586621681205350 :: a ~> m b) >=>@#@$$ (b1 :: TyFun b ~> m c a ~> m c)
infixr 1 >=>@#@$$
data ( (a6989586621681205350 :: a ~> m b) >=>@#@$$$ (a6989586621681205351 :: b ~> m c) ) (c1 :: TyFun a m c)
infixr 1 >=>@#@$$$
data (a1 :: TyFun b ~> m c a ~> m b ~> a ~> m c) <=<@#@$
infixr 1 <=<@#@$
data (a6989586621681205338 :: b ~> m c) <=<@#@$$ (b1 :: TyFun a ~> m b a ~> m c)
infixr 1 <=<@#@$$
data ( (a6989586621681205338 :: b ~> m c) <=<@#@$$$ (a6989586621681205339 :: a ~> m b) ) (c1 :: TyFun a m c)
infixr 1 <=<@#@$$$
data VoidSym0 (a1 :: TyFun f a f ())
type family VoidSym1 (a6989586621679532892 :: f a) :: f ()
data JoinSym0 (a1 :: TyFun m m a m a)
type family JoinSym1 (a6989586621679348443 :: m m a) :: m a
data MsumSym0 (a1 :: TyFun t m a m a)
type family MsumSym1 (a6989586621680390285 :: t m a) :: m a
data MfilterSym0 (a1 :: TyFun a ~> Bool m a ~> m a)
data MfilterSym1 (a6989586621681205203 :: a ~> Bool) (b :: TyFun m a m a)
type family MfilterSym2 (a6989586621681205203 :: a ~> Bool) (a6989586621681205204 :: m a) :: m a
data FilterMSym0 (a1 :: TyFun a ~> m Bool [a] ~> m [a])
data FilterMSym1 (a6989586621681205365 :: a ~> m Bool) (b :: TyFun [a] m [a])
type family FilterMSym2 (a6989586621681205365 :: a ~> m Bool) (a6989586621681205366 :: [a]) :: m [a]
data MapAndUnzipMSym0 (a1 :: TyFun a ~> m (b, c) [a] ~> m ([b], [c]))
data MapAndUnzipMSym1 (a6989586621681205324 :: a ~> m (b, c)) (b1 :: TyFun [a] m ([b], [c]))
type family MapAndUnzipMSym2 (a6989586621681205324 :: a ~> m (b, c)) (a6989586621681205325 :: [a]) :: m ([b], [c])
data ZipWithMSym0 (a1 :: TyFun a ~> b ~> m c [a] ~> [b] ~> m [c])
data ZipWithMSym1 (a6989586621681205315 :: a ~> b ~> m c) (b1 :: TyFun [a] [b] ~> m [c])
data ZipWithMSym2 (a6989586621681205315 :: a ~> b ~> m c) (a6989586621681205316 :: [a]) (c1 :: TyFun [b] m [c])
type family ZipWithMSym3 (a6989586621681205315 :: a ~> b ~> m c) (a6989586621681205316 :: [a]) (a6989586621681205317 :: [b]) :: m [c]
data ZipWithM_Sym0 (a1 :: TyFun a ~> b ~> m c [a] ~> [b] ~> m ())
data ZipWithM_Sym1 (a6989586621681205305 :: a ~> b ~> m c) (b1 :: TyFun [a] [b] ~> m ())
data ZipWithM_Sym2 (a6989586621681205305 :: a ~> b ~> m c) (a6989586621681205306 :: [a]) (c1 :: TyFun [b] m ())
type family ZipWithM_Sym3 (a6989586621681205305 :: a ~> b ~> m c) (a6989586621681205306 :: [a]) (a6989586621681205307 :: [b]) :: m ()
data FoldlMSym0 (a1 :: TyFun b ~> a ~> m b b ~> t a ~> m b)
data FoldlMSym1 (a6989586621680390349 :: b ~> a ~> m b) (b1 :: TyFun b t a ~> m b)
data FoldlMSym2 (a6989586621680390349 :: b ~> a ~> m b) (a6989586621680390350 :: b) (c :: TyFun t a m b)
type family FoldlMSym3 (a6989586621680390349 :: b ~> a ~> m b) (a6989586621680390350 :: b) (a6989586621680390351 :: t a) :: m b
data ReplicateMSym0 (a1 :: TyFun Natural m a ~> m [a])
data ReplicateMSym1 (a6989586621681205260 :: Natural) (b :: TyFun m a m [a])
type family ReplicateMSym2 (a6989586621681205260 :: Natural) (a6989586621681205261 :: m a) :: m [a]
data ReplicateM_Sym0 (a1 :: TyFun Natural m a ~> m ())
data ReplicateM_Sym1 (a6989586621681205242 :: Natural) (b :: TyFun m a m ())
type family ReplicateM_Sym2 (a6989586621681205242 :: Natural) (a6989586621681205243 :: m a) :: m ()
data GuardSym0 (a :: TyFun Bool f ())
type family GuardSym1 (a6989586621679348283 :: Bool) :: f ()
data WhenSym0 (a :: TyFun Bool f () ~> f ())
data WhenSym1 (a6989586621679348427 :: Bool) (b :: TyFun f () f ())
type family WhenSym2 (a6989586621679348427 :: Bool) (a6989586621679348428 :: f ()) :: f ()
data UnlessSym0 (a :: TyFun Bool f () ~> f ())
data UnlessSym1 (a6989586621681205232 :: Bool) (b :: TyFun f () f ())
type family UnlessSym2 (a6989586621681205232 :: Bool) (a6989586621681205233 :: f ()) :: f ()
data LiftMSym0 (a :: TyFun a1 ~> r m a1 ~> m r)
data LiftMSym1 (a6989586621679348416 :: a1 ~> r) (b :: TyFun m a1 m r)
type family LiftMSym2 (a6989586621679348416 :: a1 ~> r) (a6989586621679348417 :: m a1) :: m r
data LiftM2Sym0 (a :: TyFun a1 ~> a2 ~> r m a1 ~> m a2 ~> m r)
data LiftM2Sym1 (a6989586621679348399 :: a1 ~> a2 ~> r) (b :: TyFun m a1 m a2 ~> m r)
data LiftM2Sym2 (a6989586621679348399 :: a1 ~> a2 ~> r) (a6989586621679348400 :: m a1) (c :: TyFun m a2 m r)
type family LiftM2Sym3 (a6989586621679348399 :: a1 ~> a2 ~> r) (a6989586621679348400 :: m a1) (a6989586621679348401 :: m a2) :: m r
data LiftM3Sym0 (a :: TyFun a1 ~> a2 ~> a3 ~> r m a1 ~> m a2 ~> m a3 ~> m r)
data LiftM3Sym1 (a6989586621679348375 :: a1 ~> a2 ~> a3 ~> r) (b :: TyFun m a1 m a2 ~> m a3 ~> m r)
data LiftM3Sym2 (a6989586621679348375 :: a1 ~> a2 ~> a3 ~> r) (a6989586621679348376 :: m a1) (c :: TyFun m a2 m a3 ~> m r)
data LiftM3Sym3 (a6989586621679348375 :: a1 ~> a2 ~> a3 ~> r) (a6989586621679348376 :: m a1) (a6989586621679348377 :: m a2) (d :: TyFun m a3 m r)
type family LiftM3Sym4 (a6989586621679348375 :: a1 ~> a2 ~> a3 ~> r) (a6989586621679348376 :: m a1) (a6989586621679348377 :: m a2) (a6989586621679348378 :: m a3) :: m r
data LiftM4Sym0 (a :: TyFun a1 ~> a2 ~> a3 ~> a4 ~> r m a1 ~> m a2 ~> m a3 ~> m a4 ~> m r)
data LiftM4Sym1 (a6989586621679348344 :: a1 ~> a2 ~> a3 ~> a4 ~> r) (b :: TyFun m a1 m a2 ~> m a3 ~> m a4 ~> m r)
data LiftM4Sym2 (a6989586621679348344 :: a1 ~> a2 ~> a3 ~> a4 ~> r) (a6989586621679348345 :: m a1) (c :: TyFun m a2 m a3 ~> m a4 ~> m r)
data LiftM4Sym3 (a6989586621679348344 :: a1 ~> a2 ~> a3 ~> a4 ~> r) (a6989586621679348345 :: m a1) (a6989586621679348346 :: m a2) (d :: TyFun m a3 m a4 ~> m r)
data LiftM4Sym4 (a6989586621679348344 :: a1 ~> a2 ~> a3 ~> a4 ~> r) (a6989586621679348345 :: m a1) (a6989586621679348346 :: m a2) (a6989586621679348347 :: m a3) (e :: TyFun m a4 m r)
type family LiftM4Sym5 (a6989586621679348344 :: a1 ~> a2 ~> a3 ~> a4 ~> r) (a6989586621679348345 :: m a1) (a6989586621679348346 :: m a2) (a6989586621679348347 :: m a3) (a6989586621679348348 :: m a4) :: m r
data LiftM5Sym0 (a :: TyFun a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> r m a1 ~> m a2 ~> m a3 ~> m a4 ~> m a5 ~> m r)
data LiftM5Sym1 (a6989586621679348306 :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> r) (b :: TyFun m a1 m a2 ~> m a3 ~> m a4 ~> m a5 ~> m r)
data LiftM5Sym2 (a6989586621679348306 :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> r) (a6989586621679348307 :: m a1) (c :: TyFun m a2 m a3 ~> m a4 ~> m a5 ~> m r)
data LiftM5Sym3 (a6989586621679348306 :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> r) (a6989586621679348307 :: m a1) (a6989586621679348308 :: m a2) (d :: TyFun m a3 m a4 ~> m a5 ~> m r)
data LiftM5Sym4 (a6989586621679348306 :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> r) (a6989586621679348307 :: m a1) (a6989586621679348308 :: m a2) (a6989586621679348309 :: m a3) (e :: TyFun m a4 m a5 ~> m r)
data LiftM5Sym5 (a6989586621679348306 :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> r) (a6989586621679348307 :: m a1) (a6989586621679348308 :: m a2) (a6989586621679348309 :: m a3) (a6989586621679348310 :: m a4) (f :: TyFun m a5 m r)
type family LiftM5Sym6 (a6989586621679348306 :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> r) (a6989586621679348307 :: m a1) (a6989586621679348308 :: m a2) (a6989586621679348309 :: m a3) (a6989586621679348310 :: m a4) (a6989586621679348311 :: m a5) :: m r
data ApSym0 (a1 :: TyFun m a ~> b m a ~> m b)
data ApSym1 (a6989586621679348287 :: m a ~> b) (b1 :: TyFun m a m b)
type family ApSym2 (a6989586621679348287 :: m a ~> b) (a6989586621679348288 :: m a) :: m b
data (a1 :: TyFun a ~> b m a ~> m b) <$!>@#@$
infixl 4 <$!>@#@$
data (a6989586621681205219 :: a ~> b) <$!>@#@$$ (b1 :: TyFun m a m b)
infixl 4 <$!>@#@$$
type family (a6989586621681205219 :: a ~> b) <$!>@#@$$$ (a6989586621681205220 :: m a) :: m b
infixl 4 <$!>@#@$$$
instance Control.Monad.Singletons.Internal.PMonad Data.Ord.Down
instance Control.Monad.Singletons.Internal.PMonad ((,) a)
instance Control.Monad.Singletons.Internal.SMonad Data.Ord.Down
instance Data.Monoid.Singletons.SMonoid a => Control.Monad.Singletons.Internal.SMonad ((,) a)
instance Control.Monad.Singletons.Internal.SApplicative f => Data.Singletons.SingI1 Control.Monad.Singletons.UnlessSym1
instance Control.Monad.Singletons.Internal.SMonad m => Data.Singletons.SingI1 (Control.Monad.Singletons.<$!>@#@$$)
instance Control.Monad.Singletons.Internal.SMonad m => Data.Singletons.SingI1 (Control.Monad.Singletons.<=<@#@$$)
instance forall (m :: * -> *) b c (d :: b Data.Singletons.~> m c) a. (Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI1 ((Control.Monad.Singletons.<=<@#@$$$) d)
instance Control.Monad.Singletons.Internal.SMonad m => Data.Singletons.SingI1 (Control.Monad.Singletons.>=>@#@$$)
instance forall (m :: * -> *) a b (d :: a Data.Singletons.~> m b) c. (Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI1 ((Control.Monad.Singletons.>=>@#@$$$) d)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI1 Control.Monad.Singletons.FilterMSym1
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI1 Control.Monad.Singletons.FoldMSym1
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI1 Control.Monad.Singletons.FoldM_Sym1
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI1 Control.Monad.Singletons.MapAndUnzipMSym1
instance Control.Monad.Singletons.Internal.SMonadPlus m => Data.Singletons.SingI1 Control.Monad.Singletons.MfilterSym1
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI1 Control.Monad.Singletons.ZipWithMSym1
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI1 Control.Monad.Singletons.ZipWithM_Sym1
instance forall (m :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> m c)). (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Control.Monad.Singletons.ZipWithMSym2 d)
instance forall (m :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> m c)). (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Control.Monad.Singletons.ZipWithM_Sym2 d)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI1 Control.Monad.Singletons.ReplicateMSym1
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI1 Control.Monad.Singletons.ReplicateM_Sym1
instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> m b)). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Control.Monad.Singletons.FoldMSym2 d)
instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> m b)). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI1 (Control.Monad.Singletons.FoldM_Sym2 d)
instance Control.Monad.Singletons.Internal.SMonad m => Data.Singletons.SingI2 (Control.Monad.Singletons.<=<@#@$$$)
instance Control.Monad.Singletons.Internal.SMonad m => Data.Singletons.SingI2 (Control.Monad.Singletons.>=>@#@$$$)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI2 Control.Monad.Singletons.ZipWithMSym2
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI2 Control.Monad.Singletons.ZipWithM_Sym2
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI2 Control.Monad.Singletons.FoldMSym2
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI2 Control.Monad.Singletons.FoldM_Sym2
instance Control.Monad.Singletons.Internal.SMonad m => Data.Singletons.SingI (Control.Monad.Singletons.<$!>@#@$)
instance forall (m :: * -> *) a b (d :: a Data.Singletons.~> b). (Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI ((Control.Monad.Singletons.<$!>@#@$$) d)
instance Control.Monad.Singletons.Internal.SMonad m => Data.Singletons.SingI (Control.Monad.Singletons.<=<@#@$)
instance forall (m :: * -> *) b c (d :: b Data.Singletons.~> m c) a. (Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI ((Control.Monad.Singletons.<=<@#@$$) d)
instance forall (m :: * -> *) b c (d1 :: b Data.Singletons.~> m c) a (d2 :: a Data.Singletons.~> m b). (Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (d1 Control.Monad.Singletons.<=<@#@$$$ d2)
instance Control.Monad.Singletons.Internal.SMonad m => Data.Singletons.SingI (Control.Monad.Singletons.>=>@#@$)
instance forall (m :: * -> *) a b (d :: a Data.Singletons.~> m b) c. (Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI ((Control.Monad.Singletons.>=>@#@$$) d)
instance forall (m :: * -> *) a b (d1 :: a Data.Singletons.~> m b) c (d2 :: b Data.Singletons.~> m c). (Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (d1 Control.Monad.Singletons.>=>@#@$$$ d2)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI Control.Monad.Singletons.FilterMSym0
instance forall (m :: * -> *) a (d :: a Data.Singletons.~> m GHC.Types.Bool). (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.FilterMSym1 d)
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Control.Monad.Singletons.FoldMSym0
instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> m b)). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.FoldMSym1 d)
instance forall (t :: * -> *) (m :: * -> *) b a (d1 :: b Data.Singletons.~> (a Data.Singletons.~> m b)) (d2 :: b). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Control.Monad.Singletons.FoldMSym2 d1 d2)
instance (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m) => Data.Singletons.SingI Control.Monad.Singletons.FoldM_Sym0
instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.~> (a Data.Singletons.~> m b)). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.FoldM_Sym1 d)
instance forall (t :: * -> *) (m :: * -> *) b a (d1 :: b Data.Singletons.~> (a Data.Singletons.~> m b)) (d2 :: b). (Data.Foldable.Singletons.SFoldable t, Control.Monad.Singletons.Internal.SMonad m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Control.Monad.Singletons.FoldM_Sym2 d1 d2)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI Control.Monad.Singletons.MapAndUnzipMSym0
instance forall (m :: * -> *) a b c (d :: a Data.Singletons.~> m (b, c)). (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.MapAndUnzipMSym1 d)
instance Control.Monad.Singletons.Internal.SMonadPlus m => Data.Singletons.SingI Control.Monad.Singletons.MfilterSym0
instance forall (m :: * -> *) a (d :: a Data.Singletons.~> GHC.Types.Bool). (Control.Monad.Singletons.Internal.SMonadPlus m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.MfilterSym1 d)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI Control.Monad.Singletons.ReplicateMSym0
instance (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.ReplicateMSym1 d)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI Control.Monad.Singletons.ReplicateM_Sym0
instance (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.ReplicateM_Sym1 d)
instance Control.Monad.Singletons.Internal.SApplicative f => Data.Singletons.SingI Control.Monad.Singletons.UnlessSym0
instance (Control.Monad.Singletons.Internal.SApplicative f, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.UnlessSym1 d)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI Control.Monad.Singletons.ZipWithMSym0
instance forall (m :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> m c)). (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.ZipWithMSym1 d)
instance forall (m :: * -> *) a b c (d1 :: a Data.Singletons.~> (b Data.Singletons.~> m c)) (d2 :: [a]). (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Control.Monad.Singletons.ZipWithMSym2 d1 d2)
instance Control.Monad.Singletons.Internal.SApplicative m => Data.Singletons.SingI Control.Monad.Singletons.ZipWithM_Sym0
instance forall (m :: * -> *) a b c (d :: a Data.Singletons.~> (b Data.Singletons.~> m c)). (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d) => Data.Singletons.SingI (Control.Monad.Singletons.ZipWithM_Sym1 d)
instance forall (m :: * -> *) a b c (d1 :: a Data.Singletons.~> (b Data.Singletons.~> m c)) (d2 :: [a]). (Control.Monad.Singletons.Internal.SApplicative m, Data.Singletons.SingI d1, Data.Singletons.SingI d2) => Data.Singletons.SingI (Control.Monad.Singletons.ZipWithM_Sym2 d1 d2)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.<$!>@#@$)
instance forall a b (m :: * -> *) (a6989586621681205219 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Control.Monad.Singletons.<$!>@#@$$) a6989586621681205219)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.<=<@#@$)
instance forall b (m :: * -> *) c a (a6989586621681205338 :: b Data.Singletons.~> m c). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Control.Monad.Singletons.<=<@#@$$) a6989586621681205338)
instance forall b (m :: * -> *) c a (a6989586621681205338 :: b Data.Singletons.~> m c) (a6989586621681205339 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (a6989586621681205338 Control.Monad.Singletons.<=<@#@$$$ a6989586621681205339)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.>=>@#@$)
instance forall a (m :: * -> *) b c (a6989586621681205350 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings ((Control.Monad.Singletons.>=>@#@$$) a6989586621681205350)
instance forall a (m :: * -> *) b c (a6989586621681205350 :: a Data.Singletons.~> m b) (a6989586621681205351 :: b Data.Singletons.~> m c). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (a6989586621681205350 Control.Monad.Singletons.>=>@#@$$$ a6989586621681205351)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.FilterMSym0
instance forall a (m :: * -> *) (a6989586621681205365 :: a Data.Singletons.~> m GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.FilterMSym1 a6989586621681205365)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.FoldMSym0
instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621681205295 :: b Data.Singletons.~> (a Data.Singletons.~> m b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.FoldMSym1 a6989586621681205295)
instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621681205295 :: b Data.Singletons.~> (a Data.Singletons.~> m b)) (a6989586621681205296 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.FoldMSym2 a6989586621681205295 a6989586621681205296)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.FoldM_Sym0
instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621681205279 :: b Data.Singletons.~> (a Data.Singletons.~> m b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.FoldM_Sym1 a6989586621681205279)
instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621681205279 :: b Data.Singletons.~> (a Data.Singletons.~> m b)) (a6989586621681205280 :: b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.FoldM_Sym2 a6989586621681205279 a6989586621681205280)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Lambda_6989586621681205207Sym0
instance forall k1 k (m :: * -> *) (p6989586621681205205 :: k1 Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205207Sym1 p6989586621681205205)
instance forall k1 k (m :: * -> *) (p6989586621681205205 :: k1 Data.Singletons.~> GHC.Types.Bool) (ma6989586621681205206 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205207Sym2 p6989586621681205205 ma6989586621681205206)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Lambda_6989586621681205223Sym0
instance forall k2 k3 k (m :: * -> *) (f6989586621681205221 :: k2 Data.Singletons.~> k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205223Sym1 f6989586621681205221)
instance forall k2 k3 k (m :: * -> *) (f6989586621681205221 :: k2 Data.Singletons.~> k3) (m6989586621681205222 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205223Sym2 f6989586621681205221 m6989586621681205222)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Lambda_6989586621681205356Sym0
instance forall k1 (m :: * -> *) a b k (f6989586621681205353 :: k1 Data.Singletons.~> m a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205356Sym1 f6989586621681205353)
instance forall k1 (m :: * -> *) a b k (f6989586621681205353 :: k1 Data.Singletons.~> m a) (g6989586621681205354 :: a Data.Singletons.~> m b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205356Sym2 f6989586621681205353 g6989586621681205354)
instance forall k1 (m :: * -> *) a b k (f6989586621681205353 :: k1 Data.Singletons.~> m a) (g6989586621681205354 :: a Data.Singletons.~> m b) (a_69895866216812053446989586621681205355 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205356Sym3 f6989586621681205353 g6989586621681205354 a_69895866216812053446989586621681205355)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Lambda_6989586621681205369Sym0
instance forall k2 (f :: * -> *) k3 (p6989586621681205367 :: k2 Data.Singletons.~> f GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205369Sym1 p6989586621681205367)
instance forall k2 (f :: * -> *) k3 (p6989586621681205367 :: k2 Data.Singletons.~> f GHC.Types.Bool) (a_69895866216812053606989586621681205368 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205369Sym2 p6989586621681205367 a_69895866216812053606989586621681205368)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Lambda_6989586621681205372Sym0
instance forall k1 k2 k3 (x6989586621681205371 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205372Sym1 x6989586621681205371)
instance forall k1 k2 k3 (x6989586621681205371 :: k1) (p6989586621681205367 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205372Sym2 x6989586621681205371 p6989586621681205367)
instance forall k1 k2 k3 (x6989586621681205371 :: k1) (p6989586621681205367 :: k2) (a_69895866216812053606989586621681205368 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Lambda_6989586621681205372Sym3 x6989586621681205371 p6989586621681205367 a_69895866216812053606989586621681205368)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Let6989586621681205210Scrutinee_6989586621681204978Sym0
instance forall k1 k2 k3 (a6989586621681205209 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205210Scrutinee_6989586621681204978Sym1 a6989586621681205209)
instance forall k1 k2 k3 (a6989586621681205209 :: k1) (p6989586621681205205 :: k1 Data.Singletons.~> k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205210Scrutinee_6989586621681204978Sym2 a6989586621681205209 p6989586621681205205)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Let6989586621681205226ZSym0
instance forall k1 k2 k3 (x6989586621681205225 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205226ZSym1 x6989586621681205225)
instance forall k1 k2 k3 (x6989586621681205225 :: k1) (f6989586621681205221 :: k1 Data.Singletons.~> k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205226ZSym2 x6989586621681205225 f6989586621681205221)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Let6989586621681205246LoopSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205246LoopSym1 m2)
instance forall k1 k2 (m1 :: * -> *) a (m2 :: * -> *) (a6989586621681204886 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205246LoopSym2 m2 a6989586621681204886)
instance forall k1 k2 (m1 :: * -> *) a (m2 :: * -> *) (a6989586621681204886 :: k1) (cnt06989586621681205244 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205246LoopSym3 m2 a6989586621681204886 cnt06989586621681205244)
instance forall k1 k2 a (m6989586621681204885 :: * -> *) (a6989586621681204886 :: k1) (cnt06989586621681205244 :: k2) (f6989586621681205245 :: m6989586621681204885 a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205246LoopSym4 m6989586621681204885 a6989586621681204886 cnt06989586621681205244 f6989586621681205245)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Let6989586621681205264LoopSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205264LoopSym1 m2)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205264LoopSym2 m2 a2)
instance forall k (m1 :: * -> *) a1 (m2 :: * -> *) a2 (cnt06989586621681205262 :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205264LoopSym3 m2 a2 cnt06989586621681205262)
instance forall k (m6989586621681204887 :: * -> *) a6989586621681204888 (cnt06989586621681205262 :: k) (f6989586621681205263 :: m6989586621681204887 a6989586621681204888). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205264LoopSym4 m6989586621681204887 a6989586621681204888 cnt06989586621681205262 f6989586621681205263)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.Let6989586621681205392Scrutinee_6989586621681204980Sym0
instance forall k1 k2 k3 (u6989586621681205389 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205392Scrutinee_6989586621681204980Sym1 u6989586621681205389)
instance forall k1 k2 k3 (u6989586621681205389 :: k1) (a6989586621681205390 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.Let6989586621681205392Scrutinee_6989586621681204980Sym2 u6989586621681205389 a6989586621681205390)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.MapAndUnzipMSym0
instance forall a (m :: * -> *) b c (a6989586621681205324 :: a Data.Singletons.~> m (b, c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.MapAndUnzipMSym1 a6989586621681205324)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.MfilterSym0
instance forall a (m :: * -> *) (a6989586621681205203 :: a Data.Singletons.~> GHC.Types.Bool). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.MfilterSym1 a6989586621681205203)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.ReplicateMSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.ReplicateMSym1 a6989586621681205260)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.ReplicateM_Sym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.ReplicateM_Sym1 a6989586621681205242)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.TFHelper_6989586621681205382Sym0
instance forall a1 a2 b (a6989586621681205387 :: (a1, a2)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.TFHelper_6989586621681205382Sym1 a6989586621681205387)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.TFHelper_6989586621681205401Sym0
instance forall a b (a6989586621681205406 :: Data.Ord.Down a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.TFHelper_6989586621681205401Sym1 a6989586621681205406)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.UnlessSym0
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.UnlessSym1 a6989586621681205232)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.ZipWithMSym0
instance forall a b (m :: * -> *) c (a6989586621681205315 :: a Data.Singletons.~> (b Data.Singletons.~> m c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.ZipWithMSym1 a6989586621681205315)
instance forall a b (m :: * -> *) c (a6989586621681205315 :: a Data.Singletons.~> (b Data.Singletons.~> m c)) (a6989586621681205316 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.ZipWithMSym2 a6989586621681205315 a6989586621681205316)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Control.Monad.Singletons.ZipWithM_Sym0
instance forall a b (m :: * -> *) c (a6989586621681205305 :: a Data.Singletons.~> (b Data.Singletons.~> m c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.ZipWithM_Sym1 a6989586621681205305)
instance forall a b (m :: * -> *) c (a6989586621681205305 :: a Data.Singletons.~> (b Data.Singletons.~> m c)) (a6989586621681205306 :: [a]). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Control.Monad.Singletons.ZipWithM_Sym2 a6989586621681205305 a6989586621681205306)
-- | Mimics the Haskell Prelude, but with singleton types. Includes the
-- basic singleton definitions. Note: This is currently very incomplete!
--
-- Because many of these definitions are produced by Template Haskell, it
-- is not possible to create proper Haddock documentation. Also, please
-- excuse the apparent repeated variable names. This is due to an
-- interaction between Template Haskell and Haddock.
module Prelude.Singletons
data family TyCon :: k1 -> k2 -> unmatchable_fun
-- | Proxy is a type that holds no data, but has a phantom parameter
-- of arbitrary type (or even kind). Its use is to provide type
-- information, even though there is no value available of that type (or
-- it may be too costly to create one).
--
-- Historically, Proxy :: Proxy a is a safer
-- alternative to the undefined :: a idiom.
--
--
-- >>> Proxy :: Proxy (Void, Int -> Int)
-- Proxy
--
--
-- Proxy can even hold types of higher kinds,
--
--
-- >>> Proxy :: Proxy Either
-- Proxy
--
--
--
-- >>> Proxy :: Proxy Functor
-- Proxy
--
--
--
-- >>> Proxy :: Proxy complicatedStructure
-- Proxy
--
data Proxy (t :: k)
Proxy :: Proxy (t :: k)
class SingKind k where {
type Demote k = (r :: Type) | r -> k;
}
fromSing :: forall (a :: k). SingKind k => Sing a -> Demote k
toSing :: SingKind k => Demote k -> SomeSing k
class SingI (a :: k)
sing :: SingI a => Sing a
type family Sing :: k -> Type
pattern Sing :: forall k (a :: k). () => SingI a => Sing a
data SomeSing k
[SomeSing] :: forall k (a :: k). Sing a -> SomeSing k
type (a :: k1 ~> k2) @@ (b :: k1) = Apply a b
(@@) :: forall k1 k2 (f :: k1 ~> k2) (t :: k1). Sing f -> Sing t -> Sing (f @@ t)
pattern FromSing :: forall k (a :: k). SingKind k => Sing a -> Demote k
pattern SLambda2 :: forall {a1} {a2} {b} (f :: a1 ~> (a2 ~> b)). SingFunction2 f -> Sing f
pattern SLambda3 :: forall {a1} {a2} {a3} {b} (f :: a1 ~> (a2 ~> (a3 ~> b))). SingFunction3 f -> Sing f
pattern SLambda4 :: forall {a1} {a2} {a3} {a4} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). SingFunction4 f -> Sing f
pattern SLambda5 :: forall {a1} {a2} {a3} {a4} {a5} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). SingFunction5 f -> Sing f
pattern SLambda6 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). SingFunction6 f -> Sing f
pattern SLambda7 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). SingFunction7 f -> Sing f
pattern SLambda8 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). SingFunction8 f -> Sing f
applySing2 :: forall {a1} {a2} {b} (f :: a1 ~> (a2 ~> b)). Sing f -> SingFunction2 f
applySing3 :: forall {a1} {a2} {a3} {b} (f :: a1 ~> (a2 ~> (a3 ~> b))). Sing f -> SingFunction3 f
applySing4 :: forall {a1} {a2} {a3} {a4} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). Sing f -> SingFunction4 f
applySing5 :: forall {a1} {a2} {a3} {a4} {a5} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). Sing f -> SingFunction5 f
applySing6 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). Sing f -> SingFunction6 f
applySing7 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). Sing f -> SingFunction7 f
applySing8 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). Sing f -> SingFunction8 f
demote :: forall {k} (a :: k). (SingKind k, SingI a) => Demote k
demote1 :: forall {k1} {k2} (f :: k1 -> k2) (x :: k1). (SingKind k2, SingI1 f, SingI x) => Demote k2
demote2 :: forall {k1} {k2} {k3} (f :: k1 -> k2 -> k3) (x :: k1) (y :: k2). (SingKind k3, SingI2 f, SingI x, SingI y) => Demote k3
sing1 :: forall {k1} {k} (f :: k1 -> k) (x :: k1). (SingI1 f, SingI x) => Sing (f x)
sing2 :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2). (SingI2 f, SingI x, SingI y) => Sing (f x y)
singByProxy :: forall {k} (a :: k) proxy. SingI a => proxy a -> Sing a
singByProxy# :: forall {k} (a :: k). SingI a => Proxy# a -> Sing a
singByProxy1 :: forall {k1} {k} (f :: k1 -> k) (x :: k1) proxy. (SingI1 f, SingI x) => proxy (f x) -> Sing (f x)
singByProxy1# :: forall {k1} {k} (f :: k1 -> k) (x :: k1). (SingI1 f, SingI x) => Proxy# (f x) -> Sing (f x)
singByProxy2 :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2) proxy. (SingI2 f, SingI x, SingI y) => proxy (f x y) -> Sing (f x y)
singByProxy2# :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2). (SingI2 f, SingI x, SingI y) => Proxy# (f x y) -> Sing (f x y)
singFun1 :: forall {a1} {b} (f :: a1 ~> b). SingFunction1 f -> Sing f
singFun2 :: forall {a1} {a2} {b} (f :: a1 ~> (a2 ~> b)). SingFunction2 f -> Sing f
singFun3 :: forall {a1} {a2} {a3} {b} (f :: a1 ~> (a2 ~> (a3 ~> b))). SingFunction3 f -> Sing f
singFun4 :: forall {a1} {a2} {a3} {a4} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). SingFunction4 f -> Sing f
singFun5 :: forall {a1} {a2} {a3} {a4} {a5} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). SingFunction5 f -> Sing f
singFun6 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). SingFunction6 f -> Sing f
singFun7 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). SingFunction7 f -> Sing f
singFun8 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). SingFunction8 f -> Sing f
singInstance :: forall k (a :: k). Sing a -> SingInstance a
singThat :: forall k (a :: k). (SingKind k, SingI a) => (Demote k -> Bool) -> Maybe (Sing a)
singThat1 :: forall k1 k2 (f :: k1 -> k2) (x :: k1). (SingKind k2, SingI1 f, SingI x) => (Demote k2 -> Bool) -> Maybe (Sing (f x))
singThat2 :: forall k1 k2 k3 (f :: k1 -> k2 -> k3) (x :: k1) (y :: k2). (SingKind k3, SingI2 f, SingI x, SingI y) => (Demote k3 -> Bool) -> Maybe (Sing (f x y))
unSingFun1 :: forall {a1} {b} (f :: a1 ~> b). Sing f -> SingFunction1 f
unSingFun2 :: forall {a1} {a2} {b} (f :: a1 ~> (a2 ~> b)). Sing f -> SingFunction2 f
unSingFun3 :: forall {a1} {a2} {a3} {b} (f :: a1 ~> (a2 ~> (a3 ~> b))). Sing f -> SingFunction3 f
unSingFun4 :: forall {a1} {a2} {a3} {a4} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). Sing f -> SingFunction4 f
unSingFun5 :: forall {a1} {a2} {a3} {a4} {a5} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). Sing f -> SingFunction5 f
unSingFun6 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). Sing f -> SingFunction6 f
unSingFun7 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). Sing f -> SingFunction7 f
unSingFun8 :: forall {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {b} (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). Sing f -> SingFunction8 f
usingSingI1 :: forall {k1} {k} (f :: k1 -> k) (x :: k1) r. (SingI1 f, SingI x) => (SingI (f x) => r) -> r
usingSingI2 :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2) r. (SingI2 f, SingI x, SingI y) => (SingI (f x y) => r) -> r
withSing :: forall {k} (a :: k) b. SingI a => (Sing a -> b) -> b
withSing1 :: forall {k1} {k} (f :: k1 -> k) (x :: k1) b. (SingI1 f, SingI x) => (Sing (f x) -> b) -> b
withSing2 :: forall {k1} {k2} {k} (f :: k1 -> k2 -> k) (x :: k1) (y :: k2) b. (SingI2 f, SingI x, SingI y) => (Sing (f x y) -> b) -> b
withSingI :: forall {k} (n :: k) r. Sing n -> (SingI n => r) -> r
withSomeSing :: SingKind k => Demote k -> (forall (a :: k). () => Sing a -> r) -> r
data (a1 :: TyFun a ~> b a ~> b) @@@#@$
data (a1 :: a ~> b) @@@#@$$ (b1 :: TyFun a b)
type (f :: a ~> b) @@@#@$$$ (x :: a) = f @@ x
type family Apply (f :: k1 ~> k2) (x :: k1) :: k2
data ApplySym0 (a1 :: TyFun a ~> b a ~> b)
data ApplySym1 (a1 :: a ~> b) (b1 :: TyFun a b)
type ApplySym2 (f :: a ~> b) (x :: a) = Apply f x
type family ApplyTyCon :: k1 -> k2 -> TyFun k1 unmatchable_fun -> Type
data ApplyTyConAux1 (a :: k1 -> k2) (b :: TyFun k1 k2)
data ApplyTyConAux2 (a :: k1 -> k2 -> k3) (b :: TyFun k1 unmatchable_fun)
type family Demote k = (r :: Type) | r -> k
data DemoteSym0 (a :: TyFun Type Type)
type DemoteSym1 x = Demote x
type KindOf (a :: k) = k
data KindOfSym0 (a :: TyFun k Type)
type KindOfSym1 (x :: k) = KindOf x
newtype SLambda (f :: k1 ~> k2)
SLambda :: (forall (t :: k1). () => Sing t -> Sing (f @@ t)) -> SLambda (f :: k1 ~> k2)
[applySing] :: SLambda (f :: k1 ~> k2) -> forall (t :: k1). () => Sing t -> Sing (f @@ t)
newtype SWrappedSing (a1 :: WrappedSing a)
[SWrapSing] :: forall k (a :: k) (a1 :: WrappedSing a). Sing a -> SWrappedSing a1
type SameKind (a :: k) (b :: k) = ()
data SameKindSym0 (a :: TyFun k k ~> Constraint)
data SameKindSym1 (a :: k) (b :: TyFun k Constraint)
type SameKindSym2 (x :: k) (y :: k) = SameKind x y
type SingFunction1 (f :: a1 ~> b) = forall (t :: a1). () => Sing t -> Sing f @@ t
type SingFunction2 (f :: a1 ~> a2 ~> b) = forall (t1 :: a1) (t2 :: a2). () => Sing t1 -> Sing t2 -> Sing f @@ t1 @@ t2
type SingFunction3 (f :: a1 ~> a2 ~> a3 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing f @@ t1 @@ t2 @@ t3
type SingFunction4 (f :: a1 ~> a2 ~> a3 ~> a4 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4
type SingFunction5 (f :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4) (t5 :: a5). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5
type SingFunction6 (f :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> a6 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4) (t5 :: a5) (t6 :: a6). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing t6 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5 @@ t6
type SingFunction7 (f :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> a6 ~> a7 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4) (t5 :: a5) (t6 :: a6) (t7 :: a7). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing t6 -> Sing t7 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5 @@ t6 @@ t7
type SingFunction8 (f :: a1 ~> a2 ~> a3 ~> a4 ~> a5 ~> a6 ~> a7 ~> a8 ~> b) = forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4) (t5 :: a5) (t6 :: a6) (t7 :: a7) (t8 :: a8). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing t6 -> Sing t7 -> Sing t8 -> Sing f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5 @@ t6 @@ t7 @@ t8
class forall (x :: k1). SingI x => SingI f x => SingI1 (f :: k1 -> k2)
liftSing :: forall (x :: k1). SingI1 f => Sing x -> Sing (f x)
class forall (x :: k1) (y :: k2). (SingI x, SingI y) => SingI f x y => SingI2 (f :: k1 -> k2 -> k3)
liftSing2 :: forall (x :: k1) (y :: k2). SingI2 f => Sing x -> Sing y -> Sing (f x y)
data SingInstance (a :: k)
[SingInstance] :: forall {k} (a :: k). SingI a => SingInstance a
type TyCon1 = TyCon :: k1 -> k2 -> k1 ~> k2
type TyCon2 = TyCon :: k1 -> k2 -> k3 -> k1 ~> k2 ~> k3
type TyCon3 = TyCon :: k1 -> k2 -> k3 -> k4 -> k1 ~> k2 ~> k3 ~> k4
type TyCon4 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k1 ~> k2 ~> k3 ~> k4 ~> k5
type TyCon5 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k1 ~> k2 ~> k3 ~> k4 ~> k5 ~> k6
type TyCon6 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k1 ~> k2 ~> k3 ~> k4 ~> k5 ~> k6 ~> k7
type TyCon7 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k8 -> k1 ~> k2 ~> k3 ~> k4 ~> k5 ~> k6 ~> k7 ~> k8
type TyCon8 = TyCon :: k1 -> k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k8 -> k9 -> k1 ~> k2 ~> k3 ~> k4 ~> k5 ~> k6 ~> k7 ~> k8 ~> k9
data TyFun a b
type family UnwrapSing (ws :: WrappedSing a) :: Sing a
newtype WrappedSing (a :: k)
[WrapSing] :: forall k (a :: k). Sing a -> WrappedSing a
type a ~> b = TyFun a b -> Type
data (a :: TyFun Type Type ~> Type) ~>@#@$
data a ~>@#@$$ (b :: TyFun Type Type)
type x ~>@#@$$$ y = x ~> y
data SBool (a :: Bool)
[SFalse] :: SBool 'False
[STrue] :: SBool 'True
-- | Type-level If. If True a b ==> a; If
-- False a b ==> b
type family If (cond :: Bool) (tru :: k) (fls :: k) :: k
-- | Conditional over singletons
sIf :: forall {k} (a :: Bool) (b :: k) (c :: k). Sing a -> Sing b -> Sing c -> Sing (If a b c)
-- | Type-level "and"
type family (a :: Bool) && (b :: Bool) :: Bool
infixr 3 &&
-- | Conjunction of singletons
(%&&) :: forall (a :: Bool) (b :: Bool). Sing a -> Sing b -> Sing (a && b)
infixr 3 %&&
-- | Type-level "or"
type family (a :: Bool) || (b :: Bool) :: Bool
infixr 2 ||
-- | Disjunction of singletons
(%||) :: forall (a :: Bool) (b :: Bool). Sing a -> Sing b -> Sing (a || b)
infixr 2 %||
-- | Type-level "not". An injective type family since 4.10.0.0.
type family Not (a :: Bool) = (res :: Bool) | res -> a
-- | Negation of a singleton
sNot :: forall (a :: Bool). Sing a -> Sing (Not a)
type family Otherwise :: Bool
sOtherwise :: Sing OtherwiseSym0
data SMaybe (a1 :: Maybe a)
[SNothing] :: forall a. SMaybe ('Nothing :: Maybe a)
[SJust] :: forall a (n :: a). Sing n -> SMaybe ('Just n)
maybe_ :: b -> (a -> b) -> Maybe a -> b
type family Maybe_ (a1 :: b) (a2 :: a ~> b) (a3 :: Maybe a) :: b
sMaybe_ :: forall b a (t1 :: b) (t2 :: a ~> b) (t3 :: Maybe a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Maybe_Sym0 :: TyFun b ((a ~> b) ~> (Maybe a ~> b)) -> Type) t1) t2) t3)
data SEither (a1 :: Either a b)
[SLeft] :: forall a b (n :: a). Sing n -> SEither ('Left n :: Either a b)
[SRight] :: forall a b (n :: b). Sing n -> SEither ('Right n :: Either a b)
either_ :: (a -> c) -> (b -> c) -> Either a b -> c
type family Either_ (a1 :: a ~> c) (a2 :: b ~> c) (a3 :: Either a b) :: c
sEither_ :: forall a c b (t1 :: a ~> c) (t2 :: b ~> c) (t3 :: Either a b). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Either_Sym0 :: TyFun (a ~> c) ((b ~> c) ~> (Either a b ~> c)) -> Type) t1) t2) t3)
data SOrdering (a :: Ordering)
[SLT] :: SOrdering 'LT
[SEQ] :: SOrdering 'EQ
[SGT] :: SOrdering 'GT
-- | A value-level witness for a type-level character. This is commonly
-- referred to as a singleton type, as for each c, there
-- is a single value that inhabits the type SChar c
-- (aside from bottom).
--
-- The definition of SChar is intentionally left abstract. To
-- obtain an SChar value, use one of the following:
--
--
-- - The charSing method of KnownChar.
-- - The SChar pattern synonym.
-- - The withSomeSChar function, which creates an SChar
-- from a Char.
--
data SChar (s :: Char)
-- | (Kind) This is the kind of type-level symbols.
data Symbol
data SList (a1 :: [a])
[SNil] :: forall a. SList ('[] :: [a])
[SCons] :: forall a (n1 :: a) (n2 :: [a]). Sing n1 -> Sing n2 -> SList (n1 ': n2)
infixr 5 `SCons`
data STuple0 (a :: ())
[STuple0] :: STuple0 '()
data STuple2 (a1 :: (a, b))
[STuple2] :: forall a b (n1 :: a) (n2 :: b). Sing n1 -> Sing n2 -> STuple2 '(n1, n2)
data STuple3 (a1 :: (a, b, c))
[STuple3] :: forall a b c (n1 :: a) (n2 :: b) (n3 :: c). Sing n1 -> Sing n2 -> Sing n3 -> STuple3 '(n1, n2, n3)
data STuple4 (a1 :: (a, b, c, d))
[STuple4] :: forall a b c d (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> STuple4 '(n1, n2, n3, n4)
data STuple5 (a1 :: (a, b, c, d, e))
[STuple5] :: forall a b c d e (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> STuple5 '(n1, n2, n3, n4, n5)
data STuple6 (a1 :: (a, b, c, d, e, f))
[STuple6] :: forall a b c d e f (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e) (n6 :: f). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> Sing n6 -> STuple6 '(n1, n2, n3, n4, n5, n6)
data STuple7 (a1 :: (a, b, c, d, e, f, g))
[STuple7] :: forall a b c d e f g (n1 :: a) (n2 :: b) (n3 :: c) (n4 :: d) (n5 :: e) (n6 :: f) (n7 :: g). Sing n1 -> Sing n2 -> Sing n3 -> Sing n4 -> Sing n5 -> Sing n6 -> Sing n7 -> STuple7 '(n1, n2, n3, n4, n5, n6, n7)
type family Fst (a1 :: (a, b)) :: a
sFst :: forall a b (t :: (a, b)). Sing t -> Sing (Apply (FstSym0 :: TyFun (a, b) a -> Type) t)
type family Snd (a1 :: (a, b)) :: b
sSnd :: forall a b (t :: (a, b)). Sing t -> Sing (Apply (SndSym0 :: TyFun (a, b) b -> Type) t)
type family Curry (a1 :: (a, b) ~> c) (a2 :: a) (a3 :: b) :: c
sCurry :: forall a b c (t1 :: (a, b) ~> c) (t2 :: a) (t3 :: b). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (CurrySym0 :: TyFun ((a, b) ~> c) (a ~> (b ~> c)) -> Type) t1) t2) t3)
type family Uncurry (a1 :: a ~> b ~> c) (a2 :: (a, b)) :: c
sUncurry :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: (a, b)). Sing t1 -> Sing t2 -> Sing (Apply (Apply (UncurrySym0 :: TyFun (a ~> (b ~> c)) ((a, b) ~> c) -> Type) t1) t2)
class PEq a where {
type (arg :: a) == (arg1 :: a) :: Bool;
type (arg :: a) /= (arg1 :: a) :: Bool;
type arg :: a == arg1 :: a = Apply Apply TFHelper_6989586621679137938Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a /= arg1 :: a = Apply Apply TFHelper_6989586621679137927Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
}
infix 4 ==
infix 4 /=
class SEq a
(%==) :: forall (t1 :: a) (t2 :: a). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%==) :: forall (t1 :: a) (t2 :: a). (SEq a, Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679137938Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((==@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%/=) :: forall (t1 :: a) (t2 :: a). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%/=) :: forall (t1 :: a) (t2 :: a). (SEq a, Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679137927Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((/=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
infix 4 %==
infix 4 %/=
class POrd a where {
type Compare (arg :: a) (arg1 :: a) :: Ordering;
type (arg :: a) < (arg1 :: a) :: Bool;
type (arg :: a) <= (arg1 :: a) :: Bool;
type (arg :: a) > (arg1 :: a) :: Bool;
type (arg :: a) >= (arg1 :: a) :: Bool;
type Max (arg :: a) (arg1 :: a) :: a;
type Min (arg :: a) (arg1 :: a) :: a;
type Compare arg :: a arg1 :: a = Apply Apply Compare_6989586621679237142Sym0 :: TyFun a a ~> Ordering -> Type arg arg1;
type arg :: a < arg1 :: a = Apply Apply TFHelper_6989586621679237163Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a <= arg1 :: a = Apply Apply TFHelper_6989586621679237179Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a > arg1 :: a = Apply Apply TFHelper_6989586621679237195Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type arg :: a >= arg1 :: a = Apply Apply TFHelper_6989586621679237211Sym0 :: TyFun a a ~> Bool -> Type arg arg1;
type Max arg :: a arg1 :: a = Apply Apply Max_6989586621679237227Sym0 :: TyFun a a ~> a -> Type arg arg1;
type Min arg :: a arg1 :: a = Apply Apply Min_6989586621679237243Sym0 :: TyFun a a ~> a -> Type arg arg1;
}
infix 4 <
infix 4 <=
infix 4 >
infix 4 >=
class SEq a => SOrd a
sCompare :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2)
($dmsCompare) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2 ~ Apply (Apply (Compare_6989586621679237142Sym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (CompareSym0 :: TyFun a (a ~> Ordering) -> Type) t1) t2)
(%<) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%<) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237163Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%<=) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%<=) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237179Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%>) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%>) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237195Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
(%>=) :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
($dm%>=) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679237211Sym0 :: TyFun a (a ~> Bool) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>=@#@$) :: TyFun a (a ~> Bool) -> Type) t1) t2)
sMax :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMax) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Max_6989586621679237227Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MaxSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
sMin :: forall (t1 :: a) (t2 :: a). SOrd a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMin) :: forall (t1 :: a) (t2 :: a). (SOrd a, Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Min_6989586621679237243Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MinSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
infix 4 %<
infix 4 %<=
infix 4 %>
infix 4 %>=
class PEnum a where {
type ToEnum (arg :: Natural) :: a;
type FromEnum (arg :: a) :: Natural;
type EnumFromTo (arg :: a) (arg1 :: a) :: [a];
type EnumFromThenTo (arg :: a) (arg1 :: a) (arg2 :: a) :: [a];
type Succ arg :: a = Apply Succ_6989586621679612946Sym0 :: TyFun a a -> Type arg;
type Pred arg :: a = Apply Pred_6989586621679612959Sym0 :: TyFun a a -> Type arg;
type EnumFromTo arg :: a arg1 :: a = Apply Apply EnumFromTo_6989586621679612969Sym0 :: TyFun a a ~> [a] -> Type arg arg1;
type EnumFromThenTo arg :: a arg1 :: a arg2 :: a = Apply Apply Apply EnumFromThenTo_6989586621679612981Sym0 :: TyFun a a ~> a ~> [a] -> Type arg arg1 arg2;
}
class SEnum a
sToEnum :: forall (t :: Natural). SEnum a => Sing t -> Sing (Apply (ToEnumSym0 :: TyFun Natural a -> Type) t)
sFromEnum :: forall (t :: a). SEnum a => Sing t -> Sing (Apply (FromEnumSym0 :: TyFun a Natural -> Type) t)
sEnumFromTo :: forall (t1 :: a) (t2 :: a). SEnum a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) t1) t2)
($dmsEnumFromTo) :: forall (t1 :: a) (t2 :: a). (SEnum a, Apply (Apply (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) t1) t2 ~ Apply (Apply (EnumFromTo_6989586621679612969Sym0 :: TyFun a (a ~> [a]) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (EnumFromToSym0 :: TyFun a (a ~> [a]) -> Type) t1) t2)
sEnumFromThenTo :: forall (t1 :: a) (t2 :: a) (t3 :: a). SEnum a => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) t1) t2) t3)
($dmsEnumFromThenTo) :: forall (t1 :: a) (t2 :: a) (t3 :: a). (SEnum a, Apply (Apply (Apply (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (EnumFromThenTo_6989586621679612981Sym0 :: TyFun a (a ~> (a ~> [a])) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (EnumFromThenToSym0 :: TyFun a (a ~> (a ~> [a])) -> Type) t1) t2) t3)
class PBounded a where {
type MinBound :: a;
type MaxBound :: a;
}
class SBounded a
sMinBound :: SBounded a => Sing (MinBoundSym0 :: a)
sMaxBound :: SBounded a => Sing (MaxBoundSym0 :: a)
class PNum a where {
type (arg :: a) + (arg1 :: a) :: a;
type (arg :: a) - (arg1 :: a) :: a;
type (arg :: a) * (arg1 :: a) :: a;
type Negate (arg :: a) :: a;
type Abs (arg :: a) :: a;
type Signum (arg :: a) :: a;
type FromInteger (arg :: Natural) :: a;
type arg :: a - arg1 :: a = Apply Apply TFHelper_6989586621679590968Sym0 :: TyFun a a ~> a -> Type arg arg1;
type Negate arg :: a = Apply Negate_6989586621679590978Sym0 :: TyFun a a -> Type arg;
}
infixl 6 +
infixl 6 -
infixl 7 *
class SNum a
(%+) :: forall (t1 :: a) (t2 :: a). SNum a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((+@#@$) :: TyFun a (a ~> a) -> Type) t1) t2)
(%-) :: forall (t1 :: a) (t2 :: a). SNum a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((-@#@$) :: TyFun a (a ~> a) -> Type) t1) t2)
($dm%-) :: forall (t1 :: a) (t2 :: a). (SNum a, Apply (Apply ((-@#@$) :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679590968Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((-@#@$) :: TyFun a (a ~> a) -> Type) t1) t2)
(%*) :: forall (t1 :: a) (t2 :: a). SNum a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*@#@$) :: TyFun a (a ~> a) -> Type) t1) t2)
sNegate :: forall (t :: a). SNum a => Sing t -> Sing (Apply (NegateSym0 :: TyFun a a -> Type) t)
($dmsNegate) :: forall (t :: a). (SNum a, Apply (NegateSym0 :: TyFun a a -> Type) t ~ Apply (Negate_6989586621679590978Sym0 :: TyFun a a -> Type) t) => Sing t -> Sing (Apply (NegateSym0 :: TyFun a a -> Type) t)
sAbs :: forall (t :: a). SNum a => Sing t -> Sing (Apply (AbsSym0 :: TyFun a a -> Type) t)
sSignum :: forall (t :: a). SNum a => Sing t -> Sing (Apply (SignumSym0 :: TyFun a a -> Type) t)
sFromInteger :: forall (t :: Natural). SNum a => Sing t -> Sing (Apply (FromIntegerSym0 :: TyFun Natural a -> Type) t)
infixl 6 %+
infixl 6 %-
infixl 7 %*
type family Subtract (a1 :: a) (a2 :: a) :: a
sSubtract :: forall a (t1 :: a) (t2 :: a). SNum a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (SubtractSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
class PSemigroup a where {
type (arg :: a) <> (arg1 :: a) :: a;
type Sconcat arg :: NonEmpty a = Apply Sconcat_6989586621679207895Sym0 :: TyFun NonEmpty a a -> Type arg;
}
infixr 6 <>
class SSemigroup a
(%<>) :: forall (t1 :: a) (t2 :: a). SSemigroup a => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<>@#@$) :: TyFun a (a ~> a) -> Type) t1) t2)
infixr 6 %<>
class PMonoid a where {
type Mempty :: a;
type Mappend (arg :: a) (arg1 :: a) :: a;
type Mconcat (arg :: [a]) :: a;
type Mappend arg :: a arg1 :: a = Apply Apply Mappend_6989586621680292333Sym0 :: TyFun a a ~> a -> Type arg arg1;
type Mconcat arg :: [a] = Apply Mconcat_6989586621680292347Sym0 :: TyFun [a] a -> Type arg;
}
class SSemigroup a => SMonoid a
sMempty :: SMonoid a => Sing (MemptySym0 :: a)
sMappend :: forall (t1 :: a) (t2 :: a). SMonoid a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
($dmsMappend) :: forall (t1 :: a) (t2 :: a). (SMonoid a, Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2 ~ Apply (Apply (Mappend_6989586621680292333Sym0 :: TyFun a (a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MappendSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
sMconcat :: forall (t :: [a]). SMonoid a => Sing t -> Sing (Apply (MconcatSym0 :: TyFun [a] a -> Type) t)
($dmsMconcat) :: forall (t :: [a]). (SMonoid a, Apply (MconcatSym0 :: TyFun [a] a -> Type) t ~ Apply (Mconcat_6989586621680292347Sym0 :: TyFun [a] a -> Type) t) => Sing t -> Sing (Apply (MconcatSym0 :: TyFun [a] a -> Type) t)
class PFunctor (f :: Type -> Type) where {
type Fmap (arg :: a ~> b) (arg1 :: f a) :: f b;
type (arg :: a) <$ (arg1 :: f b) :: f a;
type arg :: a <$ arg1 :: f b = Apply Apply TFHelper_6989586621679348493Sym0 :: TyFun a f b ~> f a -> Type arg arg1;
}
infixl 4 <$
class SFunctor (f :: Type -> Type)
sFmap :: forall a b (t1 :: a ~> b) (t2 :: f a). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FmapSym0 :: TyFun (a ~> b) (f a ~> f b) -> Type) t1) t2)
(%<$) :: forall a b (t1 :: a) (t2 :: f b). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2)
($dm%<$) :: forall a b (t1 :: a) (t2 :: f b). (SFunctor f, Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348493Sym0 :: TyFun a (f b ~> f a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$@#@$) :: TyFun a (f b ~> f a) -> Type) t1) t2)
infixl 4 %<$
type family (a1 :: a ~> b) <$> (a2 :: f a) :: f b
infixl 4 <$>
(%<$>) :: forall a b (f :: Type -> Type) (t1 :: a ~> b) (t2 :: f a). SFunctor f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<$>@#@$) :: TyFun (a ~> b) (f a ~> f b) -> Type) t1) t2)
infixl 4 %<$>
class PApplicative (f :: Type -> Type) where {
type Pure (arg :: a) :: f a;
type (arg :: f a ~> b) <*> (arg1 :: f a) :: f b;
type LiftA2 (arg :: a ~> b ~> c) (arg1 :: f a) (arg2 :: f b) :: f c;
type (arg :: f a) *> (arg1 :: f b) :: f b;
type (arg :: f a) <* (arg1 :: f b) :: f a;
type arg :: f a ~> b <*> arg1 :: f a = Apply Apply TFHelper_6989586621679348533Sym0 :: TyFun f a ~> b f a ~> f b -> Type arg arg1;
type LiftA2 arg :: a ~> b ~> c arg1 :: f a arg2 :: f b = Apply Apply Apply LiftA2_6989586621679348549Sym0 :: TyFun a ~> b ~> c f a ~> f b ~> f c -> Type arg arg1 arg2;
type arg :: f a *> arg1 :: f b = Apply Apply TFHelper_6989586621679348565Sym0 :: TyFun f a f b ~> f b -> Type arg arg1;
type arg :: f a <* arg1 :: f b = Apply Apply TFHelper_6989586621679348576Sym0 :: TyFun f a f b ~> f a -> Type arg arg1;
}
infixl 4 <*>
infixl 4 *>
infixl 4 <*
class SFunctor f => SApplicative (f :: Type -> Type)
sPure :: forall a (t :: a). SApplicative f => Sing t -> Sing (Apply (PureSym0 :: TyFun a (f a) -> Type) t)
(%<*>) :: forall a b (t1 :: f (a ~> b)) (t2 :: f a). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2)
($dm%<*>) :: forall a b (t1 :: f (a ~> b)) (t2 :: f a). (SApplicative f, Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348533Sym0 :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*>@#@$) :: TyFun (f (a ~> b)) (f a ~> f b) -> Type) t1) t2)
sLiftA2 :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: f a) (t3 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3)
($dmsLiftA2) :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: f a) (t3 :: f b). (SApplicative f, Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (LiftA2_6989586621679348549Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (LiftA2Sym0 :: TyFun (a ~> (b ~> c)) (f a ~> (f b ~> f c)) -> Type) t1) t2) t3)
(%*>) :: forall a b (t1 :: f a) (t2 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2)
($dm%*>) :: forall a b (t1 :: f a) (t2 :: f b). (SApplicative f, Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348565Sym0 :: TyFun (f a) (f b ~> f b) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((*>@#@$) :: TyFun (f a) (f b ~> f b) -> Type) t1) t2)
(%<*) :: forall a b (t1 :: f a) (t2 :: f b). SApplicative f => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2)
($dm%<*) :: forall a b (t1 :: f a) (t2 :: f b). (SApplicative f, Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348576Sym0 :: TyFun (f a) (f b ~> f a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((<*@#@$) :: TyFun (f a) (f b ~> f a) -> Type) t1) t2)
infixl 4 %<*>
infixl 4 %*>
infixl 4 %<*
class PMonad (m :: Type -> Type) where {
type (arg :: m a) >>= (arg1 :: a ~> m b) :: m b;
type (arg :: m a) >> (arg1 :: m b) :: m b;
type Return (arg :: a) :: m a;
type arg :: m a >> arg1 :: m b = Apply Apply TFHelper_6989586621679348604Sym0 :: TyFun m a m b ~> m b -> Type arg arg1;
type Return arg :: a = Apply Return_6989586621679348621Sym0 :: TyFun a m a -> Type arg;
}
infixl 1 >>=
infixl 1 >>
class SApplicative m => SMonad (m :: Type -> Type)
(%>>=) :: forall a b (t1 :: m a) (t2 :: a ~> m b). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>>=@#@$) :: TyFun (m a) ((a ~> m b) ~> m b) -> Type) t1) t2)
(%>>) :: forall a b (t1 :: m a) (t2 :: m b). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>>@#@$) :: TyFun (m a) (m b ~> m b) -> Type) t1) t2)
($dm%>>) :: forall a b (t1 :: m a) (t2 :: m b). (SMonad m, Apply (Apply ((>>@#@$) :: TyFun (m a) (m b ~> m b) -> Type) t1) t2 ~ Apply (Apply (TFHelper_6989586621679348604Sym0 :: TyFun (m a) (m b ~> m b) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((>>@#@$) :: TyFun (m a) (m b ~> m b) -> Type) t1) t2)
sReturn :: forall a (t :: a). SMonad m => Sing t -> Sing (Apply (ReturnSym0 :: TyFun a (m a) -> Type) t)
($dmsReturn) :: forall a (t :: a). (SMonad m, Apply (ReturnSym0 :: TyFun a (m a) -> Type) t ~ Apply (Return_6989586621679348621Sym0 :: TyFun a (m a) -> Type) t) => Sing t -> Sing (Apply (ReturnSym0 :: TyFun a (m a) -> Type) t)
infixl 1 %>>=
infixl 1 %>>
class PMonadFail (m :: k -> Type) where {
type Fail (arg :: [Char]) :: m a;
}
class SMonad m => SMonadFail (m :: Type -> Type)
sFail :: forall a (t :: [Char]). SMonadFail m => Sing t -> Sing (Apply (FailSym0 :: TyFun [Char] (m a) -> Type) t)
type family MapM_ (a1 :: a ~> m b) (a2 :: t a) :: m ()
sMapM_ :: forall a (m :: Type -> Type) b (t1 :: Type -> Type) (t2 :: a ~> m b) (t3 :: t1 a). (SFoldable t1, SMonad m) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (MapM_Sym0 :: TyFun (a ~> m b) (t1 a ~> m ()) -> Type) t2) t3)
type family Sequence_ (a1 :: t m a) :: m ()
sSequence_ :: forall (t1 :: Type -> Type) (m :: Type -> Type) a (t2 :: t1 (m a)). (SFoldable t1, SMonad m) => Sing t2 -> Sing (Apply (Sequence_Sym0 :: TyFun (t1 (m a)) (m ()) -> Type) t2)
type family (a1 :: a ~> m b) =<< (a2 :: m a) :: m b
infixr 1 =<<
(%=<<) :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: m a). SMonad m => Sing t1 -> Sing t2 -> Sing (Apply (Apply ((=<<@#@$) :: TyFun (a ~> m b) (m a ~> m b) -> Type) t1) t2)
infixr 1 %=<<
class PFoldable (t :: Type -> Type) where {
type FoldMap (arg :: a ~> m) (arg1 :: t a) :: m;
type Foldr (arg :: a ~> b ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldl (arg :: b ~> a ~> b) (arg1 :: b) (arg2 :: t a) :: b;
type Foldr1 (arg :: a ~> a ~> a) (arg1 :: t a) :: a;
type Foldl1 (arg :: a ~> a ~> a) (arg1 :: t a) :: a;
type Elem (arg :: a) (arg1 :: t a) :: Bool;
type Maximum (arg :: t a) :: a;
type Minimum (arg :: t a) :: a;
type Sum (arg :: t a) :: a;
type Product (arg :: t a) :: a;
type Fold arg :: t m = Apply Fold_6989586621680390454Sym0 :: TyFun t m m -> Type arg;
type FoldMap arg :: a ~> m arg1 :: t a = Apply Apply FoldMap_6989586621680390464Sym0 :: TyFun a ~> m t a ~> m -> Type arg arg1;
type Foldr arg :: a ~> b ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldr_6989586621680390478Sym0 :: TyFun a ~> b ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldr' arg :: a ~> b ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldr'_6989586621680390493Sym0 :: TyFun a ~> b ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldl arg :: b ~> a ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldl_6989586621680390516Sym0 :: TyFun b ~> a ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldl' arg :: b ~> a ~> b arg1 :: b arg2 :: t a = Apply Apply Apply Foldl'_6989586621680390531Sym0 :: TyFun b ~> a ~> b b ~> t a ~> b -> Type arg arg1 arg2;
type Foldr1 arg :: a ~> a ~> a arg1 :: t a = Apply Apply Foldr1_6989586621680390553Sym0 :: TyFun a ~> a ~> a t a ~> a -> Type arg arg1;
type Foldl1 arg :: a ~> a ~> a arg1 :: t a = Apply Apply Foldl1_6989586621680390574Sym0 :: TyFun a ~> a ~> a t a ~> a -> Type arg arg1;
type ToList arg :: t a = Apply ToList_6989586621680390594Sym0 :: TyFun t a [a] -> Type arg;
type Null arg :: t a = Apply Null_6989586621680390603Sym0 :: TyFun t a Bool -> Type arg;
type Length arg :: t a = Apply Length_6989586621680390620Sym0 :: TyFun t a Natural -> Type arg;
type Elem arg :: a arg1 :: t a = Apply Apply Elem_6989586621680390639Sym0 :: TyFun a t a ~> Bool -> Type arg arg1;
type Maximum arg :: t a = Apply Maximum_6989586621680390653Sym0 :: TyFun t a a -> Type arg;
type Minimum arg :: t a = Apply Minimum_6989586621680390668Sym0 :: TyFun t a a -> Type arg;
type Sum arg :: t a = Apply Sum_6989586621680390683Sym0 :: TyFun t a a -> Type arg;
type Product arg :: t a = Apply Product_6989586621680390692Sym0 :: TyFun t a a -> Type arg;
}
class SFoldable (t :: Type -> Type)
sFoldMap :: forall a m (t1 :: a ~> m) (t2 :: t a). (SFoldable t, SMonoid m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2)
($dmsFoldMap) :: forall a m (t1 :: a ~> m) (t2 :: t a). (SFoldable t, Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2 ~ Apply (Apply (FoldMap_6989586621680390464Sym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2, SMonoid m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (FoldMapSym0 :: TyFun (a ~> m) (t a ~> m) -> Type) t1) t2)
sFoldr :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldr) :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldr_6989586621680390478Sym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldrSym0 :: TyFun (a ~> (b ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldl :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
($dmsFoldl) :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: t a). (SFoldable t, Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (Foldl_6989586621680390516Sym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FoldlSym0 :: TyFun (b ~> (a ~> b)) (b ~> (t a ~> b)) -> Type) t1) t2) t3)
sFoldr1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
($dmsFoldr1) :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). (SFoldable t, Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2 ~ Apply (Apply (Foldr1_6989586621680390553Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldr1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
sFoldl1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). SFoldable t => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
($dmsFoldl1) :: forall a (t1 :: a ~> (a ~> a)) (t2 :: t a). (SFoldable t, Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2 ~ Apply (Apply (Foldl1_6989586621680390574Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (Foldl1Sym0 :: TyFun (a ~> (a ~> a)) (t a ~> a) -> Type) t1) t2)
sElem :: forall a (t1 :: a) (t2 :: t a). (SFoldable t, SEq a) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2)
($dmsElem) :: forall a (t1 :: a) (t2 :: t a). (SFoldable t, Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2 ~ Apply (Apply (Elem_6989586621680390639Sym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2, SEq a) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ElemSym0 :: TyFun a (t a ~> Bool) -> Type) t1) t2)
sMaximum :: forall a (t1 :: t a). (SFoldable t, SOrd a) => Sing t1 -> Sing (Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1)
($dmsMaximum) :: forall a (t1 :: t a). (SFoldable t, Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Maximum_6989586621680390653Sym0 :: TyFun (t a) a -> Type) t1, SOrd a) => Sing t1 -> Sing (Apply (MaximumSym0 :: TyFun (t a) a -> Type) t1)
sMinimum :: forall a (t1 :: t a). (SFoldable t, SOrd a) => Sing t1 -> Sing (Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1)
($dmsMinimum) :: forall a (t1 :: t a). (SFoldable t, Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Minimum_6989586621680390668Sym0 :: TyFun (t a) a -> Type) t1, SOrd a) => Sing t1 -> Sing (Apply (MinimumSym0 :: TyFun (t a) a -> Type) t1)
sSum :: forall a (t1 :: t a). (SFoldable t, SNum a) => Sing t1 -> Sing (Apply (SumSym0 :: TyFun (t a) a -> Type) t1)
($dmsSum) :: forall a (t1 :: t a). (SFoldable t, Apply (SumSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Sum_6989586621680390683Sym0 :: TyFun (t a) a -> Type) t1, SNum a) => Sing t1 -> Sing (Apply (SumSym0 :: TyFun (t a) a -> Type) t1)
sProduct :: forall a (t1 :: t a). (SFoldable t, SNum a) => Sing t1 -> Sing (Apply (ProductSym0 :: TyFun (t a) a -> Type) t1)
($dmsProduct) :: forall a (t1 :: t a). (SFoldable t, Apply (ProductSym0 :: TyFun (t a) a -> Type) t1 ~ Apply (Product_6989586621680390692Sym0 :: TyFun (t a) a -> Type) t1, SNum a) => Sing t1 -> Sing (Apply (ProductSym0 :: TyFun (t a) a -> Type) t1)
class PTraversable (t :: Type -> Type) where {
type Traverse (arg :: a ~> f b) (arg1 :: t a) :: f t b;
type SequenceA (arg :: t f a) :: f t a;
type MapM (arg :: a ~> m b) (arg1 :: t a) :: m t b;
type Sequence (arg :: t m a) :: m t a;
type Traverse arg :: a ~> f b arg1 :: t a = Apply Apply Traverse_6989586621680734001Sym0 :: TyFun a ~> f b t a ~> f t b -> Type arg arg1;
type SequenceA arg :: t f a = Apply SequenceA_6989586621680734013Sym0 :: TyFun t f a f t a -> Type arg;
type MapM arg :: a ~> m b arg1 :: t a = Apply Apply MapM_6989586621680734023Sym0 :: TyFun a ~> m b t a ~> m t b -> Type arg arg1;
type Sequence arg :: t m a = Apply Sequence_6989586621680734037Sym0 :: TyFun t m a m t a -> Type arg;
}
class (SFunctor t, SFoldable t) => STraversable (t :: Type -> Type)
sTraverse :: forall a (f :: Type -> Type) b (t1 :: a ~> f b) (t2 :: t a). (STraversable t, SApplicative f) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2)
($dmsTraverse) :: forall a (f :: Type -> Type) b (t1 :: a ~> f b) (t2 :: t a). (STraversable t, Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2 ~ Apply (Apply (Traverse_6989586621680734001Sym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2, SApplicative f) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (TraverseSym0 :: TyFun (a ~> f b) (t a ~> f (t b)) -> Type) t1) t2)
sSequenceA :: forall (f :: Type -> Type) a (t1 :: t (f a)). (STraversable t, SApplicative f) => Sing t1 -> Sing (Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1)
($dmsSequenceA) :: forall (f :: Type -> Type) a (t1 :: t (f a)). (STraversable t, Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1 ~ Apply (SequenceA_6989586621680734013Sym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1, SApplicative f) => Sing t1 -> Sing (Apply (SequenceASym0 :: TyFun (t (f a)) (f (t a)) -> Type) t1)
sMapM :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: t a). (STraversable t, SMonad m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2)
($dmsMapM) :: forall a (m :: Type -> Type) b (t1 :: a ~> m b) (t2 :: t a). (STraversable t, Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2 ~ Apply (Apply (MapM_6989586621680734023Sym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2, SMonad m) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapMSym0 :: TyFun (a ~> m b) (t a ~> m (t b)) -> Type) t1) t2)
sSequence :: forall (m :: Type -> Type) a (t1 :: t (m a)). (STraversable t, SMonad m) => Sing t1 -> Sing (Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1)
($dmsSequence) :: forall (m :: Type -> Type) a (t1 :: t (m a)). (STraversable t, Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1 ~ Apply (Sequence_6989586621680734037Sym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1, SMonad m) => Sing t1 -> Sing (Apply (SequenceSym0 :: TyFun (t (m a)) (m (t a)) -> Type) t1)
type family Id (a1 :: a) :: a
sId :: forall a (t :: a). Sing t -> Sing (Apply (IdSym0 :: TyFun a a -> Type) t)
type family Const (a1 :: a) (a2 :: b) :: a
sConst :: forall a b (t1 :: a) (t2 :: b). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ConstSym0 :: TyFun a (b ~> a) -> Type) t1) t2)
type family ( (a1 :: b ~> c) . (a2 :: a ~> b) ) (a3 :: a) :: c
infixr 9 .
(%.) :: forall b c a (t1 :: b ~> c) (t2 :: a ~> b) (t3 :: a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply ((.@#@$) :: TyFun (b ~> c) ((a ~> b) ~> (a ~> c)) -> Type) t1) t2) t3)
infixr 9 %.
type family Flip (a1 :: a ~> b ~> c) (a2 :: b) (a3 :: a) :: c
sFlip :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: b) (t3 :: a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (FlipSym0 :: TyFun (a ~> (b ~> c)) (b ~> (a ~> c)) -> Type) t1) t2) t3)
type family (a1 :: a ~> b) $ (a2 :: a) :: b
infixr 0 $
(%$) :: forall a b (t1 :: a ~> b) (t2 :: a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (($@#@$) :: TyFun (a ~> b) (a ~> b) -> Type) t1) t2)
infixr 0 %$
type family Until (a1 :: a ~> Bool) (a2 :: a ~> a) (a3 :: a) :: a
sUntil :: forall a (t1 :: a ~> Bool) (t2 :: a ~> a) (t3 :: a). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (UntilSym0 :: TyFun (a ~> Bool) ((a ~> a) ~> (a ~> a)) -> Type) t1) t2) t3)
type family AsTypeOf (a1 :: a) (a2 :: a) :: a
sAsTypeOf :: forall a (t1 :: a) (t2 :: a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (AsTypeOfSym0 :: TyFun a (a ~> a) -> Type) t1) t2)
-- | A promoted version of error. This implements Error as a
-- stuck type family with a Symbol argument. Depending on your
-- needs, you might also consider the following alternatives:
--
--
-- - Data.Singletons.Base.PolyError provides PolyError,
-- which generalizes the argument to be kind-polymorphic. This allows
-- passing additional information to the error besides raw
-- Symbols.
-- - Data.Singletons.Base.TypeError provides TypeError,
-- a slightly modified version of the custom type error machinery found
-- in GHC.TypeLits. This allows emitting error messages as
-- compiler errors rather than as stuck type families.
--
type family Error (str :: Symbol) :: a
-- | The singleton for error.
sError :: forall (str :: Symbol) a. HasCallStack => Sing str -> a
-- | The promotion of errorWithoutStackTrace.
type family ErrorWithoutStackTrace (str :: Symbol) :: a
-- | The singleton for errorWithoutStackTrace.
sErrorWithoutStackTrace :: forall (str :: Symbol) a. Sing str -> a
-- | The promotion of undefined.
type family Undefined :: a
-- | The singleton for undefined.
sUndefined :: HasCallStack => a
type family Seq (a1 :: a) (a2 :: b) :: b
infixr 0 `Seq`
sSeq :: forall a b (t1 :: a) (t2 :: b). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SeqSym0 :: TyFun a (b ~> b) -> Type) t1) t2)
infixr 0 `sSeq`
type family (a1 :: a ~> b) $! (a2 :: a) :: b
infixr 0 $!
(%$!) :: forall a b (t1 :: a ~> b) (t2 :: a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (($!@#@$) :: TyFun (a ~> b) (a ~> b) -> Type) t1) t2)
infixr 0 %$!
type family Map (a1 :: a ~> b) (a2 :: [a]) :: [b]
sMap :: forall a b (t1 :: a ~> b) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (MapSym0 :: TyFun (a ~> b) ([a] ~> [b]) -> Type) t1) t2)
type family (a1 :: [a]) ++ (a2 :: [a]) :: [a]
infixr 5 ++
(%++) :: forall a (t1 :: [a]) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((++@#@$) :: TyFun [a] ([a] ~> [a]) -> Type) t1) t2)
infixr 5 %++
type family Filter (a1 :: a ~> Bool) (a2 :: [a]) :: [a]
sFilter :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (FilterSym0 :: TyFun (a ~> Bool) ([a] ~> [a]) -> Type) t1) t2)
type family Head (a1 :: [a]) :: a
sHead :: forall a (t :: [a]). Sing t -> Sing (Apply (HeadSym0 :: TyFun [a] a -> Type) t)
type family Last (a1 :: [a]) :: a
sLast :: forall a (t :: [a]). Sing t -> Sing (Apply (LastSym0 :: TyFun [a] a -> Type) t)
type family Tail (a1 :: [a]) :: [a]
sTail :: forall a (t :: [a]). Sing t -> Sing (Apply (TailSym0 :: TyFun [a] [a] -> Type) t)
type family Init (a1 :: [a]) :: [a]
sInit :: forall a (t :: [a]). Sing t -> Sing (Apply (InitSym0 :: TyFun [a] [a] -> Type) t)
type family (a1 :: [a]) !! (a2 :: Natural) :: a
infixl 9 !!
(%!!) :: forall a (t1 :: [a]) (t2 :: Natural). Sing t1 -> Sing t2 -> Sing (Apply (Apply ((!!@#@$) :: TyFun [a] (Natural ~> a) -> Type) t1) t2)
infixl 9 %!!
type family Null (arg :: t a) :: Bool
sNull :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (NullSym0 :: TyFun (t a) Bool -> Type) t1)
type family Length (arg :: t a) :: Natural
sLength :: forall a (t1 :: t a). SFoldable t => Sing t1 -> Sing (Apply (LengthSym0 :: TyFun (t a) Natural -> Type) t1)
type family Reverse (a1 :: [a]) :: [a]
sReverse :: forall a (t :: [a]). Sing t -> Sing (Apply (ReverseSym0 :: TyFun [a] [a] -> Type) t)
type family And (a :: t Bool) :: Bool
sAnd :: forall (t1 :: Type -> Type) (t2 :: t1 Bool). SFoldable t1 => Sing t2 -> Sing (Apply (AndSym0 :: TyFun (t1 Bool) Bool -> Type) t2)
type family Or (a :: t Bool) :: Bool
sOr :: forall (t1 :: Type -> Type) (t2 :: t1 Bool). SFoldable t1 => Sing t2 -> Sing (Apply (OrSym0 :: TyFun (t1 Bool) Bool -> Type) t2)
type family Any (a1 :: a ~> Bool) (a2 :: t a) :: Bool
sAny :: forall a (t1 :: Type -> Type) (t2 :: a ~> Bool) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (AnySym0 :: TyFun (a ~> Bool) (t1 a ~> Bool) -> Type) t2) t3)
type family All (a1 :: a ~> Bool) (a2 :: t a) :: Bool
sAll :: forall a (t1 :: Type -> Type) (t2 :: a ~> Bool) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (AllSym0 :: TyFun (a ~> Bool) (t1 a ~> Bool) -> Type) t2) t3)
type family Concat (a1 :: t [a]) :: [a]
sConcat :: forall (t1 :: Type -> Type) a (t2 :: t1 [a]). SFoldable t1 => Sing t2 -> Sing (Apply (ConcatSym0 :: TyFun (t1 [a]) [a] -> Type) t2)
type family ConcatMap (a1 :: a ~> [b]) (a2 :: t a) :: [b]
sConcatMap :: forall a b (t1 :: Type -> Type) (t2 :: a ~> [b]) (t3 :: t1 a). SFoldable t1 => Sing t2 -> Sing t3 -> Sing (Apply (Apply (ConcatMapSym0 :: TyFun (a ~> [b]) (t1 a ~> [b]) -> Type) t2) t3)
type family Scanl (a1 :: b ~> a ~> b) (a2 :: b) (a3 :: [a]) :: [b]
sScanl :: forall b a (t1 :: b ~> (a ~> b)) (t2 :: b) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ScanlSym0 :: TyFun (b ~> (a ~> b)) (b ~> ([a] ~> [b])) -> Type) t1) t2) t3)
type family Scanl1 (a1 :: a ~> a ~> a) (a2 :: [a]) :: [a]
sScanl1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Scanl1Sym0 :: TyFun (a ~> (a ~> a)) ([a] ~> [a]) -> Type) t1) t2)
type family Scanr (a1 :: a ~> b ~> b) (a2 :: b) (a3 :: [a]) :: [b]
sScanr :: forall a b (t1 :: a ~> (b ~> b)) (t2 :: b) (t3 :: [a]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ScanrSym0 :: TyFun (a ~> (b ~> b)) (b ~> ([a] ~> [b])) -> Type) t1) t2) t3)
type family Scanr1 (a1 :: a ~> a ~> a) (a2 :: [a]) :: [a]
sScanr1 :: forall a (t1 :: a ~> (a ~> a)) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (Scanr1Sym0 :: TyFun (a ~> (a ~> a)) ([a] ~> [a]) -> Type) t1) t2)
type family Replicate (a1 :: Natural) (a2 :: a) :: [a]
sReplicate :: forall a (t1 :: Natural) (t2 :: a). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ReplicateSym0 :: TyFun Natural (a ~> [a]) -> Type) t1) t2)
type family Take (a1 :: Natural) (a2 :: [a]) :: [a]
sTake :: forall a (t1 :: Natural) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (TakeSym0 :: TyFun Natural ([a] ~> [a]) -> Type) t1) t2)
type family Drop (a1 :: Natural) (a2 :: [a]) :: [a]
sDrop :: forall a (t1 :: Natural) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (DropSym0 :: TyFun Natural ([a] ~> [a]) -> Type) t1) t2)
type family TakeWhile (a1 :: a ~> Bool) (a2 :: [a]) :: [a]
sTakeWhile :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (TakeWhileSym0 :: TyFun (a ~> Bool) ([a] ~> [a]) -> Type) t1) t2)
type family DropWhile (a1 :: a ~> Bool) (a2 :: [a]) :: [a]
sDropWhile :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (DropWhileSym0 :: TyFun (a ~> Bool) ([a] ~> [a]) -> Type) t1) t2)
type family Span (a1 :: a ~> Bool) (a2 :: [a]) :: ([a], [a])
sSpan :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SpanSym0 :: TyFun (a ~> Bool) ([a] ~> ([a], [a])) -> Type) t1) t2)
type family Break (a1 :: a ~> Bool) (a2 :: [a]) :: ([a], [a])
sBreak :: forall a (t1 :: a ~> Bool) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (BreakSym0 :: TyFun (a ~> Bool) ([a] ~> ([a], [a])) -> Type) t1) t2)
type family SplitAt (a1 :: Natural) (a2 :: [a]) :: ([a], [a])
sSplitAt :: forall a (t1 :: Natural) (t2 :: [a]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (SplitAtSym0 :: TyFun Natural ([a] ~> ([a], [a])) -> Type) t1) t2)
type family NotElem (a1 :: a) (a2 :: t a) :: Bool
sNotElem :: forall a (t1 :: Type -> Type) (t2 :: a) (t3 :: t1 a). (SFoldable t1, SEq a) => Sing t2 -> Sing t3 -> Sing (Apply (Apply (NotElemSym0 :: TyFun a (t1 a ~> Bool) -> Type) t2) t3)
type family Lookup (a1 :: a) (a2 :: [(a, b)]) :: Maybe b
sLookup :: forall a b (t1 :: a) (t2 :: [(a, b)]). SEq a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (LookupSym0 :: TyFun a ([(a, b)] ~> Maybe b) -> Type) t1) t2)
type family Zip (a1 :: [a]) (a2 :: [b]) :: [(a, b)]
sZip :: forall a b (t1 :: [a]) (t2 :: [b]). Sing t1 -> Sing t2 -> Sing (Apply (Apply (ZipSym0 :: TyFun [a] ([b] ~> [(a, b)]) -> Type) t1) t2)
type family Zip3 (a1 :: [a]) (a2 :: [b]) (a3 :: [c]) :: [(a, b, c)]
sZip3 :: forall a b c (t1 :: [a]) (t2 :: [b]) (t3 :: [c]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (Zip3Sym0 :: TyFun [a] ([b] ~> ([c] ~> [(a, b, c)])) -> Type) t1) t2) t3)
type family ZipWith (a1 :: a ~> b ~> c) (a2 :: [a]) (a3 :: [b]) :: [c]
sZipWith :: forall a b c (t1 :: a ~> (b ~> c)) (t2 :: [a]) (t3 :: [b]). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ZipWithSym0 :: TyFun (a ~> (b ~> c)) ([a] ~> ([b] ~> [c])) -> Type) t1) t2) t3)
type family ZipWith3 (a1 :: a ~> b ~> c ~> d) (a2 :: [a]) (a3 :: [b]) (a4 :: [c]) :: [d]
sZipWith3 :: forall a b c d (t1 :: a ~> (b ~> (c ~> d))) (t2 :: [a]) (t3 :: [b]) (t4 :: [c]). Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing (Apply (Apply (Apply (Apply (ZipWith3Sym0 :: TyFun (a ~> (b ~> (c ~> d))) ([a] ~> ([b] ~> ([c] ~> [d]))) -> Type) t1) t2) t3) t4)
type family Unzip (a1 :: [(a, b)]) :: ([a], [b])
sUnzip :: forall a b (t :: [(a, b)]). Sing t -> Sing (Apply (UnzipSym0 :: TyFun [(a, b)] ([a], [b]) -> Type) t)
type family Unzip3 (a1 :: [(a, b, c)]) :: ([a], [b], [c])
sUnzip3 :: forall a b c (t :: [(a, b, c)]). Sing t -> Sing (Apply (Unzip3Sym0 :: TyFun [(a, b, c)] ([a], [b], [c]) -> Type) t)
type family Unlines (a :: [Symbol]) :: Symbol
sUnlines :: forall (t :: [Symbol]). Sing t -> Sing (Apply UnlinesSym0 t)
type family Unwords (a :: [Symbol]) :: Symbol
sUnwords :: forall (t :: [Symbol]). Sing t -> Sing (Apply UnwordsSym0 t)
-- | The shows functions return a function that prepends the
-- output Symbol to an existing Symbol. This allows
-- constant-time concatenation of results using function composition.
type SymbolS = Symbol -> Symbol
-- | show, but with an extra underscore so that its promoted
-- counterpart (Show_) will not clash with the Show class.
show_ :: Show a => a -> String
class PShow a where {
type ShowsPrec (arg :: Natural) (arg1 :: a) (arg2 :: Symbol) :: Symbol;
type Show_ (arg :: a) :: Symbol;
type ShowList (arg :: [a]) (arg1 :: Symbol) :: Symbol;
type ShowsPrec arg :: Natural arg1 :: a arg2 :: Symbol = Apply Apply Apply ShowsPrec_6989586621680208728Sym0 :: TyFun Natural a ~> Symbol ~> Symbol -> Type arg arg1 arg2;
type Show_ arg :: a = Apply Show__6989586621680208740Sym0 :: TyFun a Symbol -> Type arg;
type ShowList arg :: [a] arg1 :: Symbol = Apply Apply ShowList_6989586621680208748Sym0 :: TyFun [a] Symbol ~> Symbol -> Type arg arg1;
}
class SShow a
sShowsPrec :: forall (t1 :: Natural) (t2 :: a) (t3 :: Symbol). SShow a => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3)
($dmsShowsPrec) :: forall (t1 :: Natural) (t2 :: a) (t3 :: Symbol). (SShow a, Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3 ~ Apply (Apply (Apply (ShowsPrec_6989586621680208728Sym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3) => Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply (ShowsPrecSym0 :: TyFun Natural (a ~> (Symbol ~> Symbol)) -> Type) t1) t2) t3)
sShow_ :: forall (t :: a). SShow a => Sing t -> Sing (Apply (Show_Sym0 :: TyFun a Symbol -> Type) t)
($dmsShow_) :: forall (t :: a). (SShow a, Apply (Show_Sym0 :: TyFun a Symbol -> Type) t ~ Apply (Show__6989586621680208740Sym0 :: TyFun a Symbol -> Type) t) => Sing t -> Sing (Apply (Show_Sym0 :: TyFun a Symbol -> Type) t)
sShowList :: forall (t1 :: [a]) (t2 :: Symbol). SShow a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2)
($dmsShowList) :: forall (t1 :: [a]) (t2 :: Symbol). (SShow a, Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2 ~ Apply (Apply (ShowList_6989586621680208748Sym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2) => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowListSym0 :: TyFun [a] (Symbol ~> Symbol) -> Type) t1) t2)
type family Shows (a1 :: a) (a2 :: Symbol) :: Symbol
sShows :: forall a (t1 :: a) (t2 :: Symbol). SShow a => Sing t1 -> Sing t2 -> Sing (Apply (Apply (ShowsSym0 :: TyFun a (Symbol ~> Symbol) -> Type) t1) t2)
type family ShowChar (a :: Char) (a1 :: Symbol) :: Symbol
sShowChar :: forall (t1 :: Char) (t2 :: Symbol). Sing t1 -> Sing t2 -> Sing (Apply (Apply ShowCharSym0 t1) t2)
type family ShowString (a :: Symbol) (a1 :: Symbol) :: Symbol
sShowString :: forall (t1 :: Symbol) (t2 :: Symbol). Sing t1 -> Sing t2 -> Sing (Apply (Apply ShowStringSym0 t1) t2)
type family ShowParen (a :: Bool) (a1 :: Symbol ~> Symbol) (a2 :: Symbol) :: Symbol
sShowParen :: forall (t1 :: Bool) (t2 :: Symbol ~> Symbol) (t3 :: Symbol). Sing t1 -> Sing t2 -> Sing t3 -> Sing (Apply (Apply (Apply ShowParenSym0 t1) t2) t3)
type family FalseSym0 :: Bool
type family TrueSym0 :: Bool
data IfSym0 (a :: TyFun Bool k ~> k ~> k)
data IfSym1 (a6989586621679133031 :: Bool) (b :: TyFun k k ~> k)
data IfSym2 (a6989586621679133031 :: Bool) (a6989586621679133032 :: k) (c :: TyFun k k)
type family IfSym3 (a6989586621679133031 :: Bool) (a6989586621679133032 :: k) (a6989586621679133033 :: k) :: k
data (a :: TyFun Bool Bool ~> Bool) &&@#@$
infixr 3 &&@#@$
data (a6989586621679132115 :: Bool) &&@#@$$ (b :: TyFun Bool Bool)
infixr 3 &&@#@$$
type family (a6989586621679132115 :: Bool) &&@#@$$$ (a6989586621679132116 :: Bool) :: Bool
infixr 3 &&@#@$$$
data (a :: TyFun Bool Bool ~> Bool) ||@#@$
infixr 2 ||@#@$
data (a6989586621679132472 :: Bool) ||@#@$$ (b :: TyFun Bool Bool)
infixr 2 ||@#@$$
type family (a6989586621679132472 :: Bool) ||@#@$$$ (a6989586621679132473 :: Bool) :: Bool
infixr 2 ||@#@$$$
data NotSym0 (a :: TyFun Bool Bool)
type family NotSym1 (a6989586621679132813 :: Bool) :: Bool
type family OtherwiseSym0 :: Bool
type family NothingSym0 :: Maybe a
data JustSym0 (a1 :: TyFun a Maybe a)
type family JustSym1 (a6989586621679046214 :: a) :: Maybe a
data Maybe_Sym0 (a1 :: TyFun b a ~> b ~> Maybe a ~> b)
data Maybe_Sym1 (a6989586621679577734 :: b) (b1 :: TyFun a ~> b Maybe a ~> b)
data Maybe_Sym2 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (c :: TyFun Maybe a b)
type family Maybe_Sym3 (a6989586621679577734 :: b) (a6989586621679577735 :: a ~> b) (a6989586621679577736 :: Maybe a) :: b
data LeftSym0 (a1 :: TyFun a Either a b)
type family LeftSym1 (a6989586621679046286 :: a) :: Either a b
data RightSym0 (a1 :: TyFun b Either a b)
type family RightSym1 (a6989586621679046288 :: b) :: Either a b
data Either_Sym0 (a1 :: TyFun a ~> c b ~> c ~> Either a b ~> c)
data Either_Sym1 (a6989586621679334944 :: a ~> c) (b1 :: TyFun b ~> c Either a b ~> c)
data Either_Sym2 (a6989586621679334944 :: a ~> c) (a6989586621679334945 :: b ~> c) (c1 :: TyFun Either a b c)
type family Either_Sym3 (a6989586621679334944 :: a ~> c) (a6989586621679334945 :: b ~> c) (a6989586621679334946 :: Either a b) :: c
type family LTSym0 :: Ordering
type family EQSym0 :: Ordering
type family GTSym0 :: Ordering
data (a1 :: TyFun a [a] ~> [a]) :@#@$
infixr 5 :@#@$
data (a6989586621679046238 :: a) :@#@$$ (b :: TyFun [a] [a])
infixr 5 :@#@$$
type family (a6989586621679046238 :: a) :@#@$$$ (a6989586621679046239 :: [a]) :: [a]
infixr 5 :@#@$$$
type family NilSym0 :: [a]
type family Tuple0Sym0 :: ()
data Tuple2Sym0 (a1 :: TyFun a b ~> (a, b))
data Tuple2Sym1 (a6989586621679046729 :: a) (b1 :: TyFun b (a, b))
type family Tuple2Sym2 (a6989586621679046729 :: a) (a6989586621679046730 :: b) :: (a, b)
data Tuple3Sym0 (a1 :: TyFun a b ~> c ~> (a, b, c))
data Tuple3Sym1 (a6989586621679046760 :: a) (b1 :: TyFun b c ~> (a, b, c))
data Tuple3Sym2 (a6989586621679046760 :: a) (a6989586621679046761 :: b) (c1 :: TyFun c (a, b, c))
type family Tuple3Sym3 (a6989586621679046760 :: a) (a6989586621679046761 :: b) (a6989586621679046762 :: c) :: (a, b, c)
data Tuple4Sym0 (a1 :: TyFun a b ~> c ~> d ~> (a, b, c, d))
data Tuple4Sym1 (a6989586621679046809 :: a) (b1 :: TyFun b c ~> d ~> (a, b, c, d))
data Tuple4Sym2 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (c1 :: TyFun c d ~> (a, b, c, d))
data Tuple4Sym3 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (a6989586621679046811 :: c) (d1 :: TyFun d (a, b, c, d))
type family Tuple4Sym4 (a6989586621679046809 :: a) (a6989586621679046810 :: b) (a6989586621679046811 :: c) (a6989586621679046812 :: d) :: (a, b, c, d)
data Tuple5Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> (a, b, c, d, e))
data Tuple5Sym1 (a6989586621679046878 :: a) (b1 :: TyFun b c ~> d ~> e ~> (a, b, c, d, e))
data Tuple5Sym2 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (c1 :: TyFun c d ~> e ~> (a, b, c, d, e))
data Tuple5Sym3 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (d1 :: TyFun d e ~> (a, b, c, d, e))
data Tuple5Sym4 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (a6989586621679046881 :: d) (e1 :: TyFun e (a, b, c, d, e))
type family Tuple5Sym5 (a6989586621679046878 :: a) (a6989586621679046879 :: b) (a6989586621679046880 :: c) (a6989586621679046881 :: d) (a6989586621679046882 :: e) :: (a, b, c, d, e)
data Tuple6Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym1 (a6989586621679046969 :: a) (b1 :: TyFun b c ~> d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym2 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (c1 :: TyFun c d ~> e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym3 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (d1 :: TyFun d e ~> f ~> (a, b, c, d, e, f))
data Tuple6Sym4 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (e1 :: TyFun e f ~> (a, b, c, d, e, f))
data Tuple6Sym5 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (a6989586621679046973 :: e) (f1 :: TyFun f (a, b, c, d, e, f))
type family Tuple6Sym6 (a6989586621679046969 :: a) (a6989586621679046970 :: b) (a6989586621679046971 :: c) (a6989586621679046972 :: d) (a6989586621679046973 :: e) (a6989586621679046974 :: f) :: (a, b, c, d, e, f)
data Tuple7Sym0 (a1 :: TyFun a b ~> c ~> d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym1 (a6989586621679047084 :: a) (b1 :: TyFun b c ~> d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym2 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (c1 :: TyFun c d ~> e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym3 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (d1 :: TyFun d e ~> f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym4 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (e1 :: TyFun e f ~> g ~> (a, b, c, d, e, f, g))
data Tuple7Sym5 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (f1 :: TyFun f g ~> (a, b, c, d, e, f, g))
data Tuple7Sym6 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (a6989586621679047089 :: f) (g1 :: TyFun g (a, b, c, d, e, f, g))
type family Tuple7Sym7 (a6989586621679047084 :: a) (a6989586621679047085 :: b) (a6989586621679047086 :: c) (a6989586621679047087 :: d) (a6989586621679047088 :: e) (a6989586621679047089 :: f) (a6989586621679047090 :: g) :: (a, b, c, d, e, f, g)
data FstSym0 (a1 :: TyFun (a, b) a)
type family FstSym1 (a6989586621679172905 :: (a, b)) :: a
data SndSym0 (a1 :: TyFun (a, b) b)
type family SndSym1 (a6989586621679172901 :: (a, b)) :: b
data CurrySym0 (a1 :: TyFun (a, b) ~> c a ~> b ~> c)
data CurrySym1 (a6989586621679172893 :: (a, b) ~> c) (b1 :: TyFun a b ~> c)
data CurrySym2 (a6989586621679172893 :: (a, b) ~> c) (a6989586621679172894 :: a) (c1 :: TyFun b c)
type family CurrySym3 (a6989586621679172893 :: (a, b) ~> c) (a6989586621679172894 :: a) (a6989586621679172895 :: b) :: c
data UncurrySym0 (a1 :: TyFun a ~> b ~> c (a, b) ~> c)
data UncurrySym1 (a6989586621679172885 :: a ~> b ~> c) (b1 :: TyFun (a, b) c)
type family UncurrySym2 (a6989586621679172885 :: a ~> b ~> c) (a6989586621679172886 :: (a, b)) :: c
data (a1 :: TyFun a a ~> Bool) ==@#@$
infix 4 ==@#@$
data (a6989586621679137918 :: a) ==@#@$$ (b :: TyFun a Bool)
infix 4 ==@#@$$
type family (a6989586621679137918 :: a) ==@#@$$$ (a6989586621679137919 :: a) :: Bool
infix 4 ==@#@$$$
data (a1 :: TyFun a a ~> Bool) /=@#@$
infix 4 /=@#@$
data (a6989586621679137923 :: a) /=@#@$$ (b :: TyFun a Bool)
infix 4 /=@#@$$
type family (a6989586621679137923 :: a) /=@#@$$$ (a6989586621679137924 :: a) :: Bool
infix 4 /=@#@$$$
data CompareSym0 (a1 :: TyFun a a ~> Ordering)
data CompareSym1 (a6989586621679237108 :: a) (b :: TyFun a Ordering)
type family CompareSym2 (a6989586621679237108 :: a) (a6989586621679237109 :: a) :: Ordering
data (a1 :: TyFun a a ~> Bool) <@#@$
infix 4 <@#@$
data (a6989586621679237113 :: a) <@#@$$ (b :: TyFun a Bool)
infix 4 <@#@$$
type family (a6989586621679237113 :: a) <@#@$$$ (a6989586621679237114 :: a) :: Bool
infix 4 <@#@$$$
data (a1 :: TyFun a a ~> Bool) <=@#@$
infix 4 <=@#@$
data (a6989586621679237118 :: a) <=@#@$$ (b :: TyFun a Bool)
infix 4 <=@#@$$
type family (a6989586621679237118 :: a) <=@#@$$$ (a6989586621679237119 :: a) :: Bool
infix 4 <=@#@$$$
data (a1 :: TyFun a a ~> Bool) >@#@$
infix 4 >@#@$
data (a6989586621679237123 :: a) >@#@$$ (b :: TyFun a Bool)
infix 4 >@#@$$
type family (a6989586621679237123 :: a) >@#@$$$ (a6989586621679237124 :: a) :: Bool
infix 4 >@#@$$$
data (a1 :: TyFun a a ~> Bool) >=@#@$
infix 4 >=@#@$
data (a6989586621679237128 :: a) >=@#@$$ (b :: TyFun a Bool)
infix 4 >=@#@$$
type family (a6989586621679237128 :: a) >=@#@$$$ (a6989586621679237129 :: a) :: Bool
infix 4 >=@#@$$$
data MaxSym0 (a1 :: TyFun a a ~> a)
data MaxSym1 (a6989586621679237133 :: a) (b :: TyFun a a)
type family MaxSym2 (a6989586621679237133 :: a) (a6989586621679237134 :: a) :: a
data MinSym0 (a1 :: TyFun a a ~> a)
data MinSym1 (a6989586621679237138 :: a) (b :: TyFun a a)
type family MinSym2 (a6989586621679237138 :: a) (a6989586621679237139 :: a) :: a
data ToEnumSym0 (a1 :: TyFun Natural a)
type family ToEnumSym1 (a6989586621679612929 :: Natural) :: a
data FromEnumSym0 (a1 :: TyFun a Natural)
type family FromEnumSym1 (a6989586621679612932 :: a) :: Natural
data EnumFromToSym0 (a1 :: TyFun a a ~> [a])
data EnumFromToSym1 (a6989586621679612936 :: a) (b :: TyFun a [a])
type family EnumFromToSym2 (a6989586621679612936 :: a) (a6989586621679612937 :: a) :: [a]
data EnumFromThenToSym0 (a1 :: TyFun a a ~> a ~> [a])
data EnumFromThenToSym1 (a6989586621679612942 :: a) (b :: TyFun a a ~> [a])
data EnumFromThenToSym2 (a6989586621679612942 :: a) (a6989586621679612943 :: a) (c :: TyFun a [a])
type family EnumFromThenToSym3 (a6989586621679612942 :: a) (a6989586621679612943 :: a) (a6989586621679612944 :: a) :: [a]
type family MinBoundSym0 :: a
type family MaxBoundSym0 :: a
data (a1 :: TyFun a a ~> a) +@#@$
infixl 6 +@#@$
data (a6989586621679590942 :: a) +@#@$$ (b :: TyFun a a)
infixl 6 +@#@$$
type family (a6989586621679590942 :: a) +@#@$$$ (a6989586621679590943 :: a) :: a
infixl 6 +@#@$$$
data (a1 :: TyFun a a ~> a) -@#@$
infixl 6 -@#@$
data (a6989586621679590947 :: a) -@#@$$ (b :: TyFun a a)
infixl 6 -@#@$$
type family (a6989586621679590947 :: a) -@#@$$$ (a6989586621679590948 :: a) :: a
infixl 6 -@#@$$$
data (a1 :: TyFun a a ~> a) *@#@$
infixl 7 *@#@$
data (a6989586621679590952 :: a) *@#@$$ (b :: TyFun a a)
infixl 7 *@#@$$
type family (a6989586621679590952 :: a) *@#@$$$ (a6989586621679590953 :: a) :: a
infixl 7 *@#@$$$
data NegateSym0 (a1 :: TyFun a a)
type family NegateSym1 (a6989586621679590956 :: a) :: a
data AbsSym0 (a1 :: TyFun a a)
type family AbsSym1 (a6989586621679590959 :: a) :: a
data SignumSym0 (a1 :: TyFun a a)
type family SignumSym1 (a6989586621679590962 :: a) :: a
data FromIntegerSym0 (a1 :: TyFun Natural a)
type family FromIntegerSym1 (a6989586621679590965 :: Natural) :: a
data SubtractSym0 (a1 :: TyFun a a ~> a)
data SubtractSym1 (a6989586621679590935 :: a) (b :: TyFun a a)
type family SubtractSym2 (a6989586621679590935 :: a) (a6989586621679590936 :: a) :: a
data (a1 :: TyFun a a ~> a) <>@#@$
infixr 6 <>@#@$
data (a6989586621679207889 :: a) <>@#@$$ (b :: TyFun a a)
infixr 6 <>@#@$$
type family (a6989586621679207889 :: a) <>@#@$$$ (a6989586621679207890 :: a) :: a
infixr 6 <>@#@$$$
type family MemptySym0 :: a
data MappendSym0 (a1 :: TyFun a a ~> a)
data MappendSym1 (a6989586621680292326 :: a) (b :: TyFun a a)
type family MappendSym2 (a6989586621680292326 :: a) (a6989586621680292327 :: a) :: a
data MconcatSym0 (a1 :: TyFun [a] a)
type family MconcatSym1 (a6989586621680292330 :: [a]) :: a
data FmapSym0 (a1 :: TyFun a ~> b f a ~> f b)
data FmapSym1 (a6989586621679348484 :: a ~> b) (b1 :: TyFun f a f b)
type family FmapSym2 (a6989586621679348484 :: a ~> b) (a6989586621679348485 :: f a) :: f b
data (a1 :: TyFun a f b ~> f a) <$@#@$
infixl 4 <$@#@$
data (a6989586621679348489 :: a) <$@#@$$ (b1 :: TyFun f b f a)
infixl 4 <$@#@$$
type family (a6989586621679348489 :: a) <$@#@$$$ (a6989586621679348490 :: f b) :: f a
infixl 4 <$@#@$$$
data (a1 :: TyFun a ~> b f a ~> f b) <$>@#@$
infixl 4 <$>@#@$
data (a6989586621679532919 :: a ~> b) <$>@#@$$ (b1 :: TyFun f a f b)
infixl 4 <$>@#@$$
type family (a6989586621679532919 :: a ~> b) <$>@#@$$$ (a6989586621679532920 :: f a) :: f b
infixl 4 <$>@#@$$$
data PureSym0 (a1 :: TyFun a f a)
type family PureSym1 (a6989586621679348508 :: a) :: f a
data (a1 :: TyFun f a ~> b f a ~> f b) <*>@#@$
infixl 4 <*>@#@$
data (a6989586621679348512 :: f a ~> b) <*>@#@$$ (b1 :: TyFun f a f b)
infixl 4 <*>@#@$$
type family (a6989586621679348512 :: f a ~> b) <*>@#@$$$ (a6989586621679348513 :: f a) :: f b
infixl 4 <*>@#@$$$
data (a1 :: TyFun f a f b ~> f b) *>@#@$
infixl 4 *>@#@$
data (a6989586621679348524 :: f a) *>@#@$$ (b1 :: TyFun f b f b)
infixl 4 *>@#@$$
type family (a6989586621679348524 :: f a) *>@#@$$$ (a6989586621679348525 :: f b) :: f b
infixl 4 *>@#@$$$
data (a1 :: TyFun f a f b ~> f a) <*@#@$
infixl 4 <*@#@$
data (a6989586621679348529 :: f a) <*@#@$$ (b1 :: TyFun f b f a)
infixl 4 <*@#@$$
type family (a6989586621679348529 :: f a) <*@#@$$$ (a6989586621679348530 :: f b) :: f a
infixl 4 <*@#@$$$
data LiftA2Sym0 (a1 :: TyFun a ~> b ~> c f a ~> f b ~> f c)
data LiftA2Sym1 (a6989586621679348518 :: a ~> b ~> c) (b1 :: TyFun f a f b ~> f c)
data LiftA2Sym2 (a6989586621679348518 :: a ~> b ~> c) (a6989586621679348519 :: f a) (c1 :: TyFun f b f c)
type family LiftA2Sym3 (a6989586621679348518 :: a ~> b ~> c) (a6989586621679348519 :: f a) (a6989586621679348520 :: f b) :: f c
data (a1 :: TyFun m a a ~> m b ~> m b) >>=@#@$
infixl 1 >>=@#@$
data (a6989586621679348592 :: m a) >>=@#@$$ (b1 :: TyFun a ~> m b m b)
infixl 1 >>=@#@$$
type family (a6989586621679348592 :: m a) >>=@#@$$$ (a6989586621679348593 :: a ~> m b) :: m b
infixl 1 >>=@#@$$$
data (a1 :: TyFun m a m b ~> m b) >>@#@$
infixl 1 >>@#@$
data (a6989586621679348597 :: m a) >>@#@$$ (b1 :: TyFun m b m b)
infixl 1 >>@#@$$
type family (a6989586621679348597 :: m a) >>@#@$$$ (a6989586621679348598 :: m b) :: m b
infixl 1 >>@#@$$$
data ReturnSym0 (a1 :: TyFun a m a)
type family ReturnSym1 (a6989586621679348601 :: a) :: m a
data FailSym0 (a1 :: TyFun [Char] m a)
type family FailSym1 (a6989586621679549513 :: [Char]) :: m a
data MapM_Sym0 (a1 :: TyFun a ~> m b t a ~> m ())
data MapM_Sym1 (a6989586621680390321 :: a ~> m b) (b1 :: TyFun t a m ())
type family MapM_Sym2 (a6989586621680390321 :: a ~> m b) (a6989586621680390322 :: t a) :: m ()
data Sequence_Sym0 (a1 :: TyFun t m a m ())
type family Sequence_Sym1 (a6989586621680390297 :: t m a) :: m ()
data (a1 :: TyFun a ~> m b m a ~> m b) =<<@#@$
infixr 1 =<<@#@$
data (a6989586621679348437 :: a ~> m b) =<<@#@$$ (b1 :: TyFun m a m b)
infixr 1 =<<@#@$$
type family (a6989586621679348437 :: a ~> m b) =<<@#@$$$ (a6989586621679348438 :: m a) :: m b
infixr 1 =<<@#@$$$
data ElemSym0 (a1 :: TyFun a t a ~> Bool)
data ElemSym1 (a6989586621680390439 :: a) (b :: TyFun t a Bool)
type family ElemSym2 (a6989586621680390439 :: a) (a6989586621680390440 :: t a) :: Bool
data FoldMapSym0 (a1 :: TyFun a ~> m t a ~> m)
data FoldMapSym1 (a6989586621680390387 :: a ~> m) (b :: TyFun t a m)
type family FoldMapSym2 (a6989586621680390387 :: a ~> m) (a6989586621680390388 :: t a) :: m
data FoldrSym0 (a1 :: TyFun a ~> b ~> b b ~> t a ~> b)
data FoldrSym1 (a6989586621680390393 :: a ~> b ~> b) (b1 :: TyFun b t a ~> b)
data FoldrSym2 (a6989586621680390393 :: a ~> b ~> b) (a6989586621680390394 :: b) (c :: TyFun t a b)
type family FoldrSym3 (a6989586621680390393 :: a ~> b ~> b) (a6989586621680390394 :: b) (a6989586621680390395 :: t a) :: b
data FoldlSym0 (a1 :: TyFun b ~> a ~> b b ~> t a ~> b)
data FoldlSym1 (a6989586621680390407 :: b ~> a ~> b) (b1 :: TyFun b t a ~> b)
data FoldlSym2 (a6989586621680390407 :: b ~> a ~> b) (a6989586621680390408 :: b) (c :: TyFun t a b)
type family FoldlSym3 (a6989586621680390407 :: b ~> a ~> b) (a6989586621680390408 :: b) (a6989586621680390409 :: t a) :: b
data Foldr1Sym0 (a1 :: TyFun a ~> a ~> a t a ~> a)
data Foldr1Sym1 (a6989586621680390420 :: a ~> a ~> a) (b :: TyFun t a a)
type family Foldr1Sym2 (a6989586621680390420 :: a ~> a ~> a) (a6989586621680390421 :: t a) :: a
data Foldl1Sym0 (a1 :: TyFun a ~> a ~> a t a ~> a)
data Foldl1Sym1 (a6989586621680390425 :: a ~> a ~> a) (b :: TyFun t a a)
type family Foldl1Sym2 (a6989586621680390425 :: a ~> a ~> a) (a6989586621680390426 :: t a) :: a
data MaximumSym0 (a1 :: TyFun t a a)
type family MaximumSym1 (a6989586621680390443 :: t a) :: a
data MinimumSym0 (a1 :: TyFun t a a)
type family MinimumSym1 (a6989586621680390446 :: t a) :: a
data ProductSym0 (a1 :: TyFun t a a)
type family ProductSym1 (a6989586621680390452 :: t a) :: a
data SumSym0 (a1 :: TyFun t a a)
type family SumSym1 (a6989586621680390449 :: t a) :: a
data TraverseSym0 (a1 :: TyFun a ~> f b t a ~> f t b)
data TraverseSym1 (a6989586621680733986 :: a ~> f b) (b1 :: TyFun t a f t b)
type family TraverseSym2 (a6989586621680733986 :: a ~> f b) (a6989586621680733987 :: t a) :: f t b
data SequenceASym0 (a1 :: TyFun t f a f t a)
type family SequenceASym1 (a6989586621680733990 :: t f a) :: f t a
data MapMSym0 (a1 :: TyFun a ~> m b t a ~> m t b)
data MapMSym1 (a6989586621680733994 :: a ~> m b) (b1 :: TyFun t a m t b)
type family MapMSym2 (a6989586621680733994 :: a ~> m b) (a6989586621680733995 :: t a) :: m t b
data SequenceSym0 (a1 :: TyFun t m a m t a)
type family SequenceSym1 (a6989586621680733998 :: t m a) :: m t a
data IdSym0 (a1 :: TyFun a a)
type family IdSym1 (a6989586621679180225 :: a) :: a
data ConstSym0 (a1 :: TyFun a b ~> a)
data ConstSym1 (a6989586621679180220 :: a) (b1 :: TyFun b a)
type family ConstSym2 (a6989586621679180220 :: a) (a6989586621679180221 :: b) :: a
data (a1 :: TyFun b ~> c a ~> b ~> a ~> c) .@#@$
infixr 9 .@#@$
data (a6989586621679180207 :: b ~> c) .@#@$$ (b1 :: TyFun a ~> b a ~> c)
infixr 9 .@#@$$
data ( (a6989586621679180207 :: b ~> c) .@#@$$$ (a6989586621679180208 :: a ~> b) ) (c1 :: TyFun a c)
infixr 9 .@#@$$$
type family ( (a6989586621679180207 :: b ~> c) .@#@$$$$ (a6989586621679180208 :: a ~> b) ) (a6989586621679180209 :: a) :: c
infixr 9 .@#@$$$$
data FlipSym0 (a1 :: TyFun a ~> b ~> c b ~> a ~> c)
data FlipSym1 (a6989586621679180195 :: a ~> b ~> c) (b1 :: TyFun b a ~> c)
data FlipSym2 (a6989586621679180195 :: a ~> b ~> c) (a6989586621679180196 :: b) (c1 :: TyFun a c)
type family FlipSym3 (a6989586621679180195 :: a ~> b ~> c) (a6989586621679180196 :: b) (a6989586621679180197 :: a) :: c
data (a1 :: TyFun a ~> b a ~> b) $@#@$
infixr 0 $@#@$
data (a6989586621679180176 :: a ~> b) $@#@$$ (b1 :: TyFun a b)
infixr 0 $@#@$$
type family (a6989586621679180176 :: a ~> b) $@#@$$$ (a6989586621679180177 :: a) :: b
infixr 0 $@#@$$$
data UntilSym0 (a1 :: TyFun a ~> Bool a ~> a ~> a ~> a)
data UntilSym1 (a6989586621679180149 :: a ~> Bool) (b :: TyFun a ~> a a ~> a)
data UntilSym2 (a6989586621679180149 :: a ~> Bool) (a6989586621679180150 :: a ~> a) (c :: TyFun a a)
type family UntilSym3 (a6989586621679180149 :: a ~> Bool) (a6989586621679180150 :: a ~> a) (a6989586621679180151 :: a) :: a
data AsTypeOfSym0 (a1 :: TyFun a a ~> a)
data AsTypeOfSym1 (a6989586621679180187 :: a) (b :: TyFun a a)
type family AsTypeOfSym2 (a6989586621679180187 :: a) (a6989586621679180188 :: a) :: a
data ErrorSym0 (a1 :: TyFun Symbol a)
type family ErrorSym1 (a6989586621679555664 :: Symbol) :: a
data ErrorWithoutStackTraceSym0 (a1 :: TyFun Symbol a)
type family ErrorWithoutStackTraceSym1 (a6989586621679555924 :: Symbol) :: a
type family UndefinedSym0 :: a
data SeqSym0 (a1 :: TyFun a b ~> b)
infixr 0 `SeqSym0`
data SeqSym1 (a6989586621679180140 :: a) (b1 :: TyFun b b)
infixr 0 `SeqSym1`
type family SeqSym2 (a6989586621679180140 :: a) (a6989586621679180141 :: b) :: b
infixr 0 `SeqSym2`
data (a1 :: TyFun a ~> b a ~> b) $!@#@$
infixr 0 $!@#@$
data (a6989586621679180167 :: a ~> b) $!@#@$$ (b1 :: TyFun a b)
infixr 0 $!@#@$$
type family (a6989586621679180167 :: a ~> b) $!@#@$$$ (a6989586621679180168 :: a) :: b
infixr 0 $!@#@$$$
data MapSym0 (a1 :: TyFun a ~> b [a] ~> [b])
data MapSym1 (a6989586621679180239 :: a ~> b) (b1 :: TyFun [a] [b])
type family MapSym2 (a6989586621679180239 :: a ~> b) (a6989586621679180240 :: [a]) :: [b]
data (a1 :: TyFun [a] [a] ~> [a]) ++@#@$
infixr 5 ++@#@$
data (a6989586621679180230 :: [a]) ++@#@$$ (b :: TyFun [a] [a])
infixr 5 ++@#@$$
type family (a6989586621679180230 :: [a]) ++@#@$$$ (a6989586621679180231 :: [a]) :: [a]
infixr 5 ++@#@$$$
data FilterSym0 (a1 :: TyFun a ~> Bool [a] ~> [a])
data FilterSym1 (a6989586621679815053 :: a ~> Bool) (b :: TyFun [a] [a])
type family FilterSym2 (a6989586621679815053 :: a ~> Bool) (a6989586621679815054 :: [a]) :: [a]
data HeadSym0 (a1 :: TyFun [a] a)
type family HeadSym1 (a6989586621679815823 :: [a]) :: a
data LastSym0 (a1 :: TyFun [a] a)
type family LastSym1 (a6989586621679815817 :: [a]) :: a
data TailSym0 (a1 :: TyFun [a] [a])
type family TailSym1 (a6989586621679815813 :: [a]) :: [a]
data InitSym0 (a1 :: TyFun [a] [a])
type family InitSym1 (a6989586621679815801 :: [a]) :: [a]
data (a1 :: TyFun [a] Natural ~> a) !!@#@$
infixl 9 !!@#@$
data (a6989586621679814661 :: [a]) !!@#@$$ (b :: TyFun Natural a)
infixl 9 !!@#@$$
type family (a6989586621679814661 :: [a]) !!@#@$$$ (a6989586621679814662 :: Natural) :: a
infixl 9 !!@#@$$$
data NullSym0 (a1 :: TyFun t a Bool)
type family NullSym1 (a6989586621680390432 :: t a) :: Bool
data LengthSym0 (a1 :: TyFun t a Natural)
type family LengthSym1 (a6989586621680390435 :: t a) :: Natural
data ReverseSym0 (a1 :: TyFun [a] [a])
type family ReverseSym1 (a6989586621679815786 :: [a]) :: [a]
data AndSym0 (a :: TyFun t Bool Bool)
type family AndSym1 (a6989586621680390258 :: t Bool) :: Bool
data OrSym0 (a :: TyFun t Bool Bool)
type family OrSym1 (a6989586621680390252 :: t Bool) :: Bool
data AnySym0 (a1 :: TyFun a ~> Bool t a ~> Bool)
data AnySym1 (a6989586621680390244 :: a ~> Bool) (b :: TyFun t a Bool)
type family AnySym2 (a6989586621680390244 :: a ~> Bool) (a6989586621680390245 :: t a) :: Bool
data AllSym0 (a1 :: TyFun a ~> Bool t a ~> Bool)
data AllSym1 (a6989586621680390235 :: a ~> Bool) (b :: TyFun t a Bool)
type family AllSym2 (a6989586621680390235 :: a ~> Bool) (a6989586621680390236 :: t a) :: Bool
data ConcatSym0 (a1 :: TyFun t [a] [a])
type family ConcatSym1 (a6989586621680390274 :: t [a]) :: [a]
data ConcatMapSym0 (a1 :: TyFun a ~> [b] t a ~> [b])
data ConcatMapSym1 (a6989586621680390263 :: a ~> [b]) (b1 :: TyFun t a [b])
type family ConcatMapSym2 (a6989586621680390263 :: a ~> [b]) (a6989586621680390264 :: t a) :: [b]
data ScanlSym0 (a1 :: TyFun b ~> a ~> b b ~> [a] ~> [b])
data ScanlSym1 (a6989586621679815591 :: b ~> a ~> b) (b1 :: TyFun b [a] ~> [b])
data ScanlSym2 (a6989586621679815591 :: b ~> a ~> b) (a6989586621679815592 :: b) (c :: TyFun [a] [b])
type family ScanlSym3 (a6989586621679815591 :: b ~> a ~> b) (a6989586621679815592 :: b) (a6989586621679815593 :: [a]) :: [b]
data Scanl1Sym0 (a1 :: TyFun a ~> a ~> a [a] ~> [a])
data Scanl1Sym1 (a6989586621679815582 :: a ~> a ~> a) (b :: TyFun [a] [a])
type family Scanl1Sym2 (a6989586621679815582 :: a ~> a ~> a) (a6989586621679815583 :: [a]) :: [a]
data ScanrSym0 (a1 :: TyFun a ~> b ~> b b ~> [a] ~> [b])
data ScanrSym1 (a6989586621679815564 :: a ~> b ~> b) (b1 :: TyFun b [a] ~> [b])
data ScanrSym2 (a6989586621679815564 :: a ~> b ~> b) (a6989586621679815565 :: b) (c :: TyFun [a] [b])
type family ScanrSym3 (a6989586621679815564 :: a ~> b ~> b) (a6989586621679815565 :: b) (a6989586621679815566 :: [a]) :: [b]
data Scanr1Sym0 (a1 :: TyFun a ~> a ~> a [a] ~> [a])
data Scanr1Sym1 (a6989586621679815544 :: a ~> a ~> a) (b :: TyFun [a] [a])
type family Scanr1Sym2 (a6989586621679815544 :: a ~> a ~> a) (a6989586621679815545 :: [a]) :: [a]
data ReplicateSym0 (a1 :: TyFun Natural a ~> [a])
data ReplicateSym1 (a6989586621679814681 :: Natural) (b :: TyFun a [a])
type family ReplicateSym2 (a6989586621679814681 :: Natural) (a6989586621679814682 :: a) :: [a]
data TakeSym0 (a1 :: TyFun Natural [a] ~> [a])
data TakeSym1 (a6989586621679814836 :: Natural) (b :: TyFun [a] [a])
type family TakeSym2 (a6989586621679814836 :: Natural) (a6989586621679814837 :: [a]) :: [a]
data DropSym0 (a1 :: TyFun Natural [a] ~> [a])
data DropSym1 (a6989586621679814823 :: Natural) (b :: TyFun [a] [a])
type family DropSym2 (a6989586621679814823 :: Natural) (a6989586621679814824 :: [a]) :: [a]
data TakeWhileSym0 (a1 :: TyFun a ~> Bool [a] ~> [a])
data TakeWhileSym1 (a6989586621679814953 :: a ~> Bool) (b :: TyFun [a] [a])
type family TakeWhileSym2 (a6989586621679814953 :: a ~> Bool) (a6989586621679814954 :: [a]) :: [a]
data DropWhileSym0 (a1 :: TyFun a ~> Bool [a] ~> [a])
data DropWhileSym1 (a6989586621679814938 :: a ~> Bool) (b :: TyFun [a] [a])
type family DropWhileSym2 (a6989586621679814938 :: a ~> Bool) (a6989586621679814939 :: [a]) :: [a]
data DropWhileEndSym0 (a1 :: TyFun a ~> Bool [a] ~> [a])
data DropWhileEndSym1 (a6989586621679814921 :: a ~> Bool) (b :: TyFun [a] [a])
type family DropWhileEndSym2 (a6989586621679814921 :: a ~> Bool) (a6989586621679814922 :: [a]) :: [a]
data SpanSym0 (a1 :: TyFun a ~> Bool [a] ~> ([a], [a]))
data SpanSym1 (a6989586621679814884 :: a ~> Bool) (b :: TyFun [a] ([a], [a]))
type family SpanSym2 (a6989586621679814884 :: a ~> Bool) (a6989586621679814885 :: [a]) :: ([a], [a])
data BreakSym0 (a1 :: TyFun a ~> Bool [a] ~> ([a], [a]))
data BreakSym1 (a6989586621679814849 :: a ~> Bool) (b :: TyFun [a] ([a], [a]))
type family BreakSym2 (a6989586621679814849 :: a ~> Bool) (a6989586621679814850 :: [a]) :: ([a], [a])
data SplitAtSym0 (a1 :: TyFun Natural [a] ~> ([a], [a]))
data SplitAtSym1 (a6989586621679814816 :: Natural) (b :: TyFun [a] ([a], [a]))
type family SplitAtSym2 (a6989586621679814816 :: Natural) (a6989586621679814817 :: [a]) :: ([a], [a])
data NotElemSym0 (a1 :: TyFun a t a ~> Bool)
data NotElemSym1 (a6989586621680390186 :: a) (b :: TyFun t a Bool)
type family NotElemSym2 (a6989586621680390186 :: a) (a6989586621680390187 :: t a) :: Bool
data LookupSym0 (a1 :: TyFun a [(a, b)] ~> Maybe b)
data LookupSym1 (a6989586621679814744 :: a) (b1 :: TyFun [(a, b)] Maybe b)
type family LookupSym2 (a6989586621679814744 :: a) (a6989586621679814745 :: [(a, b)]) :: Maybe b
data ZipSym0 (a1 :: TyFun [a] [b] ~> [(a, b)])
data ZipSym1 (a6989586621679815371 :: [a]) (b1 :: TyFun [b] [(a, b)])
type family ZipSym2 (a6989586621679815371 :: [a]) (a6989586621679815372 :: [b]) :: [(a, b)]
data Zip3Sym0 (a1 :: TyFun [a] [b] ~> [c] ~> [(a, b, c)])
data Zip3Sym1 (a6989586621679815359 :: [a]) (b1 :: TyFun [b] [c] ~> [(a, b, c)])
data Zip3Sym2 (a6989586621679815359 :: [a]) (a6989586621679815360 :: [b]) (c1 :: TyFun [c] [(a, b, c)])
type family Zip3Sym3 (a6989586621679815359 :: [a]) (a6989586621679815360 :: [b]) (a6989586621679815361 :: [c]) :: [(a, b, c)]
data ZipWithSym0 (a1 :: TyFun a ~> b ~> c [a] ~> [b] ~> [c])
data ZipWithSym1 (a6989586621679815347 :: a ~> b ~> c) (b1 :: TyFun [a] [b] ~> [c])
data ZipWithSym2 (a6989586621679815347 :: a ~> b ~> c) (a6989586621679815348 :: [a]) (c1 :: TyFun [b] [c])
type family ZipWithSym3 (a6989586621679815347 :: a ~> b ~> c) (a6989586621679815348 :: [a]) (a6989586621679815349 :: [b]) :: [c]
data ZipWith3Sym0 (a1 :: TyFun a ~> b ~> c ~> d [a] ~> [b] ~> [c] ~> [d])
data ZipWith3Sym1 (a6989586621679815332 :: a ~> b ~> c ~> d) (b1 :: TyFun [a] [b] ~> [c] ~> [d])
data ZipWith3Sym2 (a6989586621679815332 :: a ~> b ~> c ~> d) (a6989586621679815333 :: [a]) (c1 :: TyFun [b] [c] ~> [d])
data ZipWith3Sym3 (a6989586621679815332 :: a ~> b ~> c ~> d) (a6989586621679815333 :: [a]) (a6989586621679815334 :: [b]) (d1 :: TyFun [c] [d])
data UnzipSym0 (a1 :: TyFun [(a, b)] ([a], [b]))
type family UnzipSym1 (a6989586621679815313 :: [(a, b)]) :: ([a], [b])
data Unzip3Sym0 (a1 :: TyFun [(a, b, c)] ([a], [b], [c]))
type family Unzip3Sym1 (a6989586621679815295 :: [(a, b, c)]) :: ([a], [b], [c])
data UnlinesSym0 (a :: TyFun [Symbol] Symbol)
type family UnlinesSym1 (a6989586621679815198 :: [Symbol]) :: Symbol
data UnwordsSym0 (a :: TyFun [Symbol] Symbol)
type family UnwordsSym1 (a6989586621679815188 :: [Symbol]) :: Symbol
data ShowsPrecSym0 (a1 :: TyFun Natural a ~> Symbol ~> Symbol)
data ShowsPrecSym1 (a6989586621680208714 :: Natural) (b :: TyFun a Symbol ~> Symbol)
data ShowsPrecSym2 (a6989586621680208714 :: Natural) (a6989586621680208715 :: a) (c :: TyFun Symbol Symbol)
type family ShowsPrecSym3 (a6989586621680208714 :: Natural) (a6989586621680208715 :: a) (a6989586621680208716 :: Symbol) :: Symbol
data ShowListSym0 (a1 :: TyFun [a] Symbol ~> Symbol)
data ShowListSym1 (a6989586621680208723 :: [a]) (b :: TyFun Symbol Symbol)
type family ShowListSym2 (a6989586621680208723 :: [a]) (a6989586621680208724 :: Symbol) :: Symbol
data Show_Sym0 (a1 :: TyFun a Symbol)
type family Show_Sym1 (a6989586621680208719 :: a) :: Symbol
data ShowsSym0 (a1 :: TyFun a Symbol ~> Symbol)
data ShowsSym1 (a6989586621680208706 :: a) (b :: TyFun Symbol Symbol)
type family ShowsSym2 (a6989586621680208706 :: a) (a6989586621680208707 :: Symbol) :: Symbol
data ShowCharSym0 (a :: TyFun Char Symbol ~> Symbol)
data ShowCharSym1 (a6989586621680208680 :: Char) (b :: TyFun Symbol Symbol)
type family ShowCharSym2 (a6989586621680208680 :: Char) (a6989586621680208681 :: Symbol) :: Symbol
data ShowStringSym0 (a :: TyFun Symbol Symbol ~> Symbol)
data ShowStringSym1 (a6989586621680208669 :: Symbol) (b :: TyFun Symbol Symbol)
type family ShowStringSym2 (a6989586621680208669 :: Symbol) (a6989586621680208670 :: Symbol) :: Symbol
data ShowParenSym0 (a :: TyFun Bool Symbol ~> Symbol ~> Symbol ~> Symbol)
data ShowParenSym1 (a6989586621680208653 :: Bool) (b :: TyFun Symbol ~> Symbol Symbol ~> Symbol)
data ShowParenSym2 (a6989586621680208653 :: Bool) (a6989586621680208654 :: Symbol ~> Symbol) (c :: TyFun Symbol Symbol)
-- | Exports the promoted and singled versions of the Product data
-- type.
module Data.Functor.Product.Singletons
type family Sing :: k -> Type
data SProduct (a1 :: Product f g a)
[SPair] :: forall {k} (f :: k -> Type) (g :: k -> Type) (a :: k) (x :: f a) (y :: g a). Sing x -> Sing y -> SProduct ('Pair x y)
data PairSym0 (z :: TyFun f a g a ~> Product f g a)
data PairSym1 (fa :: f a) (z :: TyFun g a Product f g a)
type family PairSym2 (x :: f a) (y :: g a) :: Product f g a
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (z :: Data.Functor.Product.Product f g a). GHC.Classes.Eq (Data.Functor.Product.Singletons.SProduct z)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (z :: Data.Functor.Product.Product f g a). GHC.Classes.Ord (Data.Functor.Product.Singletons.SProduct z)
instance forall k (f :: k -> *) (g :: k -> *). Control.Monad.Singletons.Internal.PAlternative (Data.Functor.Product.Product f g)
instance Control.Monad.Singletons.Internal.PApplicative (Data.Functor.Product.Product f g)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Eq.Singletons.PEq (Data.Functor.Product.Product f g a)
instance Data.Foldable.Singletons.PFoldable (Data.Functor.Product.Product f g)
instance Control.Monad.Singletons.Internal.PFunctor (Data.Functor.Product.Product f g)
instance forall k (f :: k -> *) (g :: k -> *). Control.Monad.Singletons.Internal.PMonadPlus (Data.Functor.Product.Product f g)
instance Control.Monad.Singletons.Internal.PMonad (Data.Functor.Product.Product f g)
instance Control.Monad.Zip.Singletons.PMonadZip (Data.Functor.Product.Product f g)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Ord.Singletons.POrd (Data.Functor.Product.Product f g a)
instance Data.Traversable.Singletons.PTraversable (Data.Functor.Product.Product f g)
instance (Control.Monad.Singletons.Internal.SAlternative f, Control.Monad.Singletons.Internal.SAlternative g) => Control.Monad.Singletons.Internal.SAlternative (Data.Functor.Product.Product f g)
instance (Control.Monad.Singletons.Internal.SApplicative f, Control.Monad.Singletons.Internal.SApplicative g) => Control.Monad.Singletons.Internal.SApplicative (Data.Functor.Product.Product f g)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Singletons.Decide.SDecide (f a), Data.Singletons.Decide.SDecide (g a)) => Data.Singletons.Decide.SDecide (Data.Functor.Product.Product f g a)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Eq.Singletons.SEq (f a), Data.Eq.Singletons.SEq (g a)) => Data.Eq.Singletons.SEq (Data.Functor.Product.Product f g a)
instance (Data.Foldable.Singletons.SFoldable f, Data.Foldable.Singletons.SFoldable g) => Data.Foldable.Singletons.SFoldable (Data.Functor.Product.Product f g)
instance (Control.Monad.Singletons.Internal.SFunctor f, Control.Monad.Singletons.Internal.SFunctor g) => Control.Monad.Singletons.Internal.SFunctor (Data.Functor.Product.Product f g)
instance (Control.Monad.Singletons.Internal.SMonadPlus f, Control.Monad.Singletons.Internal.SMonadPlus g) => Control.Monad.Singletons.Internal.SMonadPlus (Data.Functor.Product.Product f g)
instance (Control.Monad.Singletons.Internal.SMonad f, Control.Monad.Singletons.Internal.SMonad g) => Control.Monad.Singletons.Internal.SMonad (Data.Functor.Product.Product f g)
instance (Control.Monad.Zip.Singletons.SMonadZip f, Control.Monad.Zip.Singletons.SMonadZip g) => Control.Monad.Zip.Singletons.SMonadZip (Data.Functor.Product.Product f g)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Ord.Singletons.SOrd (f a), Data.Ord.Singletons.SOrd (g a)) => Data.Ord.Singletons.SOrd (Data.Functor.Product.Product f g a)
instance (Data.Traversable.Singletons.STraversable f, Data.Traversable.Singletons.STraversable g) => Data.Traversable.Singletons.STraversable (Data.Functor.Product.Product f g)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). Data.Singletons.SingI1 Data.Functor.Product.Singletons.PairSym1
instance forall k (f :: k -> *) (a :: k) (g :: k -> *) (x :: f a). Data.Singletons.SingI x => Data.Singletons.SingI1 ('Data.Functor.Product.Pair x)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). Data.Singletons.SingI2 'Data.Functor.Product.Pair
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). Data.Singletons.SingI Data.Functor.Product.Singletons.PairSym0
instance forall k (f :: k -> *) (a :: k) (g :: k -> *) (x :: f a). Data.Singletons.SingI x => Data.Singletons.SingI (Data.Functor.Product.Singletons.PairSym1 x)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *) (x :: f a) (y :: g a). (Data.Singletons.SingI x, Data.Singletons.SingI y) => Data.Singletons.SingI ('Data.Functor.Product.Pair x y)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.Compare_6989586621681259998Sym0
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (a6989586621681260003 :: Data.Functor.Product.Product f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Compare_6989586621681259998Sym1 a6989586621681260003)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.Fmap_6989586621681260011Sym0
instance forall a b (f :: * -> *) (g :: * -> *) (a6989586621681260016 :: a Data.Singletons.~> b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Fmap_6989586621681260011Sym1 a6989586621681260016)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.FoldMap_6989586621681260035Sym0
instance forall a m (f :: * -> *) (g :: * -> *) (a6989586621681260040 :: a Data.Singletons.~> m). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.FoldMap_6989586621681260035Sym1 a6989586621681260040)
instance forall k1 k2 k3 k4 (f :: k4 -> *) (g :: k4 -> *) (a :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.Let6989586621681260211FstPSym0
instance forall k1 k2 k3 k4 (f :: k4 -> *) (g :: k4 -> *) (a :: k4) (m6989586621681260208 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Let6989586621681260211FstPSym1 m6989586621681260208)
instance forall k1 k2 k3 k4 (f :: k4 -> *) (g :: k4 -> *) (a :: k4) (m6989586621681260208 :: k1) (n6989586621681260209 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Let6989586621681260211FstPSym2 m6989586621681260208 n6989586621681260209)
instance forall k1 k2 k3 k4 (f :: k4 -> *) (g :: k4 -> *) (a :: k4) (m6989586621681260208 :: k1) (n6989586621681260209 :: k2) (f6989586621681260210 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Let6989586621681260211FstPSym3 m6989586621681260208 n6989586621681260209 f6989586621681260210)
instance forall k1 k2 k3 k4 (f :: k4 -> *) (g :: k4 -> *) (a :: k4). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.Let6989586621681260211SndPSym0
instance forall k1 k2 k3 k4 (f :: k4 -> *) (g :: k4 -> *) (a :: k4) (m6989586621681260208 :: k1). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Let6989586621681260211SndPSym1 m6989586621681260208)
instance forall k1 k2 k3 k4 (f :: k4 -> *) (g :: k4 -> *) (a :: k4) (m6989586621681260208 :: k1) (n6989586621681260209 :: k2). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Let6989586621681260211SndPSym2 m6989586621681260208 n6989586621681260209)
instance forall k1 k2 k3 k4 (f :: k4 -> *) (g :: k4 -> *) (a :: k4) (m6989586621681260208 :: k1) (n6989586621681260209 :: k2) (f6989586621681260210 :: k3). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Let6989586621681260211SndPSym3 m6989586621681260208 n6989586621681260209 f6989586621681260210)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.LiftA2_6989586621681260080Sym0
instance forall a b c (f :: * -> *) (g :: * -> *) (a6989586621681260086 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.LiftA2_6989586621681260080Sym1 a6989586621681260086)
instance forall a b c (f :: * -> *) (g :: * -> *) (a6989586621681260086 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681260087 :: Data.Functor.Product.Product f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.LiftA2_6989586621681260080Sym2 a6989586621681260086 a6989586621681260087)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.Mplus_6989586621681260230Sym0
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (a6989586621681260235 :: Data.Functor.Product.Product f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Mplus_6989586621681260230Sym1 a6989586621681260235)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.MzipWith_6989586621681260244Sym0
instance forall a b c (f :: * -> *) (g :: * -> *) (a6989586621681260250 :: a Data.Singletons.~> (b Data.Singletons.~> c)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.MzipWith_6989586621681260244Sym1 a6989586621681260250)
instance forall a b c (f :: * -> *) (g :: * -> *) (a6989586621681260250 :: a Data.Singletons.~> (b Data.Singletons.~> c)) (a6989586621681260251 :: Data.Functor.Product.Product f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.MzipWith_6989586621681260244Sym2 a6989586621681260250 a6989586621681260251)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.Pure_6989586621681260058Sym0
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.TFHelper_6989586621681259985Sym0
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (a6989586621681259990 :: Data.Functor.Product.Product f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.TFHelper_6989586621681259985Sym1 a6989586621681259990)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.TFHelper_6989586621681260023Sym0
instance forall a (f :: * -> *) (g :: * -> *) b (a6989586621681260028 :: a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.TFHelper_6989586621681260023Sym1 a6989586621681260028)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.TFHelper_6989586621681260066Sym0
instance forall (f :: * -> *) (g :: * -> *) a b (a6989586621681260071 :: Data.Functor.Product.Product f g (a Data.Singletons.~> b)). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.TFHelper_6989586621681260066Sym1 a6989586621681260071)
instance forall k (f :: k -> *) (g :: k -> *) (a :: k). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.TFHelper_6989586621681260099Sym0
instance forall k (f :: k -> *) (g :: k -> *) (a :: k) (a6989586621681260104 :: Data.Functor.Product.Product f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.TFHelper_6989586621681260099Sym1 a6989586621681260104)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.TFHelper_6989586621681260201Sym0
instance forall (f :: * -> *) (g :: * -> *) a b (a6989586621681260206 :: Data.Functor.Product.Product f g a). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.TFHelper_6989586621681260201Sym1 a6989586621681260206)
instance Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Functor.Product.Singletons.Traverse_6989586621681260047Sym0
instance forall a (f1 :: * -> *) b (f2 :: * -> *) (g :: * -> *) (a6989586621681260052 :: a Data.Singletons.~> f1 b). Data.Singletons.TH.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Functor.Product.Singletons.Traverse_6989586621681260047Sym1 a6989586621681260052)
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Singletons.Decide.SDecide (f a), Data.Singletons.Decide.SDecide (g a)) => Data.Type.Coercion.TestCoercion Data.Functor.Product.Singletons.SProduct
instance forall k (f :: k -> *) (a :: k) (g :: k -> *). (Data.Singletons.Decide.SDecide (f a), Data.Singletons.Decide.SDecide (g a)) => Data.Type.Equality.TestEquality Data.Functor.Product.Singletons.SProduct