-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | A framework for generating singleton types -- -- This library generates singleton types, promoted functions, and -- singleton functions using Template Haskell. It is useful for -- programmers who wish to use dependently typed programming techniques. -- The library was originally presented in Dependently Typed -- Programming with Singletons, published at the Haskell Symposium, -- 2012. -- (https://cs.brynmawr.edu/~rae/papers/2012/singletons/paper.pdf) -- -- Version 1.0 and onwards works a lot harder to promote functions. See -- the paper published at Haskell Symposium, 2014: -- https://cs.brynmawr.edu/~rae/papers/2014/promotion/promotion.pdf. @package singletons @version 2.7 -- | Defines the class SDecide, allowing for decidable equality over -- singletons. module Data.Singletons.Decide -- | Members of the SDecide "kind" class support decidable equality. -- Instances of this class are generated alongside singleton definitions -- for datatypes that derive an Eq instance. class SDecide k -- | Compute a proof or disproof of equality, given two singletons. (%~) :: forall (a :: k) (b :: k). SDecide k => Sing a -> Sing b -> Decision (a :~: b) infix 4 %~ -- | 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 -- | Because we can never create a value of type Void, a function -- that type-checks at a -> Void shows that objects of type -- a can never exist. Thus, we say that a is -- Refuted type Refuted a = (a -> Void) -- | A Decision about a type a is either a proof of -- existence or a proof that a cannot exist. data Decision a -- | Witness for a Proved :: a -> Decision a -- | Proof that no a exists Disproved :: Refuted a -> Decision a -- | A suitable default implementation for testEquality that -- leverages SDecide. decideEquality :: forall k (a :: k) (b :: k). SDecide k => Sing a -> Sing b -> Maybe (a :~: b) -- | A suitable default implementation for testCoercion that -- leverages SDecide. decideCoercion :: forall k (a :: k) (b :: k). SDecide k => Sing a -> Sing b -> Maybe (Coercion a b) instance Data.Singletons.Decide.SDecide k => Data.Type.Equality.TestEquality Data.Singletons.Internal.WrappedSing instance Data.Singletons.Decide.SDecide k => Data.Type.Coercion.TestCoercion Data.Singletons.Internal.WrappedSing module Data.Singletons.SuppressUnusedWarnings -- | This class (which users should never see) is to be instantiated in -- order to use an otherwise-unused data constructor, such as the -- "kind-inference" data constructor for defunctionalization symbols. class SuppressUnusedWarnings t suppressUnusedWarnings :: SuppressUnusedWarnings t => () -- | This module defines Options that control finer details of how -- the Template Haskell machinery works, as well as an mtl-like -- OptionsMonad class and an OptionsM monad transformer. module Data.Singletons.TH.Options -- | Options that control the finer details of how singletons' -- Template Haskell machinery works. data Options -- | Sensible default Options. -- -- genQuotedDecs defaults to True. That is, quoted -- declarations are generated alongside their promoted and singled -- counterparts. -- -- genSingKindInsts defaults to True. That is, -- SingKind instances are generated. -- -- The default behaviors for promotedClassName, -- promotedValueNamePrefix, singledDataTypeName, -- singledClassName, singledDataConName, -- singledValueName, and defunctionalizedName are described -- in the "On names" section of the singletons -- README. defaultOptions :: Options -- | If True, then quoted declarations will be generated alongside -- their promoted and singled counterparts. If False, then quoted -- declarations will be discarded. genQuotedDecs :: Options -> Bool -- | If True, then SingKind instances will be generated. If -- False, they will be omitted entirely. This can be useful in -- scenarios where TH-generated SingKind instances do not -- typecheck (for instance, when generating singletons for GADTs). genSingKindInsts :: Options -> Bool -- | Given the name of the original, unrefined class, produces the name of -- the promoted equivalent of the class. promotedClassName :: Options -> Name -> Name -- | Given the name of the original, unrefined value, produces the name of -- the promoted equivalent of the value. This is used for both top-level -- and let-bound names, and the difference is encoded in the -- Maybe Uniq argument. If promoting a top-level -- name, the argument is Nothing. If promoting a -- let-bound name, the argument is Just uniq, where -- uniq is a globally unique number that can be used to -- distinguish the name from other local definitions of the same name -- (e.g., if two functions both use let x = ... in x). promotedValueName :: Options -> Name -> Maybe Uniq -> Name -- | Given the name of the original, unrefined data type, produces the name -- of the corresponding singleton type. singledDataTypeName :: Options -> Name -> Name -- | Given the name of the original, unrefined class, produces the name of -- the singled equivalent of the class. singledClassName :: Options -> Name -> Name -- | Given the name of the original, unrefined data constructor, produces -- the name of the corresponding singleton data constructor. singledDataConName :: Options -> Name -> Name -- | Given the name of the original, unrefined value, produces the name of -- the singled equivalent of the value. singledValueName :: Options -> Name -> Name -- | Given the original name and the number of parameters it is applied to -- (the Int argument), produces a type-level function name that -- can be partially applied when given the same number of parameters. -- -- Note that defunctionalization works over both term-level names -- (producing symbols for the promoted name) and type-level names -- (producing symbols directly for the name itself). As a result, this -- callback is used for names in both the term and type namespaces. defunctionalizedName :: Options -> Name -> Int -> Name -- | Given the name of the original, unrefined, top-level value, produces -- the name of the promoted equivalent of the value. promotedTopLevelValueName :: Options -> Name -> Name -- | Given the name of the original, unrefined, let-bound value -- and its globally unique number, produces the name of the promoted -- equivalent of the value. promotedLetBoundValueName :: Options -> Name -> Uniq -> Name -- | Given the original name of a function (term- or type-level), produces -- a type-level function name that can be partially applied even without -- being given any arguments (i.e., 0 arguments). defunctionalizedName0 :: Options -> Name -> Name -- | Class that describes monads that contain Options. class DsMonad m => OptionsMonad m getOptions :: OptionsMonad m => m Options -- | A convenient implementation of the OptionsMonad class. Use by -- calling withOptions. data OptionsM m a -- | Declare the Options that a TH computation should use. withOptions :: Options -> OptionsM m a -> m a instance Language.Haskell.TH.Desugar.Reify.DsMonad m => Language.Haskell.TH.Desugar.Reify.DsMonad (Data.Singletons.TH.Options.OptionsM m) instance Control.Monad.IO.Class.MonadIO m => Control.Monad.IO.Class.MonadIO (Data.Singletons.TH.Options.OptionsM m) instance Control.Monad.Fail.MonadFail m => Control.Monad.Fail.MonadFail (Data.Singletons.TH.Options.OptionsM m) instance Language.Haskell.TH.Syntax.Quasi m => Language.Haskell.TH.Syntax.Quasi (Data.Singletons.TH.Options.OptionsM m) instance Control.Monad.Trans.Class.MonadTrans Data.Singletons.TH.Options.OptionsM instance GHC.Base.Monad m => GHC.Base.Monad (Data.Singletons.TH.Options.OptionsM m) instance GHC.Base.Applicative m => GHC.Base.Applicative (Data.Singletons.TH.Options.OptionsM m) instance GHC.Base.Functor m => GHC.Base.Functor (Data.Singletons.TH.Options.OptionsM m) instance Language.Haskell.TH.Desugar.Reify.DsMonad m => Data.Singletons.TH.Options.OptionsMonad (Data.Singletons.TH.Options.OptionsM m) instance Data.Singletons.TH.Options.OptionsMonad Language.Haskell.TH.Syntax.Q instance Data.Singletons.TH.Options.OptionsMonad m => Data.Singletons.TH.Options.OptionsMonad (Language.Haskell.TH.Desugar.Reify.DsM m) instance (Data.Singletons.TH.Options.OptionsMonad q, GHC.Base.Monoid m) => Data.Singletons.TH.Options.OptionsMonad (Data.Singletons.Util.QWithAux m q) instance Data.Singletons.TH.Options.OptionsMonad m => Data.Singletons.TH.Options.OptionsMonad (Control.Monad.Trans.Reader.ReaderT r m) instance Data.Singletons.TH.Options.OptionsMonad m => Data.Singletons.TH.Options.OptionsMonad (Control.Monad.Trans.State.Lazy.StateT s m) instance (Data.Singletons.TH.Options.OptionsMonad m, GHC.Base.Monoid w) => Data.Singletons.TH.Options.OptionsMonad (Control.Monad.Trans.Writer.Lazy.WriterT w m) instance (Data.Singletons.TH.Options.OptionsMonad m, GHC.Base.Monoid w) => Data.Singletons.TH.Options.OptionsMonad (Control.Monad.Trans.RWS.Lazy.RWST r w s m) -- | Defines functions and datatypes relating to the singleton for -- Void, including a singleton version 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.Singletons.Prelude.Void -- | The singleton kind-indexed type family. type family Sing data SVoid z_a1eAT type family Absurd a_a1sXV sAbsurd :: forall a_a1sXS (t_a1sY2 :: Void). Sing t_a1sY2 -> Sing (Apply AbsurdSym0 t_a1sY2 :: a_a1sXS) data AbsurdSym0 a6989586621679359469 type AbsurdSym1 (a6989586621679359469 :: Void) = Absurd a6989586621679359469 :: a_a1sXS instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Void.AbsurdSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Void.AbsurdSym0 -- | Defines functions and datatypes relating to the singleton for tuples, -- including a singletons version 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.Singletons.Prelude.Tuple -- | The singleton kind-indexed type family. type family Sing data STuple0 z_a1eHC [STuple0] :: STuple0 ('() :: ()) data STuple2 z_a1eBh [STuple2] :: forall (a_11 :: Type) (b_12 :: Type) (n_a1eB5 :: a_11) (n_a1eB6 :: b_12). () => Sing n_a1eB5 -> Sing n_a1eB6 -> STuple2 ('(n_a1eB5, n_a1eB6) :: (a_11 :: Type, b_12 :: Type)) data STuple3 z_a1eBS [STuple3] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (n_a1eBB :: a_11) (n_a1eBC :: b_12) (n_a1eBD :: c_13). () => Sing n_a1eBB -> Sing n_a1eBC -> Sing n_a1eBD -> STuple3 ('(n_a1eBB, n_a1eBC, n_a1eBD) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type)) data STuple4 z_a1eCI [STuple4] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (n_a1eCm :: a_11) (n_a1eCn :: b_12) (n_a1eCo :: c_13) (n_a1eCp :: d_14). () => Sing n_a1eCm -> Sing n_a1eCn -> Sing n_a1eCo -> Sing n_a1eCp -> STuple4 ('(n_a1eCm, n_a1eCn, n_a1eCo, n_a1eCp) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type)) data STuple5 z_a1eDP [STuple5] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (n_a1eDo :: a_11) (n_a1eDp :: b_12) (n_a1eDq :: c_13) (n_a1eDr :: d_14) (n_a1eDs :: e_15). () => Sing n_a1eDo -> Sing n_a1eDp -> Sing n_a1eDq -> Sing n_a1eDr -> Sing n_a1eDs -> STuple5 ('(n_a1eDo, n_a1eDp, n_a1eDq, n_a1eDr, n_a1eDs) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type)) data STuple6 z_a1eFf [STuple6] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (f_16 :: Type) (n_a1eEJ :: a_11) (n_a1eEK :: b_12) (n_a1eEL :: c_13) (n_a1eEM :: d_14) (n_a1eEN :: e_15) (n_a1eEO :: f_16). () => Sing n_a1eEJ -> Sing n_a1eEK -> Sing n_a1eEL -> Sing n_a1eEM -> Sing n_a1eEN -> Sing n_a1eEO -> STuple6 ('(n_a1eEJ, n_a1eEK, n_a1eEL, n_a1eEM, n_a1eEN, n_a1eEO) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type)) data STuple7 z_a1eH0 [STuple7] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (f_16 :: Type) (g_17 :: Type) (n_a1eGp :: a_11) (n_a1eGq :: b_12) (n_a1eGr :: c_13) (n_a1eGs :: d_14) (n_a1eGt :: e_15) (n_a1eGu :: f_16) (n_a1eGv :: g_17). () => Sing n_a1eGp -> Sing n_a1eGq -> Sing n_a1eGr -> Sing n_a1eGs -> Sing n_a1eGt -> Sing n_a1eGu -> Sing n_a1eGv -> STuple7 ('(n_a1eGp, n_a1eGq, n_a1eGr, n_a1eGs, n_a1eGt, n_a1eGu, n_a1eGv) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type, g_17 :: Type)) type family Fst a_a1tdG sFst :: forall a_a1tbY b_a1tbZ (t_a1tdY :: (a_a1tbY, b_a1tbZ)). Sing t_a1tdY -> Sing (Apply FstSym0 t_a1tdY :: a_a1tbY) type family Snd a_a1tdC sSnd :: forall a_a1tbW b_a1tbX (t_a1tdW :: (a_a1tbW, b_a1tbX)). Sing t_a1tdW -> Sing (Apply SndSym0 t_a1tdW :: b_a1tbX) type family Curry a_a1tds a_a1tdt a_a1tdu sCurry :: forall a_a1tbT b_a1tbU c_a1tbV (t_a1tdQ :: (~>) (a_a1tbT, b_a1tbU) c_a1tbV) (t_a1tdR :: a_a1tbT) (t_a1tdS :: b_a1tbU). Sing t_a1tdQ -> Sing t_a1tdR -> Sing t_a1tdS -> Sing (Apply (Apply (Apply CurrySym0 t_a1tdQ) t_a1tdR) t_a1tdS :: c_a1tbV) type family Uncurry a_a1tdl a_a1tdm sUncurry :: forall a_a1tbQ b_a1tbR c_a1tbS (t_a1tdM :: (~>) a_a1tbQ ((~>) b_a1tbR c_a1tbS)) (t_a1tdN :: (a_a1tbQ, b_a1tbR)). Sing t_a1tdM -> Sing t_a1tdN -> Sing (Apply (Apply UncurrySym0 t_a1tdM) t_a1tdN :: c_a1tbS) type family Swap a_a1tdg sSwap :: forall a_a1tbO b_a1tbP (t_a1tdK :: (a_a1tbO, b_a1tbP)). Sing t_a1tdK -> Sing (Apply SwapSym0 t_a1tdK :: (b_a1tbP, a_a1tbO)) type Tuple0Sym0 = '() :: () data Tuple2Sym0 a6989586621679304233 data Tuple2Sym1 a6989586621679304233 a6989586621679304234 type Tuple2Sym2 (a6989586621679304233 :: a_11) (a6989586621679304234 :: b_12) = '(a6989586621679304233, a6989586621679304234) :: (a_11 :: Type, b_12 :: Type) data Tuple3Sym0 a6989586621679304264 data Tuple3Sym1 a6989586621679304264 a6989586621679304265 data Tuple3Sym2 a6989586621679304264 a6989586621679304265 a6989586621679304266 type Tuple3Sym3 (a6989586621679304264 :: a_11) (a6989586621679304265 :: b_12) (a6989586621679304266 :: c_13) = '(a6989586621679304264, a6989586621679304265, a6989586621679304266) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type) data Tuple4Sym0 a6989586621679304310 data Tuple4Sym1 a6989586621679304310 a6989586621679304311 data Tuple4Sym2 a6989586621679304310 a6989586621679304311 a6989586621679304312 data Tuple4Sym3 a6989586621679304310 a6989586621679304311 a6989586621679304312 a6989586621679304313 type Tuple4Sym4 (a6989586621679304310 :: a_11) (a6989586621679304311 :: b_12) (a6989586621679304312 :: c_13) (a6989586621679304313 :: d_14) = '(a6989586621679304310, a6989586621679304311, a6989586621679304312, a6989586621679304313) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type) data Tuple5Sym0 a6989586621679304373 data Tuple5Sym1 a6989586621679304373 a6989586621679304374 data Tuple5Sym2 a6989586621679304373 a6989586621679304374 a6989586621679304375 data Tuple5Sym3 a6989586621679304373 a6989586621679304374 a6989586621679304375 a6989586621679304376 data Tuple5Sym4 a6989586621679304373 a6989586621679304374 a6989586621679304375 a6989586621679304376 a6989586621679304377 type Tuple5Sym5 (a6989586621679304373 :: a_11) (a6989586621679304374 :: b_12) (a6989586621679304375 :: c_13) (a6989586621679304376 :: d_14) (a6989586621679304377 :: e_15) = '(a6989586621679304373, a6989586621679304374, a6989586621679304375, a6989586621679304376, a6989586621679304377) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type) data Tuple6Sym0 a6989586621679304455 data Tuple6Sym1 a6989586621679304455 a6989586621679304456 data Tuple6Sym2 a6989586621679304455 a6989586621679304456 a6989586621679304457 data Tuple6Sym3 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 data Tuple6Sym4 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 a6989586621679304459 data Tuple6Sym5 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 a6989586621679304459 a6989586621679304460 type Tuple6Sym6 (a6989586621679304455 :: a_11) (a6989586621679304456 :: b_12) (a6989586621679304457 :: c_13) (a6989586621679304458 :: d_14) (a6989586621679304459 :: e_15) (a6989586621679304460 :: f_16) = '(a6989586621679304455, a6989586621679304456, a6989586621679304457, a6989586621679304458, a6989586621679304459, a6989586621679304460) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type) data Tuple7Sym0 a6989586621679304558 data Tuple7Sym1 a6989586621679304558 a6989586621679304559 data Tuple7Sym2 a6989586621679304558 a6989586621679304559 a6989586621679304560 data Tuple7Sym3 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 data Tuple7Sym4 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 data Tuple7Sym5 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 a6989586621679304563 data Tuple7Sym6 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 a6989586621679304563 a6989586621679304564 type Tuple7Sym7 (a6989586621679304558 :: a_11) (a6989586621679304559 :: b_12) (a6989586621679304560 :: c_13) (a6989586621679304561 :: d_14) (a6989586621679304562 :: e_15) (a6989586621679304563 :: f_16) (a6989586621679304564 :: g_17) = '(a6989586621679304558, a6989586621679304559, a6989586621679304560, a6989586621679304561, a6989586621679304562, a6989586621679304563, a6989586621679304564) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type, g_17 :: Type) data FstSym0 a6989586621679360446 type FstSym1 (a6989586621679360446 :: (a_a1tbY, b_a1tbZ)) = Fst a6989586621679360446 :: a_a1tbY data SndSym0 a6989586621679360442 type SndSym1 (a6989586621679360442 :: (a_a1tbW, b_a1tbX)) = Snd a6989586621679360442 :: b_a1tbX data CurrySym0 a6989586621679360434 data CurrySym1 a6989586621679360434 a6989586621679360435 data CurrySym2 a6989586621679360434 a6989586621679360435 a6989586621679360436 type CurrySym3 (a6989586621679360434 :: (~>) (a_a1tbT, b_a1tbU) c_a1tbV) (a6989586621679360435 :: a_a1tbT) (a6989586621679360436 :: b_a1tbU) = Curry a6989586621679360434 a6989586621679360435 a6989586621679360436 :: c_a1tbV data UncurrySym0 a6989586621679360426 data UncurrySym1 a6989586621679360426 a6989586621679360427 type UncurrySym2 (a6989586621679360426 :: (~>) a_a1tbQ ((~>) b_a1tbR c_a1tbS)) (a6989586621679360427 :: (a_a1tbQ, b_a1tbR)) = Uncurry a6989586621679360426 a6989586621679360427 :: c_a1tbS data SwapSym0 a6989586621679360420 type SwapSym1 (a6989586621679360420 :: (a_a1tbO, b_a1tbP)) = Swap a6989586621679360420 :: (b_a1tbP, a_a1tbO) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Tuple.UncurrySym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Tuple.UncurrySym0 instance forall a b c (a6989586621679360426 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Tuple.UncurrySym1 a6989586621679360426) instance forall a b c (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Tuple.UncurrySym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Tuple.FstSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Tuple.FstSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Tuple.SndSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Tuple.SndSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Tuple.CurrySym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Tuple.CurrySym0 instance forall a b c (a6989586621679360434 :: (a, b) Data.Singletons.Internal.~> c). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Tuple.CurrySym1 a6989586621679360434) instance forall a b c (d :: (a, b) Data.Singletons.Internal.~> c). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Tuple.CurrySym1 d) instance forall a b c (a6989586621679360434 :: (a, b) Data.Singletons.Internal.~> c) (a6989586621679360435 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Tuple.CurrySym2 a6989586621679360434 a6989586621679360435) instance forall a b c (d1 :: (a, b) Data.Singletons.Internal.~> c) (d2 :: a). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Tuple.CurrySym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Tuple.SwapSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Tuple.SwapSym0 -- | Defines functions and datatypes relating to the singleton for -- Bool, including a singletons version 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.Singletons.Prelude.Bool -- | The singleton kind-indexed type family. type family Sing data SBool z_a1eHs [SFalse] :: SBool ('False :: Bool) [STrue] :: SBool ('True :: Bool) -- | 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 :: 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 :: 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 (%&&) :: Sing a -> Sing b -> Sing (a && b) infixr 3 %&& -- | Disjunction of singletons (%||) :: Sing a -> Sing b -> Sing (a || b) infixr 2 %|| bool_ :: a_a1uCX -> a_a1uCX -> Bool -> a_a1uCX type family Bool_ a_a1uD3 a_a1uD4 a_a1uD5 sBool_ :: forall a_a1uCX (t_a1uDe :: a_a1uCX) (t_a1uDf :: a_a1uCX) (t_a1uDg :: Bool). Sing t_a1uDe -> Sing t_a1uDf -> Sing t_a1uDg -> Sing (Apply (Apply (Apply Bool_Sym0 t_a1uDe) t_a1uDf) t_a1uDg :: a_a1uCX) type family Otherwise sOtherwise :: Sing (OtherwiseSym0 :: Bool) type TrueSym0 = 'True :: Bool type FalseSym0 = 'False :: Bool data NotSym0 a6989586621679367240 type NotSym1 (a6989586621679367240 :: Bool) = Not a6989586621679367240 :: Bool data (&&@#@$) a6989586621679366665 infixr 3 &&@#@$ data (&&@#@$$) a6989586621679366665 a6989586621679366666 infixr 3 &&@#@$$ type (&&@#@$$$) (a6989586621679366665 :: Bool) (a6989586621679366666 :: Bool) = (&&) a6989586621679366665 a6989586621679366666 :: Bool infixr 3 &&@#@$$$ data (||@#@$) a6989586621679366963 infixr 2 ||@#@$ data (||@#@$$) a6989586621679366963 a6989586621679366964 infixr 2 ||@#@$$ type (||@#@$$$) (a6989586621679366963 :: Bool) (a6989586621679366964 :: Bool) = (||) a6989586621679366963 a6989586621679366964 :: Bool infixr 2 ||@#@$$$ data Bool_Sym0 a6989586621679365865 data Bool_Sym1 a6989586621679365865 a6989586621679365866 data Bool_Sym2 a6989586621679365865 a6989586621679365866 a6989586621679365867 type Bool_Sym3 (a6989586621679365865 :: a_a1uCX) (a6989586621679365866 :: a_a1uCX) (a6989586621679365867 :: Bool) = Bool_ a6989586621679365865 a6989586621679365866 a6989586621679365867 :: a_a1uCX type OtherwiseSym0 = Otherwise :: Bool instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Bool.NotSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Bool.NotSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Bool.||@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Bool.||@#@$) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Bool.||@#@$$) a6989586621679366963) instance Data.Singletons.Internal.SingI x => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Bool.||@#@$$) x) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Bool.&&@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Bool.&&@#@$) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Bool.&&@#@$$) a6989586621679366665) instance Data.Singletons.Internal.SingI x => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Bool.&&@#@$$) x) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Bool.Bool_Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Bool.Bool_Sym0 instance forall a (a6989586621679365865 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Bool.Bool_Sym1 a6989586621679365865) instance forall a (d :: a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Bool.Bool_Sym1 d) instance forall a (a6989586621679365865 :: a) (a6989586621679365866 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Bool.Bool_Sym2 a6989586621679365865 a6989586621679365866) instance forall a (d1 :: a) (d2 :: a). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Bool.Bool_Sym2 d1 d2) -- | Defines the SEq singleton version of the Eq type class. module Data.Singletons.Prelude.Eq -- | The promoted analogue of Eq. If you supply no definition for -- (==), then it defaults to a use of DefaultEq. class PEq a where { type family (==) (x :: a) (y :: a) :: Bool; type family (/=) (x :: a) (y :: a) :: Bool; type (x :: a) == (y :: a) = x `DefaultEq` y; type (x :: a) /= (y :: a) = Not (x == y); } infix 4 == infix 4 /= -- | The singleton analogue of Eq. Unlike the definition for -- Eq, it is required that instances define a body for -- (%==). You may also supply a body for (%/=). class SEq k -- | Boolean equality on singletons (%==) :: forall (a :: k) (b :: k). SEq k => Sing a -> Sing b -> Sing (a == b) -- | Boolean disequality on singletons (%/=) :: forall (a :: k) (b :: k). SEq k => Sing a -> Sing b -> Sing (a /= b) -- | Boolean disequality on singletons (%/=) :: forall (a :: k) (b :: k). (SEq k, (a /= b) ~ Not (a == b)) => Sing a -> Sing b -> Sing (a /= b) infix 4 %== infix 4 %/= -- | A sensible way to compute Boolean equality for types of any kind. 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 b data (==@#@$) a6989586621679370055 infix 4 ==@#@$ data (==@#@$$) a6989586621679370055 a6989586621679370056 infix 4 ==@#@$$ type (==@#@$$$) (a6989586621679370055 :: a_a1vGR) (a6989586621679370056 :: a_a1vGR) = (==) a6989586621679370055 a6989586621679370056 :: Bool infix 4 ==@#@$$$ data (/=@#@$) a6989586621679370058 infix 4 /=@#@$ data (/=@#@$$) a6989586621679370058 a6989586621679370059 infix 4 /=@#@$$ type (/=@#@$$$) (a6989586621679370058 :: a_a1vGR) (a6989586621679370059 :: a_a1vGR) = (/=) a6989586621679370058 a6989586621679370059 :: Bool infix 4 /=@#@$$$ data DefaultEqSym0 a6989586621679370061 data DefaultEqSym1 a6989586621679370061 a6989586621679370062 type DefaultEqSym2 (a6989586621679370061 :: k_a1vH2) (a6989586621679370062 :: k_a1vH2) = DefaultEq a6989586621679370061 a6989586621679370062 :: Bool instance Data.Singletons.Prelude.Eq.PEq () instance Data.Singletons.Prelude.Eq.PEq GHC.Types.Ordering instance Data.Singletons.Prelude.Eq.PEq GHC.Types.Bool instance Data.Singletons.Prelude.Eq.PEq (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Eq.PEq (a, b, c, d, e, f, g) instance Data.Singletons.Prelude.Eq.PEq (a, b, c, d, e, f) instance Data.Singletons.Prelude.Eq.PEq (a, b, c, d, e) instance Data.Singletons.Prelude.Eq.PEq (a, b, c, d) instance Data.Singletons.Prelude.Eq.PEq (a, b, c) instance Data.Singletons.Prelude.Eq.PEq (a, b) instance Data.Singletons.Prelude.Eq.PEq Data.Void.Void instance Data.Singletons.Prelude.Eq.PEq (GHC.Base.NonEmpty a) instance Data.Singletons.Prelude.Eq.PEq (Data.Either.Either a b) instance Data.Singletons.Prelude.Eq.PEq [a] instance Data.Singletons.Prelude.Eq.PEq (GHC.Maybe.Maybe a) instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Prelude.Eq.SEq (GHC.Maybe.Maybe a) instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq [a]) => Data.Singletons.Prelude.Eq.SEq [a] instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq b) => Data.Singletons.Prelude.Eq.SEq (Data.Either.Either a b) instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq [a]) => Data.Singletons.Prelude.Eq.SEq (GHC.Base.NonEmpty a) instance Data.Singletons.Prelude.Eq.SEq Data.Void.Void instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq b) => Data.Singletons.Prelude.Eq.SEq (a, b) instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq b, Data.Singletons.Prelude.Eq.SEq c) => Data.Singletons.Prelude.Eq.SEq (a, b, c) instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq b, Data.Singletons.Prelude.Eq.SEq c, Data.Singletons.Prelude.Eq.SEq d) => Data.Singletons.Prelude.Eq.SEq (a, b, c, d) instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq b, Data.Singletons.Prelude.Eq.SEq c, Data.Singletons.Prelude.Eq.SEq d, Data.Singletons.Prelude.Eq.SEq e) => Data.Singletons.Prelude.Eq.SEq (a, b, c, d, e) instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq b, Data.Singletons.Prelude.Eq.SEq c, Data.Singletons.Prelude.Eq.SEq d, Data.Singletons.Prelude.Eq.SEq e, Data.Singletons.Prelude.Eq.SEq f) => Data.Singletons.Prelude.Eq.SEq (a, b, c, d, e, f) instance (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Prelude.Eq.SEq b, Data.Singletons.Prelude.Eq.SEq c, Data.Singletons.Prelude.Eq.SEq d, Data.Singletons.Prelude.Eq.SEq e, Data.Singletons.Prelude.Eq.SEq f, Data.Singletons.Prelude.Eq.SEq g) => Data.Singletons.Prelude.Eq.SEq (a, b, c, d, e, f, g) instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Prelude.Eq.SEq (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Eq.SEq GHC.Types.Bool instance Data.Singletons.Prelude.Eq.SEq GHC.Types.Ordering instance Data.Singletons.Prelude.Eq.SEq () instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Eq.==@#@$) instance forall a (x :: a). (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Internal.SingI x) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Eq.==@#@$$) x) instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Eq./=@#@$) instance forall a (x :: a). (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Internal.SingI x) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Eq./=@#@$$) x) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Eq.DefaultEqSym0 instance forall k (a6989586621679370061 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Eq.DefaultEqSym1 a6989586621679370061) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Eq./=@#@$) instance forall a (a6989586621679370058 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Eq./=@#@$$) a6989586621679370058) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Eq.==@#@$) instance forall a (a6989586621679370055 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Eq.==@#@$$) a6989586621679370055) -- | 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.TypeRepTYPE -- | The singleton kind-indexed type family. type family Sing -- | A variant of SomeTypeRep whose underlying TypeRep is -- restricted to kind TYPE rep (for some -- RuntimeRep rep). data SomeTypeRepTYPE r [SomeTypeRepTYPE] :: forall (rep :: RuntimeRep) (a :: TYPE rep). !TypeRep a -> SomeTypeRepTYPE rep instance GHC.Classes.Eq (Data.Singletons.TypeRepTYPE.SomeTypeRepTYPE 'GHC.Types.LiftedRep) instance GHC.Classes.Ord (Data.Singletons.TypeRepTYPE.SomeTypeRepTYPE 'GHC.Types.LiftedRep) instance GHC.Show.Show (Data.Singletons.TypeRepTYPE.SomeTypeRepTYPE 'GHC.Types.LiftedRep) instance Data.Singletons.Internal.SingKind * instance Data.Typeable.Internal.Typeable a => Data.Singletons.Internal.SingI a instance Data.Singletons.Prelude.Eq.PEq * instance Data.Singletons.Prelude.Eq.SEq * instance Data.Singletons.Decide.SDecide * -- | Defines the promoted version of Ord, POrd, and the singleton -- version, SOrd. module Data.Singletons.Prelude.Ord class POrd a_a1zeQ where { type family Compare (arg_a1zfL :: a_a1zeQ) (arg_a1zfM :: a_a1zeQ) :: Ordering; type family (<) (arg_a1zfQ :: a_a1zeQ) (arg_a1zfR :: a_a1zeQ) :: Bool; type family (<=) (arg_a1zfV :: a_a1zeQ) (arg_a1zfW :: a_a1zeQ) :: Bool; type family (>) (arg_a1zg0 :: a_a1zeQ) (arg_a1zg1 :: a_a1zeQ) :: Bool; type family (>=) (arg_a1zg5 :: a_a1zeQ) (arg_a1zg6 :: a_a1zeQ) :: Bool; type family Max (arg_a1zga :: a_a1zeQ) (arg_a1zgb :: a_a1zeQ) :: a_a1zeQ; type family Min (arg_a1zgf :: a_a1zeQ) (arg_a1zgg :: a_a1zeQ) :: a_a1zeQ; type Compare a_a1zgk a_a1zgl = Apply (Apply Compare_6989586621679383674Sym0 a_a1zgk) a_a1zgl; type (<) a_a1zgF a_a1zgG = Apply (Apply TFHelper_6989586621679383695Sym0 a_a1zgF) a_a1zgG; type (<=) a_a1zgV a_a1zgW = Apply (Apply TFHelper_6989586621679383711Sym0 a_a1zgV) a_a1zgW; type (>) a_a1zhb a_a1zhc = Apply (Apply TFHelper_6989586621679383727Sym0 a_a1zhb) a_a1zhc; type (>=) a_a1zhr a_a1zhs = Apply (Apply TFHelper_6989586621679383743Sym0 a_a1zhr) a_a1zhs; type Max a_a1zhH a_a1zhI = Apply (Apply Max_6989586621679383759Sym0 a_a1zhH) a_a1zhI; type Min a_a1zhX a_a1zhY = Apply (Apply Min_6989586621679383775Sym0 a_a1zhX) a_a1zhY; } infix 4 >= infix 4 > infix 4 <= infix 4 < class SEq a_a1zeQ => SOrd a_a1zeQ sCompare :: forall (t_a1zim :: a_a1zeQ) (t_a1zin :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1zim -> Sing t_a1zin -> Sing (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) (%<) :: forall (t_a1ziq :: a_a1zeQ) (t_a1zir :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziq -> Sing t_a1zir -> Sing (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) (%<=) :: forall (t_a1ziu :: a_a1zeQ) (t_a1ziv :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziu -> Sing t_a1ziv -> Sing (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) (%>) :: forall (t_a1ziy :: a_a1zeQ) (t_a1ziz :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziy -> Sing t_a1ziz -> Sing (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) (%>=) :: forall (t_a1ziC :: a_a1zeQ) (t_a1ziD :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziC -> Sing t_a1ziD -> Sing (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) sMax :: forall (t_a1ziG :: a_a1zeQ) (t_a1ziH :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziG -> Sing t_a1ziH -> Sing (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) sMin :: forall (t_a1ziK :: a_a1zeQ) (t_a1ziL :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziK -> Sing t_a1ziL -> Sing (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) sCompare :: forall (t_a1zim :: a_a1zeQ) (t_a1zin :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) ~ Apply (Apply Compare_6989586621679383674Sym0 t_a1zim) t_a1zin) => Sing t_a1zim -> Sing t_a1zin -> Sing (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) (%<) :: forall (t_a1ziq :: a_a1zeQ) (t_a1zir :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) ~ Apply (Apply TFHelper_6989586621679383695Sym0 t_a1ziq) t_a1zir) => Sing t_a1ziq -> Sing t_a1zir -> Sing (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) (%<=) :: forall (t_a1ziu :: a_a1zeQ) (t_a1ziv :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) ~ Apply (Apply TFHelper_6989586621679383711Sym0 t_a1ziu) t_a1ziv) => Sing t_a1ziu -> Sing t_a1ziv -> Sing (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) (%>) :: forall (t_a1ziy :: a_a1zeQ) (t_a1ziz :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) ~ Apply (Apply TFHelper_6989586621679383727Sym0 t_a1ziy) t_a1ziz) => Sing t_a1ziy -> Sing t_a1ziz -> Sing (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) (%>=) :: forall (t_a1ziC :: a_a1zeQ) (t_a1ziD :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) ~ Apply (Apply TFHelper_6989586621679383743Sym0 t_a1ziC) t_a1ziD) => Sing t_a1ziC -> Sing t_a1ziD -> Sing (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) sMax :: forall (t_a1ziG :: a_a1zeQ) (t_a1ziH :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) ~ Apply (Apply Max_6989586621679383759Sym0 t_a1ziG) t_a1ziH) => Sing t_a1ziG -> Sing t_a1ziH -> Sing (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) sMin :: forall (t_a1ziK :: a_a1zeQ) (t_a1ziL :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) ~ Apply (Apply Min_6989586621679383775Sym0 t_a1ziK) t_a1ziL) => Sing t_a1ziK -> Sing t_a1ziL -> Sing (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) infix 4 %<= infix 4 %>= infix 4 %> infix 4 %< type family Comparing a_a1zfB a_a1zfC a_a1zfD sComparing :: forall b_a1zeG a_a1zeF (t_a1zid :: (~>) b_a1zeG a_a1zeF) (t_a1zie :: b_a1zeG) (t_a1zif :: b_a1zeG). SOrd a_a1zeF => Sing t_a1zid -> Sing t_a1zie -> Sing t_a1zif -> Sing (Apply (Apply (Apply ComparingSym0 t_a1zid) t_a1zie) t_a1zif :: Ordering) thenCmp :: Ordering -> Ordering -> Ordering type family ThenCmp a_a1C6j a_a1C6k sThenCmp :: forall (t_a1C6p :: Ordering) (t_a1C6q :: Ordering). Sing t_a1C6p -> Sing t_a1C6q -> Sing (Apply (Apply ThenCmpSym0 t_a1C6p) t_a1C6q :: Ordering) -- | The singleton kind-indexed type family. type family Sing data SOrdering z_a1eHy [SLT] :: SOrdering ('LT :: Ordering) [SEQ] :: SOrdering ('EQ :: Ordering) [SGT] :: SOrdering ('GT :: Ordering) data SDown z_a1BHb [SDown] :: forall (a_aglB :: Type) (n_a1BH4 :: a_aglB). () => Sing n_a1BH4 -> SDown ('Down n_a1BH4 :: Down (a_aglB :: Type)) type family GetDown a_a1BGX sGetDown :: forall (a_aglB :: Type) (t_a1BH1 :: Down (a_aglB :: Type)). Sing t_a1BH1 -> Sing (Apply GetDownSym0 t_a1BH1 :: a_aglB) data ThenCmpSym0 a6989586621679394586 data ThenCmpSym1 a6989586621679394586 a6989586621679394587 type ThenCmpSym2 (a6989586621679394586 :: Ordering) (a6989586621679394587 :: Ordering) = ThenCmp a6989586621679394586 a6989586621679394587 :: Ordering type LTSym0 = 'LT :: Ordering type EQSym0 = 'EQ :: Ordering type GTSym0 = 'GT :: Ordering data CompareSym0 a6989586621679383640 data CompareSym1 a6989586621679383640 a6989586621679383641 type CompareSym2 (a6989586621679383640 :: a_a1zeQ) (a6989586621679383641 :: a_a1zeQ) = Compare a6989586621679383640 a6989586621679383641 :: Ordering data (<@#@$) a6989586621679383645 infix 4 <@#@$ data (<@#@$$) a6989586621679383645 a6989586621679383646 infix 4 <@#@$$ type (<@#@$$$) (a6989586621679383645 :: a_a1zeQ) (a6989586621679383646 :: a_a1zeQ) = (<) a6989586621679383645 a6989586621679383646 :: Bool infix 4 <@#@$$$ data (<=@#@$) a6989586621679383650 infix 4 <=@#@$ data (<=@#@$$) a6989586621679383650 a6989586621679383651 infix 4 <=@#@$$ type (<=@#@$$$) (a6989586621679383650 :: a_a1zeQ) (a6989586621679383651 :: a_a1zeQ) = (<=) a6989586621679383650 a6989586621679383651 :: Bool infix 4 <=@#@$$$ data (>@#@$) a6989586621679383655 infix 4 >@#@$ data (>@#@$$) a6989586621679383655 a6989586621679383656 infix 4 >@#@$$ type (>@#@$$$) (a6989586621679383655 :: a_a1zeQ) (a6989586621679383656 :: a_a1zeQ) = (>) a6989586621679383655 a6989586621679383656 :: Bool infix 4 >@#@$$$ data (>=@#@$) a6989586621679383660 infix 4 >=@#@$ data (>=@#@$$) a6989586621679383660 a6989586621679383661 infix 4 >=@#@$$ type (>=@#@$$$) (a6989586621679383660 :: a_a1zeQ) (a6989586621679383661 :: a_a1zeQ) = (>=) a6989586621679383660 a6989586621679383661 :: Bool infix 4 >=@#@$$$ data MaxSym0 a6989586621679383665 data MaxSym1 a6989586621679383665 a6989586621679383666 type MaxSym2 (a6989586621679383665 :: a_a1zeQ) (a6989586621679383666 :: a_a1zeQ) = Max a6989586621679383665 a6989586621679383666 :: a_a1zeQ data MinSym0 a6989586621679383670 data MinSym1 a6989586621679383670 a6989586621679383671 type MinSym2 (a6989586621679383670 :: a_a1zeQ) (a6989586621679383671 :: a_a1zeQ) = Min a6989586621679383670 a6989586621679383671 :: a_a1zeQ data ComparingSym0 a6989586621679383631 data ComparingSym1 a6989586621679383631 a6989586621679383632 data ComparingSym2 a6989586621679383631 a6989586621679383632 a6989586621679383633 type ComparingSym3 (a6989586621679383631 :: (~>) b_a1zeG a_a1zeF) (a6989586621679383632 :: b_a1zeG) (a6989586621679383633 :: b_a1zeG) = Comparing a6989586621679383631 a6989586621679383632 a6989586621679383633 :: Ordering data DownSym0 a6989586621679393010 type DownSym1 (a6989586621679393010 :: a_aglB) = 'Down a6989586621679393010 :: Down (a_aglB :: Type) data GetDownSym0 a6989586621679393013 type GetDownSym1 (a6989586621679393013 :: Down (a_aglB :: Type)) = GetDown a6989586621679393013 :: a_aglB instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395475Sym0 instance Data.Singletons.Prelude.Ord.POrd () instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395475Sym1 a6989586621679395480) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395466Sym0 instance Data.Singletons.Prelude.Ord.POrd GHC.Types.Ordering instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395466Sym1 a6989586621679395471) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395457Sym0 instance Data.Singletons.Prelude.Ord.POrd GHC.Types.Bool instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395457Sym1 a6989586621679395462) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395444Sym0 instance Data.Singletons.Prelude.Ord.POrd (Data.Functor.Identity.Identity a) instance forall a (a6989586621679395449 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395444Sym1 a6989586621679395449) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395400Sym0 instance Data.Singletons.Prelude.Ord.POrd (a, b, c, d, e, f, g) instance forall a b c d e f g (a6989586621679395405 :: (a, b, c, d, e, f, g)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395400Sym1 a6989586621679395405) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395318Sym0 instance Data.Singletons.Prelude.Ord.POrd (a, b, c, d, e, f) instance forall a b c d e f (a6989586621679395323 :: (a, b, c, d, e, f)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395318Sym1 a6989586621679395323) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395247Sym0 instance Data.Singletons.Prelude.Ord.POrd (a, b, c, d, e) instance forall a b c d e (a6989586621679395252 :: (a, b, c, d, e)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395247Sym1 a6989586621679395252) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395187Sym0 instance Data.Singletons.Prelude.Ord.POrd (a, b, c, d) instance forall a b c d (a6989586621679395192 :: (a, b, c, d)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395187Sym1 a6989586621679395192) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395138Sym0 instance Data.Singletons.Prelude.Ord.POrd (a, b, c) instance forall a b c (a6989586621679395143 :: (a, b, c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395138Sym1 a6989586621679395143) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395100Sym0 instance Data.Singletons.Prelude.Ord.POrd (a, b) instance forall a b (a6989586621679395105 :: (a, b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395100Sym1 a6989586621679395105) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395077Sym0 instance Data.Singletons.Prelude.Ord.POrd Data.Void.Void instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395077Sym1 a6989586621679395082) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395060Sym0 instance Data.Singletons.Prelude.Ord.POrd (GHC.Base.NonEmpty a) instance forall a (a6989586621679395065 :: GHC.Base.NonEmpty a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395060Sym1 a6989586621679395065) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679395032Sym0 instance Data.Singletons.Prelude.Ord.POrd (Data.Either.Either a b) instance forall a b (a6989586621679395037 :: Data.Either.Either a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679395032Sym1 a6989586621679395037) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679394987Sym0 instance Data.Singletons.Prelude.Ord.POrd [a] instance forall a (a6989586621679394992 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679394987Sym1 a6989586621679394992) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679394956Sym0 instance Data.Singletons.Prelude.Ord.POrd (GHC.Maybe.Maybe a) instance forall a (a6989586621679394961 :: GHC.Maybe.Maybe a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679394956Sym1 a6989586621679394961) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Ord.SOrd (GHC.Maybe.Maybe a) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd [a]) => Data.Singletons.Prelude.Ord.SOrd [a] instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd b) => Data.Singletons.Prelude.Ord.SOrd (Data.Either.Either a b) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd [a]) => Data.Singletons.Prelude.Ord.SOrd (GHC.Base.NonEmpty a) instance Data.Singletons.Prelude.Ord.SOrd Data.Void.Void instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd b) => Data.Singletons.Prelude.Ord.SOrd (a, b) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd b, Data.Singletons.Prelude.Ord.SOrd c) => Data.Singletons.Prelude.Ord.SOrd (a, b, c) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd b, Data.Singletons.Prelude.Ord.SOrd c, Data.Singletons.Prelude.Ord.SOrd d) => Data.Singletons.Prelude.Ord.SOrd (a, b, c, d) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd b, Data.Singletons.Prelude.Ord.SOrd c, Data.Singletons.Prelude.Ord.SOrd d, Data.Singletons.Prelude.Ord.SOrd e) => Data.Singletons.Prelude.Ord.SOrd (a, b, c, d, e) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd b, Data.Singletons.Prelude.Ord.SOrd c, Data.Singletons.Prelude.Ord.SOrd d, Data.Singletons.Prelude.Ord.SOrd e, Data.Singletons.Prelude.Ord.SOrd f) => Data.Singletons.Prelude.Ord.SOrd (a, b, c, d, e, f) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Ord.SOrd b, Data.Singletons.Prelude.Ord.SOrd c, Data.Singletons.Prelude.Ord.SOrd d, Data.Singletons.Prelude.Ord.SOrd e, Data.Singletons.Prelude.Ord.SOrd f, Data.Singletons.Prelude.Ord.SOrd g) => Data.Singletons.Prelude.Ord.SOrd (a, b, c, d, e, f, g) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Ord.SOrd (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Ord.SOrd GHC.Types.Bool instance Data.Singletons.Prelude.Ord.SOrd GHC.Types.Ordering instance Data.Singletons.Prelude.Ord.SOrd () instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.ThenCmpSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Ord.ThenCmpSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.ThenCmpSym1 a6989586621679394586) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.ThenCmpSym1 d) instance Data.Singletons.Prelude.Eq.PEq (Data.Ord.Down a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679393717Sym0 instance Data.Singletons.Prelude.Ord.POrd (Data.Ord.Down a) instance forall a (a6989586621679393722 :: Data.Ord.Down a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679393717Sym1 a6989586621679393722) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Ord.SOrd (Data.Ord.Down a) instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Prelude.Eq.SEq (Data.Ord.Down a) instance Data.Singletons.Decide.SDecide a => Data.Singletons.Decide.SDecide (Data.Ord.Down a) instance Data.Singletons.Decide.SDecide a => Data.Type.Equality.TestEquality Data.Singletons.Prelude.Ord.SDown instance Data.Singletons.Decide.SDecide a => Data.Type.Coercion.TestCoercion Data.Singletons.Prelude.Ord.SDown instance Data.Singletons.Internal.SingKind a => Data.Singletons.Internal.SingKind (Data.Ord.Down a) instance forall a (n :: a). Data.Singletons.Internal.SingI n => Data.Singletons.Internal.SingI ('Data.Ord.Down n) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Ord.DownSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.GetDownSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Ord.GetDownSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.DownSym0 instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Ord.ComparingSym0 instance forall a b (d :: b Data.Singletons.Internal.~> a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.ComparingSym1 d) instance forall a b (d1 :: b Data.Singletons.Internal.~> a) (d2 :: b). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.ComparingSym2 d1 d2) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Ord.CompareSym0 instance forall a (d :: a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.CompareSym1 d) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.<@#@$) instance forall a (d :: a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Ord.<@#@$$) d) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.<=@#@$) instance forall a (d :: a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Ord.<=@#@$$) d) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.>@#@$) instance forall a (d :: a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Ord.>@#@$$) d) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.>=@#@$) instance forall a (d :: a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Ord.>=@#@$$) d) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Ord.MaxSym0 instance forall a (d :: a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.MaxSym1 d) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Ord.MinSym0 instance forall a (d :: a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Ord.MinSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.ComparingSym0 instance forall b a (a6989586621679383631 :: b Data.Singletons.Internal.~> a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.ComparingSym1 a6989586621679383631) instance forall b a (a6989586621679383631 :: b Data.Singletons.Internal.~> a) (a6989586621679383632 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.ComparingSym2 a6989586621679383631 a6989586621679383632) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Let6989586621679383704Scrutinee_6989586621679383602Sym0 instance forall k1 (x6989586621679383702 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Let6989586621679383704Scrutinee_6989586621679383602Sym1 x6989586621679383702) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Let6989586621679383720Scrutinee_6989586621679383604Sym0 instance forall k1 (x6989586621679383718 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Let6989586621679383720Scrutinee_6989586621679383604Sym1 x6989586621679383718) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Let6989586621679383736Scrutinee_6989586621679383606Sym0 instance forall k1 (x6989586621679383734 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Let6989586621679383736Scrutinee_6989586621679383606Sym1 x6989586621679383734) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Let6989586621679383752Scrutinee_6989586621679383608Sym0 instance forall k1 (x6989586621679383750 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Let6989586621679383752Scrutinee_6989586621679383608Sym1 x6989586621679383750) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.<@#@$) instance forall a (a6989586621679383645 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Ord.<@#@$$) a6989586621679383645) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Let6989586621679383687Scrutinee_6989586621679383600Sym0 instance forall k1 (x6989586621679383681 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Let6989586621679383687Scrutinee_6989586621679383600Sym1 x6989586621679383681) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Let6989586621679383768Scrutinee_6989586621679383610Sym0 instance forall k1 (x6989586621679383766 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Let6989586621679383768Scrutinee_6989586621679383610Sym1 x6989586621679383766) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Let6989586621679383784Scrutinee_6989586621679383612Sym0 instance forall k1 (x6989586621679383782 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Let6989586621679383784Scrutinee_6989586621679383612Sym1 x6989586621679383782) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.>@#@$) instance forall a (a6989586621679383655 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Ord.>@#@$$) a6989586621679383655) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.>=@#@$) instance forall a (a6989586621679383660 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Ord.>=@#@$$) a6989586621679383660) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.MaxSym0 instance forall a (a6989586621679383665 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.MaxSym1 a6989586621679383665) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.MinSym0 instance forall a (a6989586621679383670 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.MinSym1 a6989586621679383670) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.CompareSym0 instance forall a (a6989586621679383640 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.CompareSym1 a6989586621679383640) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.<=@#@$) instance forall a (a6989586621679383650 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Ord.<=@#@$$) a6989586621679383650) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Compare_6989586621679383674Sym0 instance forall a (a6989586621679383679 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Compare_6989586621679383674Sym1 a6989586621679383679) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.TFHelper_6989586621679383695Sym0 instance forall a (a6989586621679383700 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.TFHelper_6989586621679383695Sym1 a6989586621679383700) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.TFHelper_6989586621679383711Sym0 instance forall a (a6989586621679383716 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.TFHelper_6989586621679383711Sym1 a6989586621679383716) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.TFHelper_6989586621679383727Sym0 instance forall a (a6989586621679383732 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.TFHelper_6989586621679383727Sym1 a6989586621679383732) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.TFHelper_6989586621679383743Sym0 instance forall a (a6989586621679383748 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.TFHelper_6989586621679383743Sym1 a6989586621679383748) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Max_6989586621679383759Sym0 instance forall a (a6989586621679383764 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Max_6989586621679383759Sym1 a6989586621679383764) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Min_6989586621679383775Sym0 instance forall a (a6989586621679383780 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Min_6989586621679383775Sym1 a6989586621679383780) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Ord.Let6989586621679383683Scrutinee_6989586621679383598Sym0 instance forall k1 (x6989586621679383681 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Ord.Let6989586621679383683Scrutinee_6989586621679383598Sym1 x6989586621679383681) -- | Defines the class ShowSing type synonym, which is useful for -- defining Show instances for singleton types. module Data.Singletons.ShowSing -- | In addition to the promoted and singled versions of the Show -- class that singletons provides, it is also useful to be able -- to directly define Show instances for singleton types -- themselves. Doing so is almost entirely straightforward, as a derived -- Show instance does 90 percent of the work. The last 10 -- percent—getting the right instance context—is a bit tricky, and that's -- where ShowSing comes into play. -- -- As an example, let's consider the singleton type for lists. We want to -- write an instance with the following shape: -- --
--   instance ??? => Show (SList (z :: [k])) where
--     showsPrec p SNil = showString "SNil"
--     showsPrec p (SCons sx sxs) =
--       showParen (p > 10) $ showString "SCons " . showsPrec 11 sx
--                          . showSpace . showsPrec 11 sxs
--   
-- -- To figure out what should go in place of ???, observe that we -- require the type of each field to also be Show instances. In -- other words, we need something like (Show (Sing (a -- :: k))). But this isn't quite right, as the type variable -- a doesn't appear in the instance head. In fact, this -- a type is really referring to an existentially quantified -- type variable in the SCons constructor, so it doesn't make -- sense to try and use it like this. -- -- Luckily, the QuantifiedConstraints language extension -- provides a solution to this problem. This lets you write a context of -- the form (forall a. Show (Sing (a :: k))), -- which demands that there be an instance for Show -- (Sing (a :: k)) that is parametric in the use of -- a. This lets us write something closer to this: -- --
--   instance (forall a. Show (Sing (a :: k))) => SList (Sing (z :: [k])) where ...
--   
-- -- The ShowSing class is a thin wrapper around (forall a. -- Show (Sing (a :: k))). With ShowSing, our -- final instance declaration becomes this: -- --
--   instance ShowSing k => Show (SList (z :: [k])) where
--     showsPrec p SNil = showString "SNil"
--     showsPrec p (SCons (sx :: Sing x) (sxs :: Sing xs)) =
--       (showParen (p > 10) $ showString "SCons " . showsPrec 11 sx
--                           . showSpace . showsPrec 11 sxs)
--         :: (ShowSing' x, ShowSing' xs) => ShowS
--   
-- -- (Note that the actual definition of ShowSing is slightly more -- complicated than what this documentation might suggest. For the full -- story, as well as an explanation of why we need an explicit -- (ShowSing' x, ShowSing' xs) => ShowS signature at the end, -- refer to the documentation for ShowSing`.) -- -- When singling a derived Show instance, singletons will -- also generate a Show instance for the corresponding singleton -- type using ShowSing. In other words, if you give -- singletons a derived Show instance, then you'll -- receive the following in return: -- -- -- -- What a bargain! class (forall (z :: k). ShowSing' z) => ShowSing k -- | The workhorse that powers ShowSing. The only reason that -- ShowSing` exists is to work around GHC's inability to put type -- families in the head of a quantified constraint (see this GHC -- issue for more details on this point). In other words, GHC will -- not let you define ShowSing like so: -- --
--   class (forall (z :: k). Show (Sing z)) => ShowSing k
--   
-- -- By replacing Show (Sing z) with ShowSing' -- z, we are able to avoid this restriction for the most part. There -- is one major downside to using ShowSing', however: deriving -- Show instances for singleton types does not work out of the -- box. In other words, if you try to do this: -- --
--   deriving instance ShowSing k => Show (SList (z :: [k]))
--   
-- -- Then GHC will complain to the effect that it could not deduce a -- Show (Sing x) constraint. This is due to -- another unfortunate GHC bug that prevents GHC from realizing -- that ShowSing k implies Show (Sing -- (x :: k)). The workaround is to force GHC to come to its senses -- by using an explicit type signature: -- --
--   instance ShowSing k => Show (SList (z :: [k])) where
--     showsPrec p SNil = showString "SNil"
--     showsPrec p (SCons (sx :: Sing x) (sxs :: Sing xs)) =
--       (showParen (p > 10) $ showString "SCons " . showsPrec 11 sx
--                           . showSpace . showsPrec 11 sxs)
--         :: (ShowSing' x, ShowSing' xs) => ShowS
--   
-- -- The use of ShowSing' x in the signature is sufficient to make -- the constraint solver connect the dots between ShowSing -- k and Show (Sing (x :: k)). (The -- ShowSing' xs constraint is not strictly necessary, but it is -- shown here since that is in fact the code that singletons -- will generate for this instance.) -- -- Because deriving Show will not insert these explicit -- signatures for us, it is not possible to derive Show instances -- for singleton types. Thankfully, singletons' Template Haskell -- machinery can do this manual gruntwork for us 99% of the time, but if -- you ever find yourself in a situation where you must define a -- Show instance for a singleton type by hand, this is important -- to keep in mind. -- -- Note that there is one potential future direction that might alleviate -- this pain. We could define ShowSing` like this instead: -- --
--   class (forall sing. sing ~ Sing => Show (sing z)) => ShowSing' z
--   instance Show (Sing z) => ShowSing' z
--   
-- -- For many examples, this lets you just derive Show instances for -- singleton types like you would expect. Alas, this topples over on -- Bar in the following example: -- --
--   newtype Foo a = MkFoo a
--   data SFoo :: forall a. Foo a -> Type where
--     SMkFoo :: Sing x -> SFoo (MkFoo x)
--   type instance Sing = SFoo
--   deriving instance ShowSing a => Show (SFoo (z :: Foo a))
--   
--   newtype Bar a = MkBar (Foo a)
--   data SBar :: forall a. Bar a -> Type where
--     SMkBar :: Sing x -> SBar (MkBar x)
--   type instance Sing = SBar
--   deriving instance ShowSing (Foo a) => Show (SBar (z :: Bar a))
--   
-- -- This fails because of—you guessed it—another GHC bug. Bummer. -- Unless that bug were to be fixed, the current definition of -- ShowSing` is the best that we can do. class Show (Sing z) => ShowSing' z instance forall a (z :: GHC.Maybe.Maybe a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Instances.SMaybe z) instance forall a (z :: [a]). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing [a]) => GHC.Show.Show (Data.Singletons.Prelude.Instances.SList z) instance forall a b (z :: Data.Either.Either a b). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b) => GHC.Show.Show (Data.Singletons.Prelude.Instances.SEither z) instance forall a (z :: GHC.Base.NonEmpty a). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing [a]) => GHC.Show.Show (Data.Singletons.Prelude.Instances.SNonEmpty z) instance GHC.Show.Show (Data.Singletons.Prelude.Instances.SVoid z) instance forall a b (z :: (a, b)). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b) => GHC.Show.Show (Data.Singletons.Prelude.Instances.STuple2 z) instance forall a b c (z :: (a, b, c)). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b, Data.Singletons.ShowSing.ShowSing c) => GHC.Show.Show (Data.Singletons.Prelude.Instances.STuple3 z) instance forall a b c d (z :: (a, b, c, d)). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b, Data.Singletons.ShowSing.ShowSing c, Data.Singletons.ShowSing.ShowSing d) => GHC.Show.Show (Data.Singletons.Prelude.Instances.STuple4 z) instance forall a b c d e (z :: (a, b, c, d, e)). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b, Data.Singletons.ShowSing.ShowSing c, Data.Singletons.ShowSing.ShowSing d, Data.Singletons.ShowSing.ShowSing e) => GHC.Show.Show (Data.Singletons.Prelude.Instances.STuple5 z) instance forall a b c d e f (z :: (a, b, c, d, e, f)). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b, Data.Singletons.ShowSing.ShowSing c, Data.Singletons.ShowSing.ShowSing d, Data.Singletons.ShowSing.ShowSing e, Data.Singletons.ShowSing.ShowSing f) => GHC.Show.Show (Data.Singletons.Prelude.Instances.STuple6 z) instance forall a b c d e f g (z :: (a, b, c, d, e, f, g)). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b, Data.Singletons.ShowSing.ShowSing c, Data.Singletons.ShowSing.ShowSing d, Data.Singletons.ShowSing.ShowSing e, Data.Singletons.ShowSing.ShowSing f, Data.Singletons.ShowSing.ShowSing g) => GHC.Show.Show (Data.Singletons.Prelude.Instances.STuple7 z) instance forall a (z :: Data.Functor.Identity.Identity a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Instances.SIdentity z) instance GHC.Show.Show (Data.Singletons.Prelude.Instances.SBool z) instance GHC.Show.Show (Data.Singletons.Prelude.Instances.SOrdering z) instance GHC.Show.Show (Data.Singletons.Prelude.Instances.STuple0 z) instance (forall (z :: k). Data.Singletons.ShowSing.ShowSing' z) => Data.Singletons.ShowSing.ShowSing k instance forall k (a :: k). Data.Singletons.ShowSing.ShowSing k => GHC.Show.Show (Data.Singletons.Internal.WrappedSing a) instance forall k (a :: k) (ws :: Data.Singletons.Internal.WrappedSing a). Data.Singletons.ShowSing.ShowSing k => GHC.Show.Show (Data.Singletons.Internal.SWrappedSing ws) instance forall k (z :: k). GHC.Show.Show (Data.Singletons.Internal.Sing z) => Data.Singletons.ShowSing.ShowSing' z instance GHC.Show.Show (Data.Singletons.TypeLits.Internal.SNat n) instance GHC.Show.Show (Data.Singletons.TypeLits.Internal.SSymbol s) -- | Defines and exports singletons useful for the Nat and Symbol kinds. module Data.Singletons.TypeLits -- | (Kind) This is the kind of type-level natural numbers. data Nat -- | (Kind) This is the kind of type-level symbols. Declared here because -- class IP needs it data Symbol -- | The singleton kind-indexed type family. type family Sing data SNat n SNat :: SNat n data SSymbol n SSym :: SSymbol n -- | Given a singleton for Nat, call something requiring a -- KnownNat instance. withKnownNat :: Sing n -> (KnownNat n => r) -> r -- | Given a singleton for Symbol, call something requiring a -- KnownSymbol instance. withKnownSymbol :: Sing n -> (KnownSymbol n => r) -> r -- | The promotion of error. This version is more poly-kinded for -- easier use. type family Error str -- | The singleton for error sError :: HasCallStack => Sing (str :: Symbol) -> a -- | The promotion of errorWithoutStackTrace. This version is more -- poly-kinded for easier use. type family ErrorWithoutStackTrace str -- | The singleton for errorWithoutStackTrace. sErrorWithoutStackTrace :: Sing (str :: Symbol) -> a -- | The promotion of undefined. type family Undefined -- | 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 -- | Exponentiation of type-level naturals. type family (a :: Nat) ^ (b :: Nat) :: Nat infixr 8 ^ -- | The singleton analogue of (^) for Nats. (%^) :: Sing a -> Sing b -> Sing (a ^ b) infixr 8 %^ -- | Comparison of type-level naturals, as a function. NOTE: The -- functionality for this function should be subsumed by CmpNat, -- so this might go away in the future. Please let us know, if you -- encounter discrepancies between the two. type family (a :: Nat) <=? (b :: Nat) :: Bool infix 4 <=? -- | The singleton analogue of <=? -- -- Note that, because of historical reasons in GHC's Nat API, -- <=? is incompatible (unification-wise) with <= and -- the PEq, SEq, POrd, and SOrd instances for -- Nat. (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.Singletons.Prelude.Ord, 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 Nat. (%<=?) :: 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 :: Nat) :: Nat sLog2 :: 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 :: Nat) (b :: Nat) :: Nat infixl 7 `Div` sDiv :: 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 :: Nat) (b :: Nat) :: Nat infixl 7 `Mod` sMod :: Sing x -> Sing y -> Sing (Mod x y) infixl 7 `sMod` type family DivMod a_a21PR a_a21PS sDivMod :: Sing x -> Sing y -> Sing (DivMod x y) type family Quot a_a21Pz a_a21PA infixl 7 `Quot` sQuot :: Sing x -> Sing y -> Sing (Quot x y) infixl 7 `sQuot` type family Rem a_a21Po a_a21Pp infixl 7 `Rem` sRem :: Sing x -> Sing y -> Sing (Rem x y) infixl 7 `sRem` type family QuotRem a_a21PK a_a21PL sQuotRem :: Sing x -> Sing y -> Sing (QuotRem x y) data ErrorSym0 a6989586621679472252 type ErrorSym1 (a6989586621679472252 :: k0_a1W1L) = Error a6989586621679472252 :: k_a1W1M data ErrorWithoutStackTraceSym0 a6989586621679472488 type ErrorWithoutStackTraceSym1 (a6989586621679472488 :: k0_a1Wjc) = ErrorWithoutStackTrace a6989586621679472488 :: k_a1Wjd type UndefinedSym0 = Undefined :: k_a1WmZ data KnownNatSym0 a6989586621679491988 type KnownNatSym1 (a6989586621679491988 :: Nat) = KnownNat a6989586621679491988 :: Constraint data KnownSymbolSym0 a6989586621679491990 type KnownSymbolSym1 (a6989586621679491990 :: Symbol) = KnownSymbol a6989586621679491990 :: Constraint data (^@#@$) a6989586621679472866 infixr 8 ^@#@$ data (^@#@$$) a6989586621679472866 a6989586621679472867 infixr 8 ^@#@$$ type (^@#@$$$) (a6989586621679472866 :: Nat) (a6989586621679472867 :: Nat) = (^) a6989586621679472866 a6989586621679472867 :: Nat infixr 8 ^@#@$$$ data (<=?@#@$) a6989586621679473158 infix 4 <=?@#@$ data (<=?@#@$$) a6989586621679473158 a6989586621679473159 infix 4 <=?@#@$$ type (<=?@#@$$$) (a6989586621679473158 :: Nat) (a6989586621679473159 :: Nat) = (<=?) a6989586621679473158 a6989586621679473159 :: Bool infix 4 <=?@#@$$$ data Log2Sym0 a6989586621679492472 type Log2Sym1 (a6989586621679492472 :: Nat) = Log2 a6989586621679492472 :: Nat data DivSym0 a6989586621679492680 infixl 7 `DivSym0` data DivSym1 a6989586621679492680 a6989586621679492681 infixl 7 `DivSym1` type DivSym2 (a6989586621679492680 :: Nat) (a6989586621679492681 :: Nat) = Div a6989586621679492680 a6989586621679492681 :: Nat infixl 7 `DivSym2` data ModSym0 a6989586621679493016 infixl 7 `ModSym0` data ModSym1 a6989586621679493016 a6989586621679493017 infixl 7 `ModSym1` type ModSym2 (a6989586621679493016 :: Nat) (a6989586621679493017 :: Nat) = Mod a6989586621679493016 a6989586621679493017 :: Nat infixl 7 `ModSym2` data DivModSym0 a6989586621679493510 data DivModSym1 a6989586621679493510 a6989586621679493511 type DivModSym2 (a6989586621679493510 :: Nat) (a6989586621679493511 :: Nat) = DivMod a6989586621679493510 a6989586621679493511 :: (Nat, Nat) data QuotSym0 a6989586621679493492 infixl 7 `QuotSym0` data QuotSym1 a6989586621679493492 a6989586621679493493 infixl 7 `QuotSym1` type QuotSym2 (a6989586621679493492 :: Nat) (a6989586621679493493 :: Nat) = Quot a6989586621679493492 a6989586621679493493 :: Nat infixl 7 `QuotSym2` data RemSym0 a6989586621679493481 infixl 7 `RemSym0` data RemSym1 a6989586621679493481 a6989586621679493482 infixl 7 `RemSym1` type RemSym2 (a6989586621679493481 :: Nat) (a6989586621679493482 :: Nat) = Rem a6989586621679493481 a6989586621679493482 :: Nat infixl 7 `RemSym2` data QuotRemSym0 a6989586621679493503 data QuotRemSym1 a6989586621679493503 a6989586621679493504 type QuotRemSym2 (a6989586621679493503 :: Nat) (a6989586621679493504 :: Nat) = QuotRem a6989586621679493503 a6989586621679493504 :: (Nat, Nat) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.QuotRemSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.TypeLits.QuotRemSym1 a6989586621679493503) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.DivModSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.TypeLits.DivModSym1 a6989586621679493510) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.QuotSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.TypeLits.QuotSym1 a6989586621679493492) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.RemSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.TypeLits.RemSym1 a6989586621679493481) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.ModSym0 instance Data.Singletons.Internal.SingI Data.Singletons.TypeLits.ModSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.TypeLits.ModSym1 a6989586621679493016) instance Data.Singletons.Internal.SingI x => Data.Singletons.Internal.SingI (Data.Singletons.TypeLits.ModSym1 x) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.DivSym0 instance Data.Singletons.Internal.SingI Data.Singletons.TypeLits.DivSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.TypeLits.DivSym1 a6989586621679492680) instance Data.Singletons.Internal.SingI x => Data.Singletons.Internal.SingI (Data.Singletons.TypeLits.DivSym1 x) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.Log2Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.TypeLits.Log2Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.KnownSymbolSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeLits.KnownNatSym0 instance GHC.Num.Num GHC.Types.Nat instance GHC.Classes.Eq GHC.Types.Nat instance GHC.Classes.Ord GHC.Types.Nat instance GHC.Enum.Enum GHC.Types.Nat instance GHC.Show.Show GHC.Types.Nat instance GHC.Classes.Eq GHC.Types.Symbol instance GHC.Classes.Ord GHC.Types.Symbol instance Data.String.IsString GHC.Types.Symbol instance GHC.Base.Semigroup GHC.Types.Symbol instance GHC.Base.Monoid GHC.Types.Symbol instance GHC.Show.Show GHC.Types.Symbol -- | Defines functions and datatypes relating to the singleton for -- Maybe, including a singletons version 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.Singletons.Prelude.Maybe -- | The singleton kind-indexed type family. type family Sing data SMaybe z_a1ezf [SNothing] :: forall (a_11 :: Type). () => SMaybe ('Nothing :: Maybe (a_11 :: Type)) [SJust] :: forall (a_11 :: Type) (n_a1ez8 :: a_11). () => Sing n_a1ez8 -> SMaybe ('Just n_a1ez8 :: Maybe (a_11 :: Type)) maybe_ :: b_a23GM -> (a_a23GN -> b_a23GM) -> Maybe a_a23GN -> b_a23GM type family Maybe_ a_a23H4 a_a23H5 a_a23H6 sMaybe_ :: forall b_a23GM a_a23GN (t_a23He :: b_a23GM) (t_a23Hf :: (~>) a_a23GN b_a23GM) (t_a23Hg :: Maybe a_a23GN). Sing t_a23He -> Sing t_a23Hf -> Sing t_a23Hg -> Sing (Apply (Apply (Apply Maybe_Sym0 t_a23He) t_a23Hf) t_a23Hg :: b_a23GM) type family IsJust a_a246F sIsJust :: forall a_a243q (t_a2470 :: Maybe a_a243q). Sing t_a2470 -> Sing (Apply IsJustSym0 t_a2470 :: Bool) type family IsNothing a_a246C sIsNothing :: forall a_a243p (t_a246Y :: Maybe a_a243p). Sing t_a246Y -> Sing (Apply IsNothingSym0 t_a246Y :: Bool) type family FromJust a_a246y sFromJust :: forall a_a243o (t_a246W :: Maybe a_a243o). Sing t_a246W -> Sing (Apply FromJustSym0 t_a246W :: a_a243o) type family FromMaybe a_a246n a_a246o sFromMaybe :: forall a_a243n (t_a246S :: a_a243n) (t_a246T :: Maybe a_a243n). Sing t_a246S -> Sing t_a246T -> Sing (Apply (Apply FromMaybeSym0 t_a246S) t_a246T :: a_a243n) type family ListToMaybe a_a246f sListToMaybe :: forall a_a243l (t_a246O :: [a_a243l]). Sing t_a246O -> Sing (Apply ListToMaybeSym0 t_a246O :: Maybe a_a243l) type family MaybeToList a_a246j sMaybeToList :: forall a_a243m (t_a246Q :: Maybe a_a243m). Sing t_a246Q -> Sing (Apply MaybeToListSym0 t_a246Q :: [a_a243m]) type family CatMaybes a_a2469 sCatMaybes :: forall a_a243k (t_a246M :: [Maybe a_a243k]). Sing t_a246M -> Sing (Apply CatMaybesSym0 t_a246M :: [a_a243k]) type family MapMaybe a_a245T a_a245U sMapMaybe :: forall a_a243i b_a243j (t_a246I :: (~>) a_a243i (Maybe b_a243j)) (t_a246J :: [a_a243i]). Sing t_a246I -> Sing t_a246J -> Sing (Apply (Apply MapMaybeSym0 t_a246I) t_a246J :: [b_a243j]) type NothingSym0 = 'Nothing :: Maybe (a_11 :: Type) data JustSym0 a6989586621679304113 type JustSym1 (a6989586621679304113 :: a_11) = 'Just a6989586621679304113 :: Maybe (a_11 :: Type) data Maybe_Sym0 a6989586621679500654 data Maybe_Sym1 a6989586621679500654 a6989586621679500655 data Maybe_Sym2 a6989586621679500654 a6989586621679500655 a6989586621679500656 type Maybe_Sym3 (a6989586621679500654 :: b_a23GM) (a6989586621679500655 :: (~>) a_a23GN b_a23GM) (a6989586621679500656 :: Maybe a_a23GN) = Maybe_ a6989586621679500654 a6989586621679500655 a6989586621679500656 :: b_a23GM data IsJustSym0 a6989586621679502239 type IsJustSym1 (a6989586621679502239 :: Maybe a_a243q) = IsJust a6989586621679502239 :: Bool data IsNothingSym0 a6989586621679502236 type IsNothingSym1 (a6989586621679502236 :: Maybe a_a243p) = IsNothing a6989586621679502236 :: Bool data FromJustSym0 a6989586621679502232 type FromJustSym1 (a6989586621679502232 :: Maybe a_a243o) = FromJust a6989586621679502232 :: a_a243o data FromMaybeSym0 a6989586621679502222 data FromMaybeSym1 a6989586621679502222 a6989586621679502223 type FromMaybeSym2 (a6989586621679502222 :: a_a243n) (a6989586621679502223 :: Maybe a_a243n) = FromMaybe a6989586621679502222 a6989586621679502223 :: a_a243n data ListToMaybeSym0 a6989586621679502213 type ListToMaybeSym1 (a6989586621679502213 :: [a_a243l]) = ListToMaybe a6989586621679502213 :: Maybe a_a243l data MaybeToListSym0 a6989586621679502217 type MaybeToListSym1 (a6989586621679502217 :: Maybe a_a243m) = MaybeToList a6989586621679502217 :: [a_a243m] data CatMaybesSym0 a6989586621679502207 type CatMaybesSym1 (a6989586621679502207 :: [Maybe a_a243k]) = CatMaybes a6989586621679502207 :: [a_a243k] data MapMaybeSym0 a6989586621679502192 data MapMaybeSym1 a6989586621679502192 a6989586621679502193 type MapMaybeSym2 (a6989586621679502192 :: (~>) a_a243i (Maybe b_a243j)) (a6989586621679502193 :: [a_a243i]) = MapMaybe a6989586621679502192 a6989586621679502193 :: [b_a243j] instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.IsJustSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.IsJustSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.IsNothingSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.IsNothingSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.FromJustSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.FromJustSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.FromMaybeSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.FromMaybeSym0 instance forall a (a6989586621679502222 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Maybe.FromMaybeSym1 a6989586621679502222) instance forall a (d :: a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Maybe.FromMaybeSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.MaybeToListSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.MaybeToListSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.ListToMaybeSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.ListToMaybeSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.CatMaybesSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.CatMaybesSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.Let6989586621679502197RsSym0 instance forall a k1 k (f6989586621679502194 :: a Data.Singletons.Internal.~> GHC.Maybe.Maybe k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Maybe.Let6989586621679502197RsSym1 f6989586621679502194) instance forall a k1 k (f6989586621679502194 :: a Data.Singletons.Internal.~> GHC.Maybe.Maybe k1) (x6989586621679502195 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Maybe.Let6989586621679502197RsSym2 f6989586621679502194 x6989586621679502195) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.MapMaybeSym0 instance forall a b (a6989586621679502192 :: a Data.Singletons.Internal.~> GHC.Maybe.Maybe b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Maybe.MapMaybeSym1 a6989586621679502192) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.MapMaybeSym0 instance forall a b (d :: a Data.Singletons.Internal.~> GHC.Maybe.Maybe b). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Maybe.MapMaybeSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.Let6989586621679502199Scrutinee_6989586621679502063Sym0 instance forall k1 k2 k3 (f6989586621679502194 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Maybe.Let6989586621679502199Scrutinee_6989586621679502063Sym1 f6989586621679502194) instance forall k1 k2 k3 (f6989586621679502194 :: k1 Data.Singletons.Internal.~> k2) (x6989586621679502195 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Maybe.Let6989586621679502199Scrutinee_6989586621679502063Sym2 f6989586621679502194 x6989586621679502195) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Maybe.Maybe_Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Maybe.Maybe_Sym0 instance forall b a (a6989586621679500654 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Maybe.Maybe_Sym1 a6989586621679500654) instance forall b (d :: b) a. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Maybe.Maybe_Sym1 d) instance forall b a (a6989586621679500654 :: b) (a6989586621679500655 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Maybe.Maybe_Sym2 a6989586621679500654 a6989586621679500655) instance forall b (d1 :: b) a (d2 :: a Data.Singletons.Internal.~> b). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Maybe.Maybe_Sym2 d1 d2) -- | Defines Sigma, a dependent pair data type, and related -- functions. module Data.Singletons.Sigma -- | A dependent pair. data Sigma s t [:&:] :: forall s t fst. Sing (fst :: s) -> (t @@ fst) -> Sigma s t infixr 4 :&: -- | Unicode shorthand for Sigma. type Σ = Sigma -- | The singleton kind-indexed type family. type family Sing -- | The singleton type for Sigma. data SSigma sig [:%&:] :: forall s t (fst :: s) (sfst :: Sing fst) (snd :: t @@ fst). Sing ('WrapSing sfst) -> Sing snd -> SSigma (sfst :&: snd :: Sigma s t) infixr 4 :%&: -- | Unicode shorthand for SSigma. type SΣ = SSigma -- | Project the first element out of a dependent pair. fstSigma :: forall s t. SingKind s => Sigma s t -> Demote s -- | Project the first element out of a dependent pair. type family FstSigma sig -- | Project the second element out of a dependent pair. sndSigma :: forall s t (sig :: Sigma s t). SingKind (t @@ FstSigma sig) => SSigma sig -> Demote (t @@ FstSigma sig) -- | Project the second element out of a dependent pair. type family SndSigma sig -- | Project the first element out of a dependent pair using -- continuation-passing style. projSigma1 :: (forall (fst :: s). Sing fst -> r) -> Sigma s t -> r -- | Project the second element out of a dependent pair using -- continuation-passing style. projSigma2 :: forall s t r. (forall (fst :: s). (t @@ fst) -> r) -> Sigma s t -> r -- | Map across a Sigma value in a dependent fashion. mapSigma :: Sing (f :: a ~> b) -> (forall (x :: a). (p @@ x) -> q @@ (f @@ x)) -> Sigma a p -> Sigma b q -- | Zip two Sigma values together in a dependent fashion. zipSigma :: Sing (f :: a ~> (b ~> c)) -> (forall (x :: a) (y :: b). (p @@ x) -> (q @@ y) -> r @@ ((f @@ x) @@ y)) -> Sigma a p -> Sigma b q -> Sigma c r -- | Convert an uncurried function on Sigma to a curried one. -- -- Together, currySigma and uncurrySigma witness an -- isomorphism such that the following identities hold: -- --
--   id1 :: forall a (b :: a ~> Type) (c :: Sigma a b ~> Type).
--          (forall (p :: Sigma a b). SSigma p -> c @ p)
--       -> (forall (p :: Sigma a b). SSigma p -> c  p)
--   id1 f = uncurrySigma a b c (currySigma a b c f)
--   
--   id2 :: forall a (b :: a ~> Type) (c :: Sigma a b ~> Type).
--          (forall (x :: a) (sx :: Sing x) (y :: b  x). Sing (WrapSing sx) -> Sing y -> c  (sx :&: y))
--       -> (forall (x :: a) (sx :: Sing x) (y :: b  x). Sing (WrapSing sx) -> Sing y -> c  (sx :&: y))
--   id2 f = currySigma a b c (uncurrySigma a b @c f)
--   
currySigma :: forall a (b :: a ~> Type) (c :: Sigma a b ~> Type). (forall (p :: Sigma a b). SSigma p -> c @@ p) -> forall (x :: a) (sx :: Sing x) (y :: b @@ x). Sing ('WrapSing sx) -> Sing y -> c @@ (sx :&: y) -- | Convert a curried function on Sigma to an uncurried one. -- -- Together, currySigma and uncurrySigma witness an -- isomorphism. (Refer to the documentation for currySigma for -- more details.) uncurrySigma :: forall a (b :: a ~> Type) (c :: Sigma a b ~> Type). (forall (x :: a) (sx :: Sing x) (y :: b @@ x). Sing ('WrapSing sx) -> Sing y -> c @@ (sx :&: y)) -> forall (p :: Sigma a b). SSigma p -> c @@ p class (forall (x :: a). ShowApply' f x) => ShowApply (f :: a ~> Type) class (forall (x :: a) (z :: Apply f x). ShowSingApply' f x z) => ShowSingApply (f :: a ~> Type) class Show (Apply f x) => ShowApply' (f :: a ~> Type) (x :: a) class Show (Sing z) => ShowSingApply' (f :: a ~> Type) (x :: a) (z :: Apply f x) instance forall s (t :: s Data.Singletons.Internal.~> *) (sig :: Data.Singletons.Sigma.Sigma s t). (Data.Singletons.ShowSing.ShowSing s, Data.Singletons.Sigma.ShowSingApply t) => GHC.Show.Show (Data.Singletons.Sigma.SSigma sig) instance forall a (f :: a Data.Singletons.Internal.~> *). (forall (x :: a) (z :: Data.Singletons.Internal.Apply f x). Data.Singletons.Sigma.ShowSingApply' f x z) => Data.Singletons.Sigma.ShowSingApply f instance forall a (f :: a Data.Singletons.Internal.~> *) (x :: a) (z :: Data.Singletons.Internal.Apply f x). GHC.Show.Show (Data.Singletons.Internal.Sing z) => Data.Singletons.Sigma.ShowSingApply' f x z instance forall s (t :: s Data.Singletons.Internal.~> *). (Data.Singletons.ShowSing.ShowSing s, Data.Singletons.Sigma.ShowApply t) => GHC.Show.Show (Data.Singletons.Sigma.Sigma s t) instance forall a (f :: a Data.Singletons.Internal.~> *). (forall (x :: a). Data.Singletons.Sigma.ShowApply' f x) => Data.Singletons.Sigma.ShowApply f instance forall a (f :: a Data.Singletons.Internal.~> *) (x :: a). GHC.Show.Show (Data.Singletons.Internal.Apply f x) => Data.Singletons.Sigma.ShowApply' f x instance forall s (t :: s Data.Singletons.Internal.~> *) (fst :: s) (a :: Data.Singletons.Internal.Sing fst) (b :: t Data.Singletons.Internal.@@ fst). (Data.Singletons.Internal.SingI fst, Data.Singletons.Internal.SingI b) => Data.Singletons.Internal.SingI (a 'Data.Singletons.Sigma.:&: b) -- | Defines and exports promoted and singleton versions of definitions -- from GHC.Num. -- -- Be warned that some of the associated type families in the PNum -- class ((+), (-), and (*)) clash with their -- counterparts for Nat in the GHC.TypeLits module. module Data.Singletons.Prelude.Num class PNum a_a2897 where { type family (+) (arg_a289z :: a_a2897) (arg_a289A :: a_a2897) :: a_a2897; type family (-) (arg_a289E :: a_a2897) (arg_a289F :: a_a2897) :: a_a2897; type family (*) (arg_a289J :: a_a2897) (arg_a289K :: a_a2897) :: a_a2897; type family Negate (arg_a289O :: a_a2897) :: a_a2897; type family Abs (arg_a289R :: a_a2897) :: a_a2897; type family Signum (arg_a289U :: a_a2897) :: a_a2897; type family FromInteger (arg_a289X :: Nat) :: a_a2897; type (-) a_a28a0 a_a28a1 = Apply (Apply TFHelper_6989586621679517822Sym0 a_a28a0) a_a28a1; type Negate a_a28ab = Apply Negate_6989586621679517832Sym0 a_a28ab; } infixl 6 + infixl 7 * infixl 6 - class SNum a_a2897 (%+) :: forall (t_a28bn :: a_a2897) (t_a28bo :: a_a2897). SNum a_a2897 => Sing t_a28bn -> Sing t_a28bo -> Sing (Apply (Apply (+@#@$) t_a28bn) t_a28bo :: a_a2897) (%-) :: forall (t_a28br :: a_a2897) (t_a28bs :: a_a2897). SNum a_a2897 => Sing t_a28br -> Sing t_a28bs -> Sing (Apply (Apply (-@#@$) t_a28br) t_a28bs :: a_a2897) (%*) :: forall (t_a28bv :: a_a2897) (t_a28bw :: a_a2897). SNum a_a2897 => Sing t_a28bv -> Sing t_a28bw -> Sing (Apply (Apply (*@#@$) t_a28bv) t_a28bw :: a_a2897) sNegate :: forall (t_a28bz :: a_a2897). SNum a_a2897 => Sing t_a28bz -> Sing (Apply NegateSym0 t_a28bz :: a_a2897) sAbs :: forall (t_a28bB :: a_a2897). SNum a_a2897 => Sing t_a28bB -> Sing (Apply AbsSym0 t_a28bB :: a_a2897) sSignum :: forall (t_a28bD :: a_a2897). SNum a_a2897 => Sing t_a28bD -> Sing (Apply SignumSym0 t_a28bD :: a_a2897) sFromInteger :: forall (t_a28bF :: Nat). SNum a_a2897 => Sing t_a28bF -> Sing (Apply FromIntegerSym0 t_a28bF :: a_a2897) (%-) :: forall (t_a28br :: a_a2897) (t_a28bs :: a_a2897). (SNum a_a2897, (Apply (Apply (-@#@$) t_a28br) t_a28bs :: a_a2897) ~ Apply (Apply TFHelper_6989586621679517822Sym0 t_a28br) t_a28bs) => Sing t_a28br -> Sing t_a28bs -> Sing (Apply (Apply (-@#@$) t_a28br) t_a28bs :: a_a2897) sNegate :: forall (t_a28bz :: a_a2897). (SNum a_a2897, (Apply NegateSym0 t_a28bz :: a_a2897) ~ Apply Negate_6989586621679517832Sym0 t_a28bz) => Sing t_a28bz -> Sing (Apply NegateSym0 t_a28bz :: a_a2897) infixl 6 %+ infixl 6 %- infixl 7 %* type family Subtract a_a289s a_a289t sSubtract :: forall a_a288X (t_a28bh :: a_a288X) (t_a28bi :: a_a288X). SNum a_a288X => Sing t_a28bh -> Sing t_a28bi -> Sing (Apply (Apply SubtractSym0 t_a28bh) t_a28bi :: a_a288X) data (+@#@$) a6989586621679517796 infixl 6 +@#@$ data (+@#@$$) a6989586621679517796 a6989586621679517797 infixl 6 +@#@$$ type (+@#@$$$) (a6989586621679517796 :: a_a2897) (a6989586621679517797 :: a_a2897) = (+) a6989586621679517796 a6989586621679517797 :: a_a2897 infixl 6 +@#@$$$ data (-@#@$) a6989586621679517801 infixl 6 -@#@$ data (-@#@$$) a6989586621679517801 a6989586621679517802 infixl 6 -@#@$$ type (-@#@$$$) (a6989586621679517801 :: a_a2897) (a6989586621679517802 :: a_a2897) = (-) a6989586621679517801 a6989586621679517802 :: a_a2897 infixl 6 -@#@$$$ data (*@#@$) a6989586621679517806 infixl 7 *@#@$ data (*@#@$$) a6989586621679517806 a6989586621679517807 infixl 7 *@#@$$ type (*@#@$$$) (a6989586621679517806 :: a_a2897) (a6989586621679517807 :: a_a2897) = (*) a6989586621679517806 a6989586621679517807 :: a_a2897 infixl 7 *@#@$$$ data NegateSym0 a6989586621679517810 type NegateSym1 (a6989586621679517810 :: a_a2897) = Negate a6989586621679517810 :: a_a2897 data AbsSym0 a6989586621679517813 type AbsSym1 (a6989586621679517813 :: a_a2897) = Abs a6989586621679517813 :: a_a2897 data SignumSym0 a6989586621679517816 type SignumSym1 (a6989586621679517816 :: a_a2897) = Signum a6989586621679517816 :: a_a2897 data FromIntegerSym0 a6989586621679517819 type FromIntegerSym1 (a6989586621679517819 :: Nat) = FromInteger a6989586621679517819 :: a_a2897 data SubtractSym0 a6989586621679517789 data SubtractSym1 a6989586621679517789 a6989586621679517790 type SubtractSym2 (a6989586621679517789 :: a_a288X) (a6989586621679517790 :: a_a288X) = Subtract a6989586621679517789 a6989586621679517790 :: a_a288X instance Data.Singletons.Prelude.Num.PNum GHC.Types.Nat instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Num.SubtractSym0 instance forall a (d :: a). (Data.Singletons.Prelude.Num.SNum a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Num.SubtractSym1 d) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Prelude.Num.SNum (Data.Ord.Down a) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Num.+@#@$) instance forall a (d :: a). (Data.Singletons.Prelude.Num.SNum a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Num.+@#@$$) d) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Num.-@#@$) instance forall a (d :: a). (Data.Singletons.Prelude.Num.SNum a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Num.-@#@$$) d) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Num.*@#@$) instance forall a (d :: a). (Data.Singletons.Prelude.Num.SNum a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Num.*@#@$$) d) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Num.NegateSym0 instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Num.AbsSym0 instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Num.SignumSym0 instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Num.FromIntegerSym0 instance Data.Singletons.Prelude.Num.SNum GHC.Types.Nat instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.FromInteger_6989586621679517893Sym0 instance Data.Singletons.Prelude.Num.PNum (Data.Ord.Down a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.Signum_6989586621679517886Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.Abs_6989586621679517879Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.Negate_6989586621679517872Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.TFHelper_6989586621679517862Sym0 instance forall a (a6989586621679517867 :: Data.Ord.Down a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Num.TFHelper_6989586621679517862Sym1 a6989586621679517867) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.TFHelper_6989586621679517851Sym0 instance forall a (a6989586621679517856 :: Data.Ord.Down a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Num.TFHelper_6989586621679517851Sym1 a6989586621679517856) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.TFHelper_6989586621679517840Sym0 instance forall a (a6989586621679517845 :: Data.Ord.Down a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Num.TFHelper_6989586621679517840Sym1 a6989586621679517845) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.SubtractSym0 instance forall a (a6989586621679517789 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Num.SubtractSym1 a6989586621679517789) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Num.*@#@$) instance forall a (a6989586621679517806 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Num.*@#@$$) a6989586621679517806) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.AbsSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.SignumSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.FromIntegerSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Num.+@#@$) instance forall a (a6989586621679517796 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Num.+@#@$$) a6989586621679517796) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Num.-@#@$) instance forall a (a6989586621679517801 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Num.-@#@$$) a6989586621679517801) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.NegateSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.TFHelper_6989586621679517822Sym0 instance forall a (a6989586621679517827 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Num.TFHelper_6989586621679517822Sym1 a6989586621679517827) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Num.Negate_6989586621679517832Sym0 -- | Implements singletonized versions of functions from GHC.Base -- module. -- -- Because many of these definitions are produced by Template Haskell, it -- is not possible to create proper Haddock documentation. Please look up -- the corresponding operation in Data.Tuple. Also, please -- excuse the apparent repeated variable names. This is due to an -- interaction between Template Haskell and Haddock. module Data.Singletons.Prelude.Base type family Foldr a_a2cqC a_a2cqD a_a2cqE sFoldr :: forall a_a2cnd b_a2cne (t_a2crD :: (~>) a_a2cnd ((~>) b_a2cne b_a2cne)) (t_a2crE :: b_a2cne) (t_a2crF :: [a_a2cnd]). Sing t_a2crD -> Sing t_a2crE -> Sing t_a2crF -> Sing (Apply (Apply (Apply FoldrSym0 t_a2crD) t_a2crE) t_a2crF :: b_a2cne) type family Map a_a2cqs a_a2cqt sMap :: forall a_a2cnb b_a2cnc (t_a2crz :: (~>) a_a2cnb b_a2cnc) (t_a2crA :: [a_a2cnb]). Sing t_a2crz -> Sing t_a2crA -> Sing (Apply (Apply MapSym0 t_a2crz) t_a2crA :: [b_a2cnc]) type family (++) a_a2cqj a_a2cqk infixr 5 ++ (%++) :: forall a_a2cna (t_a2crv :: [a_a2cna]) (t_a2crw :: [a_a2cna]). Sing t_a2crv -> Sing t_a2crw -> Sing (Apply (Apply (++@#@$) t_a2crv) t_a2crw :: [a_a2cna]) infixr 5 %++ type family Otherwise sOtherwise :: Sing (OtherwiseSym0 :: Bool) type family Id a_a2cqf sId :: forall a_a2cn9 (t_a2crt :: a_a2cn9). Sing t_a2crt -> Sing (Apply IdSym0 t_a2crt :: a_a2cn9) type family Const a_a2cq9 a_a2cqa sConst :: forall a_a2cn7 b_a2cn8 (t_a2crp :: a_a2cn7) (t_a2crq :: b_a2cn8). Sing t_a2crp -> Sing t_a2crq -> Sing (Apply (Apply ConstSym0 t_a2crp) t_a2crq :: a_a2cn7) type family (.) a_a2cpV a_a2cpW a_a2cpX infixr 9 . (%.) :: forall b_a2cn4 c_a2cn5 a_a2cn6 (t_a2crj :: (~>) b_a2cn4 c_a2cn5) (t_a2crk :: (~>) a_a2cn6 b_a2cn4) (t_a2crl :: a_a2cn6). Sing t_a2crj -> Sing t_a2crk -> Sing t_a2crl -> Sing (Apply (Apply (Apply (.@#@$) t_a2crj) t_a2crk) t_a2crl :: c_a2cn5) infixr 9 %. type family ($) a_a2cpr a_a2cps infixr 0 $ type family ($!) a_a2cpi a_a2cpj infixr 0 $! (%$) :: forall a_a2cmY b_a2cmZ (t_a2cr5 :: (~>) a_a2cmY b_a2cmZ) (t_a2cr6 :: a_a2cmY). Sing t_a2cr5 -> Sing t_a2cr6 -> Sing (Apply (Apply ($@#@$) t_a2cr5) t_a2cr6 :: b_a2cmZ) infixr 0 %$ (%$!) :: forall a_a2cmW b_a2cmX (t_a2cr1 :: (~>) a_a2cmW b_a2cmX) (t_a2cr2 :: a_a2cmW). Sing t_a2cr1 -> Sing t_a2cr2 -> Sing (Apply (Apply ($!@#@$) t_a2cr1) t_a2cr2 :: b_a2cmX) infixr 0 %$! type family Until a_a2coZ a_a2cp0 a_a2cp1 sUntil :: forall a_a2cmV (t_a2cqV :: (~>) a_a2cmV Bool) (t_a2cqW :: (~>) a_a2cmV a_a2cmV) (t_a2cqX :: a_a2cmV). Sing t_a2cqV -> Sing t_a2cqW -> Sing t_a2cqX -> Sing (Apply (Apply (Apply UntilSym0 t_a2cqV) t_a2cqW) t_a2cqX :: a_a2cmV) type family Flip a_a2cpJ a_a2cpK a_a2cpL sFlip :: forall a_a2cn1 b_a2cn2 c_a2cn3 (t_a2crd :: (~>) a_a2cn1 ((~>) b_a2cn2 c_a2cn3)) (t_a2cre :: b_a2cn2) (t_a2crf :: a_a2cn1). Sing t_a2crd -> Sing t_a2cre -> Sing t_a2crf -> Sing (Apply (Apply (Apply FlipSym0 t_a2crd) t_a2cre) t_a2crf :: c_a2cn3) type family AsTypeOf a_a2cpC a_a2cpD sAsTypeOf :: forall a_a2cn0 (t_a2cr9 :: a_a2cn0) (t_a2cra :: a_a2cn0). Sing t_a2cr9 -> Sing t_a2cra -> Sing (Apply (Apply AsTypeOfSym0 t_a2cr9) t_a2cra :: a_a2cn0) type family Seq a_a2coR a_a2coS infixr 0 `Seq` sSeq :: forall a_a2cmT b_a2cmU (t_a2cqR :: a_a2cmT) (t_a2cqS :: b_a2cmU). Sing t_a2cqR -> Sing t_a2cqS -> Sing (Apply (Apply SeqSym0 t_a2cqR) t_a2cqS :: b_a2cmU) infixr 0 `sSeq` data FoldrSym0 a6989586621679534230 data FoldrSym1 a6989586621679534230 a6989586621679534231 data FoldrSym2 a6989586621679534230 a6989586621679534231 a6989586621679534232 type FoldrSym3 (a6989586621679534230 :: (~>) a_a2cnd ((~>) b_a2cne b_a2cne)) (a6989586621679534231 :: b_a2cne) (a6989586621679534232 :: [a_a2cnd]) = Foldr a6989586621679534230 a6989586621679534231 a6989586621679534232 :: b_a2cne data MapSym0 a6989586621679534219 data MapSym1 a6989586621679534219 a6989586621679534220 type MapSym2 (a6989586621679534219 :: (~>) a_a2cnb b_a2cnc) (a6989586621679534220 :: [a_a2cnb]) = Map a6989586621679534219 a6989586621679534220 :: [b_a2cnc] data (++@#@$) a6989586621679534210 infixr 5 ++@#@$ data (++@#@$$) a6989586621679534210 a6989586621679534211 infixr 5 ++@#@$$ type (++@#@$$$) (a6989586621679534210 :: [a_a2cna]) (a6989586621679534211 :: [a_a2cna]) = (++) a6989586621679534210 a6989586621679534211 :: [a_a2cna] infixr 5 ++@#@$$$ type OtherwiseSym0 = Otherwise :: Bool data IdSym0 a6989586621679534205 type IdSym1 (a6989586621679534205 :: a_a2cn9) = Id a6989586621679534205 :: a_a2cn9 data ConstSym0 a6989586621679534200 data ConstSym1 a6989586621679534200 a6989586621679534201 type ConstSym2 (a6989586621679534200 :: a_a2cn7) (a6989586621679534201 :: b_a2cn8) = Const a6989586621679534200 a6989586621679534201 :: a_a2cn7 data (.@#@$) a6989586621679534187 infixr 9 .@#@$ data (.@#@$$) a6989586621679534187 a6989586621679534188 infixr 9 .@#@$$ data (.@#@$$$) a6989586621679534187 a6989586621679534188 a6989586621679534189 infixr 9 .@#@$$$ type (.@#@$$$$) (a6989586621679534187 :: (~>) b_a2cn4 c_a2cn5) (a6989586621679534188 :: (~>) a_a2cn6 b_a2cn4) (a6989586621679534189 :: a_a2cn6) = (.) a6989586621679534187 a6989586621679534188 a6989586621679534189 :: c_a2cn5 infixr 9 .@#@$$$$ data ($@#@$) a6989586621679534156 infixr 0 $@#@$ data ($@#@$$) a6989586621679534156 a6989586621679534157 infixr 0 $@#@$$ type ($@#@$$$) (a6989586621679534156 :: (~>) a_a2cmY b_a2cmZ) (a6989586621679534157 :: a_a2cmY) = ($) a6989586621679534156 a6989586621679534157 :: b_a2cmZ infixr 0 $@#@$$$ data ($!@#@$) a6989586621679534147 infixr 0 $!@#@$ data ($!@#@$$) a6989586621679534147 a6989586621679534148 infixr 0 $!@#@$$ type ($!@#@$$$) (a6989586621679534147 :: (~>) a_a2cmW b_a2cmX) (a6989586621679534148 :: a_a2cmW) = ($!) a6989586621679534147 a6989586621679534148 :: b_a2cmX infixr 0 $!@#@$$$ data UntilSym0 a6989586621679534129 data UntilSym1 a6989586621679534129 a6989586621679534130 data UntilSym2 a6989586621679534129 a6989586621679534130 a6989586621679534131 type UntilSym3 (a6989586621679534129 :: (~>) a_a2cmV Bool) (a6989586621679534130 :: (~>) a_a2cmV a_a2cmV) (a6989586621679534131 :: a_a2cmV) = Until a6989586621679534129 a6989586621679534130 a6989586621679534131 :: a_a2cmV data FlipSym0 a6989586621679534175 data FlipSym1 a6989586621679534175 a6989586621679534176 data FlipSym2 a6989586621679534175 a6989586621679534176 a6989586621679534177 type FlipSym3 (a6989586621679534175 :: (~>) a_a2cn1 ((~>) b_a2cn2 c_a2cn3)) (a6989586621679534176 :: b_a2cn2) (a6989586621679534177 :: a_a2cn1) = Flip a6989586621679534175 a6989586621679534176 a6989586621679534177 :: c_a2cn3 data AsTypeOfSym0 a6989586621679534167 data AsTypeOfSym1 a6989586621679534167 a6989586621679534168 type AsTypeOfSym2 (a6989586621679534167 :: a_a2cn0) (a6989586621679534168 :: a_a2cn0) = AsTypeOf a6989586621679534167 a6989586621679534168 :: a_a2cn0 data SeqSym0 a6989586621679534120 infixr 0 `SeqSym0` data SeqSym1 a6989586621679534120 a6989586621679534121 infixr 0 `SeqSym1` type SeqSym2 (a6989586621679534120 :: a_a2cmT) (a6989586621679534121 :: b_a2cmU) = Seq a6989586621679534120 a6989586621679534121 :: b_a2cmU infixr 0 `SeqSym2` instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.FoldrSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Base.FoldrSym0 instance forall a b (a6989586621679534230 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.FoldrSym1 a6989586621679534230) instance forall a b (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.FoldrSym1 d) instance forall a b (a6989586621679534230 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621679534231 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.FoldrSym2 a6989586621679534230 a6989586621679534231) instance forall a b (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (d2 :: b). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.FoldrSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.MapSym0 instance forall a b (a6989586621679534219 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.MapSym1 a6989586621679534219) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Base.MapSym0 instance forall a b (d :: a Data.Singletons.Internal.~> b). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.MapSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.++@#@$) instance forall a (a6989586621679534210 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Base.++@#@$$) a6989586621679534210) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.++@#@$) instance forall a (d :: [a]). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Base.++@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.IdSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Base.IdSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.AsTypeOfSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Base.AsTypeOfSym0 instance forall a (a6989586621679534167 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.AsTypeOfSym1 a6989586621679534167) instance forall a (d :: a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.AsTypeOfSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.ConstSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Base.ConstSym0 instance forall a b (a6989586621679534200 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.ConstSym1 a6989586621679534200) instance forall a (d :: a) b. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.ConstSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base..@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base..@#@$) instance forall b c a (a6989586621679534187 :: b Data.Singletons.Internal.~> c). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Base..@#@$$) a6989586621679534187) instance forall b c (d :: b Data.Singletons.Internal.~> c) a. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Base..@#@$$) d) instance forall b c a (a6989586621679534187 :: b Data.Singletons.Internal.~> c) (a6989586621679534188 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (a6989586621679534187 Data.Singletons.Prelude.Base..@#@$$$ a6989586621679534188) instance forall b c (d1 :: b Data.Singletons.Internal.~> c) a (d2 :: a Data.Singletons.Internal.~> b). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (d1 Data.Singletons.Prelude.Base..@#@$$$ d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.FlipSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Base.FlipSym0 instance forall a b c (a6989586621679534175 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.FlipSym1 a6989586621679534175) instance forall a b c (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.FlipSym1 d) instance forall a b c (a6989586621679534175 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621679534176 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.FlipSym2 a6989586621679534175 a6989586621679534176) instance forall a b c (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (d2 :: b). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.FlipSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.$@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.$@#@$) instance forall a b (a6989586621679534156 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Base.$@#@$$) a6989586621679534156) instance forall a b (d :: a Data.Singletons.Internal.~> b). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Base.$@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.$!@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.$!@#@$) instance forall a b (a6989586621679534147 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Base.$!@#@$$) a6989586621679534147) instance forall a b (d :: a Data.Singletons.Internal.~> b). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Base.$!@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.UntilSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Base.UntilSym0 instance forall a (a6989586621679534129 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.UntilSym1 a6989586621679534129) instance forall a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.UntilSym1 d) instance forall a (a6989586621679534129 :: a Data.Singletons.Internal.~> GHC.Types.Bool) (a6989586621679534130 :: a Data.Singletons.Internal.~> a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.UntilSym2 a6989586621679534129 a6989586621679534130) instance forall a (d1 :: a Data.Singletons.Internal.~> GHC.Types.Bool) (d2 :: a Data.Singletons.Internal.~> a). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.UntilSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.SeqSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Base.SeqSym0 instance forall a b (a6989586621679534120 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.SeqSym1 a6989586621679534120) instance forall a (d :: a) b. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Base.SeqSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.Let6989586621679534236GoSym0 instance forall k1 k2 k3 (k6989586621679534233 :: k1 Data.Singletons.Internal.~> (k2 Data.Singletons.Internal.~> k2)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534236GoSym1 k6989586621679534233) instance forall k1 k2 k3 (k6989586621679534233 :: k1 Data.Singletons.Internal.~> (k2 Data.Singletons.Internal.~> k2)) (z6989586621679534234 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534236GoSym2 k6989586621679534233 z6989586621679534234) instance forall k1 k2 k3 (k6989586621679534233 :: k1 Data.Singletons.Internal.~> (k2 Data.Singletons.Internal.~> k2)) (z6989586621679534234 :: k2) (a_69895866216795342246989586621679534235 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534236GoSym3 k6989586621679534233 z6989586621679534234 a_69895866216795342246989586621679534235) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.Lambda_6989586621679534193Sym0 instance forall k2 k3 k4 k5 (f6989586621679534190 :: k2 Data.Singletons.Internal.~> k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Lambda_6989586621679534193Sym1 f6989586621679534190) instance forall k2 k3 k4 k5 (f6989586621679534190 :: k2 Data.Singletons.Internal.~> k3) (g6989586621679534191 :: k4 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Lambda_6989586621679534193Sym2 f6989586621679534190 g6989586621679534191) instance forall k2 k3 k4 k5 (f6989586621679534190 :: k2 Data.Singletons.Internal.~> k3) (g6989586621679534191 :: k4 Data.Singletons.Internal.~> k2) (a_69895866216795341816989586621679534192 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Lambda_6989586621679534193Sym3 f6989586621679534190 g6989586621679534191 a_69895866216795341816989586621679534192) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.Let6989586621679534151VxSym0 instance forall k1 k2 (f6989586621679534149 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534151VxSym1 f6989586621679534149) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.Let6989586621679534135GoSym0 instance forall k1 k2 (p6989586621679534132 :: k1 Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534135GoSym1 p6989586621679534132) instance forall k1 k2 (p6989586621679534132 :: k1 Data.Singletons.Internal.~> GHC.Types.Bool) (f6989586621679534133 :: k1 Data.Singletons.Internal.~> k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534135GoSym2 p6989586621679534132 f6989586621679534133) instance forall k1 k2 (p6989586621679534132 :: k1 Data.Singletons.Internal.~> GHC.Types.Bool) (f6989586621679534133 :: k1 Data.Singletons.Internal.~> k1) (a_69895866216795341236989586621679534134 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534135GoSym3 p6989586621679534132 f6989586621679534133 a_69895866216795341236989586621679534134) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Base.Let6989586621679534139Scrutinee_6989586621679534059Sym0 instance forall k1 k2 k3 k4 (x6989586621679534138 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534139Scrutinee_6989586621679534059Sym1 x6989586621679534138) instance forall k1 k2 k3 k4 (x6989586621679534138 :: k1) (p6989586621679534132 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534139Scrutinee_6989586621679534059Sym2 x6989586621679534138 p6989586621679534132) instance forall k1 k2 k3 k4 (x6989586621679534138 :: k1) (p6989586621679534132 :: k1 Data.Singletons.Internal.~> k2) (f6989586621679534133 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Base.Let6989586621679534139Scrutinee_6989586621679534059Sym3 x6989586621679534138 p6989586621679534132 f6989586621679534133) -- | Defines the promoted and singled versions of the MonadFail type -- class. module Data.Singletons.Prelude.Monad.Fail class PMonadFail m_a31ec where { type family Fail (arg_a31ew :: [Char]) :: m_a31ec a_a31ed; } class SMonad m_a31ec => SMonadFail m_a31ec sFail :: forall a_a31ed (t_a31eL :: [Char]). SMonadFail m_a31ec => Sing t_a31eL -> Sing (Apply FailSym0 t_a31eL :: m_a31ec a_a31ed) data FailSym0 a6989586621679729522 type FailSym1 (a6989586621679729522 :: [Char]) = Fail a6989586621679729522 :: m_a31ec a_a31ed instance Data.Singletons.Prelude.Monad.Fail.SMonadFail GHC.Maybe.Maybe instance Data.Singletons.Prelude.Monad.Fail.SMonadFail [] instance Data.Singletons.Prelude.Monad.Fail.SMonadFail m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.Fail.FailSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Fail.Fail_6989586621679729530Sym0 instance Data.Singletons.Prelude.Monad.Fail.PMonadFail [] instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Fail.Fail_6989586621679729524Sym0 instance Data.Singletons.Prelude.Monad.Fail.PMonadFail GHC.Maybe.Maybe instance forall k (m :: k -> *) (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Fail.FailSym0 -- | Defines the promoted and singled versions of the Functor type -- class. module Data.Singletons.Prelude.Functor class PFunctor f_a2iYg where { type family Fmap (arg_a2j2U :: (~>) a_a2iYh b_a2iYi) (arg_a2j2V :: f_a2iYg a_a2iYh) :: f_a2iYg b_a2iYi; type family (<$) (arg_a2j2Z :: a_a2iYj) (arg_a2j30 :: f_a2iYg b_a2iYk) :: f_a2iYg a_a2iYj; type (<$) a_a2j34 a_a2j35 = Apply (Apply TFHelper_6989586621679559676Sym0 a_a2j34) a_a2j35; } infixl 4 <$ class SFunctor f_a2iYg sFmap :: forall a_a2iYh b_a2iYi (t_a2j7g :: (~>) a_a2iYh b_a2iYi) (t_a2j7h :: f_a2iYg a_a2iYh). SFunctor f_a2iYg => Sing t_a2j7g -> Sing t_a2j7h -> Sing (Apply (Apply FmapSym0 t_a2j7g) t_a2j7h :: f_a2iYg b_a2iYi) (%<$) :: forall a_a2iYj b_a2iYk (t_a2j7k :: a_a2iYj) (t_a2j7l :: f_a2iYg b_a2iYk). SFunctor f_a2iYg => Sing t_a2j7k -> Sing t_a2j7l -> Sing (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) (%<$) :: forall a_a2iYj b_a2iYk (t_a2j7k :: a_a2iYj) (t_a2j7l :: f_a2iYg b_a2iYk). (SFunctor f_a2iYg, (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) ~ Apply (Apply TFHelper_6989586621679559676Sym0 t_a2j7k) t_a2j7l) => Sing t_a2j7k -> Sing t_a2j7l -> Sing (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) infixl 4 %<$ type family ($>) a_a31Md a_a31Me infixl 4 $> (%$>) :: forall f_a31L2 a_a31L3 b_a31L4 (t_a31NE :: f_a31L2 a_a31L3) (t_a31NF :: b_a31L4). SFunctor f_a31L2 => Sing t_a31NE -> Sing t_a31NF -> Sing (Apply (Apply ($>@#@$) t_a31NE) t_a31NF :: f_a31L2 b_a31L4) infixl 4 %$> type family (<$>) a_a31Mv a_a31Mw infixl 4 <$> (%<$>) :: forall a_a31L9 b_a31La f_a31L8 (t_a31NM :: (~>) a_a31L9 b_a31La) (t_a31NN :: f_a31L8 a_a31L9). SFunctor f_a31L8 => Sing t_a31NM -> Sing t_a31NN -> Sing (Apply (Apply (<$>@#@$) t_a31NM) t_a31NN :: f_a31L8 b_a31La) infixl 4 %<$> type family (<&>) a_a31Mk a_a31Ml infixl 1 <&> (%<&>) :: forall f_a31L5 a_a31L6 b_a31L7 (t_a31NI :: f_a31L5 a_a31L6) (t_a31NJ :: (~>) a_a31L6 b_a31L7). SFunctor f_a31L5 => Sing t_a31NI -> Sing t_a31NJ -> Sing (Apply (Apply (<&>@#@$) t_a31NI) t_a31NJ :: f_a31L5 b_a31L7) infixl 1 %<&> type family Void a_a31M5 sVoid :: forall f_a31L0 a_a31L1 (t_a31NC :: f_a31L0 a_a31L1). SFunctor f_a31L0 => Sing t_a31NC -> Sing (Apply VoidSym0 t_a31NC :: f_a31L0 ()) data FmapSym0 a6989586621679559667 data FmapSym1 a6989586621679559667 a6989586621679559668 type FmapSym2 (a6989586621679559667 :: (~>) a_a2iYh b_a2iYi) (a6989586621679559668 :: f_a2iYg a_a2iYh) = Fmap a6989586621679559667 a6989586621679559668 :: f_a2iYg b_a2iYi data (<$@#@$) a6989586621679559672 infixl 4 <$@#@$ data (<$@#@$$) a6989586621679559672 a6989586621679559673 infixl 4 <$@#@$$ type (<$@#@$$$) (a6989586621679559672 :: a_a2iYj) (a6989586621679559673 :: f_a2iYg b_a2iYk) = (<$) a6989586621679559672 a6989586621679559673 :: f_a2iYg a_a2iYj infixl 4 <$@#@$$$ data ($>@#@$) a6989586621679731612 infixl 4 $>@#@$ data ($>@#@$$) a6989586621679731612 a6989586621679731613 infixl 4 $>@#@$$ type ($>@#@$$$) (a6989586621679731612 :: f_a31L2 a_a31L3) (a6989586621679731613 :: b_a31L4) = ($>) a6989586621679731612 a6989586621679731613 :: f_a31L2 b_a31L4 infixl 4 $>@#@$$$ data (<$>@#@$) a6989586621679731630 infixl 4 <$>@#@$ data (<$>@#@$$) a6989586621679731630 a6989586621679731631 infixl 4 <$>@#@$$ type (<$>@#@$$$) (a6989586621679731630 :: (~>) a_a31L9 b_a31La) (a6989586621679731631 :: f_a31L8 a_a31L9) = (<$>) a6989586621679731630 a6989586621679731631 :: f_a31L8 b_a31La infixl 4 <$>@#@$$$ data (<&>@#@$) a6989586621679731619 infixl 1 <&>@#@$ data (<&>@#@$$) a6989586621679731619 a6989586621679731620 infixl 1 <&>@#@$$ type (<&>@#@$$$) (a6989586621679731619 :: f_a31L5 a_a31L6) (a6989586621679731620 :: (~>) a_a31L6 b_a31L7) = (<&>) a6989586621679731619 a6989586621679731620 :: f_a31L5 b_a31L7 infixl 1 <&>@#@$$$ data VoidSym0 a6989586621679731603 type VoidSym1 (a6989586621679731603 :: f_a31L0 a_a31L1) = Void a6989586621679731603 :: f_a31L0 () instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.TFHelper_6989586621679731683Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Ord.Down instance forall a b (a6989586621679731688 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.TFHelper_6989586621679731683Sym1 a6989586621679731688) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.Lambda_6989586621679731692Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Ord.Down instance forall k1 k2 k3 (_z_69895866216797315936989586621679731690 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731692Sym1 _z_69895866216797315936989586621679731690) instance forall k1 k2 k3 (_z_69895866216797315936989586621679731690 :: k1) (a_69895866216797315996989586621679731691 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731692Sym2 _z_69895866216797315936989586621679731690 a_69895866216797315996989586621679731691) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.Fmap_6989586621679731672Sym0 instance forall a b (a6989586621679731677 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Fmap_6989586621679731672Sym1 a6989586621679731677) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.TFHelper_6989586621679731652Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor ((,) a) instance forall a1 a2 b (a6989586621679731657 :: a1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.TFHelper_6989586621679731652Sym1 a6989586621679731657) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.Lambda_6989586621679731666Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor ((,) a) instance forall k1 k2 k3 k4 (_z_69895866216797315726989586621679731659 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731666Sym1 _z_69895866216797315726989586621679731659) instance forall k1 k2 k3 k4 (_z_69895866216797315726989586621679731659 :: k1) (a_69895866216797315846989586621679731660 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731666Sym2 _z_69895866216797315726989586621679731659 a_69895866216797315846989586621679731660) instance forall k1 k2 k3 k4 (_z_69895866216797315726989586621679731659 :: k1) (a_69895866216797315846989586621679731660 :: k2) (a_69895866216797315866989586621679731661 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731666Sym3 _z_69895866216797315726989586621679731659 a_69895866216797315846989586621679731660 a_69895866216797315866989586621679731661) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.Lambda_6989586621679731662Sym0 instance forall k1 k2 k3 k4 (_z_69895866216797315726989586621679731659 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731662Sym1 _z_69895866216797315726989586621679731659) instance forall k1 k2 k3 k4 (_z_69895866216797315726989586621679731659 :: k1) (a_69895866216797315846989586621679731660 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731662Sym2 _z_69895866216797315726989586621679731659 a_69895866216797315846989586621679731660) instance forall k1 k2 k3 k4 (_z_69895866216797315726989586621679731659 :: k1) (a_69895866216797315846989586621679731660 :: k2) (a_69895866216797315866989586621679731661 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731662Sym3 _z_69895866216797315726989586621679731659 a_69895866216797315846989586621679731660 a_69895866216797315866989586621679731661) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.Fmap_6989586621679731636Sym0 instance forall a1 b a2 (a6989586621679731641 :: a1 Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Fmap_6989586621679731636Sym1 a6989586621679731641) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.Lambda_6989586621679731646Sym0 instance forall k1 k2 k3 k4 (_f_69895866216797315706989586621679731643 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731646Sym1 _f_69895866216797315706989586621679731643) instance forall k1 k2 k3 k4 (_f_69895866216797315706989586621679731643 :: k1) (a_69895866216797315766989586621679731644 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731646Sym2 _f_69895866216797315706989586621679731643 a_69895866216797315766989586621679731644) instance forall k1 k2 k3 k4 (_f_69895866216797315706989586621679731643 :: k1) (a_69895866216797315766989586621679731644 :: k2) (a_69895866216797315786989586621679731645 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.Lambda_6989586621679731646Sym3 _f_69895866216797315706989586621679731643 a_69895866216797315766989586621679731644 a_69895866216797315786989586621679731645) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.<&>@#@$) instance Data.Singletons.Prelude.Monad.Internal.SFunctor f => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Functor.<&>@#@$) instance forall (f :: * -> *) a b (a6989586621679731619 :: f a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Functor.<&>@#@$$) a6989586621679731619) instance forall (f :: * -> *) a (d :: f a) b. (Data.Singletons.Prelude.Monad.Internal.SFunctor f, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Functor.<&>@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.<$>@#@$) instance Data.Singletons.Prelude.Monad.Internal.SFunctor f => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Functor.<$>@#@$) instance forall a b (f :: * -> *) (a6989586621679731630 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Functor.<$>@#@$$) a6989586621679731630) instance forall (f :: * -> *) a b (d :: a Data.Singletons.Internal.~> b). (Data.Singletons.Prelude.Monad.Internal.SFunctor f, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Functor.<$>@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Functor.$>@#@$) instance Data.Singletons.Prelude.Monad.Internal.SFunctor f => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Functor.$>@#@$) instance forall (f :: * -> *) a b (a6989586621679731612 :: f a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Functor.$>@#@$$) a6989586621679731612) instance forall (f :: * -> *) a (d :: f a) b. (Data.Singletons.Prelude.Monad.Internal.SFunctor f, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Functor.$>@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Functor.VoidSym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor f => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Functor.VoidSym0 -- | 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.Singletons.Prelude.Function type family Id a_a2cqf sId :: forall a_a2cn9 (t_a2crt :: a_a2cn9). Sing t_a2crt -> Sing (Apply IdSym0 t_a2crt :: a_a2cn9) type family Const a_a2cq9 a_a2cqa sConst :: forall a_a2cn7 b_a2cn8 (t_a2crp :: a_a2cn7) (t_a2crq :: b_a2cn8). Sing t_a2crp -> Sing t_a2crq -> Sing (Apply (Apply ConstSym0 t_a2crp) t_a2crq :: a_a2cn7) type family (.) a_a2cpV a_a2cpW a_a2cpX infixr 9 . (%.) :: forall b_a2cn4 c_a2cn5 a_a2cn6 (t_a2crj :: (~>) b_a2cn4 c_a2cn5) (t_a2crk :: (~>) a_a2cn6 b_a2cn4) (t_a2crl :: a_a2cn6). Sing t_a2crj -> Sing t_a2crk -> Sing t_a2crl -> Sing (Apply (Apply (Apply (.@#@$) t_a2crj) t_a2crk) t_a2crl :: c_a2cn5) infixr 9 %. type family Flip a_a2cpJ a_a2cpK a_a2cpL sFlip :: forall a_a2cn1 b_a2cn2 c_a2cn3 (t_a2crd :: (~>) a_a2cn1 ((~>) b_a2cn2 c_a2cn3)) (t_a2cre :: b_a2cn2) (t_a2crf :: a_a2cn1). Sing t_a2crd -> Sing t_a2cre -> Sing t_a2crf -> Sing (Apply (Apply (Apply FlipSym0 t_a2crd) t_a2cre) t_a2crf :: c_a2cn3) type family ($) a_a2cpr a_a2cps infixr 0 $ (%$) :: forall a_a2cmY b_a2cmZ (t_a2cr5 :: (~>) a_a2cmY b_a2cmZ) (t_a2cr6 :: a_a2cmY). Sing t_a2cr5 -> Sing t_a2cr6 -> Sing (Apply (Apply ($@#@$) t_a2cr5) t_a2cr6 :: b_a2cmZ) infixr 0 %$ type family (&) a_a35T1 a_a35T2 infixl 1 & (%&) :: forall a_a35SO b_a35SP (t_a35Tu :: a_a35SO) (t_a35Tv :: (~>) a_a35SO b_a35SP). Sing t_a35Tu -> Sing t_a35Tv -> Sing (Apply (Apply (&@#@$) t_a35Tu) t_a35Tv :: b_a35SP) infixl 1 %& type family On a_a35Tc a_a35Td a_a35Te a_a35Tf infixl 0 `On` sOn :: forall b_a35SQ c_a35SR a_a35SS (t_a35Ty :: (~>) b_a35SQ ((~>) b_a35SQ c_a35SR)) (t_a35Tz :: (~>) a_a35SS b_a35SQ) (t_a35TA :: a_a35SS) (t_a35TB :: a_a35SS). Sing t_a35Ty -> Sing t_a35Tz -> Sing t_a35TA -> Sing t_a35TB -> Sing (Apply (Apply (Apply (Apply OnSym0 t_a35Ty) t_a35Tz) t_a35TA) t_a35TB :: c_a35SR) infixl 0 `sOn` data IdSym0 a6989586621679534205 type IdSym1 (a6989586621679534205 :: a_a2cn9) = Id a6989586621679534205 :: a_a2cn9 data ConstSym0 a6989586621679534200 data ConstSym1 a6989586621679534200 a6989586621679534201 type ConstSym2 (a6989586621679534200 :: a_a2cn7) (a6989586621679534201 :: b_a2cn8) = Const a6989586621679534200 a6989586621679534201 :: a_a2cn7 data (.@#@$) a6989586621679534187 infixr 9 .@#@$ data (.@#@$$) a6989586621679534187 a6989586621679534188 infixr 9 .@#@$$ data (.@#@$$$) a6989586621679534187 a6989586621679534188 a6989586621679534189 infixr 9 .@#@$$$ type (.@#@$$$$) (a6989586621679534187 :: (~>) b_a2cn4 c_a2cn5) (a6989586621679534188 :: (~>) a_a2cn6 b_a2cn4) (a6989586621679534189 :: a_a2cn6) = (.) a6989586621679534187 a6989586621679534188 a6989586621679534189 :: c_a2cn5 infixr 9 .@#@$$$$ data FlipSym0 a6989586621679534175 data FlipSym1 a6989586621679534175 a6989586621679534176 data FlipSym2 a6989586621679534175 a6989586621679534176 a6989586621679534177 type FlipSym3 (a6989586621679534175 :: (~>) a_a2cn1 ((~>) b_a2cn2 c_a2cn3)) (a6989586621679534176 :: b_a2cn2) (a6989586621679534177 :: a_a2cn1) = Flip a6989586621679534175 a6989586621679534176 a6989586621679534177 :: c_a2cn3 data ($@#@$) a6989586621679534156 infixr 0 $@#@$ data ($@#@$$) a6989586621679534156 a6989586621679534157 infixr 0 $@#@$$ type ($@#@$$$) (a6989586621679534156 :: (~>) a_a2cmY b_a2cmZ) (a6989586621679534157 :: a_a2cmY) = ($) a6989586621679534156 a6989586621679534157 :: b_a2cmZ infixr 0 $@#@$$$ data (&@#@$) a6989586621679747410 infixl 1 &@#@$ data (&@#@$$) a6989586621679747410 a6989586621679747411 infixl 1 &@#@$$ type (&@#@$$$) (a6989586621679747410 :: a_a35SO) (a6989586621679747411 :: (~>) a_a35SO b_a35SP) = (&) a6989586621679747410 a6989586621679747411 :: b_a35SP infixl 1 &@#@$$$ data OnSym0 a6989586621679747423 infixl 0 `OnSym0` data OnSym1 a6989586621679747423 a6989586621679747424 infixl 0 `OnSym1` data OnSym2 a6989586621679747423 a6989586621679747424 a6989586621679747425 infixl 0 `OnSym2` data OnSym3 a6989586621679747423 a6989586621679747424 a6989586621679747425 a6989586621679747426 infixl 0 `OnSym3` type OnSym4 (a6989586621679747423 :: (~>) b_a35SQ ((~>) b_a35SQ c_a35SR)) (a6989586621679747424 :: (~>) a_a35SS b_a35SQ) (a6989586621679747425 :: a_a35SS) (a6989586621679747426 :: a_a35SS) = On a6989586621679747423 a6989586621679747424 a6989586621679747425 a6989586621679747426 :: c_a35SR infixl 0 `OnSym4` instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Function.OnSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Function.OnSym0 instance forall b c a (a6989586621679747423 :: b Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.OnSym1 a6989586621679747423) instance forall b c (d :: b Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) a. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Function.OnSym1 d) instance forall b c a (a6989586621679747423 :: b Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621679747424 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.OnSym2 a6989586621679747423 a6989586621679747424) instance forall b c (d1 :: b Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) a (d2 :: a Data.Singletons.Internal.~> b). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Function.OnSym2 d1 d2) instance forall b c a (a6989586621679747423 :: b Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621679747424 :: a Data.Singletons.Internal.~> b) (a6989586621679747425 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.OnSym3 a6989586621679747423 a6989586621679747424 a6989586621679747425) instance forall b c (d1 :: b Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) a (d2 :: a Data.Singletons.Internal.~> b) (d3 :: a). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2, Data.Singletons.Internal.SingI d3) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Function.OnSym3 d1 d2 d3) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.&@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Function.&@#@$) instance forall a b (a6989586621679747410 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Function.&@#@$$) a6989586621679747410) instance forall a (d :: a) b. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Function.&@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Function.Lambda_6989586621679747431Sym0 instance forall k2 k3 k4 k5 k6 (ty6989586621679747427 :: k2 Data.Singletons.Internal.~> (k2 Data.Singletons.Internal.~> k3)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.Lambda_6989586621679747431Sym1 ty6989586621679747427) instance forall k2 k3 k4 k5 k6 (ty6989586621679747427 :: k2 Data.Singletons.Internal.~> (k2 Data.Singletons.Internal.~> k3)) (f6989586621679747428 :: k4 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.Lambda_6989586621679747431Sym2 ty6989586621679747427 f6989586621679747428) instance forall k2 k3 k4 k5 k6 (ty6989586621679747427 :: k2 Data.Singletons.Internal.~> (k2 Data.Singletons.Internal.~> k3)) (f6989586621679747428 :: k4 Data.Singletons.Internal.~> k2) (a_69895866216797474146989586621679747429 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.Lambda_6989586621679747431Sym3 ty6989586621679747427 f6989586621679747428 a_69895866216797474146989586621679747429) instance forall k2 k3 k4 k5 k6 (ty6989586621679747427 :: k2 Data.Singletons.Internal.~> (k2 Data.Singletons.Internal.~> k3)) (f6989586621679747428 :: k4 Data.Singletons.Internal.~> k2) (a_69895866216797474146989586621679747429 :: k5) (a_69895866216797474166989586621679747430 :: k6). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.Lambda_6989586621679747431Sym4 ty6989586621679747427 f6989586621679747428 a_69895866216797474146989586621679747429 a_69895866216797474166989586621679747430) instance forall k2 k3 k4 k5 k6 (ty6989586621679747427 :: k2 Data.Singletons.Internal.~> (k2 Data.Singletons.Internal.~> k3)) (f6989586621679747428 :: k4 Data.Singletons.Internal.~> k2) (a_69895866216797474146989586621679747429 :: k5) (a_69895866216797474166989586621679747430 :: k6) (x6989586621679747433 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Function.Lambda_6989586621679747431Sym5 ty6989586621679747427 f6989586621679747428 a_69895866216797474146989586621679747429 a_69895866216797474166989586621679747430 x6989586621679747433) -- | Defines the promoted and singleton version of Bounded, PBounded -- and SBounded module Data.Singletons.Prelude.Enum class PBounded a_a37BL where { type family MinBound :: a_a37BL; type family MaxBound :: a_a37BL; } class SBounded a_a37BL sMinBound :: SBounded a_a37BL => Sing (MinBoundSym0 :: a_a37BL) sMaxBound :: SBounded a_a37BL => Sing (MaxBoundSym0 :: a_a37BL) class PEnum a_a38Hz where { type family Succ (arg_a38Lp :: a_a38Hz) :: a_a38Hz; type family Pred (arg_a38Ls :: a_a38Hz) :: a_a38Hz; type family ToEnum (arg_a38Lv :: Nat) :: a_a38Hz; type family FromEnum (arg_a38Ly :: a_a38Hz) :: Nat; type family EnumFromTo (arg_a38LB :: a_a38Hz) (arg_a38LC :: a_a38Hz) :: [a_a38Hz]; type family EnumFromThenTo (arg_a38LG :: a_a38Hz) (arg_a38LH :: a_a38Hz) (arg_a38LI :: a_a38Hz) :: [a_a38Hz]; type Succ a_a38LN = Apply Succ_6989586621679758492Sym0 a_a38LN; type Pred a_a38M0 = Apply Pred_6989586621679758505Sym0 a_a38M0; type EnumFromTo a_a38M9 a_a38Ma = Apply (Apply EnumFromTo_6989586621679758515Sym0 a_a38M9) a_a38Ma; type EnumFromThenTo a_a38Mk a_a38Ml a_a38Mm = Apply (Apply (Apply EnumFromThenTo_6989586621679758527Sym0 a_a38Mk) a_a38Ml) a_a38Mm; } class SEnum a_a38Hz sSucc :: forall (t_a38Ol :: a_a38Hz). SEnum a_a38Hz => Sing t_a38Ol -> Sing (Apply SuccSym0 t_a38Ol :: a_a38Hz) sPred :: forall (t_a38On :: a_a38Hz). SEnum a_a38Hz => Sing t_a38On -> Sing (Apply PredSym0 t_a38On :: a_a38Hz) sToEnum :: forall (t_a38Op :: Nat). SEnum a_a38Hz => Sing t_a38Op -> Sing (Apply ToEnumSym0 t_a38Op :: a_a38Hz) sFromEnum :: forall (t_a38Or :: a_a38Hz). SEnum a_a38Hz => Sing t_a38Or -> Sing (Apply FromEnumSym0 t_a38Or :: Nat) sEnumFromTo :: forall (t_a38Ot :: a_a38Hz) (t_a38Ou :: a_a38Hz). SEnum a_a38Hz => Sing t_a38Ot -> Sing t_a38Ou -> Sing (Apply (Apply EnumFromToSym0 t_a38Ot) t_a38Ou :: [a_a38Hz]) sEnumFromThenTo :: forall (t_a38Ox :: a_a38Hz) (t_a38Oy :: a_a38Hz) (t_a38Oz :: a_a38Hz). SEnum a_a38Hz => Sing t_a38Ox -> Sing t_a38Oy -> Sing t_a38Oz -> Sing (Apply (Apply (Apply EnumFromThenToSym0 t_a38Ox) t_a38Oy) t_a38Oz :: [a_a38Hz]) sSucc :: forall (t_a38Ol :: a_a38Hz). (SEnum a_a38Hz, (Apply SuccSym0 t_a38Ol :: a_a38Hz) ~ Apply Succ_6989586621679758492Sym0 t_a38Ol) => Sing t_a38Ol -> Sing (Apply SuccSym0 t_a38Ol :: a_a38Hz) sPred :: forall (t_a38On :: a_a38Hz). (SEnum a_a38Hz, (Apply PredSym0 t_a38On :: a_a38Hz) ~ Apply Pred_6989586621679758505Sym0 t_a38On) => Sing t_a38On -> Sing (Apply PredSym0 t_a38On :: a_a38Hz) sEnumFromTo :: forall (t_a38Ot :: a_a38Hz) (t_a38Ou :: a_a38Hz). (SEnum a_a38Hz, (Apply (Apply EnumFromToSym0 t_a38Ot) t_a38Ou :: [a_a38Hz]) ~ Apply (Apply EnumFromTo_6989586621679758515Sym0 t_a38Ot) t_a38Ou) => Sing t_a38Ot -> Sing t_a38Ou -> Sing (Apply (Apply EnumFromToSym0 t_a38Ot) t_a38Ou :: [a_a38Hz]) sEnumFromThenTo :: forall (t_a38Ox :: a_a38Hz) (t_a38Oy :: a_a38Hz) (t_a38Oz :: a_a38Hz). (SEnum a_a38Hz, (Apply (Apply (Apply EnumFromThenToSym0 t_a38Ox) t_a38Oy) t_a38Oz :: [a_a38Hz]) ~ Apply (Apply (Apply EnumFromThenTo_6989586621679758527Sym0 t_a38Ox) t_a38Oy) t_a38Oz) => Sing t_a38Ox -> Sing t_a38Oy -> Sing t_a38Oz -> Sing (Apply (Apply (Apply EnumFromThenToSym0 t_a38Ox) t_a38Oy) t_a38Oz :: [a_a38Hz]) type MinBoundSym0 = MinBound :: a_a37BL type MaxBoundSym0 = MaxBound :: a_a37BL data SuccSym0 a6989586621679758469 type SuccSym1 (a6989586621679758469 :: a_a38Hz) = Succ a6989586621679758469 :: a_a38Hz data PredSym0 a6989586621679758472 type PredSym1 (a6989586621679758472 :: a_a38Hz) = Pred a6989586621679758472 :: a_a38Hz data ToEnumSym0 a6989586621679758475 type ToEnumSym1 (a6989586621679758475 :: Nat) = ToEnum a6989586621679758475 :: a_a38Hz data FromEnumSym0 a6989586621679758478 type FromEnumSym1 (a6989586621679758478 :: a_a38Hz) = FromEnum a6989586621679758478 :: Nat data EnumFromToSym0 a6989586621679758482 data EnumFromToSym1 a6989586621679758482 a6989586621679758483 type EnumFromToSym2 (a6989586621679758482 :: a_a38Hz) (a6989586621679758483 :: a_a38Hz) = EnumFromTo a6989586621679758482 a6989586621679758483 :: [a_a38Hz] data EnumFromThenToSym0 a6989586621679758488 data EnumFromThenToSym1 a6989586621679758488 a6989586621679758489 data EnumFromThenToSym2 a6989586621679758488 a6989586621679758489 a6989586621679758490 type EnumFromThenToSym3 (a6989586621679758488 :: a_a38Hz) (a6989586621679758489 :: a_a38Hz) (a6989586621679758490 :: a_a38Hz) = EnumFromThenTo a6989586621679758488 a6989586621679758489 a6989586621679758490 :: [a_a38Hz] instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.FromEnum_6989586621679782473Sym0 instance Data.Singletons.Prelude.Enum.PEnum () instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.ToEnum_6989586621679782463Sym0 instance Data.Singletons.Prelude.Enum.SEnum () instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.FromEnum_6989586621679782456Sym0 instance Data.Singletons.Prelude.Enum.PEnum GHC.Types.Ordering instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.ToEnum_6989586621679782440Sym0 instance Data.Singletons.Prelude.Enum.SEnum GHC.Types.Ordering instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.FromEnum_6989586621679782432Sym0 instance Data.Singletons.Prelude.Enum.PEnum GHC.Types.Bool instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.ToEnum_6989586621679782419Sym0 instance Data.Singletons.Prelude.Enum.SEnum GHC.Types.Bool instance Data.Singletons.Prelude.Enum.SEnum GHC.Types.Nat instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.SuccSym0 instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.PredSym0 instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.ToEnumSym0 instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.FromEnumSym0 instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.EnumFromToSym0 instance forall a (d :: a). (Data.Singletons.Prelude.Enum.SEnum a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EnumFromToSym1 d) instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.EnumFromThenToSym0 instance forall a (d :: a). (Data.Singletons.Prelude.Enum.SEnum a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EnumFromThenToSym1 d) instance forall a (d1 :: a) (d2 :: a). (Data.Singletons.Prelude.Enum.SEnum a, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EnumFromThenToSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EnumFromThenTo_6989586621679758585Sym0 instance Data.Singletons.Prelude.Enum.PEnum GHC.Types.Nat instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromThenTo_6989586621679758585Sym1 a6989586621679758597) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromThenTo_6989586621679758585Sym2 a6989586621679758597 a6989586621679758598) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EnumFromTo_6989586621679758569Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromTo_6989586621679758569Sym1 a6989586621679758578) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.FromEnum_6989586621679758561Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.ToEnum_6989586621679758554Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Pred_6989586621679758547Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Succ_6989586621679758540Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.SuccSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.PredSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.ToEnumSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.FromEnumSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EnumFromToSym0 instance forall a (a6989586621679758482 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromToSym1 a6989586621679758482) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EnumFromThenToSym0 instance forall a (a6989586621679758488 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromThenToSym1 a6989586621679758488) instance forall a (a6989586621679758488 :: a) (a6989586621679758489 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromThenToSym2 a6989586621679758488 a6989586621679758489) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Succ_6989586621679758492Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Pred_6989586621679758505Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EnumFromTo_6989586621679758515Sym0 instance forall a (a6989586621679758520 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromTo_6989586621679758515Sym1 a6989586621679758520) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EnumFromThenTo_6989586621679758527Sym0 instance forall a (a6989586621679758533 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromThenTo_6989586621679758527Sym1 a6989586621679758533) instance forall a (a6989586621679758533 :: a) (a6989586621679758534 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EnumFromThenTo_6989586621679758527Sym2 a6989586621679758533 a6989586621679758534) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Lambda_6989586621679758500Sym0 instance forall k1 k2 (a_69895866216797584946989586621679758499 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Lambda_6989586621679758500Sym1 a_69895866216797584946989586621679758499) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EftNatSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.EftNatSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EftNatSym1 a6989586621679758446) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EftNatSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EfdtNatSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.EfdtNatSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EfdtNatSym1 a6989586621679758428) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EfdtNatSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EfdtNatSym2 a6989586621679758428 a6989586621679758429) instance (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EfdtNatSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EfdtNatUpSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.EfdtNatUpSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EfdtNatUpSym1 a6989586621679758391) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EfdtNatUpSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EfdtNatUpSym2 a6989586621679758391 a6989586621679758392) instance (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EfdtNatUpSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.EfdtNatDnSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Enum.EfdtNatDnSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EfdtNatDnSym1 a6989586621679758354) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EfdtNatDnSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.EfdtNatDnSym2 a6989586621679758354 a6989586621679758355) instance (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Enum.EfdtNatDnSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758454GoSym0 instance forall k1 k2 k3 k4 (x06989586621679758452 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758454GoSym1 x06989586621679758452) instance forall k1 k2 k3 k4 (x06989586621679758452 :: k1) (y6989586621679758453 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758454GoSym2 x06989586621679758452 y6989586621679758453) instance forall k1 k2 k3 k4 (x06989586621679758452 :: k1) (y6989586621679758453 :: k2) (arg_69895866216797582626989586621679758448 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758454GoSym3 x06989586621679758452 y6989586621679758453 arg_69895866216797582626989586621679758448) instance forall k1 k2 k3 k4 (x06989586621679758452 :: k1) (y6989586621679758453 :: k2) (arg_69895866216797582626989586621679758448 :: k3) (arg_69895866216797582646989586621679758449 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758454GoSym4 x06989586621679758452 y6989586621679758453 arg_69895866216797582626989586621679758448 arg_69895866216797582646989586621679758449) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758458Scrutinee_6989586621679758266Sym0 instance forall k1 k2 k3 k4 (x6989586621679758457 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758458Scrutinee_6989586621679758266Sym1 x6989586621679758457) instance forall k1 k2 k3 k4 (x6989586621679758457 :: k1) (x06989586621679758452 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758458Scrutinee_6989586621679758266Sym2 x6989586621679758457 x06989586621679758452) instance forall k1 k2 k3 k4 (x6989586621679758457 :: k1) (x06989586621679758452 :: k2) (y6989586621679758453 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758458Scrutinee_6989586621679758266Sym3 x6989586621679758457 x06989586621679758452 y6989586621679758453) instance forall k1 k2 k3 k4 (x6989586621679758457 :: k1) (x06989586621679758452 :: k2) (y6989586621679758453 :: k1) (arg_69895866216797582626989586621679758448 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758458Scrutinee_6989586621679758266Sym4 x6989586621679758457 x06989586621679758452 y6989586621679758453 arg_69895866216797582626989586621679758448) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758409Go_upSym0 instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Go_upSym1 x16989586621679758399) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Go_upSym2 x16989586621679758399 x26989586621679758400) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Go_upSym3 x16989586621679758399 x26989586621679758400 y6989586621679758401) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k1) (arg_69895866216797582746989586621679758394 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Go_upSym4 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k1) (arg_69895866216797582746989586621679758394 :: k2) (arg_69895866216797582766989586621679758395 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Go_upSym5 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394 arg_69895866216797582766989586621679758395) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k1) (arg_69895866216797582746989586621679758394 :: k2) (arg_69895866216797582766989586621679758395 :: k3) (arg_69895866216797582786989586621679758396 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Go_upSym6 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394 arg_69895866216797582766989586621679758395 arg_69895866216797582786989586621679758396) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758409DeltaSym0 instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409DeltaSym1 x16989586621679758399) instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409DeltaSym2 x16989586621679758399 x26989586621679758400) instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409DeltaSym3 x16989586621679758399 x26989586621679758400 y6989586621679758401) instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k2) (arg_69895866216797582746989586621679758394 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409DeltaSym4 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394) instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k2) (arg_69895866216797582746989586621679758394 :: k3) (arg_69895866216797582766989586621679758395 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409DeltaSym5 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394 arg_69895866216797582766989586621679758395) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758409Y'Sym0 instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Y'Sym1 x16989586621679758399) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Y'Sym2 x16989586621679758399 x26989586621679758400) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Y'Sym3 x16989586621679758399 x26989586621679758400 y6989586621679758401) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k1) (arg_69895866216797582746989586621679758394 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Y'Sym4 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394) instance forall k1 k2 k3 k4 (x16989586621679758399 :: k1) (x26989586621679758400 :: k1) (y6989586621679758401 :: k1) (arg_69895866216797582746989586621679758394 :: k2) (arg_69895866216797582766989586621679758395 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758409Y'Sym5 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394 arg_69895866216797582766989586621679758395) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758404Scrutinee_6989586621679758280Sym0 instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758404Scrutinee_6989586621679758280Sym1 x16989586621679758399) instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1) (x26989586621679758400 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758404Scrutinee_6989586621679758280Sym2 x16989586621679758399 x26989586621679758400) instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1) (x26989586621679758400 :: k2) (y6989586621679758401 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758404Scrutinee_6989586621679758280Sym3 x16989586621679758399 x26989586621679758400 y6989586621679758401) instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1) (x26989586621679758400 :: k2) (y6989586621679758401 :: k1) (arg_69895866216797582746989586621679758394 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758404Scrutinee_6989586621679758280Sym4 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394) instance forall k1 k2 k3 k4 k5 (x16989586621679758399 :: k1) (x26989586621679758400 :: k2) (y6989586621679758401 :: k1) (arg_69895866216797582746989586621679758394 :: k3) (arg_69895866216797582766989586621679758395 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758404Scrutinee_6989586621679758280Sym5 x16989586621679758399 x26989586621679758400 y6989586621679758401 arg_69895866216797582746989586621679758394 arg_69895866216797582766989586621679758395) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758372Go_dnSym0 instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Go_dnSym1 x16989586621679758362) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Go_dnSym2 x16989586621679758362 x26989586621679758363) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Go_dnSym3 x16989586621679758362 x26989586621679758363 y6989586621679758364) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k1) (arg_69895866216797582846989586621679758357 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Go_dnSym4 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k1) (arg_69895866216797582846989586621679758357 :: k2) (arg_69895866216797582866989586621679758358 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Go_dnSym5 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357 arg_69895866216797582866989586621679758358) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k1) (arg_69895866216797582846989586621679758357 :: k2) (arg_69895866216797582866989586621679758358 :: k3) (arg_69895866216797582886989586621679758359 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Go_dnSym6 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357 arg_69895866216797582866989586621679758358 arg_69895866216797582886989586621679758359) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758372DeltaSym0 instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372DeltaSym1 x16989586621679758362) instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372DeltaSym2 x16989586621679758362 x26989586621679758363) instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372DeltaSym3 x16989586621679758362 x26989586621679758363 y6989586621679758364) instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k2) (arg_69895866216797582846989586621679758357 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372DeltaSym4 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357) instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k2) (arg_69895866216797582846989586621679758357 :: k3) (arg_69895866216797582866989586621679758358 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372DeltaSym5 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357 arg_69895866216797582866989586621679758358) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758372Y'Sym0 instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Y'Sym1 x16989586621679758362) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Y'Sym2 x16989586621679758362 x26989586621679758363) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Y'Sym3 x16989586621679758362 x26989586621679758363 y6989586621679758364) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k1) (arg_69895866216797582846989586621679758357 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Y'Sym4 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357) instance forall k1 k2 k3 k4 (x16989586621679758362 :: k1) (x26989586621679758363 :: k1) (y6989586621679758364 :: k1) (arg_69895866216797582846989586621679758357 :: k2) (arg_69895866216797582866989586621679758358 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758372Y'Sym5 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357 arg_69895866216797582866989586621679758358) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Enum.Let6989586621679758367Scrutinee_6989586621679758290Sym0 instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758367Scrutinee_6989586621679758290Sym1 x16989586621679758362) instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1) (x26989586621679758363 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758367Scrutinee_6989586621679758290Sym2 x16989586621679758362 x26989586621679758363) instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1) (x26989586621679758363 :: k2) (y6989586621679758364 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758367Scrutinee_6989586621679758290Sym3 x16989586621679758362 x26989586621679758363 y6989586621679758364) instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1) (x26989586621679758363 :: k2) (y6989586621679758364 :: k1) (arg_69895866216797582846989586621679758357 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758367Scrutinee_6989586621679758290Sym4 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357) instance forall k1 k2 k3 k4 k5 (x16989586621679758362 :: k1) (x26989586621679758363 :: k2) (y6989586621679758364 :: k1) (arg_69895866216797582846989586621679758357 :: k3) (arg_69895866216797582866989586621679758358 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Enum.Let6989586621679758367Scrutinee_6989586621679758290Sym5 x16989586621679758362 x26989586621679758363 y6989586621679758364 arg_69895866216797582846989586621679758357 arg_69895866216797582866989586621679758358) instance Data.Singletons.Prelude.Enum.PBounded () instance Data.Singletons.Prelude.Enum.PBounded GHC.Types.Ordering instance Data.Singletons.Prelude.Enum.PBounded GHC.Types.Bool instance Data.Singletons.Prelude.Enum.PBounded (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Enum.PBounded (a, b, c, d, e, f, g) instance Data.Singletons.Prelude.Enum.PBounded (a, b, c, d, e, f) instance Data.Singletons.Prelude.Enum.PBounded (a, b, c, d, e) instance Data.Singletons.Prelude.Enum.PBounded (a, b, c, d) instance Data.Singletons.Prelude.Enum.PBounded (a, b, c) instance Data.Singletons.Prelude.Enum.PBounded (a, b) instance (Data.Singletons.Prelude.Enum.SBounded a, Data.Singletons.Prelude.Enum.SBounded b) => Data.Singletons.Prelude.Enum.SBounded (a, b) instance (Data.Singletons.Prelude.Enum.SBounded a, Data.Singletons.Prelude.Enum.SBounded b, Data.Singletons.Prelude.Enum.SBounded c) => Data.Singletons.Prelude.Enum.SBounded (a, b, c) instance (Data.Singletons.Prelude.Enum.SBounded a, Data.Singletons.Prelude.Enum.SBounded b, Data.Singletons.Prelude.Enum.SBounded c, Data.Singletons.Prelude.Enum.SBounded d) => Data.Singletons.Prelude.Enum.SBounded (a, b, c, d) instance (Data.Singletons.Prelude.Enum.SBounded a, Data.Singletons.Prelude.Enum.SBounded b, Data.Singletons.Prelude.Enum.SBounded c, Data.Singletons.Prelude.Enum.SBounded d, Data.Singletons.Prelude.Enum.SBounded e) => Data.Singletons.Prelude.Enum.SBounded (a, b, c, d, e) instance (Data.Singletons.Prelude.Enum.SBounded a, Data.Singletons.Prelude.Enum.SBounded b, Data.Singletons.Prelude.Enum.SBounded c, Data.Singletons.Prelude.Enum.SBounded d, Data.Singletons.Prelude.Enum.SBounded e, Data.Singletons.Prelude.Enum.SBounded f) => Data.Singletons.Prelude.Enum.SBounded (a, b, c, d, e, f) instance (Data.Singletons.Prelude.Enum.SBounded a, Data.Singletons.Prelude.Enum.SBounded b, Data.Singletons.Prelude.Enum.SBounded c, Data.Singletons.Prelude.Enum.SBounded d, Data.Singletons.Prelude.Enum.SBounded e, Data.Singletons.Prelude.Enum.SBounded f, Data.Singletons.Prelude.Enum.SBounded g) => Data.Singletons.Prelude.Enum.SBounded (a, b, c, d, e, f, g) instance Data.Singletons.Prelude.Enum.SBounded a => Data.Singletons.Prelude.Enum.SBounded (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Enum.SBounded GHC.Types.Bool instance Data.Singletons.Prelude.Enum.SBounded GHC.Types.Ordering instance Data.Singletons.Prelude.Enum.SBounded () -- | Defines the SShow singleton version of the Show type class. module Data.Singletons.Prelude.Show class PShow a_a5kd9 where { type family ShowsPrec (arg_a5kkc :: Nat) (arg_a5kkd :: a_a5kd9) (arg_a5kke :: Symbol) :: Symbol; type family Show_ (arg_a5kkj :: a_a5kd9) :: Symbol; type family ShowList (arg_a5kkm :: [a_a5kd9]) (arg_a5kkn :: Symbol) :: Symbol; type ShowsPrec a_a5kkr a_a5kks a_a5kkt = Apply (Apply (Apply ShowsPrec_6989586621680279582Sym0 a_a5kkr) a_a5kks) a_a5kkt; type Show_ a_a5kkF = Apply Show__6989586621680279594Sym0 a_a5kkF; type ShowList a_a5kkM a_a5kkN = Apply (Apply ShowList_6989586621680279602Sym0 a_a5kkM) a_a5kkN; } class SShow a_a5kd9 sShowsPrec :: forall (t_a5ko5 :: Nat) (t_a5ko6 :: a_a5kd9) (t_a5ko7 :: Symbol). SShow a_a5kd9 => Sing t_a5ko5 -> Sing t_a5ko6 -> Sing t_a5ko7 -> Sing (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) sShow_ :: forall (t_a5kob :: a_a5kd9). SShow a_a5kd9 => Sing t_a5kob -> Sing (Apply Show_Sym0 t_a5kob :: Symbol) sShowList :: forall (t_a5kod :: [a_a5kd9]) (t_a5koe :: Symbol). SShow a_a5kd9 => Sing t_a5kod -> Sing t_a5koe -> Sing (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) sShowsPrec :: forall (t_a5ko5 :: Nat) (t_a5ko6 :: a_a5kd9) (t_a5ko7 :: Symbol). (SShow a_a5kd9, (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) ~ Apply (Apply (Apply ShowsPrec_6989586621680279582Sym0 t_a5ko5) t_a5ko6) t_a5ko7) => Sing t_a5ko5 -> Sing t_a5ko6 -> Sing t_a5ko7 -> Sing (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) sShow_ :: forall (t_a5kob :: a_a5kd9). (SShow a_a5kd9, (Apply Show_Sym0 t_a5kob :: Symbol) ~ Apply Show__6989586621680279594Sym0 t_a5kob) => Sing t_a5kob -> Sing (Apply Show_Sym0 t_a5kob :: Symbol) sShowList :: forall (t_a5kod :: [a_a5kd9]) (t_a5koe :: Symbol). (SShow a_a5kd9, (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) ~ Apply (Apply ShowList_6989586621680279602Sym0 t_a5kod) t_a5koe) => Sing t_a5kod -> Sing t_a5koe -> Sing (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) -- | 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 -- | GHC currently has no notion of type-level Chars, so we fake -- them with single-character Symbols. type SChar = 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 a_a5kk5 a_a5kk6 sShows :: forall a_a5kcU (t_a5knG :: a_a5kcU) (t_a5knH :: Symbol). SShow a_a5kcU => Sing t_a5knG -> Sing t_a5knH -> Sing (Apply (Apply ShowsSym0 t_a5knG) t_a5knH :: Symbol) type family ShowListWith a_a5kjM a_a5kjN a_a5kjO sShowListWith :: forall a_a5kcT (t_a5knA :: (~>) a_a5kcT ((~>) Symbol Symbol)) (t_a5knB :: [a_a5kcT]) (t_a5knC :: Symbol). Sing t_a5knA -> Sing t_a5knB -> Sing t_a5knC -> Sing (Apply (Apply (Apply ShowListWithSym0 t_a5knA) t_a5knB) t_a5knC :: Symbol) type family ShowChar a_a5kjF a_a5kjG sShowChar :: forall (t_a5knw :: Symbol) (t_a5knx :: Symbol). Sing t_a5knw -> Sing t_a5knx -> Sing (Apply (Apply ShowCharSym0 t_a5knw) t_a5knx :: Symbol) type family ShowString a_a5kju a_a5kjv sShowString :: forall (t_a5kns :: Symbol) (t_a5knt :: Symbol). Sing t_a5kns -> Sing t_a5knt -> Sing (Apply (Apply ShowStringSym0 t_a5kns) t_a5knt :: Symbol) type family ShowParen a_a5kjd a_a5kje a_a5kjf sShowParen :: forall (t_a5knm :: Bool) (t_a5knn :: (~>) Symbol Symbol) (t_a5kno :: Symbol). Sing t_a5knm -> Sing t_a5knn -> Sing t_a5kno -> Sing (Apply (Apply (Apply ShowParenSym0 t_a5knm) t_a5knn) t_a5kno :: Symbol) type family ShowSpace a_a5kj3 sShowSpace :: forall (t_a5knk :: Symbol). Sing t_a5knk -> Sing (Apply ShowSpaceSym0 t_a5knk :: Symbol) type family ShowCommaSpace a_a5kiX sShowCommaSpace :: forall (t_a5kni :: Symbol). Sing t_a5kni -> Sing (Apply ShowCommaSpaceSym0 t_a5kni :: Symbol) type family AppPrec sAppPrec :: Sing (AppPrecSym0 :: Nat) type family AppPrec1 sAppPrec1 :: Sing (AppPrec1Sym0 :: Nat) data ShowsPrecSym0 a6989586621680279568 data ShowsPrecSym1 a6989586621680279568 a6989586621680279569 data ShowsPrecSym2 a6989586621680279568 a6989586621680279569 a6989586621680279570 type ShowsPrecSym3 (a6989586621680279568 :: Nat) (a6989586621680279569 :: a_a5kd9) (a6989586621680279570 :: Symbol) = ShowsPrec a6989586621680279568 a6989586621680279569 a6989586621680279570 :: Symbol data Show_Sym0 a6989586621680279573 type Show_Sym1 (a6989586621680279573 :: a_a5kd9) = Show_ a6989586621680279573 :: Symbol data ShowListSym0 a6989586621680279577 data ShowListSym1 a6989586621680279577 a6989586621680279578 type ShowListSym2 (a6989586621680279577 :: [a_a5kd9]) (a6989586621680279578 :: Symbol) = ShowList a6989586621680279577 a6989586621680279578 :: Symbol data ShowsSym0 a6989586621680279560 data ShowsSym1 a6989586621680279560 a6989586621680279561 type ShowsSym2 (a6989586621680279560 :: a_a5kcU) (a6989586621680279561 :: Symbol) = Shows a6989586621680279560 a6989586621680279561 :: Symbol data ShowListWithSym0 a6989586621680279542 data ShowListWithSym1 a6989586621680279542 a6989586621680279543 data ShowListWithSym2 a6989586621680279542 a6989586621680279543 a6989586621680279544 type ShowListWithSym3 (a6989586621680279542 :: (~>) a_a5kcT ((~>) Symbol Symbol)) (a6989586621680279543 :: [a_a5kcT]) (a6989586621680279544 :: Symbol) = ShowListWith a6989586621680279542 a6989586621680279543 a6989586621680279544 :: Symbol data ShowCharSym0 a6989586621680279534 data ShowCharSym1 a6989586621680279534 a6989586621680279535 type ShowCharSym2 (a6989586621680279534 :: Symbol) (a6989586621680279535 :: Symbol) = ShowChar a6989586621680279534 a6989586621680279535 :: Symbol data ShowStringSym0 a6989586621680279523 data ShowStringSym1 a6989586621680279523 a6989586621680279524 type ShowStringSym2 (a6989586621680279523 :: Symbol) (a6989586621680279524 :: Symbol) = ShowString a6989586621680279523 a6989586621680279524 :: Symbol data ShowParenSym0 a6989586621680279507 data ShowParenSym1 a6989586621680279507 a6989586621680279508 data ShowParenSym2 a6989586621680279507 a6989586621680279508 a6989586621680279509 data ShowSpaceSym0 a6989586621680279495 type ShowSpaceSym1 (a6989586621680279495 :: Symbol) = ShowSpace a6989586621680279495 :: Symbol data ShowCommaSpaceSym0 a6989586621680279489 type ShowCommaSpaceSym1 (a6989586621680279489 :: Symbol) = ShowCommaSpace a6989586621680279489 :: Symbol type AppPrecSym0 = AppPrec :: Nat type AppPrec1Sym0 = AppPrec1 :: Nat instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297083Sym0 instance Data.Singletons.Prelude.Show.PShow Data.Void.Void instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297083Sym1 a6989586621680297091) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297083Sym2 a6989586621680297091 a6989586621680297092) instance Data.Singletons.Prelude.Show.SShow Data.Void.Void instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297055Sym0 instance Data.Singletons.Prelude.Show.PShow GHC.Types.Ordering instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297055Sym1 a6989586621680297067) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297055Sym2 a6989586621680297067 a6989586621680297068) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297033Sym0 instance Data.Singletons.Prelude.Show.PShow GHC.Types.Bool instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297033Sym1 a6989586621680297043) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297033Sym2 a6989586621680297043 a6989586621680297044) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297009Sym0 instance Data.Singletons.Prelude.Show.PShow (GHC.Base.NonEmpty a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297009Sym1 a6989586621680297017) instance forall a (a6989586621680297017 :: GHC.Types.Nat) (a6989586621680297018 :: GHC.Base.NonEmpty a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680297009Sym2 a6989586621680297017 a6989586621680297018) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296969Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Either.Either a b) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296969Sym1 a6989586621680296979) instance forall a b (a6989586621680296979 :: GHC.Types.Nat) (a6989586621680296980 :: Data.Either.Either a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296969Sym2 a6989586621680296979 a6989586621680296980) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296915Sym0 instance Data.Singletons.Prelude.Show.PShow (GHC.Maybe.Maybe a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296915Sym1 a6989586621680296925) instance forall a (a6989586621680296925 :: GHC.Types.Nat) (a6989586621680296926 :: GHC.Maybe.Maybe a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296915Sym2 a6989586621680296925 a6989586621680296926) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296883Sym0 instance Data.Singletons.Prelude.Show.PShow () instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296883Sym1 a6989586621680296891) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680296883Sym2 a6989586621680296891 a6989586621680296892) instance Data.Singletons.Prelude.Show.SShow () instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (GHC.Maybe.Maybe a) instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow b) => Data.Singletons.Prelude.Show.SShow (Data.Either.Either a b) instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow [a]) => Data.Singletons.Prelude.Show.SShow (GHC.Base.NonEmpty a) instance Data.Singletons.Prelude.Show.SShow GHC.Types.Bool instance Data.Singletons.Prelude.Show.SShow GHC.Types.Ordering instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsNatSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsNatSym1 a6989586621680296415) instance Data.Singletons.Prelude.Show.PShow GHC.Types.Nat instance Data.Singletons.Prelude.Show.SShow GHC.Types.Nat instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowsSym0 instance forall a (d :: a). (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowsSym1 d) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow [a] instance Data.Singletons.Prelude.Show.SShow GHC.Types.Symbol instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow b) => Data.Singletons.Prelude.Show.SShow (a, b) instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow b, Data.Singletons.Prelude.Show.SShow c) => Data.Singletons.Prelude.Show.SShow (a, b, c) instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow b, Data.Singletons.Prelude.Show.SShow c, Data.Singletons.Prelude.Show.SShow d) => Data.Singletons.Prelude.Show.SShow (a, b, c, d) instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow b, Data.Singletons.Prelude.Show.SShow c, Data.Singletons.Prelude.Show.SShow d, Data.Singletons.Prelude.Show.SShow e) => Data.Singletons.Prelude.Show.SShow (a, b, c, d, e) instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow b, Data.Singletons.Prelude.Show.SShow c, Data.Singletons.Prelude.Show.SShow d, Data.Singletons.Prelude.Show.SShow e, Data.Singletons.Prelude.Show.SShow f) => Data.Singletons.Prelude.Show.SShow (a, b, c, d, e, f) instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow b, Data.Singletons.Prelude.Show.SShow c, Data.Singletons.Prelude.Show.SShow d, Data.Singletons.Prelude.Show.SShow e, Data.Singletons.Prelude.Show.SShow f, Data.Singletons.Prelude.Show.SShow g) => Data.Singletons.Prelude.Show.SShow (a, b, c, d, e, f, g) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowsPrecSym0 instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowsPrecSym1 d) instance forall a (d1 :: GHC.Types.Nat) (d2 :: a). (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowsPrecSym2 d1 d2) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.Show_Sym0 instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowListSym0 instance forall a (d :: [a]). (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowListSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279735Sym0 instance Data.Singletons.Prelude.Show.PShow (a, b, c, d, e, f, g) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279735Sym1 a6989586621680279741) instance forall a b c d e f g (a6989586621680279741 :: GHC.Types.Nat) (a6989586621680279742 :: (a, b, c, d, e, f, g)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279735Sym2 a6989586621680279741 a6989586621680279742) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279716Sym0 instance Data.Singletons.Prelude.Show.PShow (a, b, c, d, e, f) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279716Sym1 a6989586621680279722) instance forall a b c d e f (a6989586621680279722 :: GHC.Types.Nat) (a6989586621680279723 :: (a, b, c, d, e, f)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279716Sym2 a6989586621680279722 a6989586621680279723) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279698Sym0 instance Data.Singletons.Prelude.Show.PShow (a, b, c, d, e) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279698Sym1 a6989586621680279704) instance forall a b c d e (a6989586621680279704 :: GHC.Types.Nat) (a6989586621680279705 :: (a, b, c, d, e)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279698Sym2 a6989586621680279704 a6989586621680279705) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279681Sym0 instance Data.Singletons.Prelude.Show.PShow (a, b, c, d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279681Sym1 a6989586621680279687) instance forall a b c d (a6989586621680279687 :: GHC.Types.Nat) (a6989586621680279688 :: (a, b, c, d)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279681Sym2 a6989586621680279687 a6989586621680279688) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279665Sym0 instance Data.Singletons.Prelude.Show.PShow (a, b, c) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279665Sym1 a6989586621680279671) instance forall a b c (a6989586621680279671 :: GHC.Types.Nat) (a6989586621680279672 :: (a, b, c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279665Sym2 a6989586621680279671 a6989586621680279672) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279650Sym0 instance Data.Singletons.Prelude.Show.PShow (a, b) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279650Sym1 a6989586621680279656) instance forall a b (a6989586621680279656 :: GHC.Types.Nat) (a6989586621680279657 :: (a, b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279650Sym2 a6989586621680279656 a6989586621680279657) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279632Sym0 instance Data.Singletons.Prelude.Show.PShow GHC.Types.Symbol instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279632Sym1 a6989586621680279642) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279632Sym2 a6989586621680279642 a6989586621680279643) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279614Sym0 instance Data.Singletons.Prelude.Show.PShow [a] instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279614Sym1 a6989586621680279624) instance forall a (a6989586621680279624 :: GHC.Types.Nat) (a6989586621680279625 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279614Sym2 a6989586621680279624 a6989586621680279625) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowListSym0 instance forall a (a6989586621680279577 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowListSym1 a6989586621680279577) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsSym0 instance forall a (a6989586621680279560 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsSym1 a6989586621680279560) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrecSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrecSym1 a6989586621680279568) instance forall a (a6989586621680279568 :: GHC.Types.Nat) (a6989586621680279569 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrecSym2 a6989586621680279568 a6989586621680279569) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.Show_Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279582Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279582Sym1 a6989586621680279588) instance forall a (a6989586621680279588 :: GHC.Types.Nat) (a6989586621680279589 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowsPrec_6989586621680279582Sym2 a6989586621680279588 a6989586621680279589) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.Show__6989586621680279594Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowList_6989586621680279602Sym0 instance forall a (a6989586621680279607 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowList_6989586621680279602Sym1 a6989586621680279607) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowListWithSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowListWithSym0 instance forall a (a6989586621680279542 :: a Data.Singletons.Internal.~> (GHC.Types.Symbol Data.Singletons.Internal.~> GHC.Types.Symbol)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowListWithSym1 a6989586621680279542) instance forall a (d :: a Data.Singletons.Internal.~> (GHC.Types.Symbol Data.Singletons.Internal.~> GHC.Types.Symbol)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowListWithSym1 d) instance forall a (a6989586621680279542 :: a Data.Singletons.Internal.~> (GHC.Types.Symbol Data.Singletons.Internal.~> GHC.Types.Symbol)) (a6989586621680279543 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowListWithSym2 a6989586621680279542 a6989586621680279543) instance forall a (d1 :: a Data.Singletons.Internal.~> (GHC.Types.Symbol Data.Singletons.Internal.~> GHC.Types.Symbol)) (d2 :: [a]). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowListWithSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.Show_tupleSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.Show_tupleSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Show_tupleSym1 a6989586621680279474) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.Show_tupleSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.Lambda_6989586621680279478Sym0 instance forall k1 k2 c a (ss6989586621680279476 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Lambda_6989586621680279478Sym1 ss6989586621680279476) instance forall k1 k2 c a (ss6989586621680279476 :: k1) (a_69895866216802794696989586621680279477 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Lambda_6989586621680279478Sym2 ss6989586621680279476 a_69895866216802794696989586621680279477) instance forall k1 k2 c a (ss6989586621680279476 :: k1) (a_69895866216802794696989586621680279477 :: k2) (s6989586621680279480 :: GHC.Types.Symbol Data.Singletons.Internal.~> c). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Lambda_6989586621680279478Sym3 ss6989586621680279476 a_69895866216802794696989586621680279477 s6989586621680279480) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowParenSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowParenSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowParenSym1 a6989586621680279507) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowParenSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowParenSym2 a6989586621680279507 a6989586621680279508) instance (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowParenSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowCharSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowCharSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowCharSym1 a6989586621680279534) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowCharSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowCommaSpaceSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowCommaSpaceSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowStringSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowStringSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.ShowStringSym1 a6989586621680279523) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Show.ShowStringSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.ShowSpaceSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Show.ShowSpaceSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.Let6989586621680279550ShowlSym0 instance forall k1 k2 k3 (showx6989586621680279546 :: k1 Data.Singletons.Internal.~> (GHC.Types.Symbol Data.Singletons.Internal.~> GHC.Types.Symbol)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Let6989586621680279550ShowlSym1 showx6989586621680279546) instance forall k1 k2 k3 (showx6989586621680279546 :: k1 Data.Singletons.Internal.~> (GHC.Types.Symbol Data.Singletons.Internal.~> GHC.Types.Symbol)) (x6989586621680279547 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Let6989586621680279550ShowlSym2 showx6989586621680279546 x6989586621680279547) instance forall k1 k2 k3 (showx6989586621680279546 :: k1 Data.Singletons.Internal.~> (GHC.Types.Symbol Data.Singletons.Internal.~> GHC.Types.Symbol)) (x6989586621680279547 :: k2) (xs6989586621680279548 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Let6989586621680279550ShowlSym3 showx6989586621680279546 x6989586621680279547 xs6989586621680279548) instance forall k1 k2 k3 (showx6989586621680279546 :: k1 Data.Singletons.Internal.~> (GHC.Types.Symbol Data.Singletons.Internal.~> GHC.Types.Symbol)) (x6989586621680279547 :: k2) (xs6989586621680279548 :: k3) (s6989586621680279549 :: GHC.Types.Symbol). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Let6989586621680279550ShowlSym4 showx6989586621680279546 x6989586621680279547 xs6989586621680279548 s6989586621680279549) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Show.Lambda_6989586621680279497Sym0 instance forall k (a_69895866216802794916989586621680279496 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Show.Lambda_6989586621680279497Sym1 a_69895866216802794916989586621680279496) -- | Defines the promoted version of Monoid, PMonoid, and the -- singleton version, SMonoid. module Data.Singletons.Prelude.Monoid class PMonoid a_a5BTv where { type family Mempty :: a_a5BTv; type family Mappend (arg_a5BVL :: a_a5BTv) (arg_a5BVM :: a_a5BTv) :: a_a5BTv; type family Mconcat (arg_a5BVQ :: [a_a5BTv]) :: a_a5BTv; type Mappend a_a5BVT a_a5BVU = Apply (Apply Mappend_6989586621680347251Sym0 a_a5BVT) a_a5BVU; type Mconcat a_a5BW8 = Apply Mconcat_6989586621680347265Sym0 a_a5BW8; } class SSemigroup a_a5BTv => SMonoid a_a5BTv sMempty :: SMonoid a_a5BTv => Sing (MemptySym0 :: a_a5BTv) sMappend :: forall (t_a5BX0 :: a_a5BTv) (t_a5BX1 :: a_a5BTv). SMonoid a_a5BTv => Sing t_a5BX0 -> Sing t_a5BX1 -> Sing (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) sMconcat :: forall (t_a5BX4 :: [a_a5BTv]). SMonoid a_a5BTv => Sing t_a5BX4 -> Sing (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) sMappend :: forall (t_a5BX0 :: a_a5BTv) (t_a5BX1 :: a_a5BTv). (SMonoid a_a5BTv, (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) ~ Apply (Apply Mappend_6989586621680347251Sym0 t_a5BX0) t_a5BX1) => Sing t_a5BX0 -> Sing t_a5BX1 -> Sing (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) sMconcat :: forall (t_a5BX4 :: [a_a5BTv]). (SMonoid a_a5BTv, (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) ~ Apply Mconcat_6989586621680347265Sym0 t_a5BX4) => Sing t_a5BX4 -> Sing (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) -- | The singleton kind-indexed type family. type family Sing data SDual z_a3u0v [SDual] :: forall (a_af30 :: Type) (n_a3u0o :: a_af30). () => Sing n_a3u0o -> SDual ('Dual n_a3u0o :: Dual (a_af30 :: Type)) data SAll z_a3u0M [SAll] :: forall (n_a3u0F :: Bool). () => Sing n_a3u0F -> SAll ('All n_a3u0F :: All) data SAny z_a3u13 [SAny] :: forall (n_a3u0W :: Bool). () => Sing n_a3u0W -> SAny ('Any n_a3u0W :: Any) data SSum z_a3u1p [SSum] :: forall (a_af2W :: Type) (n_a3u1i :: a_af2W). () => Sing n_a3u1i -> SSum ('Sum n_a3u1i :: Sum (a_af2W :: Type)) data SProduct z_a3u1L [SProduct] :: forall (a_af2Y :: Type) (n_a3u1E :: a_af2Y). () => Sing n_a3u1E -> SProduct ('Product n_a3u1E :: Product (a_af2Y :: Type)) data SFirst z_a5CQA [SFirst] :: forall (a_af3R :: Type) (n_a5CQt :: Maybe a_af3R). () => Sing n_a5CQt -> SFirst ('First n_a5CQt :: First (a_af3R :: Type)) data SLast z_a5CR0 [SLast] :: forall (a_af3P :: Type) (n_a5CQT :: Maybe a_af3P). () => Sing n_a5CQT -> SLast ('Last n_a5CQT :: Last (a_af3P :: Type)) type family GetDual a_a3u0i type family GetAll a_a3u0z type family GetAny a_a3u0Q type family GetSum a_a3u1c type family GetProduct a_a3u1y type family GetFirst a_a5CQm type family GetLast a_a5CQN sGetDual :: forall (a_af30 :: Type) (t_a3u0m :: Dual (a_af30 :: Type)). Sing t_a3u0m -> Sing (Apply GetDualSym0 t_a3u0m :: a_af30) sGetAll :: forall (t_a3u0D :: All). Sing t_a3u0D -> Sing (Apply GetAllSym0 t_a3u0D :: Bool) sGetAny :: forall (t_a3u0U :: Any). Sing t_a3u0U -> Sing (Apply GetAnySym0 t_a3u0U :: Bool) sGetSum :: forall (a_af2W :: Type) (t_a3u1g :: Sum (a_af2W :: Type)). Sing t_a3u1g -> Sing (Apply GetSumSym0 t_a3u1g :: a_af2W) sGetProduct :: forall (a_af2Y :: Type) (t_a3u1C :: Product (a_af2Y :: Type)). Sing t_a3u1C -> Sing (Apply GetProductSym0 t_a3u1C :: a_af2Y) sGetFirst :: forall (a_af3R :: Type) (t_a5CQq :: First (a_af3R :: Type)). Sing t_a5CQq -> Sing (Apply GetFirstSym0 t_a5CQq :: Maybe a_af3R) sGetLast :: forall (a_af3P :: Type) (t_a5CQR :: Last (a_af3P :: Type)). Sing t_a5CQR -> Sing (Apply GetLastSym0 t_a5CQR :: Maybe a_af3P) type MemptySym0 = Mempty :: a_a5BTv data MappendSym0 a6989586621680347244 data MappendSym1 a6989586621680347244 a6989586621680347245 type MappendSym2 (a6989586621680347244 :: a_a5BTv) (a6989586621680347245 :: a_a5BTv) = Mappend a6989586621680347244 a6989586621680347245 :: a_a5BTv data MconcatSym0 a6989586621680347248 type MconcatSym1 (a6989586621680347248 :: [a_a5BTv]) = Mconcat a6989586621680347248 :: a_a5BTv data DualSym0 a6989586621679840113 type DualSym1 (a6989586621679840113 :: a_af30) = 'Dual a6989586621679840113 :: Dual (a_af30 :: Type) data GetDualSym0 a6989586621679840116 type GetDualSym1 (a6989586621679840116 :: Dual (a_af30 :: Type)) = GetDual a6989586621679840116 :: a_af30 data AllSym0 a6989586621679840130 type AllSym1 (a6989586621679840130 :: Bool) = 'All a6989586621679840130 :: All data GetAllSym0 a6989586621679840133 type GetAllSym1 (a6989586621679840133 :: All) = GetAll a6989586621679840133 :: Bool data AnySym0 a6989586621679840147 type AnySym1 (a6989586621679840147 :: Bool) = 'Any a6989586621679840147 :: Any data GetAnySym0 a6989586621679840150 type GetAnySym1 (a6989586621679840150 :: Any) = GetAny a6989586621679840150 :: Bool data SumSym0 a6989586621679840169 type SumSym1 (a6989586621679840169 :: a_af2W) = 'Sum a6989586621679840169 :: Sum (a_af2W :: Type) data GetSumSym0 a6989586621679840172 type GetSumSym1 (a6989586621679840172 :: Sum (a_af2W :: Type)) = GetSum a6989586621679840172 :: a_af2W data ProductSym0 a6989586621679840191 type ProductSym1 (a6989586621679840191 :: a_af2Y) = 'Product a6989586621679840191 :: Product (a_af2Y :: Type) data GetProductSym0 a6989586621679840194 type GetProductSym1 (a6989586621679840194 :: Product (a_af2Y :: Type)) = GetProduct a6989586621679840194 :: a_af2Y data FirstSym0 a6989586621680350749 type FirstSym1 (a6989586621680350749 :: Maybe a_af3R) = 'First a6989586621680350749 :: First (a_af3R :: Type) data GetFirstSym0 a6989586621680350752 type GetFirstSym1 (a6989586621680350752 :: First (a_af3R :: Type)) = GetFirst a6989586621680350752 :: Maybe a_af3R data LastSym0 a6989586621680350776 type LastSym1 (a6989586621680350776 :: Maybe a_af3P) = 'Last a6989586621680350776 :: Last (a_af3P :: Type) data GetLastSym0 a6989586621680350779 type GetLastSym1 (a6989586621680350779 :: Last (a_af3P :: Type)) = GetLast a6989586621680350779 :: Maybe a_af3P instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Monoid.Last a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.TFHelper_6989586621680357076Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Monoid.Last a) instance forall a (a6989586621680357081 :: Data.Monoid.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.TFHelper_6989586621680357076Sym1 a6989586621680357081) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Let6989586621680357085BSym0 instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Monoid.Last a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.TFHelper_6989586621680357055Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Monoid.Last instance forall a b (a6989586621680357060 :: Data.Monoid.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.TFHelper_6989586621680357055Sym1 a6989586621680357060) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Lambda_6989586621680357064Sym0 instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Monoid.Last instance forall k k1 a (a6989586621680357062 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Lambda_6989586621680357064Sym1 a6989586621680357062) instance forall k k1 a (a6989586621680357062 :: k) (k6989586621680357063 :: k1 Data.Singletons.Internal.~> Data.Monoid.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Lambda_6989586621680357064Sym2 a6989586621680357062 k6989586621680357063) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Let6989586621680357067Scrutinee_6989586621680356795Sym0 instance forall k1 k2 k3 (x6989586621680357066 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Let6989586621680357067Scrutinee_6989586621680356795Sym1 x6989586621680357066) instance forall k1 k2 k3 (x6989586621680357066 :: k1) (a6989586621680357062 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Let6989586621680357067Scrutinee_6989586621680356795Sym2 x6989586621680357066 a6989586621680357062) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.TFHelper_6989586621680357044Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Monoid.Last instance forall a b (a6989586621680357049 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.TFHelper_6989586621680357044Sym1 a6989586621680357049) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Fmap_6989586621680357033Sym0 instance forall a b (a6989586621680357038 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Fmap_6989586621680357033Sym1 a6989586621680357038) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.TFHelper_6989586621680357022Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Monoid.Last instance forall a b (a6989586621680357027 :: Data.Monoid.Last (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.TFHelper_6989586621680357022Sym1 a6989586621680357027) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Pure_6989586621680357012Sym0 instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Monoid.First a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.TFHelper_6989586621680356997Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Monoid.First a) instance forall a (a6989586621680357002 :: Data.Monoid.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.TFHelper_6989586621680356997Sym1 a6989586621680357002) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Let6989586621680357006ASym0 instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Monoid.First a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.TFHelper_6989586621680356976Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Monoid.First instance forall a b (a6989586621680356981 :: Data.Monoid.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.TFHelper_6989586621680356976Sym1 a6989586621680356981) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Lambda_6989586621680356985Sym0 instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Monoid.First instance forall k k1 a (a6989586621680356983 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Lambda_6989586621680356985Sym1 a6989586621680356983) instance forall k k1 a (a6989586621680356983 :: k) (k6989586621680356984 :: k1 Data.Singletons.Internal.~> Data.Monoid.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Lambda_6989586621680356985Sym2 a6989586621680356983 k6989586621680356984) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Let6989586621680356988Scrutinee_6989586621680356788Sym0 instance forall k1 k2 k3 (x6989586621680356987 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Let6989586621680356988Scrutinee_6989586621680356788Sym1 x6989586621680356987) instance forall k1 k2 k3 (x6989586621680356987 :: k1) (a6989586621680356983 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Let6989586621680356988Scrutinee_6989586621680356788Sym2 x6989586621680356987 a6989586621680356983) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.TFHelper_6989586621680356965Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Monoid.First instance forall a b (a6989586621680356970 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.TFHelper_6989586621680356965Sym1 a6989586621680356970) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Fmap_6989586621680356954Sym0 instance forall a b (a6989586621680356959 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Fmap_6989586621680356954Sym1 a6989586621680356959) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.TFHelper_6989586621680356943Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Monoid.First instance forall a b (a6989586621680356948 :: Data.Monoid.First (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.TFHelper_6989586621680356943Sym1 a6989586621680356948) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Pure_6989586621680356933Sym0 instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Ord.Down a) instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Semigroup.Internal.Product a) instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Semigroup.Internal.Sum a) instance Data.Singletons.Prelude.Monoid.PMonoid Data.Semigroup.Internal.Any instance Data.Singletons.Prelude.Monoid.PMonoid Data.Semigroup.Internal.All instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Semigroup.Internal.Dual a) instance Data.Singletons.Prelude.Monoid.SMonoid a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Semigroup.Internal.Dual a) instance Data.Singletons.Prelude.Monoid.SMonoid Data.Semigroup.Internal.All instance Data.Singletons.Prelude.Monoid.SMonoid Data.Semigroup.Internal.Any instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Semigroup.Internal.Sum a) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Semigroup.Internal.Product a) instance Data.Singletons.Prelude.Monoid.SMonoid a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Ord.Down a) instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Monoid.First instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Monoid.First instance Data.Singletons.Prelude.Monoid.SMonoid (Data.Monoid.First a) instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Monoid.Last instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Monoid.Last instance Data.Singletons.Prelude.Monoid.SMonoid (Data.Monoid.Last a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.ShowsPrec_6989586621680353983Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Monoid.Last a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.ShowsPrec_6989586621680353983Sym1 a6989586621680353991) instance forall a (a6989586621680353991 :: GHC.Types.Nat) (a6989586621680353992 :: Data.Monoid.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.ShowsPrec_6989586621680353983Sym2 a6989586621680353991 a6989586621680353992) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.ShowsPrec_6989586621680353954Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Monoid.First a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.ShowsPrec_6989586621680353954Sym1 a6989586621680353962) instance forall a (a6989586621680353962 :: GHC.Types.Nat) (a6989586621680353963 :: Data.Monoid.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.ShowsPrec_6989586621680353954Sym2 a6989586621680353962 a6989586621680353963) instance Data.Singletons.Prelude.Show.SShow (GHC.Maybe.Maybe a) => Data.Singletons.Prelude.Show.SShow (Data.Monoid.First a) instance Data.Singletons.Prelude.Show.SShow (GHC.Maybe.Maybe a) => Data.Singletons.Prelude.Show.SShow (Data.Monoid.Last a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Compare_6989586621680352720Sym0 instance Data.Singletons.Prelude.Ord.POrd (Data.Monoid.Last a) instance forall a (a6989586621680352725 :: Data.Monoid.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Compare_6989586621680352720Sym1 a6989586621680352725) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Compare_6989586621680352700Sym0 instance Data.Singletons.Prelude.Ord.POrd (Data.Monoid.First a) instance forall a (a6989586621680352705 :: Data.Monoid.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Compare_6989586621680352700Sym1 a6989586621680352705) instance Data.Singletons.Prelude.Ord.SOrd (GHC.Maybe.Maybe a) => Data.Singletons.Prelude.Ord.SOrd (Data.Monoid.First a) instance Data.Singletons.Prelude.Ord.SOrd (GHC.Maybe.Maybe a) => Data.Singletons.Prelude.Ord.SOrd (Data.Monoid.Last a) 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.Type.Equality.TestEquality Data.Singletons.Prelude.Monoid.SFirst instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Type.Coercion.TestCoercion Data.Singletons.Prelude.Monoid.SFirst instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Singletons.Decide.SDecide (Data.Monoid.Last a) instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Type.Equality.TestEquality Data.Singletons.Prelude.Monoid.SLast instance Data.Singletons.Decide.SDecide (GHC.Maybe.Maybe a) => Data.Type.Coercion.TestCoercion Data.Singletons.Prelude.Monoid.SLast instance Data.Singletons.Prelude.Eq.PEq (Data.Monoid.Last a) instance Data.Singletons.Prelude.Eq.PEq (Data.Monoid.First a) instance Data.Singletons.Prelude.Eq.SEq (GHC.Maybe.Maybe a) => Data.Singletons.Prelude.Eq.SEq (Data.Monoid.First a) instance Data.Singletons.Prelude.Eq.SEq (GHC.Maybe.Maybe a) => Data.Singletons.Prelude.Eq.SEq (Data.Monoid.Last a) instance forall a (z :: Data.Monoid.First a). Data.Singletons.ShowSing.ShowSing (GHC.Maybe.Maybe a) => GHC.Show.Show (Data.Singletons.Prelude.Monoid.SFirst z) instance forall a (z :: Data.Monoid.Last a). Data.Singletons.ShowSing.ShowSing (GHC.Maybe.Maybe a) => GHC.Show.Show (Data.Singletons.Prelude.Monoid.SLast z) instance Data.Singletons.Internal.SingKind a => Data.Singletons.Internal.SingKind (Data.Monoid.Last a) instance forall a (n :: GHC.Maybe.Maybe a). Data.Singletons.Internal.SingI n => Data.Singletons.Internal.SingI ('Data.Monoid.Last n) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monoid.LastSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.GetLastSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monoid.GetLastSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.LastSym0 instance Data.Singletons.Internal.SingKind a => Data.Singletons.Internal.SingKind (Data.Monoid.First a) instance forall a (n :: GHC.Maybe.Maybe a). Data.Singletons.Internal.SingI n => Data.Singletons.Internal.SingI ('Data.Monoid.First n) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monoid.FirstSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.GetFirstSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monoid.GetFirstSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.FirstSym0 instance Data.Singletons.Prelude.Monoid.SMonoid [a] instance Data.Singletons.Prelude.Monoid.SMonoid b => Data.Singletons.Prelude.Monoid.SMonoid (a Data.Singletons.Internal.~> b) instance Data.Singletons.Prelude.Monoid.SMonoid () instance (Data.Singletons.Prelude.Monoid.SMonoid a, Data.Singletons.Prelude.Monoid.SMonoid b) => Data.Singletons.Prelude.Monoid.SMonoid (a, b) instance (Data.Singletons.Prelude.Monoid.SMonoid a, Data.Singletons.Prelude.Monoid.SMonoid b, Data.Singletons.Prelude.Monoid.SMonoid c) => Data.Singletons.Prelude.Monoid.SMonoid (a, b, c) instance (Data.Singletons.Prelude.Monoid.SMonoid a, Data.Singletons.Prelude.Monoid.SMonoid b, Data.Singletons.Prelude.Monoid.SMonoid c, Data.Singletons.Prelude.Monoid.SMonoid d) => Data.Singletons.Prelude.Monoid.SMonoid (a, b, c, d) instance (Data.Singletons.Prelude.Monoid.SMonoid a, Data.Singletons.Prelude.Monoid.SMonoid b, Data.Singletons.Prelude.Monoid.SMonoid c, Data.Singletons.Prelude.Monoid.SMonoid d, Data.Singletons.Prelude.Monoid.SMonoid e) => Data.Singletons.Prelude.Monoid.SMonoid (a, b, c, d, e) instance Data.Singletons.Prelude.Monoid.SMonoid GHC.Types.Ordering instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup a => Data.Singletons.Prelude.Monoid.SMonoid (GHC.Maybe.Maybe a) instance Data.Singletons.Prelude.Monoid.SMonoid GHC.Types.Symbol instance Data.Singletons.Prelude.Monoid.SMonoid a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monoid.MappendSym0 instance forall a (d :: a). (Data.Singletons.Prelude.Monoid.SMonoid a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monoid.MappendSym1 d) instance Data.Singletons.Prelude.Monoid.SMonoid a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monoid.MconcatSym0 instance Data.Singletons.Prelude.Monoid.PMonoid GHC.Types.Symbol instance Data.Singletons.Prelude.Monoid.PMonoid (GHC.Maybe.Maybe a) instance Data.Singletons.Prelude.Monoid.PMonoid GHC.Types.Ordering instance Data.Singletons.Prelude.Monoid.PMonoid (a, b, c, d, e) instance Data.Singletons.Prelude.Monoid.PMonoid (a, b, c, d) instance Data.Singletons.Prelude.Monoid.PMonoid (a, b, c) instance Data.Singletons.Prelude.Monoid.PMonoid (a, b) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Mconcat_6989586621680347292Sym0 instance Data.Singletons.Prelude.Monoid.PMonoid () instance Data.Singletons.Prelude.Monoid.PMonoid (a Data.Singletons.Internal.~> b) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Lambda_6989586621680347281Sym0 instance Data.Singletons.Prelude.Monoid.PMonoid [a] instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.MconcatSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.MappendSym0 instance forall a (a6989586621680347244 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.MappendSym1 a6989586621680347244) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Mconcat_6989586621680347265Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monoid.Mappend_6989586621680347251Sym0 instance forall a (a6989586621680347260 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monoid.Mappend_6989586621680347251Sym1 a6989586621680347260) -- | Exports promoted and singled versions of the definitions in -- Data.Proxy. module Data.Singletons.Prelude.Proxy -- | The singleton kind-indexed type family. type family Sing data SProxy :: forall t. Proxy t -> Type [SProxy] :: forall t. SProxy ('Proxy @t) type family AsProxyTypeOf a_a63ua a_a63ub sAsProxyTypeOf :: forall a_a63lD proxy_a63lE (t_a63wQ :: a_a63lD) (t_a63wR :: proxy_a63lE a_a63lD). Sing t_a63wQ -> Sing t_a63wR -> Sing (Apply (Apply AsProxyTypeOfSym0 t_a63wQ) t_a63wR :: a_a63lD) type ProxySym0 = 'Proxy :: Proxy (t_a7Zh :: k_a7Zg) data AsProxyTypeOfSym0 a6989586621680453165 data AsProxyTypeOfSym1 a6989586621680453165 a6989586621680453166 type AsProxyTypeOfSym2 (a6989586621680453165 :: a_a63lD) (a6989586621680453166 :: proxy_a63lE a_a63lD) = AsProxyTypeOf a6989586621680453165 a6989586621680453166 :: a_a63lD instance forall a k (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453321Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Proxy.Proxy instance forall a k (b :: k) (a6989586621680453326 :: Data.Proxy.Proxy a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453321Sym1 a6989586621680453326) instance forall k (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453312Sym0 instance Data.Singletons.Prelude.Monad.Internal.PAlternative Data.Proxy.Proxy instance forall k (a :: k) (a6989586621680453317 :: Data.Proxy.Proxy a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453312Sym1 a6989586621680453317) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453300Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Proxy.Proxy instance forall a b (a6989586621680453305 :: Data.Proxy.Proxy (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453300Sym1 a6989586621680453305) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.Pure_6989586621680453293Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.Fmap_6989586621680453285Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Proxy.Proxy instance forall a b (a6989586621680453290 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.Fmap_6989586621680453285Sym1 a6989586621680453290) instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.Mconcat_6989586621680453278Sym0 instance forall k (s :: k). Data.Singletons.Prelude.Monoid.PMonoid (Data.Proxy.Proxy s) instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.Sconcat_6989586621680453269Sym0 instance forall k (s :: k). Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Proxy.Proxy s) instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453261Sym0 instance forall k (s :: k) (a6989586621680453266 :: Data.Proxy.Proxy s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453261Sym1 a6989586621680453266) instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.EnumFromTo_6989586621680453252Sym0 instance forall k (s :: k). Data.Singletons.Prelude.Enum.PEnum (Data.Proxy.Proxy s) instance forall k (s :: k) (a6989586621680453257 :: Data.Proxy.Proxy s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.EnumFromTo_6989586621680453252Sym1 a6989586621680453257) instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.EnumFromThenTo_6989586621680453241Sym0 instance forall k (s :: k) (a6989586621680453247 :: Data.Proxy.Proxy s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.EnumFromThenTo_6989586621680453241Sym1 a6989586621680453247) instance forall k (s :: k) (a6989586621680453247 :: Data.Proxy.Proxy s) (a6989586621680453248 :: Data.Proxy.Proxy s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.EnumFromThenTo_6989586621680453241Sym2 a6989586621680453247 a6989586621680453248) instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.ToEnum_6989586621680453227Sym0 instance forall k (s :: k). Data.Singletons.Prelude.Enum.SEnum (Data.Proxy.Proxy s) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.Let6989586621680453233Scrutinee_6989586621680452644Sym0 instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.FromEnum_6989586621680453221Sym0 instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.Pred_6989586621680453215Sym0 instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.Succ_6989586621680453209Sym0 instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.ShowsPrec_6989586621680453196Sym0 instance forall k (s :: k). Data.Singletons.Prelude.Show.PShow (Data.Proxy.Proxy s) instance forall k (s :: k) (a6989586621680453204 :: GHC.Types.Nat). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.ShowsPrec_6989586621680453196Sym1 a6989586621680453204) instance forall k (s :: k) (a6989586621680453204 :: GHC.Types.Nat) (a6989586621680453205 :: Data.Proxy.Proxy s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.ShowsPrec_6989586621680453196Sym2 a6989586621680453204 a6989586621680453205) instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.Compare_6989586621680453186Sym0 instance forall k (s :: k). Data.Singletons.Prelude.Ord.POrd (Data.Proxy.Proxy s) instance forall k (s :: k) (a6989586621680453191 :: Data.Proxy.Proxy s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.Compare_6989586621680453186Sym1 a6989586621680453191) instance forall k (s :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453177Sym0 instance forall k (s :: k). Data.Singletons.Prelude.Eq.PEq (Data.Proxy.Proxy s) instance forall k (s :: k) (a6989586621680453182 :: Data.Proxy.Proxy s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.TFHelper_6989586621680453177Sym1 a6989586621680453182) instance forall k (s :: k). Data.Singletons.Prelude.Enum.PBounded (Data.Proxy.Proxy s) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Proxy.AsProxyTypeOfSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Proxy.AsProxyTypeOfSym0 instance forall a (proxy :: * -> *) (a6989586621680453165 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Proxy.AsProxyTypeOfSym1 a6989586621680453165) instance forall a (d :: a) (proxy :: * -> *). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Proxy.AsProxyTypeOfSym1 d) instance Data.Singletons.Prelude.Monad.Internal.PMonadPlus Data.Proxy.Proxy instance forall k (s :: k). Data.Singletons.Prelude.Enum.SBounded (Data.Proxy.Proxy s) instance forall k (s :: k). Data.Singletons.Prelude.Eq.SEq (Data.Proxy.Proxy s) instance forall k (s :: k). Data.Singletons.Prelude.Ord.SOrd (Data.Proxy.Proxy s) instance forall k (s :: k). Data.Singletons.Prelude.Show.SShow (Data.Proxy.Proxy s) instance forall k (s :: k). Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Proxy.Proxy s) instance forall k (s :: k). Data.Singletons.Prelude.Monoid.SMonoid (Data.Proxy.Proxy s) instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Proxy.Proxy instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Proxy.Proxy instance Data.Singletons.Prelude.Monad.Internal.SAlternative Data.Proxy.Proxy instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Proxy.Proxy instance Data.Singletons.Prelude.Monad.Internal.SMonadPlus Data.Proxy.Proxy instance forall k (t :: k). Data.Singletons.Decide.SDecide (Data.Proxy.Proxy t) instance forall k (t :: k). Data.Type.Equality.TestEquality Data.Singletons.Prelude.Proxy.SProxy instance forall k (t :: k). Data.Type.Coercion.TestCoercion Data.Singletons.Prelude.Proxy.SProxy instance forall k (t :: k) (z :: Data.Proxy.Proxy t). GHC.Show.Show (Data.Singletons.Prelude.Proxy.SProxy z) instance forall k (t :: k). Data.Singletons.Internal.SingKind (Data.Proxy.Proxy t) instance forall k (t :: k). Data.Singletons.Internal.SingI 'Data.Proxy.Proxy -- | Defines functions and datatypes relating to the singleton for -- Either, including a singletons version 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.Singletons.Prelude.Either -- | The singleton kind-indexed type family. type family Sing data SEither z_a1eAt [SLeft] :: forall (a_af38 :: Type) (b_af39 :: Type) (n_a1eAh :: a_af38). () => Sing n_a1eAh -> SEither ('Left n_a1eAh :: Either (a_af38 :: Type) (b_af39 :: Type)) [SRight] :: forall (a_af38 :: Type) (b_af39 :: Type) (n_a1eAj :: b_af39). () => Sing n_a1eAj -> SEither ('Right n_a1eAj :: Either (a_af38 :: Type) (b_af39 :: Type)) either_ :: (a_a67Xn -> c_a67Xo) -> (b_a67Xp -> c_a67Xo) -> Either a_a67Xn b_a67Xp -> c_a67Xo type family Either_ a_a67XX a_a67XY a_a67XZ sEither_ :: forall a_a67Xn c_a67Xo b_a67Xp (t_a67Y8 :: (~>) a_a67Xn c_a67Xo) (t_a67Y9 :: (~>) b_a67Xp c_a67Xo) (t_a67Ya :: Either a_a67Xn b_a67Xp). Sing t_a67Y8 -> Sing t_a67Y9 -> Sing t_a67Ya -> Sing (Apply (Apply (Apply Either_Sym0 t_a67Y8) t_a67Y9) t_a67Ya :: c_a67Xo) type family Lefts a_a68pl sLefts :: forall a_a68kX b_a68kY (t_a68pz :: [Either a_a68kX b_a68kY]). Sing t_a68pz -> Sing (Apply LeftsSym0 t_a68pz :: [a_a68kX]) type family Rights a_a68pf sRights :: forall a_a68kV b_a68kW (t_a68px :: [Either a_a68kV b_a68kW]). Sing t_a68px -> Sing (Apply RightsSym0 t_a68px :: [b_a68kW]) type family PartitionEithers a_a68oY sPartitionEithers :: forall a_a68kT b_a68kU (t_a68pv :: [Either a_a68kT b_a68kU]). Sing t_a68pv -> Sing (Apply PartitionEithersSym0 t_a68pv :: ([a_a68kT], [b_a68kU])) type family IsLeft a_a68oT sIsLeft :: forall a_a68kR b_a68kS (t_a68pt :: Either a_a68kR b_a68kS). Sing t_a68pt -> Sing (Apply IsLeftSym0 t_a68pt :: Bool) type family IsRight a_a68oQ sIsRight :: forall a_a68kP b_a68kQ (t_a68pr :: Either a_a68kP b_a68kQ). Sing t_a68pr -> Sing (Apply IsRightSym0 t_a68pr :: Bool) data LeftSym0 a6989586621679304182 type LeftSym1 (a6989586621679304182 :: a_af38) = 'Left a6989586621679304182 :: Either (a_af38 :: Type) (b_af39 :: Type) data RightSym0 a6989586621679304184 type RightSym1 (a6989586621679304184 :: b_af39) = 'Right a6989586621679304184 :: Either (a_af38 :: Type) (b_af39 :: Type) data Either_Sym0 a6989586621680470389 data Either_Sym1 a6989586621680470389 a6989586621680470390 data Either_Sym2 a6989586621680470389 a6989586621680470390 a6989586621680470391 type Either_Sym3 (a6989586621680470389 :: (~>) a_a67Xn c_a67Xo) (a6989586621680470390 :: (~>) b_a67Xp c_a67Xo) (a6989586621680470391 :: Either a_a67Xn b_a67Xp) = Either_ a6989586621680470389 a6989586621680470390 a6989586621680470391 :: c_a67Xo data LeftsSym0 a6989586621680472085 type LeftsSym1 (a6989586621680472085 :: [Either a_a68kX b_a68kY]) = Lefts a6989586621680472085 :: [a_a68kX] data RightsSym0 a6989586621680472079 type RightsSym1 (a6989586621680472079 :: [Either a_a68kV b_a68kW]) = Rights a6989586621680472079 :: [b_a68kW] data IsLeftSym0 a6989586621680472057 type IsLeftSym1 (a6989586621680472057 :: Either a_a68kR b_a68kS) = IsLeft a6989586621680472057 :: Bool data IsRightSym0 a6989586621680472054 type IsRightSym1 (a6989586621680472054 :: Either a_a68kP b_a68kQ) = IsRight a6989586621680472054 :: Bool instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Either.LeftsSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Either.LeftsSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Either.RightsSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Either.RightsSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Either.PartitionEithersSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Either.PartitionEithersSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Either.IsLeftSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Either.IsLeftSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Either.IsRightSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Either.IsRightSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Either.Let6989586621680472064LeftSym0 instance forall k k2 k3 (a_69895866216804720586989586621680472063 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Either.Let6989586621680472064LeftSym1 a_69895866216804720586989586621680472063) instance forall k k2 k3 (a_69895866216804720586989586621680472063 :: k) (a6989586621680472071 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Either.Let6989586621680472064LeftSym2 a_69895866216804720586989586621680472063 a6989586621680472071) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Either.Let6989586621680472064RightSym0 instance forall k k2 k3 (a_69895866216804720586989586621680472063 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Either.Let6989586621680472064RightSym1 a_69895866216804720586989586621680472063) instance forall k k2 k3 (a_69895866216804720586989586621680472063 :: k) (a6989586621680472065 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Either.Let6989586621680472064RightSym2 a_69895866216804720586989586621680472063 a6989586621680472065) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Either.Either_Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Either.Either_Sym0 instance forall a c b (a6989586621680470389 :: a Data.Singletons.Internal.~> c). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Either.Either_Sym1 a6989586621680470389) instance forall a c (d :: a Data.Singletons.Internal.~> c) b. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Either.Either_Sym1 d) instance forall a c b (a6989586621680470389 :: a Data.Singletons.Internal.~> c) (a6989586621680470390 :: b Data.Singletons.Internal.~> c). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Either.Either_Sym2 a6989586621680470389 a6989586621680470390) instance forall a c (d1 :: a Data.Singletons.Internal.~> c) b (d2 :: b Data.Singletons.Internal.~> c). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Either.Either_Sym2 d1 d2) -- | Defines the promoted and singled versions of the Foldable type -- class. module Data.Singletons.Prelude.Foldable class PFoldable t_a6dyx where { type family Fold (arg_a6dHF :: t_a6dyx m_a6dyy) :: m_a6dyy; type family FoldMap (arg_a6dHI :: (~>) a_a6dyA m_a6dyz) (arg_a6dHJ :: t_a6dyx a_a6dyA) :: m_a6dyz; type family Foldr (arg_a6dHN :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (arg_a6dHO :: b_a6dyC) (arg_a6dHP :: t_a6dyx a_a6dyB) :: b_a6dyC; type family Foldr' (arg_a6dHU :: (~>) a_a6dyD ((~>) b_a6dyE b_a6dyE)) (arg_a6dHV :: b_a6dyE) (arg_a6dHW :: t_a6dyx a_a6dyD) :: b_a6dyE; type family Foldl (arg_a6dI1 :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (arg_a6dI2 :: b_a6dyF) (arg_a6dI3 :: t_a6dyx a_a6dyG) :: b_a6dyF; type family Foldl' (arg_a6dI8 :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (arg_a6dI9 :: b_a6dyH) (arg_a6dIa :: t_a6dyx a_a6dyI) :: b_a6dyH; type family Foldr1 (arg_a6dIf :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (arg_a6dIg :: t_a6dyx a_a6dyJ) :: a_a6dyJ; type family Foldl1 (arg_a6dIk :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (arg_a6dIl :: t_a6dyx a_a6dyK) :: a_a6dyK; type family ToList (arg_a6dIp :: t_a6dyx a_a6dyL) :: [a_a6dyL]; type family Null (arg_a6dIs :: t_a6dyx a_a6dyM) :: Bool; type family Length (arg_a6dIv :: t_a6dyx a_a6dyN) :: Nat; type family Elem (arg_a6dIy :: a_a6dyO) (arg_a6dIz :: t_a6dyx a_a6dyO) :: Bool; type family Maximum (arg_a6dID :: t_a6dyx a_a6dyP) :: a_a6dyP; type family Minimum (arg_a6dIG :: t_a6dyx a_a6dyQ) :: a_a6dyQ; type family Sum (arg_a6dIJ :: t_a6dyx a_a6dyR) :: a_a6dyR; type family Product (arg_a6dIM :: t_a6dyx a_a6dyS) :: a_a6dyS; type Fold a_a6dIP = Apply Fold_6989586621680492512Sym0 a_a6dIP; type FoldMap a_a6dIY a_a6dIZ = Apply (Apply FoldMap_6989586621680492522Sym0 a_a6dIY) a_a6dIZ; type Foldr a_a6dJb a_a6dJc a_a6dJd = Apply (Apply (Apply Foldr_6989586621680492536Sym0 a_a6dJb) a_a6dJc) a_a6dJd; type Foldr' a_a6dJq a_a6dJr a_a6dJs = Apply (Apply (Apply Foldr'_6989586621680492551Sym0 a_a6dJq) a_a6dJr) a_a6dJs; type Foldl a_a6dJN a_a6dJO a_a6dJP = Apply (Apply (Apply Foldl_6989586621680492574Sym0 a_a6dJN) a_a6dJO) a_a6dJP; type Foldl' a_a6dK2 a_a6dK3 a_a6dK4 = Apply (Apply (Apply Foldl'_6989586621680492589Sym0 a_a6dK2) a_a6dK3) a_a6dK4; type Foldr1 a_a6dKp a_a6dKq = Apply (Apply Foldr1_6989586621680492611Sym0 a_a6dKp) a_a6dKq; type Foldl1 a_a6dKK a_a6dKL = Apply (Apply Foldl1_6989586621680492632Sym0 a_a6dKK) a_a6dKL; type ToList a_a6dL5 = Apply ToList_6989586621680492652Sym0 a_a6dL5; type Null a_a6dLe = Apply Null_6989586621680492661Sym0 a_a6dLe; type Length a_a6dLv = Apply Length_6989586621680492678Sym0 a_a6dLv; type Elem a_a6dLN a_a6dLO = Apply (Apply Elem_6989586621680492697Sym0 a_a6dLN) a_a6dLO; type Maximum a_a6dM2 = Apply Maximum_6989586621680492711Sym0 a_a6dM2; type Minimum a_a6dMh = Apply Minimum_6989586621680492726Sym0 a_a6dMh; type Sum a_a6dMw = Apply Sum_6989586621680492741Sym0 a_a6dMw; type Product a_a6dMF = Apply Product_6989586621680492750Sym0 a_a6dMF; } class SFoldable t_a6dyx sFold :: forall m_a6dyy (t_a6e4k :: t_a6dyx m_a6dyy). (SFoldable t_a6dyx, SMonoid m_a6dyy) => Sing t_a6e4k -> Sing (Apply FoldSym0 t_a6e4k :: m_a6dyy) sFoldMap :: forall a_a6dyA m_a6dyz (t_a6e4m :: (~>) a_a6dyA m_a6dyz) (t_a6e4n :: t_a6dyx a_a6dyA). (SFoldable t_a6dyx, SMonoid m_a6dyz) => Sing t_a6e4m -> Sing t_a6e4n -> Sing (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) sFoldr :: forall a_a6dyB b_a6dyC (t_a6e4q :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (t_a6e4r :: b_a6dyC) (t_a6e4s :: t_a6dyx a_a6dyB). SFoldable t_a6dyx => Sing t_a6e4q -> Sing t_a6e4r -> Sing t_a6e4s -> Sing (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) sFoldr' :: forall a_a6dyD b_a6dyE (t_a6e4w :: (~>) a_a6dyD ((~>) b_a6dyE b_a6dyE)) (t_a6e4x :: b_a6dyE) (t_a6e4y :: t_a6dyx a_a6dyD). SFoldable t_a6dyx => Sing t_a6e4w -> Sing t_a6e4x -> Sing t_a6e4y -> Sing (Apply (Apply (Apply Foldr'Sym0 t_a6e4w) t_a6e4x) t_a6e4y :: b_a6dyE) sFoldl :: forall b_a6dyF a_a6dyG (t_a6e4C :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (t_a6e4D :: b_a6dyF) (t_a6e4E :: t_a6dyx a_a6dyG). SFoldable t_a6dyx => Sing t_a6e4C -> Sing t_a6e4D -> Sing t_a6e4E -> Sing (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) sFoldl' :: forall b_a6dyH a_a6dyI (t_a6e4I :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (t_a6e4J :: b_a6dyH) (t_a6e4K :: t_a6dyx a_a6dyI). SFoldable t_a6dyx => Sing t_a6e4I -> Sing t_a6e4J -> Sing t_a6e4K -> Sing (Apply (Apply (Apply Foldl'Sym0 t_a6e4I) t_a6e4J) t_a6e4K :: b_a6dyH) sFoldr1 :: forall a_a6dyJ (t_a6e4O :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (t_a6e4P :: t_a6dyx a_a6dyJ). SFoldable t_a6dyx => Sing t_a6e4O -> Sing t_a6e4P -> Sing (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) sFoldl1 :: forall a_a6dyK (t_a6e4S :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (t_a6e4T :: t_a6dyx a_a6dyK). SFoldable t_a6dyx => Sing t_a6e4S -> Sing t_a6e4T -> Sing (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) sToList :: forall a_a6dyL (t_a6e4W :: t_a6dyx a_a6dyL). SFoldable t_a6dyx => Sing t_a6e4W -> Sing (Apply ToListSym0 t_a6e4W :: [a_a6dyL]) sNull :: forall a_a6dyM (t_a6e4Y :: t_a6dyx a_a6dyM). SFoldable t_a6dyx => Sing t_a6e4Y -> Sing (Apply NullSym0 t_a6e4Y :: Bool) sLength :: forall a_a6dyN (t_a6e50 :: t_a6dyx a_a6dyN). SFoldable t_a6dyx => Sing t_a6e50 -> Sing (Apply LengthSym0 t_a6e50 :: Nat) sElem :: forall a_a6dyO (t_a6e52 :: a_a6dyO) (t_a6e53 :: t_a6dyx a_a6dyO). (SFoldable t_a6dyx, SEq a_a6dyO) => Sing t_a6e52 -> Sing t_a6e53 -> Sing (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) sMaximum :: forall a_a6dyP (t_a6e56 :: t_a6dyx a_a6dyP). (SFoldable t_a6dyx, SOrd a_a6dyP) => Sing t_a6e56 -> Sing (Apply MaximumSym0 t_a6e56 :: a_a6dyP) sMinimum :: forall a_a6dyQ (t_a6e58 :: t_a6dyx a_a6dyQ). (SFoldable t_a6dyx, SOrd a_a6dyQ) => Sing t_a6e58 -> Sing (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) sSum :: forall a_a6dyR (t_a6e5a :: t_a6dyx a_a6dyR). (SFoldable t_a6dyx, SNum a_a6dyR) => Sing t_a6e5a -> Sing (Apply SumSym0 t_a6e5a :: a_a6dyR) sProduct :: forall a_a6dyS (t_a6e5c :: t_a6dyx a_a6dyS). (SFoldable t_a6dyx, SNum a_a6dyS) => Sing t_a6e5c -> Sing (Apply ProductSym0 t_a6e5c :: a_a6dyS) sFold :: forall m_a6dyy (t_a6e4k :: t_a6dyx m_a6dyy). (SFoldable t_a6dyx, (Apply FoldSym0 t_a6e4k :: m_a6dyy) ~ Apply Fold_6989586621680492512Sym0 t_a6e4k, SMonoid m_a6dyy) => Sing t_a6e4k -> Sing (Apply FoldSym0 t_a6e4k :: m_a6dyy) sFoldMap :: forall a_a6dyA m_a6dyz (t_a6e4m :: (~>) a_a6dyA m_a6dyz) (t_a6e4n :: t_a6dyx a_a6dyA). (SFoldable t_a6dyx, (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) ~ Apply (Apply FoldMap_6989586621680492522Sym0 t_a6e4m) t_a6e4n, SMonoid m_a6dyz) => Sing t_a6e4m -> Sing t_a6e4n -> Sing (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) sFoldr :: forall a_a6dyB b_a6dyC (t_a6e4q :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (t_a6e4r :: b_a6dyC) (t_a6e4s :: t_a6dyx a_a6dyB). (SFoldable t_a6dyx, (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) ~ Apply (Apply (Apply Foldr_6989586621680492536Sym0 t_a6e4q) t_a6e4r) t_a6e4s) => Sing t_a6e4q -> Sing t_a6e4r -> Sing t_a6e4s -> Sing (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) sFoldr' :: forall a_a6dyD b_a6dyE (t_a6e4w :: (~>) a_a6dyD ((~>) b_a6dyE b_a6dyE)) (t_a6e4x :: b_a6dyE) (t_a6e4y :: t_a6dyx a_a6dyD). (SFoldable t_a6dyx, (Apply (Apply (Apply Foldr'Sym0 t_a6e4w) t_a6e4x) t_a6e4y :: b_a6dyE) ~ Apply (Apply (Apply Foldr'_6989586621680492551Sym0 t_a6e4w) t_a6e4x) t_a6e4y) => Sing t_a6e4w -> Sing t_a6e4x -> Sing t_a6e4y -> Sing (Apply (Apply (Apply Foldr'Sym0 t_a6e4w) t_a6e4x) t_a6e4y :: b_a6dyE) sFoldl :: forall b_a6dyF a_a6dyG (t_a6e4C :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (t_a6e4D :: b_a6dyF) (t_a6e4E :: t_a6dyx a_a6dyG). (SFoldable t_a6dyx, (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) ~ Apply (Apply (Apply Foldl_6989586621680492574Sym0 t_a6e4C) t_a6e4D) t_a6e4E) => Sing t_a6e4C -> Sing t_a6e4D -> Sing t_a6e4E -> Sing (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) sFoldl' :: forall b_a6dyH a_a6dyI (t_a6e4I :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (t_a6e4J :: b_a6dyH) (t_a6e4K :: t_a6dyx a_a6dyI). (SFoldable t_a6dyx, (Apply (Apply (Apply Foldl'Sym0 t_a6e4I) t_a6e4J) t_a6e4K :: b_a6dyH) ~ Apply (Apply (Apply Foldl'_6989586621680492589Sym0 t_a6e4I) t_a6e4J) t_a6e4K) => Sing t_a6e4I -> Sing t_a6e4J -> Sing t_a6e4K -> Sing (Apply (Apply (Apply Foldl'Sym0 t_a6e4I) t_a6e4J) t_a6e4K :: b_a6dyH) sFoldr1 :: forall a_a6dyJ (t_a6e4O :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (t_a6e4P :: t_a6dyx a_a6dyJ). (SFoldable t_a6dyx, (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) ~ Apply (Apply Foldr1_6989586621680492611Sym0 t_a6e4O) t_a6e4P) => Sing t_a6e4O -> Sing t_a6e4P -> Sing (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) sFoldl1 :: forall a_a6dyK (t_a6e4S :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (t_a6e4T :: t_a6dyx a_a6dyK). (SFoldable t_a6dyx, (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) ~ Apply (Apply Foldl1_6989586621680492632Sym0 t_a6e4S) t_a6e4T) => Sing t_a6e4S -> Sing t_a6e4T -> Sing (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) sToList :: forall a_a6dyL (t_a6e4W :: t_a6dyx a_a6dyL). (SFoldable t_a6dyx, (Apply ToListSym0 t_a6e4W :: [a_a6dyL]) ~ Apply ToList_6989586621680492652Sym0 t_a6e4W) => Sing t_a6e4W -> Sing (Apply ToListSym0 t_a6e4W :: [a_a6dyL]) sNull :: forall a_a6dyM (t_a6e4Y :: t_a6dyx a_a6dyM). (SFoldable t_a6dyx, (Apply NullSym0 t_a6e4Y :: Bool) ~ Apply Null_6989586621680492661Sym0 t_a6e4Y) => Sing t_a6e4Y -> Sing (Apply NullSym0 t_a6e4Y :: Bool) sLength :: forall a_a6dyN (t_a6e50 :: t_a6dyx a_a6dyN). (SFoldable t_a6dyx, (Apply LengthSym0 t_a6e50 :: Nat) ~ Apply Length_6989586621680492678Sym0 t_a6e50) => Sing t_a6e50 -> Sing (Apply LengthSym0 t_a6e50 :: Nat) sElem :: forall a_a6dyO (t_a6e52 :: a_a6dyO) (t_a6e53 :: t_a6dyx a_a6dyO). (SFoldable t_a6dyx, (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) ~ Apply (Apply Elem_6989586621680492697Sym0 t_a6e52) t_a6e53, SEq a_a6dyO) => Sing t_a6e52 -> Sing t_a6e53 -> Sing (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) sMaximum :: forall a_a6dyP (t_a6e56 :: t_a6dyx a_a6dyP). (SFoldable t_a6dyx, (Apply MaximumSym0 t_a6e56 :: a_a6dyP) ~ Apply Maximum_6989586621680492711Sym0 t_a6e56, SOrd a_a6dyP) => Sing t_a6e56 -> Sing (Apply MaximumSym0 t_a6e56 :: a_a6dyP) sMinimum :: forall a_a6dyQ (t_a6e58 :: t_a6dyx a_a6dyQ). (SFoldable t_a6dyx, (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) ~ Apply Minimum_6989586621680492726Sym0 t_a6e58, SOrd a_a6dyQ) => Sing t_a6e58 -> Sing (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) sSum :: forall a_a6dyR (t_a6e5a :: t_a6dyx a_a6dyR). (SFoldable t_a6dyx, (Apply SumSym0 t_a6e5a :: a_a6dyR) ~ Apply Sum_6989586621680492741Sym0 t_a6e5a, SNum a_a6dyR) => Sing t_a6e5a -> Sing (Apply SumSym0 t_a6e5a :: a_a6dyR) sProduct :: forall a_a6dyS (t_a6e5c :: t_a6dyx a_a6dyS). (SFoldable t_a6dyx, (Apply ProductSym0 t_a6e5c :: a_a6dyS) ~ Apply Product_6989586621680492750Sym0 t_a6e5c, SNum a_a6dyS) => Sing t_a6e5c -> Sing (Apply ProductSym0 t_a6e5c :: a_a6dyS) type family FoldrM a_a6dHn a_a6dHo a_a6dHp sFoldrM :: forall a_a6dxU b_a6dxV m_a6dxT t_a6dxS (t_a6e3t :: (~>) a_a6dxU ((~>) b_a6dxV (m_a6dxT b_a6dxV))) (t_a6e3u :: b_a6dxV) (t_a6e3v :: t_a6dxS a_a6dxU). (SFoldable t_a6dxS, SMonad m_a6dxT) => Sing t_a6e3t -> Sing t_a6e3u -> Sing t_a6e3v -> Sing (Apply (Apply (Apply FoldrMSym0 t_a6e3t) t_a6e3u) t_a6e3v :: m_a6dxT b_a6dxV) type family FoldlM a_a6dH5 a_a6dH6 a_a6dH7 sFoldlM :: forall b_a6dxQ a_a6dxR m_a6dxP t_a6dxO (t_a6e3n :: (~>) b_a6dxQ ((~>) a_a6dxR (m_a6dxP b_a6dxQ))) (t_a6e3o :: b_a6dxQ) (t_a6e3p :: t_a6dxO a_a6dxR). (SFoldable t_a6dxO, SMonad m_a6dxP) => Sing t_a6e3n -> Sing t_a6e3o -> Sing t_a6e3p -> Sing (Apply (Apply (Apply FoldlMSym0 t_a6e3n) t_a6e3o) t_a6e3p :: m_a6dxP b_a6dxQ) type family Traverse_ a_a6dGY a_a6dGZ sTraverse_ :: forall a_a6dxM f_a6dxL b_a6dxN t_a6dxK (t_a6e3j :: (~>) a_a6dxM (f_a6dxL b_a6dxN)) (t_a6e3k :: t_a6dxK a_a6dxM). (SFoldable t_a6dxK, SApplicative f_a6dxL) => Sing t_a6e3j -> Sing t_a6e3k -> Sing (Apply (Apply Traverse_Sym0 t_a6e3j) t_a6e3k :: f_a6dxL ()) type family For_ a_a6dGP a_a6dGQ sFor_ :: forall t_a6dxG a_a6dxI f_a6dxH b_a6dxJ (t_a6e3f :: t_a6dxG a_a6dxI) (t_a6e3g :: (~>) a_a6dxI (f_a6dxH b_a6dxJ)). (SFoldable t_a6dxG, SApplicative f_a6dxH) => Sing t_a6e3f -> Sing t_a6e3g -> Sing (Apply (Apply For_Sym0 t_a6e3f) t_a6e3g :: f_a6dxH ()) type family SequenceA_ a_a6dGn sSequenceA_ :: forall t_a6dxv f_a6dxw a_a6dxx (t_a6e35 :: t_a6dxv (f_a6dxw a_a6dxx)). (SFoldable t_a6dxv, SApplicative f_a6dxw) => Sing t_a6e35 -> Sing (Apply SequenceA_Sym0 t_a6e35 :: f_a6dxw ()) type family Asum a_a6dGb sAsum :: forall t_a6dxp f_a6dxq a_a6dxr (t_a6e31 :: t_a6dxp (f_a6dxq a_a6dxr)). (SFoldable t_a6dxp, SAlternative f_a6dxq) => Sing t_a6e31 -> Sing (Apply AsumSym0 t_a6e31 :: f_a6dxq a_a6dxr) type family MapM_ a_a6dGE a_a6dGF sMapM_ :: forall a_a6dxE m_a6dxD b_a6dxF t_a6dxC (t_a6e3b :: (~>) a_a6dxE (m_a6dxD b_a6dxF)) (t_a6e3c :: t_a6dxC a_a6dxE). (SFoldable t_a6dxC, SMonad m_a6dxD) => Sing t_a6e3b -> Sing t_a6e3c -> Sing (Apply (Apply MapM_Sym0 t_a6e3b) t_a6e3c :: m_a6dxD ()) type family ForM_ a_a6dGv a_a6dGw sForM_ :: forall t_a6dxy a_a6dxA m_a6dxz b_a6dxB (t_a6e37 :: t_a6dxy a_a6dxA) (t_a6e38 :: (~>) a_a6dxA (m_a6dxz b_a6dxB)). (SFoldable t_a6dxy, SMonad m_a6dxz) => Sing t_a6e37 -> Sing t_a6e38 -> Sing (Apply (Apply ForM_Sym0 t_a6e37) t_a6e38 :: m_a6dxz ()) type family Sequence_ a_a6dGh sSequence_ :: forall t_a6dxs m_a6dxt a_a6dxu (t_a6e33 :: t_a6dxs (m_a6dxt a_a6dxu)). (SFoldable t_a6dxs, SMonad m_a6dxt) => Sing t_a6e33 -> Sing (Apply Sequence_Sym0 t_a6e33 :: m_a6dxt ()) type family Msum a_a6dG5 sMsum :: forall t_a6dxm m_a6dxn a_a6dxo (t_a6e2Z :: t_a6dxm (m_a6dxn a_a6dxo)). (SFoldable t_a6dxm, SMonadPlus m_a6dxn) => Sing t_a6e2Z -> Sing (Apply MsumSym0 t_a6e2Z :: m_a6dxn a_a6dxo) type family Concat a_a6dFU sConcat :: forall t_a6dxk a_a6dxl (t_a6e2X :: t_a6dxk [a_a6dxl]). SFoldable t_a6dxk => Sing t_a6e2X -> Sing (Apply ConcatSym0 t_a6e2X :: [a_a6dxl]) type family ConcatMap a_a6dFI a_a6dFJ sConcatMap :: forall a_a6dxi b_a6dxj t_a6dxh (t_a6e2T :: (~>) a_a6dxi [b_a6dxj]) (t_a6e2U :: t_a6dxh a_a6dxi). SFoldable t_a6dxh => Sing t_a6e2T -> Sing t_a6e2U -> Sing (Apply (Apply ConcatMapSym0 t_a6e2T) t_a6e2U :: [b_a6dxj]) type family And a_a6dFE sAnd :: forall t_a6dxg (t_a6e2R :: t_a6dxg Bool). SFoldable t_a6dxg => Sing t_a6e2R -> Sing (Apply AndSym0 t_a6e2R :: Bool) type family Or a_a6dFy sOr :: forall t_a6dxf (t_a6e2P :: t_a6dxf Bool). SFoldable t_a6dxf => Sing t_a6e2P -> Sing (Apply OrSym0 t_a6e2P :: Bool) type family Any a_a6dFp a_a6dFq sAny :: forall a_a6dxe t_a6dxd (t_a6e2L :: (~>) a_a6dxe Bool) (t_a6e2M :: t_a6dxd a_a6dxe). SFoldable t_a6dxd => Sing t_a6e2L -> Sing t_a6e2M -> Sing (Apply (Apply AnySym0 t_a6e2L) t_a6e2M :: Bool) type family All a_a6dFg a_a6dFh sAll :: forall a_a6dxc t_a6dxb (t_a6e2H :: (~>) a_a6dxc Bool) (t_a6e2I :: t_a6dxb a_a6dxc). SFoldable t_a6dxb => Sing t_a6e2H -> Sing t_a6e2I -> Sing (Apply (Apply AllSym0 t_a6e2H) t_a6e2I :: Bool) type family MaximumBy a_a6dEW a_a6dEX sMaximumBy :: forall a_a6dxa t_a6dx9 (t_a6e2D :: (~>) a_a6dxa ((~>) a_a6dxa Ordering)) (t_a6e2E :: t_a6dx9 a_a6dxa). SFoldable t_a6dx9 => Sing t_a6e2D -> Sing t_a6e2E -> Sing (Apply (Apply MaximumBySym0 t_a6e2D) t_a6e2E :: a_a6dxa) type family MinimumBy a_a6dEC a_a6dED sMinimumBy :: forall a_a6dx8 t_a6dx7 (t_a6e2z :: (~>) a_a6dx8 ((~>) a_a6dx8 Ordering)) (t_a6e2A :: t_a6dx7 a_a6dx8). SFoldable t_a6dx7 => Sing t_a6e2z -> Sing t_a6e2A -> Sing (Apply (Apply MinimumBySym0 t_a6e2z) t_a6e2A :: a_a6dx8) type family NotElem a_a6dEt a_a6dEu sNotElem :: forall a_a6dx6 t_a6dx5 (t_a6e2v :: a_a6dx6) (t_a6e2w :: t_a6dx5 a_a6dx6). (SFoldable t_a6dx5, SEq a_a6dx6) => Sing t_a6e2v -> Sing t_a6e2w -> Sing (Apply (Apply NotElemSym0 t_a6e2v) t_a6e2w :: Bool) type family Find a_a6dEb a_a6dEc sFind :: forall a_a6dx4 t_a6dx3 (t_a6e2r :: (~>) a_a6dx4 Bool) (t_a6e2s :: t_a6dx3 a_a6dx4). SFoldable t_a6dx3 => Sing t_a6e2r -> Sing t_a6e2s -> Sing (Apply (Apply FindSym0 t_a6e2r) t_a6e2s :: Maybe a_a6dx4) data FoldSym0 a6989586621680492441 type FoldSym1 (a6989586621680492441 :: t_a6dyx m_a6dyy) = Fold a6989586621680492441 :: m_a6dyy data FoldMapSym0 a6989586621680492445 data FoldMapSym1 a6989586621680492445 a6989586621680492446 type FoldMapSym2 (a6989586621680492445 :: (~>) a_a6dyA m_a6dyz) (a6989586621680492446 :: t_a6dyx a_a6dyA) = FoldMap a6989586621680492445 a6989586621680492446 :: m_a6dyz data FoldrSym0 a6989586621680492451 data FoldrSym1 a6989586621680492451 a6989586621680492452 data FoldrSym2 a6989586621680492451 a6989586621680492452 a6989586621680492453 type FoldrSym3 (a6989586621680492451 :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (a6989586621680492452 :: b_a6dyC) (a6989586621680492453 :: t_a6dyx a_a6dyB) = Foldr a6989586621680492451 a6989586621680492452 a6989586621680492453 :: b_a6dyC data Foldr'Sym0 a6989586621680492458 data Foldr'Sym1 a6989586621680492458 a6989586621680492459 data Foldr'Sym2 a6989586621680492458 a6989586621680492459 a6989586621680492460 type Foldr'Sym3 (a6989586621680492458 :: (~>) a_a6dyD ((~>) b_a6dyE b_a6dyE)) (a6989586621680492459 :: b_a6dyE) (a6989586621680492460 :: t_a6dyx a_a6dyD) = Foldr' a6989586621680492458 a6989586621680492459 a6989586621680492460 :: b_a6dyE data FoldlSym0 a6989586621680492465 data FoldlSym1 a6989586621680492465 a6989586621680492466 data FoldlSym2 a6989586621680492465 a6989586621680492466 a6989586621680492467 type FoldlSym3 (a6989586621680492465 :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (a6989586621680492466 :: b_a6dyF) (a6989586621680492467 :: t_a6dyx a_a6dyG) = Foldl a6989586621680492465 a6989586621680492466 a6989586621680492467 :: b_a6dyF data Foldl'Sym0 a6989586621680492472 data Foldl'Sym1 a6989586621680492472 a6989586621680492473 data Foldl'Sym2 a6989586621680492472 a6989586621680492473 a6989586621680492474 type Foldl'Sym3 (a6989586621680492472 :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (a6989586621680492473 :: b_a6dyH) (a6989586621680492474 :: t_a6dyx a_a6dyI) = Foldl' a6989586621680492472 a6989586621680492473 a6989586621680492474 :: b_a6dyH data Foldr1Sym0 a6989586621680492478 data Foldr1Sym1 a6989586621680492478 a6989586621680492479 type Foldr1Sym2 (a6989586621680492478 :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (a6989586621680492479 :: t_a6dyx a_a6dyJ) = Foldr1 a6989586621680492478 a6989586621680492479 :: a_a6dyJ data Foldl1Sym0 a6989586621680492483 data Foldl1Sym1 a6989586621680492483 a6989586621680492484 type Foldl1Sym2 (a6989586621680492483 :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (a6989586621680492484 :: t_a6dyx a_a6dyK) = Foldl1 a6989586621680492483 a6989586621680492484 :: a_a6dyK data ToListSym0 a6989586621680492487 type ToListSym1 (a6989586621680492487 :: t_a6dyx a_a6dyL) = ToList a6989586621680492487 :: [a_a6dyL] data NullSym0 a6989586621680492490 type NullSym1 (a6989586621680492490 :: t_a6dyx a_a6dyM) = Null a6989586621680492490 :: Bool data LengthSym0 a6989586621680492493 type LengthSym1 (a6989586621680492493 :: t_a6dyx a_a6dyN) = Length a6989586621680492493 :: Nat data ElemSym0 a6989586621680492497 data ElemSym1 a6989586621680492497 a6989586621680492498 type ElemSym2 (a6989586621680492497 :: a_a6dyO) (a6989586621680492498 :: t_a6dyx a_a6dyO) = Elem a6989586621680492497 a6989586621680492498 :: Bool data MaximumSym0 a6989586621680492501 type MaximumSym1 (a6989586621680492501 :: t_a6dyx a_a6dyP) = Maximum a6989586621680492501 :: a_a6dyP data MinimumSym0 a6989586621680492504 type MinimumSym1 (a6989586621680492504 :: t_a6dyx a_a6dyQ) = Minimum a6989586621680492504 :: a_a6dyQ data SumSym0 a6989586621680492507 type SumSym1 (a6989586621680492507 :: t_a6dyx a_a6dyR) = Sum a6989586621680492507 :: a_a6dyR data ProductSym0 a6989586621680492510 type ProductSym1 (a6989586621680492510 :: t_a6dyx a_a6dyS) = Product a6989586621680492510 :: a_a6dyS data FoldrMSym0 a6989586621680492425 data FoldrMSym1 a6989586621680492425 a6989586621680492426 data FoldrMSym2 a6989586621680492425 a6989586621680492426 a6989586621680492427 type FoldrMSym3 (a6989586621680492425 :: (~>) a_a6dxU ((~>) b_a6dxV (m_a6dxT b_a6dxV))) (a6989586621680492426 :: b_a6dxV) (a6989586621680492427 :: t_a6dxS a_a6dxU) = FoldrM a6989586621680492425 a6989586621680492426 a6989586621680492427 :: m_a6dxT b_a6dxV data FoldlMSym0 a6989586621680492407 data FoldlMSym1 a6989586621680492407 a6989586621680492408 data FoldlMSym2 a6989586621680492407 a6989586621680492408 a6989586621680492409 type FoldlMSym3 (a6989586621680492407 :: (~>) b_a6dxQ ((~>) a_a6dxR (m_a6dxP b_a6dxQ))) (a6989586621680492408 :: b_a6dxQ) (a6989586621680492409 :: t_a6dxO a_a6dxR) = FoldlM a6989586621680492407 a6989586621680492408 a6989586621680492409 :: m_a6dxP b_a6dxQ data Traverse_Sym0 a6989586621680492399 data Traverse_Sym1 a6989586621680492399 a6989586621680492400 type Traverse_Sym2 (a6989586621680492399 :: (~>) a_a6dxM (f_a6dxL b_a6dxN)) (a6989586621680492400 :: t_a6dxK a_a6dxM) = Traverse_ a6989586621680492399 a6989586621680492400 :: f_a6dxL () data For_Sym0 a6989586621680492390 data For_Sym1 a6989586621680492390 a6989586621680492391 type For_Sym2 (a6989586621680492390 :: t_a6dxG a_a6dxI) (a6989586621680492391 :: (~>) a_a6dxI (f_a6dxH b_a6dxJ)) = For_ a6989586621680492390 a6989586621680492391 :: f_a6dxH () data SequenceA_Sym0 a6989586621680492361 type SequenceA_Sym1 (a6989586621680492361 :: t_a6dxv (f_a6dxw a_a6dxx)) = SequenceA_ a6989586621680492361 :: f_a6dxw () data AsumSym0 a6989586621680492349 type AsumSym1 (a6989586621680492349 :: t_a6dxp (f_a6dxq a_a6dxr)) = Asum a6989586621680492349 :: f_a6dxq a_a6dxr data MapM_Sym0 a6989586621680492379 data MapM_Sym1 a6989586621680492379 a6989586621680492380 type MapM_Sym2 (a6989586621680492379 :: (~>) a_a6dxE (m_a6dxD b_a6dxF)) (a6989586621680492380 :: t_a6dxC a_a6dxE) = MapM_ a6989586621680492379 a6989586621680492380 :: m_a6dxD () data ForM_Sym0 a6989586621680492370 data ForM_Sym1 a6989586621680492370 a6989586621680492371 type ForM_Sym2 (a6989586621680492370 :: t_a6dxy a_a6dxA) (a6989586621680492371 :: (~>) a_a6dxA (m_a6dxz b_a6dxB)) = ForM_ a6989586621680492370 a6989586621680492371 :: m_a6dxz () data Sequence_Sym0 a6989586621680492355 type Sequence_Sym1 (a6989586621680492355 :: t_a6dxs (m_a6dxt a_a6dxu)) = Sequence_ a6989586621680492355 :: m_a6dxt () data MsumSym0 a6989586621680492343 type MsumSym1 (a6989586621680492343 :: t_a6dxm (m_a6dxn a_a6dxo)) = Msum a6989586621680492343 :: m_a6dxn a_a6dxo data ConcatSym0 a6989586621680492332 type ConcatSym1 (a6989586621680492332 :: t_a6dxk [a_a6dxl]) = Concat a6989586621680492332 :: [a_a6dxl] data ConcatMapSym0 a6989586621680492321 data ConcatMapSym1 a6989586621680492321 a6989586621680492322 type ConcatMapSym2 (a6989586621680492321 :: (~>) a_a6dxi [b_a6dxj]) (a6989586621680492322 :: t_a6dxh a_a6dxi) = ConcatMap a6989586621680492321 a6989586621680492322 :: [b_a6dxj] data AndSym0 a6989586621680492316 type AndSym1 (a6989586621680492316 :: t_a6dxg Bool) = And a6989586621680492316 :: Bool data OrSym0 a6989586621680492310 type OrSym1 (a6989586621680492310 :: t_a6dxf Bool) = Or a6989586621680492310 :: Bool data AnySym0 a6989586621680492302 data AnySym1 a6989586621680492302 a6989586621680492303 type AnySym2 (a6989586621680492302 :: (~>) a_a6dxe Bool) (a6989586621680492303 :: t_a6dxd a_a6dxe) = Any a6989586621680492302 a6989586621680492303 :: Bool data AllSym0 a6989586621680492293 data AllSym1 a6989586621680492293 a6989586621680492294 type AllSym2 (a6989586621680492293 :: (~>) a_a6dxc Bool) (a6989586621680492294 :: t_a6dxb a_a6dxc) = All a6989586621680492293 a6989586621680492294 :: Bool data MaximumBySym0 a6989586621680492273 data MaximumBySym1 a6989586621680492273 a6989586621680492274 type MaximumBySym2 (a6989586621680492273 :: (~>) a_a6dxa ((~>) a_a6dxa Ordering)) (a6989586621680492274 :: t_a6dx9 a_a6dxa) = MaximumBy a6989586621680492273 a6989586621680492274 :: a_a6dxa data MinimumBySym0 a6989586621680492253 data MinimumBySym1 a6989586621680492253 a6989586621680492254 type MinimumBySym2 (a6989586621680492253 :: (~>) a_a6dx8 ((~>) a_a6dx8 Ordering)) (a6989586621680492254 :: t_a6dx7 a_a6dx8) = MinimumBy a6989586621680492253 a6989586621680492254 :: a_a6dx8 data NotElemSym0 a6989586621680492244 data NotElemSym1 a6989586621680492244 a6989586621680492245 type NotElemSym2 (a6989586621680492244 :: a_a6dx6) (a6989586621680492245 :: t_a6dx5 a_a6dx6) = NotElem a6989586621680492244 a6989586621680492245 :: Bool data FindSym0 a6989586621680492226 data FindSym1 a6989586621680492226 a6989586621680492227 type FindSym2 (a6989586621680492226 :: (~>) a_a6dx4 Bool) (a6989586621680492227 :: t_a6dx3 a_a6dx4) = Find a6989586621680492226 a6989586621680492227 :: Maybe a_a6dx4 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680573653Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Monoid.Last instance forall a b (a6989586621680573659 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680573653Sym1 a6989586621680573659) instance forall a b (a6989586621680573659 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680573660 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680573653Sym2 a6989586621680573659 a6989586621680573660) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680573665Sym0 instance Data.Singletons.Prelude.Foldable.SFoldable Data.Monoid.Last instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216805735476989586621680573662 :: a Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> k1)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573665Sym1 _f_69895866216805735476989586621680573662) instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216805735476989586621680573662 :: a Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> k1)) (_z_69895866216805735496989586621680573663 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573665Sym2 _f_69895866216805735476989586621680573662 _z_69895866216805735496989586621680573663) instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216805735476989586621680573662 :: a Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> k1)) (_z_69895866216805735496989586621680573663 :: k2) (a_69895866216805735696989586621680573664 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573665Sym3 _f_69895866216805735476989586621680573662 _z_69895866216805735496989586621680573663 a_69895866216805735696989586621680573664) instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216805735476989586621680573662 :: a Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> k1)) (_z_69895866216805735496989586621680573663 :: k2) (a_69895866216805735696989586621680573664 :: k3) (n1_69895866216805735656989586621680573667 :: t a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573665Sym4 _f_69895866216805735476989586621680573662 _z_69895866216805735496989586621680573663 a_69895866216805735696989586621680573664 n1_69895866216805735656989586621680573667) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680573641Sym0 instance forall a m (a6989586621680573646 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680573641Sym1 a6989586621680573646) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680573622Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Monoid.First instance forall a b (a6989586621680573628 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680573622Sym1 a6989586621680573628) instance forall a b (a6989586621680573628 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680573629 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680573622Sym2 a6989586621680573628 a6989586621680573629) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680573634Sym0 instance Data.Singletons.Prelude.Foldable.SFoldable Data.Monoid.First instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216805735146989586621680573631 :: a Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> k1)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573634Sym1 _f_69895866216805735146989586621680573631) instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216805735146989586621680573631 :: a Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> k1)) (_z_69895866216805735166989586621680573632 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573634Sym2 _f_69895866216805735146989586621680573631 _z_69895866216805735166989586621680573632) instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216805735146989586621680573631 :: a Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> k1)) (_z_69895866216805735166989586621680573632 :: k2) (a_69895866216805735366989586621680573633 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573634Sym3 _f_69895866216805735146989586621680573631 _z_69895866216805735166989586621680573632 a_69895866216805735366989586621680573633) instance forall a k1 k2 k3 (t :: * -> *) (_f_69895866216805735146989586621680573631 :: a Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> k1)) (_z_69895866216805735166989586621680573632 :: k2) (a_69895866216805735366989586621680573633 :: k3) (n1_69895866216805735326989586621680573636 :: t a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573634Sym4 _f_69895866216805735146989586621680573631 _z_69895866216805735166989586621680573632 a_69895866216805735366989586621680573633 n1_69895866216805735326989586621680573636) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680573610Sym0 instance forall a m (a6989586621680573615 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680573610Sym1 a6989586621680573615) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680573590Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable ((,) a) instance forall a1 b a2 (a6989586621680573596 :: a1 Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680573590Sym1 a6989586621680573596) instance forall a1 b a2 (a6989586621680573596 :: a1 Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680573597 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680573590Sym2 a6989586621680573596 a6989586621680573597) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680573603Sym0 instance Data.Singletons.Prelude.Foldable.SFoldable ((,) a) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216805734876989586621680573599 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573603Sym1 _f_69895866216805734876989586621680573599) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216805734876989586621680573599 :: k1) (_z_69895866216805734896989586621680573600 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573603Sym2 _f_69895866216805734876989586621680573599 _z_69895866216805734896989586621680573600) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216805734876989586621680573599 :: k1) (_z_69895866216805734896989586621680573600 :: k2) (a_69895866216805735016989586621680573601 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573603Sym3 _f_69895866216805734876989586621680573599 _z_69895866216805734896989586621680573600 a_69895866216805735016989586621680573601) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216805734876989586621680573599 :: k1) (_z_69895866216805734896989586621680573600 :: k2) (a_69895866216805735016989586621680573601 :: k3) (a_69895866216805735036989586621680573602 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573603Sym4 _f_69895866216805734876989586621680573599 _z_69895866216805734896989586621680573600 a_69895866216805735016989586621680573601 a_69895866216805735036989586621680573602) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216805734876989586621680573599 :: k1) (_z_69895866216805734896989586621680573600 :: k2) (a_69895866216805735016989586621680573601 :: k3) (a_69895866216805735036989586621680573602 :: k4) (n1_69895866216805734976989586621680573605 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573603Sym5 _f_69895866216805734876989586621680573599 _z_69895866216805734896989586621680573600 a_69895866216805735016989586621680573601 a_69895866216805735036989586621680573602 n1_69895866216805734976989586621680573605) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680573573Sym0 instance forall a1 m a2 (a6989586621680573578 :: a1 Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680573573Sym1 a6989586621680573578) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680573583Sym0 instance forall k1 k2 k3 k4 k5 (_f_69895866216805734876989586621680573580 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573583Sym1 _f_69895866216805734876989586621680573580) instance forall k1 k2 k3 k4 k5 (_f_69895866216805734876989586621680573580 :: k1) (a_69895866216805734936989586621680573581 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573583Sym2 _f_69895866216805734876989586621680573580 a_69895866216805734936989586621680573581) instance forall k1 k2 k3 k4 k5 (_f_69895866216805734876989586621680573580 :: k1) (a_69895866216805734936989586621680573581 :: k2) (a_69895866216805734956989586621680573582 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680573583Sym3 _f_69895866216805734876989586621680573580 a_69895866216805734936989586621680573581 a_69895866216805734956989586621680573582) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.FindSym0 instance forall (t :: * -> *) a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FindSym1 d) instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Eq.SEq a) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.NotElemSym0 instance forall (t :: * -> *) a (d :: a). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.NotElemSym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.MinimumBySym0 instance forall (t :: * -> *) a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Ordering)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.MinimumBySym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.MaximumBySym0 instance forall (t :: * -> *) a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Ordering)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.MaximumBySym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.AllSym0 instance forall (t :: * -> *) a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.AllSym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.AnySym0 instance forall (t :: * -> *) a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.AnySym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.OrSym0 instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.AndSym0 instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.ConcatMapSym0 instance forall (t :: * -> *) a b (d :: a Data.Singletons.Internal.~> [b]). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.ConcatMapSym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.ConcatSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonadPlus m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.MsumSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SAlternative f) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.AsumSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.Sequence_Sym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.SequenceA_Sym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.ForM_Sym0 instance forall (t :: * -> *) (m :: * -> *) a (d :: t a) b. (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.ForM_Sym1 d) instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.MapM_Sym0 instance forall (t :: * -> *) (m :: * -> *) a b (d :: a Data.Singletons.Internal.~> m b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.MapM_Sym1 d) instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.For_Sym0 instance forall (t :: * -> *) (f :: * -> *) a (d :: t a) b. (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.For_Sym1 d) instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.Traverse_Sym0 instance forall (t :: * -> *) (f :: * -> *) a b (d :: a Data.Singletons.Internal.~> f b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.Traverse_Sym1 d) instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.FoldlMSym0 instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldlMSym1 d) instance forall (t :: * -> *) (m :: * -> *) b a (d1 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)) (d2 :: b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldlMSym2 d1 d2) instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.FoldrMSym0 instance forall (t :: * -> *) (m :: * -> *) a b (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m b)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldrMSym1 d) instance forall (t :: * -> *) (m :: * -> *) a b (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m b)) (d2 :: b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldrMSym2 d1 d2) instance Data.Singletons.Prelude.Foldable.SFoldable GHC.Maybe.Maybe instance Data.Singletons.Prelude.Foldable.SFoldable [] instance Data.Singletons.Prelude.Foldable.SFoldable GHC.Base.NonEmpty instance Data.Singletons.Prelude.Foldable.SFoldable (Data.Either.Either a) instance Data.Singletons.Prelude.Foldable.SFoldable Data.Proxy.Proxy instance Data.Singletons.Prelude.Foldable.SFoldable Data.Semigroup.Internal.Dual instance Data.Singletons.Prelude.Foldable.SFoldable Data.Semigroup.Internal.Sum instance Data.Singletons.Prelude.Foldable.SFoldable Data.Semigroup.Internal.Product instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monoid.SMonoid m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.FoldSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monoid.SMonoid m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.FoldMapSym0 instance forall (t :: * -> *) m a (d :: a Data.Singletons.Internal.~> m). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monoid.SMonoid m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldMapSym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.FoldrSym0 instance forall (t :: * -> *) a b (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldrSym1 d) instance forall (t :: * -> *) a b (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (d2 :: b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldrSym2 d1 d2) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.Foldr'Sym0 instance forall (t :: * -> *) a b (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.Foldr'Sym1 d) instance forall (t :: * -> *) a b (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (d2 :: b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.Foldr'Sym2 d1 d2) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.FoldlSym0 instance forall (t :: * -> *) b a (d :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldlSym1 d) instance forall (t :: * -> *) b a (d1 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (d2 :: b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.FoldlSym2 d1 d2) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.Foldl'Sym0 instance forall (t :: * -> *) b a (d :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.Foldl'Sym1 d) instance forall (t :: * -> *) b a (d1 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (d2 :: b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.Foldl'Sym2 d1 d2) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.Foldr1Sym0 instance forall (t :: * -> *) a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.Foldr1Sym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.Foldl1Sym0 instance forall (t :: * -> *) a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.Foldl1Sym1 d) instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.ToListSym0 instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.NullSym0 instance Data.Singletons.Prelude.Foldable.SFoldable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.LengthSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Eq.SEq a) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.ElemSym0 instance forall (t :: * -> *) a (d :: a). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.ElemSym1 d) instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Ord.SOrd a) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.MaximumSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Ord.SOrd a) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.MinimumSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Num.SNum a) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.SumSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Num.SNum a) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.ProductSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ToList_6989586621680493721Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Semigroup.Internal.Product instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Sum_6989586621680493712Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Product_6989586621680493703Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Null_6989586621680493697Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Minimum_6989586621680493688Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Maximum_6989586621680493679Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Length_6989586621680493673Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493662Sym0 instance forall a (a6989586621680493669 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493662Sym1 a6989586621680493669) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493642Sym0 instance forall a b (a6989586621680493654 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493642Sym1 a6989586621680493654) instance forall a b (a6989586621680493654 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680493655 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493642Sym2 a6989586621680493654 a6989586621680493655) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680493627Sym0 instance forall a b (a6989586621680493633 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493627Sym1 a6989586621680493633) instance forall a b (a6989586621680493633 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680493634 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493627Sym2 a6989586621680493633 a6989586621680493634) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493614Sym0 instance forall a (a6989586621680493621 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493614Sym1 a6989586621680493621) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493600Sym0 instance forall b a (a6989586621680493606 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493600Sym1 a6989586621680493606) instance forall b a (a6989586621680493606 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680493607 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493600Sym2 a6989586621680493606 a6989586621680493607) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl_6989586621680493585Sym0 instance forall b a (a6989586621680493591 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680493585Sym1 a6989586621680493591) instance forall b a (a6989586621680493591 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680493592 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680493585Sym2 a6989586621680493591 a6989586621680493592) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Elem_6989586621680493565Sym0 instance forall a (a6989586621680493574 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Elem_6989586621680493565Sym1 a6989586621680493574) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680493578Sym0 instance forall k1 k2 b c (a_69895866216804935676989586621680493576 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680493578Sym1 a_69895866216804935676989586621680493576) instance forall k1 k2 b c (a_69895866216804935676989586621680493576 :: k1) (a_69895866216804935696989586621680493577 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680493578Sym2 a_69895866216804935676989586621680493576 a_69895866216804935696989586621680493577) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493554Sym0 instance forall a m (a6989586621680493559 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493554Sym1 a6989586621680493559) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ToList_6989586621680493546Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Semigroup.Internal.Sum instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Sum_6989586621680493537Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Product_6989586621680493528Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Null_6989586621680493522Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Minimum_6989586621680493513Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Maximum_6989586621680493504Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Length_6989586621680493498Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493487Sym0 instance forall a (a6989586621680493494 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493487Sym1 a6989586621680493494) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493467Sym0 instance forall a b (a6989586621680493479 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493467Sym1 a6989586621680493479) instance forall a b (a6989586621680493479 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680493480 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493467Sym2 a6989586621680493479 a6989586621680493480) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680493452Sym0 instance forall a b (a6989586621680493458 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493452Sym1 a6989586621680493458) instance forall a b (a6989586621680493458 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680493459 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493452Sym2 a6989586621680493458 a6989586621680493459) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493439Sym0 instance forall a (a6989586621680493446 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493439Sym1 a6989586621680493446) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493425Sym0 instance forall b a (a6989586621680493431 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493425Sym1 a6989586621680493431) instance forall b a (a6989586621680493431 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680493432 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493425Sym2 a6989586621680493431 a6989586621680493432) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl_6989586621680493410Sym0 instance forall b a (a6989586621680493416 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680493410Sym1 a6989586621680493416) instance forall b a (a6989586621680493416 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680493417 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680493410Sym2 a6989586621680493416 a6989586621680493417) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Elem_6989586621680493390Sym0 instance forall a (a6989586621680493399 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Elem_6989586621680493390Sym1 a6989586621680493399) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680493403Sym0 instance forall k1 k2 b c (a_69895866216804933926989586621680493401 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680493403Sym1 a_69895866216804933926989586621680493401) instance forall k1 k2 b c (a_69895866216804933926989586621680493401 :: k1) (a_69895866216804933946989586621680493402 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680493403Sym2 a_69895866216804933926989586621680493401 a_69895866216804933946989586621680493402) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493379Sym0 instance forall a m (a6989586621680493384 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493379Sym1 a6989586621680493384) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ToList_6989586621680493371Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Semigroup.Internal.Dual instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Sum_6989586621680493362Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Product_6989586621680493353Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Null_6989586621680493347Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Minimum_6989586621680493338Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Maximum_6989586621680493329Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Length_6989586621680493323Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493312Sym0 instance forall a (a6989586621680493319 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493312Sym1 a6989586621680493319) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493292Sym0 instance forall a b (a6989586621680493304 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493292Sym1 a6989586621680493304) instance forall a b (a6989586621680493304 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680493305 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'_6989586621680493292Sym2 a6989586621680493304 a6989586621680493305) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680493277Sym0 instance forall a b (a6989586621680493283 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493277Sym1 a6989586621680493283) instance forall a b (a6989586621680493283 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680493284 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493277Sym2 a6989586621680493283 a6989586621680493284) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493264Sym0 instance forall a (a6989586621680493271 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493264Sym1 a6989586621680493271) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493250Sym0 instance forall b a (a6989586621680493256 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493250Sym1 a6989586621680493256) instance forall b a (a6989586621680493256 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680493257 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680493250Sym2 a6989586621680493256 a6989586621680493257) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl_6989586621680493235Sym0 instance forall b a (a6989586621680493241 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680493235Sym1 a6989586621680493241) instance forall b a (a6989586621680493241 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680493242 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680493235Sym2 a6989586621680493241 a6989586621680493242) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Elem_6989586621680493215Sym0 instance forall a (a6989586621680493224 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Elem_6989586621680493215Sym1 a6989586621680493224) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680493228Sym0 instance forall k1 k2 b c (a_69895866216804932176989586621680493226 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680493228Sym1 a_69895866216804932176989586621680493226) instance forall k1 k2 b c (a_69895866216804932176989586621680493226 :: k1) (a_69895866216804932196989586621680493227 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680493228Sym2 a_69895866216804932176989586621680493226 a_69895866216804932196989586621680493227) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493204Sym0 instance forall a m (a6989586621680493209 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493204Sym1 a6989586621680493209) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Product_6989586621680493197Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Proxy.Proxy instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Sum_6989586621680493191Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Elem_6989586621680493183Sym0 instance forall a (a6989586621680493188 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Elem_6989586621680493183Sym1 a6989586621680493188) instance forall k (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Null_6989586621680493176Sym0 instance forall k (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Length_6989586621680493170Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493162Sym0 instance forall a (a6989586621680493167 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493162Sym1 a6989586621680493167) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493153Sym0 instance forall a (a6989586621680493158 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493153Sym1 a6989586621680493158) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl_6989586621680493141Sym0 instance forall b a (a6989586621680493147 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680493141Sym1 a6989586621680493147) instance forall b a (a6989586621680493147 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680493148 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680493141Sym2 a6989586621680493147 a6989586621680493148) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680493128Sym0 instance forall a b (a6989586621680493134 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493128Sym1 a6989586621680493134) instance forall a b (a6989586621680493134 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680493135 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493128Sym2 a6989586621680493134 a6989586621680493135) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Fold_6989586621680493120Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493112Sym0 instance forall a m (a6989586621680493117 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493112Sym1 a6989586621680493117) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Null_6989586621680493102Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable (Data.Either.Either a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Length_6989586621680493096Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680493082Sym0 instance forall a1 b a2 (a6989586621680493088 :: a1 Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493082Sym1 a6989586621680493088) instance forall a1 b a2 (a6989586621680493088 :: a1 Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680493089 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680493082Sym2 a6989586621680493088 a6989586621680493089) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493070Sym0 instance forall a1 m a2 (a6989586621680493075 :: a1 Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493070Sym1 a6989586621680493075) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ToList_6989586621680493061Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable GHC.Base.NonEmpty instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Fold_6989586621680493053Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493042Sym0 instance forall a m (a6989586621680493047 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680493042Sym1 a6989586621680493047) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493022Sym0 instance forall a (a6989586621680493027 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr1_6989586621680493022Sym1 a6989586621680493027) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680493032GoSym0 instance forall k2 k3 k4 k5 k6 k7 (f6989586621680493029 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680493032GoSym1 f6989586621680493029) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680493029 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (p6989586621680493030 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680493032GoSym2 f6989586621680493029 p6989586621680493030) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680493029 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (p6989586621680493030 :: k5) (ps6989586621680493031 :: k6). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680493032GoSym3 f6989586621680493029 p6989586621680493030 ps6989586621680493031) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680493029 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (p6989586621680493030 :: k5) (ps6989586621680493031 :: k6) (a6989586621680493033 :: k7). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680493032GoSym4 f6989586621680493029 p6989586621680493030 ps6989586621680493031 a6989586621680493033) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680493029 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (p6989586621680493030 :: k5) (ps6989586621680493031 :: k6) (a6989586621680493033 :: k7) (a6989586621680493034 :: k7 Data.Singletons.Internal.~> k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680493032GoSym5 f6989586621680493029 p6989586621680493030 ps6989586621680493031 a6989586621680493033 a6989586621680493034) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493010Sym0 instance forall a (a6989586621680493015 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl1_6989586621680493010Sym1 a6989586621680493015) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl_6989586621680492995Sym0 instance forall b a (a6989586621680493001 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680492995Sym1 a6989586621680493001) instance forall b a (a6989586621680493001 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680493002 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680492995Sym2 a6989586621680493001 a6989586621680493002) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680492979Sym0 instance forall a b (a6989586621680492985 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680492979Sym1 a6989586621680492985) instance forall a b (a6989586621680492985 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680492986 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680492979Sym2 a6989586621680492985 a6989586621680492986) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ToList_6989586621680492968Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable [] instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Sum_6989586621680492959Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Product_6989586621680492950Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Null_6989586621680492941Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Minimum_6989586621680492932Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Maximum_6989586621680492923Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Length_6989586621680492914Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr1_6989586621680492900Sym0 instance forall a (a6989586621680492909 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr1_6989586621680492900Sym1 a6989586621680492909) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680492880Sym0 instance forall a b (a6989586621680492892 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680492880Sym1 a6989586621680492892) instance forall a b (a6989586621680492892 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680492893 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680492880Sym2 a6989586621680492892 a6989586621680492893) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl1_6989586621680492864Sym0 instance forall a (a6989586621680492873 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl1_6989586621680492864Sym1 a6989586621680492873) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl'_6989586621680492844Sym0 instance forall b a (a6989586621680492856 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680492844Sym1 a6989586621680492856) instance forall b a (a6989586621680492856 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680492857 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680492844Sym2 a6989586621680492856 a6989586621680492857) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl_6989586621680492823Sym0 instance forall b a (a6989586621680492835 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680492823Sym1 a6989586621680492835) instance forall b a (a6989586621680492835 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680492836 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680492823Sym2 a6989586621680492835 a6989586621680492836) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Elem_6989586621680492807Sym0 instance forall a (a6989586621680492816 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Elem_6989586621680492807Sym1 a6989586621680492816) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl_6989586621680492792Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable GHC.Maybe.Maybe instance forall b a (a6989586621680492798 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680492792Sym1 a6989586621680492798) instance forall b a (a6989586621680492798 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680492799 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680492792Sym2 a6989586621680492798 a6989586621680492799) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680492776Sym0 instance forall a b (a6989586621680492782 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680492776Sym1 a6989586621680492782) instance forall a b (a6989586621680492782 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680492783 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680492776Sym2 a6989586621680492782 a6989586621680492783) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680492760Sym0 instance forall a m (a6989586621680492769 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680492760Sym1 a6989586621680492769) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FindSym0 instance forall a (t :: * -> *) (a6989586621680492226 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FindSym1 a6989586621680492226) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.AllSym0 instance forall a (t :: * -> *) (a6989586621680492293 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.AllSym1 a6989586621680492293) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.OrSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.AndSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ConcatMapSym0 instance forall a b (t :: * -> *) (a6989586621680492321 :: a Data.Singletons.Internal.~> [b]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.ConcatMapSym1 a6989586621680492321) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680492325Sym0 instance forall k1 (t :: * -> *) a k (f6989586621680492323 :: k1 Data.Singletons.Internal.~> t a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492325Sym1 f6989586621680492323) instance forall k1 (t :: * -> *) a k (f6989586621680492323 :: k1 Data.Singletons.Internal.~> t a) (xs6989586621680492324 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492325Sym2 f6989586621680492323 xs6989586621680492324) instance forall k1 (t :: * -> *) a k (f6989586621680492323 :: k1 Data.Singletons.Internal.~> t a) (xs6989586621680492324 :: k) (x6989586621680492327 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492325Sym3 f6989586621680492323 xs6989586621680492324 x6989586621680492327) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ConcatSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680492334Sym0 instance forall k (t :: * -> *) a (xs6989586621680492333 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492334Sym1 xs6989586621680492333) instance forall k (t :: * -> *) a (xs6989586621680492333 :: k) (x6989586621680492336 :: t a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492334Sym2 xs6989586621680492333 x6989586621680492336) instance forall (t :: * -> *) k (m :: k -> *) (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.MsumSym0 instance forall (t :: * -> *) k (f :: k -> *) (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.AsumSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Sequence_Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.SequenceA_Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ForM_Sym0 instance forall (t :: * -> *) a (m :: * -> *) b (a6989586621680492370 :: t a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.ForM_Sym1 a6989586621680492370) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.MapM_Sym0 instance forall a (m :: * -> *) b (t :: * -> *) (a6989586621680492379 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.MapM_Sym1 a6989586621680492379) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.For_Sym0 instance forall (t :: * -> *) a (f :: * -> *) b (a6989586621680492390 :: t a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.For_Sym1 a6989586621680492390) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Traverse_Sym0 instance forall a (f :: * -> *) b (t :: * -> *) (a6989586621680492399 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Traverse_Sym1 a6989586621680492399) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldlMSym0 instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621680492407 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldlMSym1 a6989586621680492407) instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621680492407 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)) (a6989586621680492408 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldlMSym2 a6989586621680492407 a6989586621680492408) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr'Sym0 instance forall a b (t :: * -> *) (a6989586621680492458 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'Sym1 a6989586621680492458) instance forall a b (t :: * -> *) (a6989586621680492458 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680492459 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'Sym2 a6989586621680492458 a6989586621680492459) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldrMSym0 instance forall a b (m :: * -> *) (t :: * -> *) (a6989586621680492425 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldrMSym1 a6989586621680492425) instance forall a b (m :: * -> *) (t :: * -> *) (a6989586621680492425 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m b)) (a6989586621680492426 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldrMSym2 a6989586621680492425 a6989586621680492426) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr1Sym0 instance forall a (t :: * -> *) (a6989586621680492478 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr1Sym1 a6989586621680492478) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.MinimumBySym0 instance forall a (t :: * -> *) (a6989586621680492253 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Ordering)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.MinimumBySym1 a6989586621680492253) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.MaximumBySym0 instance forall a (t :: * -> *) (a6989586621680492273 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Ordering)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.MaximumBySym1 a6989586621680492273) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl1Sym0 instance forall a (t :: * -> *) (a6989586621680492483 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl1Sym1 a6989586621680492483) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ToListSym0 instance forall k (t :: k -> *) (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.NullSym0 instance forall k (t :: k -> *) (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.LengthSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.NotElemSym0 instance forall a (t :: * -> *) (a6989586621680492244 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.NotElemSym1 a6989586621680492244) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ElemSym0 instance forall a (t :: * -> *) (a6989586621680492497 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.ElemSym1 a6989586621680492497) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.MaximumSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.MinimumSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.SumSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ProductSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.AnySym0 instance forall a (t :: * -> *) (a6989586621680492302 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.AnySym1 a6989586621680492302) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMapSym0 instance forall a m (t :: * -> *) (a6989586621680492445 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMapSym1 a6989586621680492445) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldrSym0 instance forall a b (t :: * -> *) (a6989586621680492451 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldrSym1 a6989586621680492451) instance forall a b (t :: * -> *) (a6989586621680492451 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680492452 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldrSym2 a6989586621680492451 a6989586621680492452) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldlSym0 instance forall b a (t :: * -> *) (a6989586621680492465 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldlSym1 a6989586621680492465) instance forall b a (t :: * -> *) (a6989586621680492465 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680492466 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldlSym2 a6989586621680492465 a6989586621680492466) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl'Sym0 instance forall b a (t :: * -> *) (a6989586621680492472 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'Sym1 a6989586621680492472) instance forall b a (t :: * -> *) (a6989586621680492472 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680492473 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'Sym2 a6989586621680492472 a6989586621680492473) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Fold_6989586621680492512Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.FoldMap_6989586621680492522Sym0 instance forall a m (t :: * -> *) (a6989586621680492529 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.FoldMap_6989586621680492522Sym1 a6989586621680492529) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr_6989586621680492536Sym0 instance forall a b (t :: * -> *) (a6989586621680492542 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680492536Sym1 a6989586621680492542) instance forall a b (t :: * -> *) (a6989586621680492542 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680492543 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr_6989586621680492536Sym2 a6989586621680492542 a6989586621680492543) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr'_6989586621680492551Sym0 instance forall a b (t :: * -> *) (a6989586621680492557 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'_6989586621680492551Sym1 a6989586621680492557) instance forall a b (t :: * -> *) (a6989586621680492557 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680492558 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr'_6989586621680492551Sym2 a6989586621680492557 a6989586621680492558) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl_6989586621680492574Sym0 instance forall b a (t :: * -> *) (a6989586621680492580 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680492574Sym1 a6989586621680492580) instance forall b a (t :: * -> *) (a6989586621680492580 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680492581 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl_6989586621680492574Sym2 a6989586621680492580 a6989586621680492581) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl'_6989586621680492589Sym0 instance forall b a (t :: * -> *) (a6989586621680492595 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680492589Sym1 a6989586621680492595) instance forall b a (t :: * -> *) (a6989586621680492595 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680492596 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl'_6989586621680492589Sym2 a6989586621680492595 a6989586621680492596) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldr1_6989586621680492611Sym0 instance forall a (t :: * -> *) (a6989586621680492616 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldr1_6989586621680492611Sym1 a6989586621680492616) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Foldl1_6989586621680492632Sym0 instance forall a (t :: * -> *) (a6989586621680492637 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Foldl1_6989586621680492632Sym1 a6989586621680492637) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.ToList_6989586621680492652Sym0 instance forall k (t :: k -> *) (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Null_6989586621680492661Sym0 instance forall k (t :: k -> *) (a :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Length_6989586621680492678Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Elem_6989586621680492697Sym0 instance forall a (t :: * -> *) (a6989586621680492706 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Elem_6989586621680492697Sym1 a6989586621680492706) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Maximum_6989586621680492711Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Minimum_6989586621680492726Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Sum_6989586621680492741Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Product_6989586621680492750Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492734MkJustSym0 instance forall k a6989586621680491892 (a_69895866216804927286989586621680492733 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492734MkJustSym1 a_69895866216804927286989586621680492733) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492719MkJustSym0 instance forall k a6989586621680491891 (a_69895866216804927136989586621680492718 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492719MkJustSym1 a_69895866216804927136989586621680492718) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680492686Sym0 instance forall k1 k2 k3 (a_69895866216804926806989586621680492685 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492686Sym1 a_69895866216804926806989586621680492685) instance forall k1 k2 k3 (a_69895866216804926806989586621680492685 :: k1) (arg_69895866216804920596989586621680492688 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492686Sym2 a_69895866216804926806989586621680492685 arg_69895866216804920596989586621680492688) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680492669Sym0 instance forall k1 k2 k3 (a_69895866216804926636989586621680492668 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492669Sym1 a_69895866216804926636989586621680492668) instance forall k1 k2 k3 (a_69895866216804926636989586621680492668 :: k1) (arg_69895866216804920556989586621680492671 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492669Sym2 a_69895866216804926636989586621680492668 arg_69895866216804920556989586621680492671) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492641MfSym0 instance forall k2 k3 k (f6989586621680492639 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k3)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492641MfSym1 f6989586621680492639) instance forall k2 k3 k (f6989586621680492639 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k3)) (xs6989586621680492640 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492641MfSym2 f6989586621680492639 xs6989586621680492640) instance forall k2 k3 k (f6989586621680492639 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k3)) (xs6989586621680492640 :: k) (a6989586621680492642 :: GHC.Maybe.Maybe k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492641MfSym3 f6989586621680492639 xs6989586621680492640 a6989586621680492642) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492620MfSym0 instance forall k2 k3 k (f6989586621680492618 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k2)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492620MfSym1 f6989586621680492618) instance forall k2 k3 k (f6989586621680492618 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k2)) (xs6989586621680492619 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492620MfSym2 f6989586621680492618 xs6989586621680492619) instance forall k2 k3 k (f6989586621680492618 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k2)) (xs6989586621680492619 :: k) (a6989586621680492621 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492620MfSym3 f6989586621680492618 xs6989586621680492619 a6989586621680492621) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492601F'Sym0 instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492598 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492601F'Sym1 f6989586621680492598) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492598 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (z06989586621680492599 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492601F'Sym2 f6989586621680492598 z06989586621680492599) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492598 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (z06989586621680492599 :: k5) (xs6989586621680492600 :: k6). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492601F'Sym3 f6989586621680492598 z06989586621680492599 xs6989586621680492600) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492598 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (z06989586621680492599 :: k5) (xs6989586621680492600 :: k6) (a6989586621680492602 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492601F'Sym4 f6989586621680492598 z06989586621680492599 xs6989586621680492600 a6989586621680492602) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492598 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (z06989586621680492599 :: k5) (xs6989586621680492600 :: k6) (a6989586621680492602 :: k3) (a6989586621680492603 :: k4 Data.Singletons.Internal.~> k7). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492601F'Sym5 f6989586621680492598 z06989586621680492599 xs6989586621680492600 a6989586621680492602 a6989586621680492603) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492563F'Sym0 instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492560 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492563F'Sym1 f6989586621680492560) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492560 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (z06989586621680492561 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492563F'Sym2 f6989586621680492560 z06989586621680492561) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492560 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (z06989586621680492561 :: k5) (xs6989586621680492562 :: k6). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492563F'Sym3 f6989586621680492560 z06989586621680492561 xs6989586621680492562) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492560 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (z06989586621680492561 :: k5) (xs6989586621680492562 :: k6) (a6989586621680492564 :: k4 Data.Singletons.Internal.~> k7). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492563F'Sym4 f6989586621680492560 z06989586621680492561 xs6989586621680492562 a6989586621680492564) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680492560 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (z06989586621680492561 :: k5) (xs6989586621680492562 :: k6) (a6989586621680492564 :: k4 Data.Singletons.Internal.~> k7) (a6989586621680492565 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492563F'Sym5 f6989586621680492560 z06989586621680492561 xs6989586621680492562 a6989586621680492564 a6989586621680492565) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492431F'Sym0 instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492428 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492431F'Sym1 f6989586621680492428) instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492428 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)) (z06989586621680492429 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492431F'Sym2 f6989586621680492428 z06989586621680492429) instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492428 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)) (z06989586621680492429 :: k4) (xs6989586621680492430 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492431F'Sym3 f6989586621680492428 z06989586621680492429 xs6989586621680492430) instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492428 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)) (z06989586621680492429 :: k4) (xs6989586621680492430 :: k5) (a6989586621680492432 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492431F'Sym4 f6989586621680492428 z06989586621680492429 xs6989586621680492430 a6989586621680492432) instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492428 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)) (z06989586621680492429 :: k4) (xs6989586621680492430 :: k5) (a6989586621680492432 :: a Data.Singletons.Internal.~> m b) (a6989586621680492433 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492431F'Sym5 f6989586621680492428 z06989586621680492429 xs6989586621680492430 a6989586621680492432 a6989586621680492433) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492413F'Sym0 instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492410 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492413F'Sym1 f6989586621680492410) instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492410 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)) (z06989586621680492411 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492413F'Sym2 f6989586621680492410 z06989586621680492411) instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492410 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)) (z06989586621680492411 :: k4) (xs6989586621680492412 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492413F'Sym3 f6989586621680492410 z06989586621680492411 xs6989586621680492412) instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492410 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)) (z06989586621680492411 :: k4) (xs6989586621680492412 :: k5) (a6989586621680492414 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492413F'Sym4 f6989586621680492410 z06989586621680492411 xs6989586621680492412 a6989586621680492414) instance forall k2 k3 (m :: * -> *) a k4 k5 b (f6989586621680492410 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> m a)) (z06989586621680492411 :: k4) (xs6989586621680492412 :: k5) (a6989586621680492414 :: k3) (a6989586621680492415 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492413F'Sym5 f6989586621680492410 z06989586621680492411 xs6989586621680492412 a6989586621680492414 a6989586621680492415) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492277Max'Sym0 instance forall k1 k2 (cmp6989586621680492275 :: k1 Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> GHC.Types.Ordering)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492277Max'Sym1 cmp6989586621680492275) instance forall k1 k2 (cmp6989586621680492275 :: k1 Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> GHC.Types.Ordering)) (a_69895866216804922686989586621680492276 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492277Max'Sym2 cmp6989586621680492275 a_69895866216804922686989586621680492276) instance forall k1 k2 (cmp6989586621680492275 :: k1 Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> GHC.Types.Ordering)) (a_69895866216804922686989586621680492276 :: k2) (a6989586621680492278 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492277Max'Sym3 cmp6989586621680492275 a_69895866216804922686989586621680492276 a6989586621680492278) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492283Scrutinee_6989586621680492069Sym0 instance forall k2 k3 k4 k5 (x6989586621680492281 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492283Scrutinee_6989586621680492069Sym1 x6989586621680492281) instance forall k2 k3 k4 k5 (x6989586621680492281 :: k2) (y6989586621680492282 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492283Scrutinee_6989586621680492069Sym2 x6989586621680492281 y6989586621680492282) instance forall k2 k3 k4 k5 (x6989586621680492281 :: k2) (y6989586621680492282 :: k3) (cmp6989586621680492275 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492283Scrutinee_6989586621680492069Sym3 x6989586621680492281 y6989586621680492282 cmp6989586621680492275) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492257Min'Sym0 instance forall k1 k2 (cmp6989586621680492255 :: k1 Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> GHC.Types.Ordering)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492257Min'Sym1 cmp6989586621680492255) instance forall k1 k2 (cmp6989586621680492255 :: k1 Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> GHC.Types.Ordering)) (a_69895866216804922486989586621680492256 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492257Min'Sym2 cmp6989586621680492255 a_69895866216804922486989586621680492256) instance forall k1 k2 (cmp6989586621680492255 :: k1 Data.Singletons.Internal.~> (k1 Data.Singletons.Internal.~> GHC.Types.Ordering)) (a_69895866216804922486989586621680492256 :: k2) (a6989586621680492258 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492257Min'Sym3 cmp6989586621680492255 a_69895866216804922486989586621680492256 a6989586621680492258) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492263Scrutinee_6989586621680492071Sym0 instance forall k2 k3 k4 k5 (x6989586621680492261 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492263Scrutinee_6989586621680492071Sym1 x6989586621680492261) instance forall k2 k3 k4 k5 (x6989586621680492261 :: k2) (y6989586621680492262 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492263Scrutinee_6989586621680492071Sym2 x6989586621680492261 y6989586621680492262) instance forall k2 k3 k4 k5 (x6989586621680492261 :: k2) (y6989586621680492262 :: k3) (cmp6989586621680492255 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492263Scrutinee_6989586621680492071Sym3 x6989586621680492261 y6989586621680492262 cmp6989586621680492255) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Lambda_6989586621680492230Sym0 instance forall a k (p6989586621680492228 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492230Sym1 p6989586621680492228) instance forall a k (p6989586621680492228 :: a Data.Singletons.Internal.~> GHC.Types.Bool) (a_69895866216804922216989586621680492229 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Lambda_6989586621680492230Sym2 p6989586621680492228 a_69895866216804922216989586621680492229) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680492233Scrutinee_6989586621680492073Sym0 instance forall k1 k2 k3 (x6989586621680492232 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492233Scrutinee_6989586621680492073Sym1 x6989586621680492232) instance forall k1 k2 k3 (x6989586621680492232 :: k1) (p6989586621680492228 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680492233Scrutinee_6989586621680492073Sym2 x6989586621680492232 p6989586621680492228) instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Singletons.Prelude.Foldable.MinInternal a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.TFHelper_6989586621680483723Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Singletons.Prelude.Foldable.MinInternal a) instance forall a (a6989586621680483728 :: Data.Singletons.Prelude.Foldable.MinInternal a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.TFHelper_6989586621680483723Sym1 a6989586621680483728) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Singletons.Prelude.Foldable.MinInternal a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680483737Scrutinee_6989586621680483679Sym0 instance forall k1 (x6989586621680483732 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680483737Scrutinee_6989586621680483679Sym1 x6989586621680483732) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680483734MSym0 instance forall k1 k (x6989586621680483732 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680483734MSym1 x6989586621680483732) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680483734NSym0 instance forall k k1 (x6989586621680483732 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680483734NSym1 x6989586621680483732) instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Singletons.Prelude.Foldable.MaxInternal a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.TFHelper_6989586621680483699Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Singletons.Prelude.Foldable.MaxInternal a) instance forall a (a6989586621680483704 :: Data.Singletons.Prelude.Foldable.MaxInternal a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.TFHelper_6989586621680483699Sym1 a6989586621680483704) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Singletons.Prelude.Foldable.MaxInternal a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680483713Scrutinee_6989586621680483677Sym0 instance forall k1 (x6989586621680483708 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680483713Scrutinee_6989586621680483677Sym1 x6989586621680483708) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680483710MSym0 instance forall k1 k (x6989586621680483708 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680483710MSym1 x6989586621680483708) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.Let6989586621680483710NSym0 instance forall k k1 (x6989586621680483708 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.Let6989586621680483710NSym1 x6989586621680483708) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Singletons.Prelude.Foldable.MaxInternal a) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Singletons.Prelude.Foldable.MinInternal a) instance Data.Singletons.Internal.SingKind a => Data.Singletons.Internal.SingKind (Data.Singletons.Prelude.Foldable.MinInternal a) instance forall a (n :: GHC.Maybe.Maybe a). Data.Singletons.Internal.SingI n => Data.Singletons.Internal.SingI ('Data.Singletons.Prelude.Foldable.MinInternal n) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.MinInternalSym0 instance Data.Singletons.Internal.SingKind a => Data.Singletons.Internal.SingKind (Data.Singletons.Prelude.Foldable.MaxInternal a) instance forall a (n :: GHC.Maybe.Maybe a). Data.Singletons.Internal.SingI n => Data.Singletons.Internal.SingI ('Data.Singletons.Prelude.Foldable.MaxInternal n) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.MaxInternalSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.GetMaxInternalSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.GetMaxInternalSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.GetMinInternalSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.GetMinInternalSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.MinInternalSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.MaxInternalSym0 instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Singletons.Prelude.Foldable.Endo a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.TFHelper_6989586621680481018Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Singletons.Prelude.Foldable.Endo a) instance forall a (a6989586621680481023 :: Data.Singletons.Prelude.Foldable.Endo a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.TFHelper_6989586621680481018Sym1 a6989586621680481023) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Foldable.AppEndoSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Foldable.AppEndoSym0 instance forall a (a6989586621680481012 :: Data.Singletons.Prelude.Foldable.Endo a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Foldable.AppEndoSym1 a6989586621680481012) instance forall a (d :: Data.Singletons.Prelude.Foldable.Endo a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Foldable.AppEndoSym1 d) instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Singletons.Prelude.Foldable.Endo a) instance Data.Singletons.Prelude.Monoid.SMonoid (Data.Singletons.Prelude.Foldable.Endo a) -- | Exports the promoted and singled versions of the Identity data -- type. module Data.Singletons.Prelude.Identity -- | The singleton kind-indexed type family. type family Sing data SIdentity z_a1eHn [SIdentity] :: forall (a_af0e :: Type) (n_a1eHg :: a_af0e). () => Sing n_a1eHg -> SIdentity ('Identity n_a1eHg :: Identity (a_af0e :: Type)) type family RunIdentity a_a1eH9 sRunIdentity :: forall (a_af0e :: Type) (t_a1eHd :: Identity (a_af0e :: Type)). Sing t_a1eHd -> Sing (Apply RunIdentitySym0 t_a1eHd :: a_af0e) data IdentitySym0 a6989586621679304610 type IdentitySym1 (a6989586621679304610 :: a_af0e) = 'Identity a6989586621679304610 :: Identity (a_af0e :: Type) data RunIdentitySym0 a6989586621679304613 type RunIdentitySym1 (a6989586621679304613 :: Identity (a_af0e :: Type)) = RunIdentity a6989586621679304613 :: a_af0e instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.TFHelper_6989586621680740523Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Functor.Identity.Identity instance forall a b (a6989586621680740528 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.TFHelper_6989586621680740523Sym1 a6989586621680740528) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.LiftA2_6989586621680740509Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Functor.Identity.Identity instance forall a b c (a6989586621680740515 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.LiftA2_6989586621680740509Sym1 a6989586621680740515) instance forall a b c (a6989586621680740515 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680740516 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.LiftA2_6989586621680740509Sym2 a6989586621680740515 a6989586621680740516) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.TFHelper_6989586621680740497Sym0 instance forall a b (a6989586621680740502 :: Data.Functor.Identity.Identity (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.TFHelper_6989586621680740497Sym1 a6989586621680740502) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Pure_6989586621680740487Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.ToList_6989586621680740480Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Functor.Identity.Identity instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Sum_6989586621680740473Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Product_6989586621680740466Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Null_6989586621680740460Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Minimum_6989586621680740453Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Maximum_6989586621680740446Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Length_6989586621680740440Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Foldr1_6989586621680740431Sym0 instance forall a (a6989586621680740436 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldr1_6989586621680740431Sym1 a6989586621680740436) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Foldr'_6989586621680740411Sym0 instance forall a b (a6989586621680740423 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldr'_6989586621680740411Sym1 a6989586621680740423) instance forall a b (a6989586621680740423 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680740424 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldr'_6989586621680740411Sym2 a6989586621680740423 a6989586621680740424) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Foldr_6989586621680740396Sym0 instance forall a b (a6989586621680740402 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldr_6989586621680740396Sym1 a6989586621680740402) instance forall a b (a6989586621680740402 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680740403 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldr_6989586621680740396Sym2 a6989586621680740402 a6989586621680740403) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Foldl1_6989586621680740385Sym0 instance forall a (a6989586621680740390 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldl1_6989586621680740385Sym1 a6989586621680740390) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Foldl'_6989586621680740371Sym0 instance forall b a (a6989586621680740377 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldl'_6989586621680740371Sym1 a6989586621680740377) instance forall b a (a6989586621680740377 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680740378 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldl'_6989586621680740371Sym2 a6989586621680740377 a6989586621680740378) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Foldl_6989586621680740356Sym0 instance forall b a (a6989586621680740362 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldl_6989586621680740356Sym1 a6989586621680740362) instance forall b a (a6989586621680740362 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621680740363 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Foldl_6989586621680740356Sym2 a6989586621680740362 a6989586621680740363) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Elem_6989586621680740344Sym0 instance forall a (a6989586621680740349 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Elem_6989586621680740344Sym1 a6989586621680740349) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.FoldMap_6989586621680740333Sym0 instance forall a m (a6989586621680740338 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.FoldMap_6989586621680740333Sym1 a6989586621680740338) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.TFHelper_6989586621680740318Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Functor.Identity.Identity instance forall a b (a6989586621680740323 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.TFHelper_6989586621680740318Sym1 a6989586621680740323) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Lambda_6989586621680740327Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Functor.Identity.Identity instance forall k1 k2 k3 (_z_69895866216807401516989586621680740325 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Lambda_6989586621680740327Sym1 _z_69895866216807401516989586621680740325) instance forall k1 k2 k3 (_z_69895866216807401516989586621680740325 :: k1) (a_69895866216807401576989586621680740326 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Lambda_6989586621680740327Sym2 _z_69895866216807401516989586621680740325 a_69895866216807401576989586621680740326) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Fmap_6989586621680740307Sym0 instance forall a b (a6989586621680740312 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.Fmap_6989586621680740307Sym1 a6989586621680740312) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.ShowsPrec_6989586621680740291Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Functor.Identity.Identity a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.ShowsPrec_6989586621680740291Sym1 a6989586621680740299) instance forall a (a6989586621680740299 :: GHC.Types.Nat) (a6989586621680740300 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.ShowsPrec_6989586621680740291Sym2 a6989586621680740299 a6989586621680740300) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.TFHelper_6989586621680740279Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Functor.Identity.Identity a) instance forall a (a6989586621680740284 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.TFHelper_6989586621680740279Sym1 a6989586621680740284) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.FromInteger_6989586621680740271Sym0 instance Data.Singletons.Prelude.Num.PNum (Data.Functor.Identity.Identity a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Signum_6989586621680740264Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Abs_6989586621680740257Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Negate_6989586621680740250Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.TFHelper_6989586621680740240Sym0 instance forall a (a6989586621680740245 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.TFHelper_6989586621680740240Sym1 a6989586621680740245) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.TFHelper_6989586621680740229Sym0 instance forall a (a6989586621680740234 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.TFHelper_6989586621680740229Sym1 a6989586621680740234) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.TFHelper_6989586621680740218Sym0 instance forall a (a6989586621680740223 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.TFHelper_6989586621680740218Sym1 a6989586621680740223) instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Functor.Identity.Identity a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.EnumFromThenTo_6989586621680740201Sym0 instance Data.Singletons.Prelude.Enum.PEnum (Data.Functor.Identity.Identity a) instance forall a (a6989586621680740207 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.EnumFromThenTo_6989586621680740201Sym1 a6989586621680740207) instance forall a (a6989586621680740207 :: Data.Functor.Identity.Identity a) (a6989586621680740208 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.EnumFromThenTo_6989586621680740201Sym2 a6989586621680740207 a6989586621680740208) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.EnumFromTo_6989586621680740189Sym0 instance forall a (a6989586621680740194 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Identity.EnumFromTo_6989586621680740189Sym1 a6989586621680740194) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.FromEnum_6989586621680740181Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.ToEnum_6989586621680740174Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Pred_6989586621680740167Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Identity.Succ_6989586621680740160Sym0 instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Prelude.Enum.SEnum (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Monoid.SMonoid a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Prelude.Num.SNum (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup a => Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.Foldable.SFoldable Data.Functor.Identity.Identity instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Functor.Identity.Identity instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Functor.Identity.Identity -- | Exports the promoted and singled versions of the Const data -- type. module Data.Singletons.Prelude.Const -- | The singleton kind-indexed type family. type family Sing data SConst c [SConst] :: Sing a -> SConst ('Const a) type family GetConst a_a7pId sGetConst :: forall a_a7pDJ b_a7pDK (t_a7pMy :: Const a_a7pDJ b_a7pDK). Sing t_a7pMy -> Sing (Apply GetConstSym0 t_a7pMy :: a_a7pDJ) data ConstSym0 a6989586621680775209 type ConstSym1 (a6989586621680775209 :: a_agmP) = 'Const a6989586621680775209 :: Const (a_agmP :: Type) (b_agmQ :: k_agmO) data GetConstSym0 a6989586621680776931 type GetConstSym1 (a6989586621680776931 :: Const a_a7pDJ b_a7pDK) = GetConst a6989586621680776931 :: a_a7pDJ instance forall k a (b :: k). Data.Singletons.Prelude.Eq.PEq (Data.Functor.Const.Const a b) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.TFHelper_6989586621680777183Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative (Data.Functor.Const.Const m) instance forall m a b (a6989586621680777188 :: Data.Functor.Const.Const m (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.TFHelper_6989586621680777183Sym1 a6989586621680777188) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.LiftA2_6989586621680777170Sym0 instance forall a b c m (a6989586621680777176 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.LiftA2_6989586621680777170Sym1 a6989586621680777176) instance forall a b c m (a6989586621680777176 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680777177 :: Data.Functor.Const.Const m a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.LiftA2_6989586621680777170Sym2 a6989586621680777176 a6989586621680777177) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Pure_6989586621680777162Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Foldr_6989586621680777144Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable (Data.Functor.Const.Const m) instance forall a b m (a6989586621680777150 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Foldr_6989586621680777144Sym1 a6989586621680777150) instance forall a b m (a6989586621680777150 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680777151 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Foldr_6989586621680777144Sym2 a6989586621680777150 a6989586621680777151) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Lambda_6989586621680777156Sym0 instance Data.Singletons.Prelude.Foldable.SFoldable (Data.Functor.Const.Const m) instance forall k1 k2 k3 k4 k5 (_f_69895866216807769156989586621680777153 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777156Sym1 _f_69895866216807769156989586621680777153) instance forall k1 k2 k3 k4 k5 (_f_69895866216807769156989586621680777153 :: k1) (_z_69895866216807769176989586621680777154 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777156Sym2 _f_69895866216807769156989586621680777153 _z_69895866216807769176989586621680777154) instance forall k1 k2 k3 k4 k5 (_f_69895866216807769156989586621680777153 :: k1) (_z_69895866216807769176989586621680777154 :: k2) (a_69895866216807769276989586621680777155 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777156Sym3 _f_69895866216807769156989586621680777153 _z_69895866216807769176989586621680777154 a_69895866216807769276989586621680777155) instance forall k1 k2 k3 k4 k5 (_f_69895866216807769156989586621680777153 :: k1) (_z_69895866216807769176989586621680777154 :: k2) (a_69895866216807769276989586621680777155 :: k3) (n1_69895866216807769236989586621680777158 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777156Sym4 _f_69895866216807769156989586621680777153 _z_69895866216807769176989586621680777154 a_69895866216807769276989586621680777155 n1_69895866216807769236989586621680777158) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.FoldMap_6989586621680777128Sym0 instance forall a m1 m2 (a6989586621680777133 :: a Data.Singletons.Internal.~> m1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.FoldMap_6989586621680777128Sym1 a6989586621680777133) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Lambda_6989586621680777137Sym0 instance forall k1 k2 k3 k4 (_f_69895866216807769156989586621680777135 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777137Sym1 _f_69895866216807769156989586621680777135) instance forall k1 k2 k3 k4 (_f_69895866216807769156989586621680777135 :: k1) (a_69895866216807769216989586621680777136 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777137Sym2 _f_69895866216807769156989586621680777135 a_69895866216807769216989586621680777136) instance forall a k m (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.TFHelper_6989586621680777113Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor (Data.Functor.Const.Const m) instance forall a k m (b :: k) (a6989586621680777118 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.TFHelper_6989586621680777113Sym1 a6989586621680777118) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Lambda_6989586621680777122Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor (Data.Functor.Const.Const m) instance forall k1 k2 k3 (_z_69895866216807768966989586621680777120 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777122Sym1 _z_69895866216807768966989586621680777120) instance forall k1 k2 k3 (_z_69895866216807768966989586621680777120 :: k1) (a_69895866216807769046989586621680777121 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777122Sym2 _z_69895866216807768966989586621680777120 a_69895866216807769046989586621680777121) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Fmap_6989586621680777098Sym0 instance forall a b m (a6989586621680777103 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Fmap_6989586621680777098Sym1 a6989586621680777103) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Lambda_6989586621680777107Sym0 instance forall k1 k2 k3 (_f_69895866216807768946989586621680777105 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777107Sym1 _f_69895866216807768946989586621680777105) instance forall k1 k2 k3 (_f_69895866216807768946989586621680777105 :: k1) (a_69895866216807769006989586621680777106 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Lambda_6989586621680777107Sym2 _f_69895866216807768946989586621680777105 a_69895866216807769006989586621680777106) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.ShowsPrec_6989586621680777082Sym0 instance forall k a (b :: k). Data.Singletons.Prelude.Show.PShow (Data.Functor.Const.Const a b) instance forall k a (b :: k) (a6989586621680777090 :: GHC.Types.Nat). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.ShowsPrec_6989586621680777082Sym1 a6989586621680777090) instance forall k a (b :: k) (a6989586621680777090 :: GHC.Types.Nat) (a6989586621680777091 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.ShowsPrec_6989586621680777082Sym2 a6989586621680777090 a6989586621680777091) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.TFHelper_6989586621680777070Sym0 instance forall k a (b :: k). Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Functor.Const.Const a b) instance forall k a (b :: k) (a6989586621680777075 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.TFHelper_6989586621680777070Sym1 a6989586621680777075) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.FromInteger_6989586621680777062Sym0 instance forall k a (b :: k). Data.Singletons.Prelude.Num.PNum (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Signum_6989586621680777055Sym0 instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Abs_6989586621680777048Sym0 instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Negate_6989586621680777041Sym0 instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.TFHelper_6989586621680777031Sym0 instance forall k a (b :: k) (a6989586621680777036 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.TFHelper_6989586621680777031Sym1 a6989586621680777036) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.TFHelper_6989586621680777020Sym0 instance forall k a (b :: k) (a6989586621680777025 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.TFHelper_6989586621680777020Sym1 a6989586621680777025) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.TFHelper_6989586621680777009Sym0 instance forall k a (b :: k) (a6989586621680777014 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.TFHelper_6989586621680777009Sym1 a6989586621680777014) instance forall k a (b :: k). Data.Singletons.Prelude.Monoid.PMonoid (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.EnumFromThenTo_6989586621680776992Sym0 instance forall k a (b :: k). Data.Singletons.Prelude.Enum.PEnum (Data.Functor.Const.Const a b) instance forall k a (b :: k) (a6989586621680776998 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.EnumFromThenTo_6989586621680776992Sym1 a6989586621680776998) instance forall k a (b :: k) (a6989586621680776998 :: Data.Functor.Const.Const a b) (a6989586621680776999 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.EnumFromThenTo_6989586621680776992Sym2 a6989586621680776998 a6989586621680776999) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.EnumFromTo_6989586621680776980Sym0 instance forall k a (b :: k) (a6989586621680776985 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.EnumFromTo_6989586621680776980Sym1 a6989586621680776985) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.FromEnum_6989586621680776972Sym0 instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.ToEnum_6989586621680776965Sym0 instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Pred_6989586621680776958Sym0 instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Succ_6989586621680776951Sym0 instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.Compare_6989586621680776941Sym0 instance forall k a (b :: k). Data.Singletons.Prelude.Ord.POrd (Data.Functor.Const.Const a b) instance forall k a (b :: k) (a6989586621680776946 :: Data.Functor.Const.Const a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Const.Compare_6989586621680776941Sym1 a6989586621680776946) instance forall k a (b :: k). Data.Singletons.Prelude.Enum.PBounded (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.GetConstSym0 instance forall k a (b :: k). Data.Singletons.Internal.SingI Data.Singletons.Prelude.Const.GetConstSym0 instance forall k a (b :: k). Data.Singletons.Prelude.Enum.SBounded a => Data.Singletons.Prelude.Enum.SBounded (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Ord.SOrd (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Prelude.Enum.SEnum (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.Prelude.Monoid.SMonoid a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Prelude.Num.SNum (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.Prelude.Semigroup.Internal.SSemigroup a => Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Functor.Const.Const a b) instance forall k a (b :: k). Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Functor.Const.Const a b) instance Data.Singletons.Prelude.Monoid.SMonoid m => Data.Singletons.Prelude.Monad.Internal.SApplicative (Data.Functor.Const.Const m) instance forall k a (b :: k). Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Prelude.Eq.SEq (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.Decide.SDecide a => Data.Type.Equality.TestEquality Data.Singletons.Prelude.Const.SConst instance forall k a (b :: k). Data.Singletons.Decide.SDecide a => Data.Type.Coercion.TestCoercion Data.Singletons.Prelude.Const.SConst instance forall a k (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Const.ConstSym0 instance forall a k (b :: k). Data.Singletons.Internal.SingI Data.Singletons.Prelude.Const.ConstSym0 instance forall k a (b :: k). Data.Singletons.Internal.SingKind a => Data.Singletons.Internal.SingKind (Data.Functor.Const.Const a b) instance forall a1 k (b :: k) (a2 :: a1). Data.Singletons.Internal.SingI a2 => Data.Singletons.Internal.SingI ('Data.Functor.Const.Const a2) -- | Defines the promoted and singled versions of the Traversable -- type class. module Data.Singletons.Prelude.Traversable class PTraversable t_a7A47 where { type family Traverse (arg_a7A4j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (arg_a7A4k :: t_a7A47 a_a7A49) :: f_a7A48 (t_a7A47 b_a7A4a); type family SequenceA (arg_a7A4o :: t_a7A47 (f_a7A4b a_a7A4c)) :: f_a7A4b (t_a7A47 a_a7A4c); type family MapM (arg_a7A4r :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (arg_a7A4s :: t_a7A47 a_a7A4e) :: m_a7A4d (t_a7A47 b_a7A4f); type family Sequence (arg_a7A4w :: t_a7A47 (m_a7A4g a_a7A4h)) :: m_a7A4g (t_a7A47 a_a7A4h); type Traverse a_a7A4z a_a7A4A = Apply (Apply Traverse_6989586621680816757Sym0 a_a7A4z) a_a7A4A; type SequenceA a_a7A4M = Apply SequenceA_6989586621680816769Sym0 a_a7A4M; type MapM a_a7A4V a_a7A4W = Apply (Apply MapM_6989586621680816779Sym0 a_a7A4V) a_a7A4W; type Sequence a_a7A5a = Apply Sequence_6989586621680816793Sym0 a_a7A5a; } class (SFunctor t_a7A47, SFoldable t_a7A47) => STraversable t_a7A47 sTraverse :: forall a_a7A49 f_a7A48 b_a7A4a (t_a7A5j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (t_a7A5k :: t_a7A47 a_a7A49). (STraversable t_a7A47, SApplicative f_a7A48) => Sing t_a7A5j -> Sing t_a7A5k -> Sing (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) sSequenceA :: forall f_a7A4b a_a7A4c (t_a7A5n :: t_a7A47 (f_a7A4b a_a7A4c)). (STraversable t_a7A47, SApplicative f_a7A4b) => Sing t_a7A5n -> Sing (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) sMapM :: forall a_a7A4e m_a7A4d b_a7A4f (t_a7A5p :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (t_a7A5q :: t_a7A47 a_a7A4e). (STraversable t_a7A47, SMonad m_a7A4d) => Sing t_a7A5p -> Sing t_a7A5q -> Sing (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) sSequence :: forall m_a7A4g a_a7A4h (t_a7A5t :: t_a7A47 (m_a7A4g a_a7A4h)). (STraversable t_a7A47, SMonad m_a7A4g) => Sing t_a7A5t -> Sing (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) sTraverse :: forall a_a7A49 f_a7A48 b_a7A4a (t_a7A5j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (t_a7A5k :: t_a7A47 a_a7A49). (STraversable t_a7A47, (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) ~ Apply (Apply Traverse_6989586621680816757Sym0 t_a7A5j) t_a7A5k, SApplicative f_a7A48) => Sing t_a7A5j -> Sing t_a7A5k -> Sing (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) sSequenceA :: forall f_a7A4b a_a7A4c (t_a7A5n :: t_a7A47 (f_a7A4b a_a7A4c)). (STraversable t_a7A47, (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) ~ Apply SequenceA_6989586621680816769Sym0 t_a7A5n, SApplicative f_a7A4b) => Sing t_a7A5n -> Sing (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) sMapM :: forall a_a7A4e m_a7A4d b_a7A4f (t_a7A5p :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (t_a7A5q :: t_a7A47 a_a7A4e). (STraversable t_a7A47, (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) ~ Apply (Apply MapM_6989586621680816779Sym0 t_a7A5p) t_a7A5q, SMonad m_a7A4d) => Sing t_a7A5p -> Sing t_a7A5q -> Sing (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) sSequence :: forall m_a7A4g a_a7A4h (t_a7A5t :: t_a7A47 (m_a7A4g a_a7A4h)). (STraversable t_a7A47, (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) ~ Apply Sequence_6989586621680816793Sym0 t_a7A5t, SMonad m_a7A4g) => Sing t_a7A5t -> Sing (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) type family For a_a7BHJ a_a7BHK sFor :: forall t_a7Bzh a_a7Bzj f_a7Bzi b_a7Bzk (t_a7BPJ :: t_a7Bzh a_a7Bzj) (t_a7BPK :: (~>) a_a7Bzj (f_a7Bzi b_a7Bzk)). (STraversable t_a7Bzh, SApplicative f_a7Bzi) => Sing t_a7BPJ -> Sing t_a7BPK -> Sing (Apply (Apply ForSym0 t_a7BPJ) t_a7BPK :: f_a7Bzi (t_a7Bzh b_a7Bzk)) type family ForM a_a7BHy a_a7BHz sForM :: forall t_a7Bzd a_a7Bzf m_a7Bze b_a7Bzg (t_a7BPF :: t_a7Bzd a_a7Bzf) (t_a7BPG :: (~>) a_a7Bzf (m_a7Bze b_a7Bzg)). (STraversable t_a7Bzd, SMonad m_a7Bze) => Sing t_a7BPF -> Sing t_a7BPG -> Sing (Apply (Apply ForMSym0 t_a7BPF) t_a7BPG :: m_a7Bze (t_a7Bzd b_a7Bzg)) type family MapAccumL a_a7BHk a_a7BHl a_a7BHm sMapAccumL :: forall t_a7Bz9 a_a7Bza b_a7Bzb c_a7Bzc (t_a7BPz :: (~>) a_a7Bza ((~>) b_a7Bzb (a_a7Bza, c_a7Bzc))) (t_a7BPA :: a_a7Bza) (t_a7BPB :: t_a7Bz9 b_a7Bzb). STraversable t_a7Bz9 => Sing t_a7BPz -> Sing t_a7BPA -> Sing t_a7BPB -> Sing (Apply (Apply (Apply MapAccumLSym0 t_a7BPz) t_a7BPA) t_a7BPB :: (a_a7Bza, t_a7Bz9 c_a7Bzc)) type family MapAccumR a_a7BHa a_a7BHb a_a7BHc sMapAccumR :: forall a_a7Bz6 b_a7Bz7 c_a7Bz8 t_a7Bz5 (t_a7BPt :: (~>) a_a7Bz6 ((~>) b_a7Bz7 (a_a7Bz6, c_a7Bz8))) (t_a7BPu :: a_a7Bz6) (t_a7BPv :: t_a7Bz5 b_a7Bz7). STraversable t_a7Bz5 => Sing t_a7BPt -> Sing t_a7BPu -> Sing t_a7BPv -> Sing (Apply (Apply (Apply MapAccumRSym0 t_a7BPt) t_a7BPu) t_a7BPv :: (a_a7Bz6, t_a7Bz5 c_a7Bz8)) type family FmapDefault a_a7BGX a_a7BGY sFmapDefault :: forall t_a7Bz2 a_a7Bz3 b_a7Bz4 (t_a7BPp :: (~>) a_a7Bz3 b_a7Bz4) (t_a7BPq :: t_a7Bz2 a_a7Bz3). STraversable t_a7Bz2 => Sing t_a7BPp -> Sing t_a7BPq -> Sing (Apply (Apply FmapDefaultSym0 t_a7BPp) t_a7BPq :: t_a7Bz2 b_a7Bz4) type family FoldMapDefault a_a7BGE a_a7BGF sFoldMapDefault :: forall t_a7ByZ m_a7Bz0 a_a7Bz1 (t_a7BPl :: (~>) a_a7Bz1 m_a7Bz0) (t_a7BPm :: t_a7ByZ a_a7Bz1). (STraversable t_a7ByZ, SMonoid m_a7Bz0) => Sing t_a7BPl -> Sing t_a7BPm -> Sing (Apply (Apply FoldMapDefaultSym0 t_a7BPl) t_a7BPm :: m_a7Bz0) data TraverseSym0 a6989586621680816742 data TraverseSym1 a6989586621680816742 a6989586621680816743 type TraverseSym2 (a6989586621680816742 :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (a6989586621680816743 :: t_a7A47 a_a7A49) = Traverse a6989586621680816742 a6989586621680816743 :: f_a7A48 (t_a7A47 b_a7A4a) data SequenceASym0 a6989586621680816746 type SequenceASym1 (a6989586621680816746 :: t_a7A47 (f_a7A4b a_a7A4c)) = SequenceA a6989586621680816746 :: f_a7A4b (t_a7A47 a_a7A4c) data MapMSym0 a6989586621680816750 data MapMSym1 a6989586621680816750 a6989586621680816751 type MapMSym2 (a6989586621680816750 :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (a6989586621680816751 :: t_a7A47 a_a7A4e) = MapM a6989586621680816750 a6989586621680816751 :: m_a7A4d (t_a7A47 b_a7A4f) data SequenceSym0 a6989586621680816754 type SequenceSym1 (a6989586621680816754 :: t_a7A47 (m_a7A4g a_a7A4h)) = Sequence a6989586621680816754 :: m_a7A4g (t_a7A47 a_a7A4h) data ForSym0 a6989586621680823030 data ForSym1 a6989586621680823030 a6989586621680823031 type ForSym2 (a6989586621680823030 :: t_a7Bzh a_a7Bzj) (a6989586621680823031 :: (~>) a_a7Bzj (f_a7Bzi b_a7Bzk)) = For a6989586621680823030 a6989586621680823031 :: f_a7Bzi (t_a7Bzh b_a7Bzk) data ForMSym0 a6989586621680823019 data ForMSym1 a6989586621680823019 a6989586621680823020 type ForMSym2 (a6989586621680823019 :: t_a7Bzd a_a7Bzf) (a6989586621680823020 :: (~>) a_a7Bzf (m_a7Bze b_a7Bzg)) = ForM a6989586621680823019 a6989586621680823020 :: m_a7Bze (t_a7Bzd b_a7Bzg) data MapAccumLSym0 a6989586621680823006 data MapAccumLSym1 a6989586621680823006 a6989586621680823007 data MapAccumLSym2 a6989586621680823006 a6989586621680823007 a6989586621680823008 type MapAccumLSym3 (a6989586621680823006 :: (~>) a_a7Bza ((~>) b_a7Bzb (a_a7Bza, c_a7Bzc))) (a6989586621680823007 :: a_a7Bza) (a6989586621680823008 :: t_a7Bz9 b_a7Bzb) = MapAccumL a6989586621680823006 a6989586621680823007 a6989586621680823008 :: (a_a7Bza, t_a7Bz9 c_a7Bzc) data MapAccumRSym0 a6989586621680822996 data MapAccumRSym1 a6989586621680822996 a6989586621680822997 data MapAccumRSym2 a6989586621680822996 a6989586621680822997 a6989586621680822998 type MapAccumRSym3 (a6989586621680822996 :: (~>) a_a7Bz6 ((~>) b_a7Bz7 (a_a7Bz6, c_a7Bz8))) (a6989586621680822997 :: a_a7Bz6) (a6989586621680822998 :: t_a7Bz5 b_a7Bz7) = MapAccumR a6989586621680822996 a6989586621680822997 a6989586621680822998 :: (a_a7Bz6, t_a7Bz5 c_a7Bz8) data FmapDefaultSym0 a6989586621680822982 data FmapDefaultSym1 a6989586621680822982 a6989586621680822983 type FmapDefaultSym2 (a6989586621680822982 :: (~>) a_a7Bz3 b_a7Bz4) (a6989586621680822983 :: t_a7Bz2 a_a7Bz3) = FmapDefault a6989586621680822982 a6989586621680822983 :: t_a7Bz2 b_a7Bz4 data FoldMapDefaultSym0 a6989586621680822963 data FoldMapDefaultSym1 a6989586621680822963 a6989586621680822964 type FoldMapDefaultSym2 (a6989586621680822963 :: (~>) a_a7Bz1 m_a7Bz0) (a6989586621680822964 :: t_a7ByZ a_a7Bz1) = FoldMapDefault a6989586621680822963 a6989586621680822964 :: m_a7Bz0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.LiftA2_6989586621680823448Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative (Data.Singletons.Prelude.Traversable.StateR s) instance forall a b c s (a6989586621680823454 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.LiftA2_6989586621680823448Sym1 a6989586621680823454) instance forall a b c s (a6989586621680823454 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680823455 :: Data.Singletons.Prelude.Traversable.StateR s a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.LiftA2_6989586621680823448Sym2 a6989586621680823454 a6989586621680823455) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Lambda_6989586621680823460Sym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative (Data.Singletons.Prelude.Traversable.StateR s) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680823457 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823460Sym1 f6989586621680823457) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680823457 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (kx6989586621680823458 :: k5 Data.Singletons.Internal.~> (k6, k2)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823460Sym2 f6989586621680823457 kx6989586621680823458) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680823457 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (kx6989586621680823458 :: k5 Data.Singletons.Internal.~> (k6, k2)) (ky6989586621680823459 :: k7 Data.Singletons.Internal.~> (k5, k3)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823460Sym3 f6989586621680823457 kx6989586621680823458 ky6989586621680823459) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823463X_6989586621680823464Sym0 instance forall k1 k2 k3 k4 (s6989586621680823462 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463X_6989586621680823464Sym1 s6989586621680823462) instance forall k1 k2 k3 k4 (s6989586621680823462 :: k1) (f6989586621680823457 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463X_6989586621680823464Sym2 s6989586621680823462 f6989586621680823457) instance forall k1 k2 k3 k4 (s6989586621680823462 :: k1) (f6989586621680823457 :: k2) (kx6989586621680823458 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463X_6989586621680823464Sym3 s6989586621680823462 f6989586621680823457 kx6989586621680823458) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823463YSym0 instance forall k1 k2 k3 k4 k5 (s6989586621680823462 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463YSym1 s6989586621680823462) instance forall k1 k2 k3 k4 k5 (s6989586621680823462 :: k1) (f6989586621680823457 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463YSym2 s6989586621680823462 f6989586621680823457) instance forall k1 k2 k3 k4 k5 (s6989586621680823462 :: k1) (f6989586621680823457 :: k2) (kx6989586621680823458 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463YSym3 s6989586621680823462 f6989586621680823457 kx6989586621680823458) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823463S'Sym0 instance forall k1 k2 k3 k4 k5 (s6989586621680823462 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463S'Sym1 s6989586621680823462) instance forall k1 k2 k3 k4 k5 (s6989586621680823462 :: k1) (f6989586621680823457 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463S'Sym2 s6989586621680823462 f6989586621680823457) instance forall k1 k2 k3 k4 k5 (s6989586621680823462 :: k1) (f6989586621680823457 :: k2) (kx6989586621680823458 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463S'Sym3 s6989586621680823462 f6989586621680823457 kx6989586621680823458) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823463X_6989586621680823470Sym0 instance forall k2 k3 k4 k5 k6 (s6989586621680823462 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463X_6989586621680823470Sym1 s6989586621680823462) instance forall k2 k3 k4 k5 k6 (s6989586621680823462 :: k2) (f6989586621680823457 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463X_6989586621680823470Sym2 s6989586621680823462 f6989586621680823457) instance forall k2 k3 k4 k5 k6 (s6989586621680823462 :: k2) (f6989586621680823457 :: k3) (kx6989586621680823458 :: k4 Data.Singletons.Internal.~> k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463X_6989586621680823470Sym3 s6989586621680823462 f6989586621680823457 kx6989586621680823458) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823463XSym0 instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823462 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463XSym1 s6989586621680823462) instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823462 :: k2) (f6989586621680823457 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463XSym2 s6989586621680823462 f6989586621680823457) instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823462 :: k2) (f6989586621680823457 :: k3) (kx6989586621680823458 :: k4 Data.Singletons.Internal.~> (k5, k6)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463XSym3 s6989586621680823462 f6989586621680823457 kx6989586621680823458) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823463S''Sym0 instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823462 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463S''Sym1 s6989586621680823462) instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823462 :: k2) (f6989586621680823457 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463S''Sym2 s6989586621680823462 f6989586621680823457) instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823462 :: k2) (f6989586621680823457 :: k3) (kx6989586621680823458 :: k4 Data.Singletons.Internal.~> (k5, k6)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823463S''Sym3 s6989586621680823462 f6989586621680823457 kx6989586621680823458) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.TFHelper_6989586621680823397Sym0 instance forall s a b (a6989586621680823402 :: Data.Singletons.Prelude.Traversable.StateR s (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.TFHelper_6989586621680823397Sym1 a6989586621680823402) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Lambda_6989586621680823406Sym0 instance forall k2 k3 k4 k5 k6 (kf6989586621680823404 :: k2 Data.Singletons.Internal.~> (k3, k4 Data.Singletons.Internal.~> k5)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823406Sym1 kf6989586621680823404) instance forall k2 k3 k4 k5 k6 (kf6989586621680823404 :: k2 Data.Singletons.Internal.~> (k3, k4 Data.Singletons.Internal.~> k5)) (kv6989586621680823405 :: k6 Data.Singletons.Internal.~> (k2, k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823406Sym2 kf6989586621680823404 kv6989586621680823405) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823409X_6989586621680823410Sym0 instance forall k1 k2 k3 (s6989586621680823408 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409X_6989586621680823410Sym1 s6989586621680823408) instance forall k1 k2 k3 (s6989586621680823408 :: k1) (kf6989586621680823404 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409X_6989586621680823410Sym2 s6989586621680823408 kf6989586621680823404) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823409VSym0 instance forall k1 k2 k3 k4 (s6989586621680823408 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409VSym1 s6989586621680823408) instance forall k1 k2 k3 k4 (s6989586621680823408 :: k1) (kf6989586621680823404 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409VSym2 s6989586621680823408 kf6989586621680823404) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823409S'Sym0 instance forall k1 k2 k3 k4 (s6989586621680823408 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409S'Sym1 s6989586621680823408) instance forall k1 k2 k3 k4 (s6989586621680823408 :: k1) (kf6989586621680823404 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409S'Sym2 s6989586621680823408 kf6989586621680823404) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823409X_6989586621680823416Sym0 instance forall k2 k3 k4 k5 (s6989586621680823408 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409X_6989586621680823416Sym1 s6989586621680823408) instance forall k2 k3 k4 k5 (s6989586621680823408 :: k2) (kf6989586621680823404 :: k3 Data.Singletons.Internal.~> k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409X_6989586621680823416Sym2 s6989586621680823408 kf6989586621680823404) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823409FSym0 instance forall k2 k3 k4 k5 k6 (s6989586621680823408 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409FSym1 s6989586621680823408) instance forall k2 k3 k4 k5 k6 (s6989586621680823408 :: k2) (kf6989586621680823404 :: k3 Data.Singletons.Internal.~> (k4, k5)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409FSym2 s6989586621680823408 kf6989586621680823404) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823409S''Sym0 instance forall k2 k3 k4 k5 k6 (s6989586621680823408 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409S''Sym1 s6989586621680823408) instance forall k2 k3 k4 k5 k6 (s6989586621680823408 :: k2) (kf6989586621680823404 :: k3 Data.Singletons.Internal.~> (k4, k5)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823409S''Sym2 s6989586621680823408 kf6989586621680823404) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Pure_6989586621680823385Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Lambda_6989586621680823391Sym0 instance forall k2 k3 (x6989586621680823390 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823391Sym1 x6989586621680823390) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Fmap_6989586621680823353Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor (Data.Singletons.Prelude.Traversable.StateR s) instance forall a b s (a6989586621680823358 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Fmap_6989586621680823353Sym1 a6989586621680823358) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Lambda_6989586621680823362Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor (Data.Singletons.Prelude.Traversable.StateR s) instance forall k2 k3 k4 k (f6989586621680823360 :: k2 Data.Singletons.Internal.~> k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823362Sym1 f6989586621680823360) instance forall k2 k3 k4 k (f6989586621680823360 :: k2 Data.Singletons.Internal.~> k3) (k6989586621680823361 :: k4 Data.Singletons.Internal.~> (k, k2)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823362Sym2 f6989586621680823360 k6989586621680823361) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823365X_6989586621680823366Sym0 instance forall k1 k2 k3 (s6989586621680823364 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823365X_6989586621680823366Sym1 s6989586621680823364) instance forall k1 k2 k3 (s6989586621680823364 :: k1) (f6989586621680823360 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823365X_6989586621680823366Sym2 s6989586621680823364 f6989586621680823360) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823365VSym0 instance forall k1 k2 k3 k4 (s6989586621680823364 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823365VSym1 s6989586621680823364) instance forall k1 k2 k3 k4 (s6989586621680823364 :: k1) (f6989586621680823360 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823365VSym2 s6989586621680823364 f6989586621680823360) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823365S'Sym0 instance forall k1 k2 k3 k4 (s6989586621680823364 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823365S'Sym1 s6989586621680823364) instance forall k1 k2 k3 k4 (s6989586621680823364 :: k1) (f6989586621680823360 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823365S'Sym2 s6989586621680823364 f6989586621680823360) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.LiftA2_6989586621680823300Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative (Data.Singletons.Prelude.Traversable.StateL s) instance forall a b c s (a6989586621680823306 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.LiftA2_6989586621680823300Sym1 a6989586621680823306) instance forall a b c s (a6989586621680823306 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680823307 :: Data.Singletons.Prelude.Traversable.StateL s a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.LiftA2_6989586621680823300Sym2 a6989586621680823306 a6989586621680823307) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Lambda_6989586621680823312Sym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative (Data.Singletons.Prelude.Traversable.StateL s) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680823309 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823312Sym1 f6989586621680823309) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680823309 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (kx6989586621680823310 :: k5 Data.Singletons.Internal.~> (k6, k2)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823312Sym2 f6989586621680823309 kx6989586621680823310) instance forall k2 k3 k4 k5 k6 k7 (f6989586621680823309 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> k4)) (kx6989586621680823310 :: k5 Data.Singletons.Internal.~> (k6, k2)) (ky6989586621680823311 :: k6 Data.Singletons.Internal.~> (k7, k3)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823312Sym3 f6989586621680823309 kx6989586621680823310 ky6989586621680823311) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823315X_6989586621680823316Sym0 instance forall k1 k2 k3 k4 (s6989586621680823314 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315X_6989586621680823316Sym1 s6989586621680823314) instance forall k1 k2 k3 k4 (s6989586621680823314 :: k1) (f6989586621680823309 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315X_6989586621680823316Sym2 s6989586621680823314 f6989586621680823309) instance forall k1 k2 k3 k4 (s6989586621680823314 :: k1) (f6989586621680823309 :: k2) (kx6989586621680823310 :: k1 Data.Singletons.Internal.~> k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315X_6989586621680823316Sym3 s6989586621680823314 f6989586621680823309 kx6989586621680823310) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823315XSym0 instance forall k1 k2 k3 k4 k5 (s6989586621680823314 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315XSym1 s6989586621680823314) instance forall k1 k2 k3 k4 k5 (s6989586621680823314 :: k1) (f6989586621680823309 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315XSym2 s6989586621680823314 f6989586621680823309) instance forall k1 k2 k3 k4 k5 (s6989586621680823314 :: k1) (f6989586621680823309 :: k2) (kx6989586621680823310 :: k1 Data.Singletons.Internal.~> (k3, k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315XSym3 s6989586621680823314 f6989586621680823309 kx6989586621680823310) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823315S'Sym0 instance forall k1 k2 k3 k4 k5 (s6989586621680823314 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315S'Sym1 s6989586621680823314) instance forall k1 k2 k3 k4 k5 (s6989586621680823314 :: k1) (f6989586621680823309 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315S'Sym2 s6989586621680823314 f6989586621680823309) instance forall k1 k2 k3 k4 k5 (s6989586621680823314 :: k1) (f6989586621680823309 :: k2) (kx6989586621680823310 :: k1 Data.Singletons.Internal.~> (k3, k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315S'Sym3 s6989586621680823314 f6989586621680823309 kx6989586621680823310) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823315X_6989586621680823322Sym0 instance forall k2 k3 k4 k5 k6 (s6989586621680823314 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315X_6989586621680823322Sym1 s6989586621680823314) instance forall k2 k3 k4 k5 k6 (s6989586621680823314 :: k2) (f6989586621680823309 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315X_6989586621680823322Sym2 s6989586621680823314 f6989586621680823309) instance forall k2 k3 k4 k5 k6 (s6989586621680823314 :: k2) (f6989586621680823309 :: k3) (kx6989586621680823310 :: k2 Data.Singletons.Internal.~> (k4, k5)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315X_6989586621680823322Sym3 s6989586621680823314 f6989586621680823309 kx6989586621680823310) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823315YSym0 instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823314 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315YSym1 s6989586621680823314) instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823314 :: k2) (f6989586621680823309 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315YSym2 s6989586621680823314 f6989586621680823309) instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823314 :: k2) (f6989586621680823309 :: k3) (kx6989586621680823310 :: k2 Data.Singletons.Internal.~> (k4, k5)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315YSym3 s6989586621680823314 f6989586621680823309 kx6989586621680823310) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823315S''Sym0 instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823314 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315S''Sym1 s6989586621680823314) instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823314 :: k2) (f6989586621680823309 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315S''Sym2 s6989586621680823314 f6989586621680823309) instance forall k2 k3 k4 k5 k6 k7 (s6989586621680823314 :: k2) (f6989586621680823309 :: k3) (kx6989586621680823310 :: k2 Data.Singletons.Internal.~> (k4, k5)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823315S''Sym3 s6989586621680823314 f6989586621680823309 kx6989586621680823310) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.TFHelper_6989586621680823249Sym0 instance forall s a b (a6989586621680823254 :: Data.Singletons.Prelude.Traversable.StateL s (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.TFHelper_6989586621680823249Sym1 a6989586621680823254) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Lambda_6989586621680823258Sym0 instance forall k2 k3 k4 k5 k (kf6989586621680823256 :: k2 Data.Singletons.Internal.~> (k3, k4 Data.Singletons.Internal.~> k5)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823258Sym1 kf6989586621680823256) instance forall k2 k3 k4 k5 k (kf6989586621680823256 :: k2 Data.Singletons.Internal.~> (k3, k4 Data.Singletons.Internal.~> k5)) (kv6989586621680823257 :: k3 Data.Singletons.Internal.~> (k, k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823258Sym2 kf6989586621680823256 kv6989586621680823257) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823261X_6989586621680823262Sym0 instance forall k1 k2 k3 (s6989586621680823260 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261X_6989586621680823262Sym1 s6989586621680823260) instance forall k1 k2 k3 (s6989586621680823260 :: k1) (kf6989586621680823256 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261X_6989586621680823262Sym2 s6989586621680823260 kf6989586621680823256) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823261FSym0 instance forall k1 k2 k3 k4 (s6989586621680823260 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261FSym1 s6989586621680823260) instance forall k1 k2 k3 k4 (s6989586621680823260 :: k1) (kf6989586621680823256 :: k1 Data.Singletons.Internal.~> (k2, k3)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261FSym2 s6989586621680823260 kf6989586621680823256) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823261S'Sym0 instance forall k1 k2 k3 k4 (s6989586621680823260 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261S'Sym1 s6989586621680823260) instance forall k1 k2 k3 k4 (s6989586621680823260 :: k1) (kf6989586621680823256 :: k1 Data.Singletons.Internal.~> (k2, k3)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261S'Sym2 s6989586621680823260 kf6989586621680823256) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823261X_6989586621680823268Sym0 instance forall k2 k3 k4 k5 (s6989586621680823260 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261X_6989586621680823268Sym1 s6989586621680823260) instance forall k2 k3 k4 k5 (s6989586621680823260 :: k2) (kf6989586621680823256 :: k2 Data.Singletons.Internal.~> (k3, k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261X_6989586621680823268Sym2 s6989586621680823260 kf6989586621680823256) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823261VSym0 instance forall k2 k3 k4 k5 k6 (s6989586621680823260 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261VSym1 s6989586621680823260) instance forall k2 k3 k4 k5 k6 (s6989586621680823260 :: k2) (kf6989586621680823256 :: k2 Data.Singletons.Internal.~> (k3, k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261VSym2 s6989586621680823260 kf6989586621680823256) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823261S''Sym0 instance forall k2 k3 k4 k5 k6 (s6989586621680823260 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261S''Sym1 s6989586621680823260) instance forall k2 k3 k4 k5 k6 (s6989586621680823260 :: k2) (kf6989586621680823256 :: k2 Data.Singletons.Internal.~> (k3, k4)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823261S''Sym2 s6989586621680823260 kf6989586621680823256) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Pure_6989586621680823237Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Lambda_6989586621680823243Sym0 instance forall k2 k3 (x6989586621680823242 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823243Sym1 x6989586621680823242) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Fmap_6989586621680823205Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor (Data.Singletons.Prelude.Traversable.StateL s) instance forall a b s (a6989586621680823210 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Fmap_6989586621680823205Sym1 a6989586621680823210) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Lambda_6989586621680823214Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor (Data.Singletons.Prelude.Traversable.StateL s) instance forall k2 k3 k4 k (f6989586621680823212 :: k2 Data.Singletons.Internal.~> k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823214Sym1 f6989586621680823212) instance forall k2 k3 k4 k (f6989586621680823212 :: k2 Data.Singletons.Internal.~> k3) (k6989586621680823213 :: k4 Data.Singletons.Internal.~> (k, k2)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Lambda_6989586621680823214Sym2 f6989586621680823212 k6989586621680823213) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823217X_6989586621680823218Sym0 instance forall k1 k2 k3 (s6989586621680823216 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823217X_6989586621680823218Sym1 s6989586621680823216) instance forall k1 k2 k3 (s6989586621680823216 :: k1) (f6989586621680823212 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823217X_6989586621680823218Sym2 s6989586621680823216 f6989586621680823212) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823217VSym0 instance forall k1 k2 k3 k4 (s6989586621680823216 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823217VSym1 s6989586621680823216) instance forall k1 k2 k3 k4 (s6989586621680823216 :: k1) (f6989586621680823212 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823217VSym2 s6989586621680823216 f6989586621680823212) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680823217S'Sym0 instance forall k1 k2 k3 k4 (s6989586621680823216 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823217S'Sym1 s6989586621680823216) instance forall k1 k2 k3 k4 (s6989586621680823216 :: k1) (f6989586621680823212 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680823217S'Sym2 s6989586621680823216 f6989586621680823212) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823194Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Functor.Identity.Identity instance forall a (f :: * -> *) b (a6989586621680823199 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823194Sym1 a6989586621680823199) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823183Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Monoid.Last instance forall a (f :: * -> *) b (a6989586621680823188 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823183Sym1 a6989586621680823188) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823172Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Monoid.First instance forall a (f :: * -> *) b (a6989586621680823177 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823172Sym1 a6989586621680823177) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823161Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Semigroup.Internal.Product instance forall a (f :: * -> *) b (a6989586621680823166 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823161Sym1 a6989586621680823166) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823150Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Semigroup.Internal.Sum instance forall a (f :: * -> *) b (a6989586621680823155 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823150Sym1 a6989586621680823155) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823139Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Semigroup.Internal.Dual instance forall a (f :: * -> *) b (a6989586621680823144 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823139Sym1 a6989586621680823144) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823128Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable (Data.Functor.Const.Const m) instance forall a (f :: * -> *) b m (a6989586621680823133 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823128Sym1 a6989586621680823133) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Sequence_6989586621680823121Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Proxy.Proxy instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.MapM_6989586621680823113Sym0 instance forall a (m :: * -> *) b (a6989586621680823118 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.MapM_6989586621680823113Sym1 a6989586621680823118) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.SequenceA_6989586621680823106Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823098Sym0 instance forall a (f :: * -> *) b (a6989586621680823103 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823098Sym1 a6989586621680823103) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823086Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable ((,) a) instance forall a1 (f :: * -> *) b a2 (a6989586621680823091 :: a1 Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823086Sym1 a6989586621680823091) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823073Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable (Data.Either.Either a) instance forall a1 (f :: * -> *) b a2 (a6989586621680823078 :: a1 Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823073Sym1 a6989586621680823078) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823061Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable GHC.Base.NonEmpty instance forall a (f :: * -> *) b (a6989586621680823066 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823061Sym1 a6989586621680823066) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823048Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable [] instance forall a (f :: * -> *) b (a6989586621680823053 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823048Sym1 a6989586621680823053) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680823036Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable GHC.Maybe.Maybe instance forall a (f :: * -> *) b (a6989586621680823041 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680823036Sym1 a6989586621680823041) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.ForSym0 instance (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.ForSym0 instance forall (t :: * -> *) a (f :: * -> *) b (a6989586621680823030 :: t a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.ForSym1 a6989586621680823030) instance forall (t :: * -> *) (f :: * -> *) a (d :: t a) b. (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.ForSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.ForMSym0 instance (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.ForMSym0 instance forall (t :: * -> *) a (m :: * -> *) b (a6989586621680823019 :: t a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.ForMSym1 a6989586621680823019) instance forall (t :: * -> *) (m :: * -> *) a (d :: t a) b. (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.ForMSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.MapAccumLSym0 instance Data.Singletons.Prelude.Traversable.STraversable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.MapAccumLSym0 instance forall a b c (t :: * -> *) (a6989586621680823006 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> (a, c))). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.MapAccumLSym1 a6989586621680823006) instance forall (t :: * -> *) a b c (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> (a, c))). (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.MapAccumLSym1 d) instance forall a b c (t :: * -> *) (a6989586621680823006 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> (a, c))) (a6989586621680823007 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.MapAccumLSym2 a6989586621680823006 a6989586621680823007) instance forall (t :: * -> *) a b c (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> (a, c))) (d2 :: a). (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.MapAccumLSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.MapAccumRSym0 instance Data.Singletons.Prelude.Traversable.STraversable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.MapAccumRSym0 instance forall a b c (t :: * -> *) (a6989586621680822996 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> (a, c))). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.MapAccumRSym1 a6989586621680822996) instance forall (t :: * -> *) a b c (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> (a, c))). (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.MapAccumRSym1 d) instance forall a b c (t :: * -> *) (a6989586621680822996 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> (a, c))) (a6989586621680822997 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.MapAccumRSym2 a6989586621680822996 a6989586621680822997) instance forall (t :: * -> *) a b c (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> (a, c))) (d2 :: a). (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.MapAccumRSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.FmapDefaultSym0 instance Data.Singletons.Prelude.Traversable.STraversable t => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.FmapDefaultSym0 instance forall a b (t :: * -> *) (a6989586621680822982 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.FmapDefaultSym1 a6989586621680822982) instance forall (t :: * -> *) a b (d :: a Data.Singletons.Internal.~> b). (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.FmapDefaultSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.FoldMapDefaultSym0 instance (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monoid.SMonoid m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.FoldMapDefaultSym0 instance forall a m (t :: * -> *) (a6989586621680822963 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.FoldMapDefaultSym1 a6989586621680822963) instance forall (t :: * -> *) m a (d :: a Data.Singletons.Internal.~> m). (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monoid.SMonoid m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.FoldMapDefaultSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680822986Scrutinee_6989586621680822577Sym0 instance forall a b (t :: * -> *) (f6989586621680822984 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680822986Scrutinee_6989586621680822577Sym1 f6989586621680822984) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680822973Scrutinee_6989586621680822580Sym0 instance forall a b (t :: * -> *) (f6989586621680822965 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680822973Scrutinee_6989586621680822580Sym1 f6989586621680822965) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Let6989586621680822967MkConstSym0 instance forall k1 k2 m6989586621680822486 (f6989586621680822965 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680822967MkConstSym1 f6989586621680822965) instance forall k1 k2 m6989586621680822486 (f6989586621680822965 :: k1) (x6989586621680822966 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Let6989586621680822967MkConstSym2 f6989586621680822965 x6989586621680822966) instance Data.Singletons.Prelude.Traversable.STraversable GHC.Maybe.Maybe instance Data.Singletons.Prelude.Traversable.STraversable [] instance Data.Singletons.Prelude.Traversable.STraversable GHC.Base.NonEmpty instance Data.Singletons.Prelude.Traversable.STraversable (Data.Either.Either a) instance Data.Singletons.Prelude.Traversable.STraversable ((,) a) instance Data.Singletons.Prelude.Traversable.STraversable Data.Proxy.Proxy instance Data.Singletons.Prelude.Traversable.STraversable (Data.Functor.Const.Const m) instance Data.Singletons.Prelude.Traversable.STraversable Data.Semigroup.Internal.Dual instance Data.Singletons.Prelude.Traversable.STraversable Data.Semigroup.Internal.Sum instance Data.Singletons.Prelude.Traversable.STraversable Data.Semigroup.Internal.Product instance Data.Singletons.Prelude.Traversable.STraversable Data.Monoid.First instance Data.Singletons.Prelude.Traversable.STraversable Data.Monoid.Last instance Data.Singletons.Prelude.Traversable.STraversable Data.Functor.Identity.Identity instance (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.TraverseSym0 instance forall (t :: * -> *) (f :: * -> *) a b (d :: a Data.Singletons.Internal.~> f b). (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.TraverseSym1 d) instance (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SApplicative f) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.SequenceASym0 instance (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.MapMSym0 instance forall (t :: * -> *) (m :: * -> *) a b (d :: a Data.Singletons.Internal.~> m b). (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.MapMSym1 d) instance (Data.Singletons.Prelude.Traversable.STraversable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.SequenceSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.MapMSym0 instance forall a (m :: * -> *) b (t :: * -> *) (a6989586621680816750 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.MapMSym1 a6989586621680816750) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.SequenceSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.TraverseSym0 instance forall a (f :: * -> *) b (t :: * -> *) (a6989586621680816742 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.TraverseSym1 a6989586621680816742) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.SequenceASym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Traverse_6989586621680816757Sym0 instance forall a (f :: * -> *) b (t :: * -> *) (a6989586621680816764 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.Traverse_6989586621680816757Sym1 a6989586621680816764) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.SequenceA_6989586621680816769Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.MapM_6989586621680816779Sym0 instance forall a (m :: * -> *) b (t :: * -> *) (a6989586621680816788 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.MapM_6989586621680816779Sym1 a6989586621680816788) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.Sequence_6989586621680816793Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.RunStateLSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.RunStateLSym0 instance forall s a (a6989586621680815503 :: Data.Singletons.Prelude.Traversable.StateL s a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.RunStateLSym1 a6989586621680815503) instance forall s a (d :: Data.Singletons.Prelude.Traversable.StateL s a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.RunStateLSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Traversable.RunStateRSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Traversable.RunStateRSym0 instance forall s a (a6989586621680815494 :: Data.Singletons.Prelude.Traversable.StateR s a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Traversable.RunStateRSym1 a6989586621680815494) instance forall s a (d :: Data.Singletons.Prelude.Traversable.StateR s a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Traversable.RunStateRSym1 d) -- | Defines the promoted version of Semigroup, PSemigroup, -- and the singleton version, SSemigroup. module Data.Singletons.Prelude.Semigroup class PSemigroup a_a3rto where { type family (<>) (arg_a3rxb :: a_a3rto) (arg_a3rxc :: a_a3rto) :: a_a3rto; type family Sconcat (arg_a3rxg :: NonEmpty a_a3rto) :: a_a3rto; type Sconcat a_a3rxj = Apply Sconcat_6989586621679830630Sym0 a_a3rxj; } infixr 6 <> class SSemigroup a_a3rto (%<>) :: forall (t_a3rAs :: a_a3rto) (t_a3rAt :: a_a3rto). SSemigroup a_a3rto => Sing t_a3rAs -> Sing t_a3rAt -> Sing (Apply (Apply (<>@#@$) t_a3rAs) t_a3rAt :: a_a3rto) sSconcat :: forall (t_a3rAw :: NonEmpty a_a3rto). SSemigroup a_a3rto => Sing t_a3rAw -> Sing (Apply SconcatSym0 t_a3rAw :: a_a3rto) sSconcat :: forall (t_a3rAw :: NonEmpty a_a3rto). (SSemigroup a_a3rto, (Apply SconcatSym0 t_a3rAw :: a_a3rto) ~ Apply Sconcat_6989586621679830630Sym0 t_a3rAw) => Sing t_a3rAw -> Sing (Apply SconcatSym0 t_a3rAw :: a_a3rto) infixr 6 %<> -- | The singleton kind-indexed type family. type family Sing data SMin z_a3u27 [SMin] :: forall (a_abpM :: Type) (n_a3u20 :: a_abpM). () => Sing n_a3u20 -> SMin ('Min n_a3u20 :: Min (a_abpM :: Type)) data SMax z_a3u2t [SMax] :: forall (a_abpO :: Type) (n_a3u2m :: a_abpO). () => Sing n_a3u2m -> SMax ('Max n_a3u2m :: Max (a_abpO :: Type)) data SFirst z_a3u2P [SFirst] :: forall (a_abpS :: Type) (n_a3u2I :: a_abpS). () => Sing n_a3u2I -> SFirst ('First n_a3u2I :: First (a_abpS :: Type)) data SLast z_a3u3b [SLast] :: forall (a_abpQ :: Type) (n_a3u34 :: a_abpQ). () => Sing n_a3u34 -> SLast ('Last n_a3u34 :: Last (a_abpQ :: Type)) data SWrappedMonoid z_a3u3x [SWrapMonoid] :: forall (m_afw1 :: Type) (n_a3u3q :: m_afw1). () => Sing n_a3u3q -> SWrappedMonoid ('WrapMonoid n_a3u3q :: WrappedMonoid (m_afw1 :: Type)) data SDual z_a3u0v [SDual] :: forall (a_af30 :: Type) (n_a3u0o :: a_af30). () => Sing n_a3u0o -> SDual ('Dual n_a3u0o :: Dual (a_af30 :: Type)) data SAll z_a3u0M [SAll] :: forall (n_a3u0F :: Bool). () => Sing n_a3u0F -> SAll ('All n_a3u0F :: All) data SAny z_a3u13 [SAny] :: forall (n_a3u0W :: Bool). () => Sing n_a3u0W -> SAny ('Any n_a3u0W :: Any) data SSum z_a3u1p [SSum] :: forall (a_af2W :: Type) (n_a3u1i :: a_af2W). () => Sing n_a3u1i -> SSum ('Sum n_a3u1i :: Sum (a_af2W :: Type)) data SProduct z_a3u1L [SProduct] :: forall (a_af2Y :: Type) (n_a3u1E :: a_af2Y). () => Sing n_a3u1E -> SProduct ('Product n_a3u1E :: Product (a_af2Y :: Type)) data SOption z_a3u09 [SOption] :: forall (a_abpK :: Type) (n_a3u02 :: Maybe a_abpK). () => Sing n_a3u02 -> SOption ('Option n_a3u02 :: Option (a_abpK :: Type)) data SArg z_a85kF [SArg] :: forall (a_abwA :: Type) (b_abwB :: Type) (n_a85kt :: a_abwA) (n_a85ku :: b_abwB). () => Sing n_a85kt -> Sing n_a85ku -> SArg ('Arg n_a85kt n_a85ku :: Arg (a_abwA :: Type) (b_abwB :: Type)) type family GetMin a_a3u1U type family GetMax a_a3u2g type family GetFirst a_a3u2C type family GetLast a_a3u2Y type family UnwrapMonoid a_a3u3k type family GetDual a_a3u0i type family GetAll a_a3u0z type family GetAny a_a3u0Q type family GetSum a_a3u1c type family GetProduct a_a3u1y type family GetOption a_a3tZV sGetMin :: forall (a_abpM :: Type) (t_a3u1Y :: Min (a_abpM :: Type)). Sing t_a3u1Y -> Sing (Apply GetMinSym0 t_a3u1Y :: a_abpM) sGetMax :: forall (a_abpO :: Type) (t_a3u2k :: Max (a_abpO :: Type)). Sing t_a3u2k -> Sing (Apply GetMaxSym0 t_a3u2k :: a_abpO) sGetFirst :: forall (a_abpS :: Type) (t_a3u2G :: First (a_abpS :: Type)). Sing t_a3u2G -> Sing (Apply GetFirstSym0 t_a3u2G :: a_abpS) sGetLast :: forall (a_abpQ :: Type) (t_a3u32 :: Last (a_abpQ :: Type)). Sing t_a3u32 -> Sing (Apply GetLastSym0 t_a3u32 :: a_abpQ) sUnwrapMonoid :: forall (m_afw1 :: Type) (t_a3u3o :: WrappedMonoid (m_afw1 :: Type)). Sing t_a3u3o -> Sing (Apply UnwrapMonoidSym0 t_a3u3o :: m_afw1) sGetDual :: forall (a_af30 :: Type) (t_a3u0m :: Dual (a_af30 :: Type)). Sing t_a3u0m -> Sing (Apply GetDualSym0 t_a3u0m :: a_af30) sGetAll :: forall (t_a3u0D :: All). Sing t_a3u0D -> Sing (Apply GetAllSym0 t_a3u0D :: Bool) sGetAny :: forall (t_a3u0U :: Any). Sing t_a3u0U -> Sing (Apply GetAnySym0 t_a3u0U :: Bool) sGetSum :: forall (a_af2W :: Type) (t_a3u1g :: Sum (a_af2W :: Type)). Sing t_a3u1g -> Sing (Apply GetSumSym0 t_a3u1g :: a_af2W) sGetProduct :: forall (a_af2Y :: Type) (t_a3u1C :: Product (a_af2Y :: Type)). Sing t_a3u1C -> Sing (Apply GetProductSym0 t_a3u1C :: a_af2Y) sGetOption :: forall (a_abpK :: Type) (t_a3tZZ :: Option (a_abpK :: Type)). Sing t_a3tZZ -> Sing (Apply GetOptionSym0 t_a3tZZ :: Maybe a_abpK) option_ :: b_a8rcl -> (a_a8rcm -> b_a8rcl) -> Option a_a8rcm -> b_a8rcl sOption_ :: forall b_a8rcl a_a8rcm (t_a8rcH :: b_a8rcl) (t_a8rcI :: (~>) a_a8rcm b_a8rcl) (t_a8rcJ :: Option a_a8rcm). Sing t_a8rcH -> Sing t_a8rcI -> Sing t_a8rcJ -> Sing (Apply (Apply (Apply Option_Sym0 t_a8rcH) t_a8rcI) t_a8rcJ :: b_a8rcl) type family Option_ a_a8rcx a_a8rcy a_a8rcz data (<>@#@$) a6989586621679830624 infixr 6 <>@#@$ data (<>@#@$$) a6989586621679830624 a6989586621679830625 infixr 6 <>@#@$$ type (<>@#@$$$) (a6989586621679830624 :: a_a3rto) (a6989586621679830625 :: a_a3rto) = (<>) a6989586621679830624 a6989586621679830625 :: a_a3rto infixr 6 <>@#@$$$ data SconcatSym0 a6989586621679830628 type SconcatSym1 (a6989586621679830628 :: NonEmpty a_a3rto) = Sconcat a6989586621679830628 :: a_a3rto data MinSym0 a6989586621679840213 type MinSym1 (a6989586621679840213 :: a_abpM) = 'Min a6989586621679840213 :: Min (a_abpM :: Type) data GetMinSym0 a6989586621679840216 type GetMinSym1 (a6989586621679840216 :: Min (a_abpM :: Type)) = GetMin a6989586621679840216 :: a_abpM data MaxSym0 a6989586621679840235 type MaxSym1 (a6989586621679840235 :: a_abpO) = 'Max a6989586621679840235 :: Max (a_abpO :: Type) data GetMaxSym0 a6989586621679840238 type GetMaxSym1 (a6989586621679840238 :: Max (a_abpO :: Type)) = GetMax a6989586621679840238 :: a_abpO data FirstSym0 a6989586621679840257 type FirstSym1 (a6989586621679840257 :: a_abpS) = 'First a6989586621679840257 :: First (a_abpS :: Type) data GetFirstSym0 a6989586621679840260 type GetFirstSym1 (a6989586621679840260 :: First (a_abpS :: Type)) = GetFirst a6989586621679840260 :: a_abpS data LastSym0 a6989586621679840279 type LastSym1 (a6989586621679840279 :: a_abpQ) = 'Last a6989586621679840279 :: Last (a_abpQ :: Type) data GetLastSym0 a6989586621679840282 type GetLastSym1 (a6989586621679840282 :: Last (a_abpQ :: Type)) = GetLast a6989586621679840282 :: a_abpQ data WrapMonoidSym0 a6989586621679840301 type WrapMonoidSym1 (a6989586621679840301 :: m_afw1) = 'WrapMonoid a6989586621679840301 :: WrappedMonoid (m_afw1 :: Type) data UnwrapMonoidSym0 a6989586621679840304 type UnwrapMonoidSym1 (a6989586621679840304 :: WrappedMonoid (m_afw1 :: Type)) = UnwrapMonoid a6989586621679840304 :: m_afw1 data DualSym0 a6989586621679840113 type DualSym1 (a6989586621679840113 :: a_af30) = 'Dual a6989586621679840113 :: Dual (a_af30 :: Type) data GetDualSym0 a6989586621679840116 type GetDualSym1 (a6989586621679840116 :: Dual (a_af30 :: Type)) = GetDual a6989586621679840116 :: a_af30 data AllSym0 a6989586621679840130 type AllSym1 (a6989586621679840130 :: Bool) = 'All a6989586621679840130 :: All data GetAllSym0 a6989586621679840133 type GetAllSym1 (a6989586621679840133 :: All) = GetAll a6989586621679840133 :: Bool data AnySym0 a6989586621679840147 type AnySym1 (a6989586621679840147 :: Bool) = 'Any a6989586621679840147 :: Any data GetAnySym0 a6989586621679840150 type GetAnySym1 (a6989586621679840150 :: Any) = GetAny a6989586621679840150 :: Bool data SumSym0 a6989586621679840169 type SumSym1 (a6989586621679840169 :: a_af2W) = 'Sum a6989586621679840169 :: Sum (a_af2W :: Type) data GetSumSym0 a6989586621679840172 type GetSumSym1 (a6989586621679840172 :: Sum (a_af2W :: Type)) = GetSum a6989586621679840172 :: a_af2W data ProductSym0 a6989586621679840191 type ProductSym1 (a6989586621679840191 :: a_af2Y) = 'Product a6989586621679840191 :: Product (a_af2Y :: Type) data GetProductSym0 a6989586621679840194 type GetProductSym1 (a6989586621679840194 :: Product (a_af2Y :: Type)) = GetProduct a6989586621679840194 :: a_af2Y data OptionSym0 a6989586621679840090 type OptionSym1 (a6989586621679840090 :: Maybe a_abpK) = 'Option a6989586621679840090 :: Option (a_abpK :: Type) data GetOptionSym0 a6989586621679840093 type GetOptionSym1 (a6989586621679840093 :: Option (a_abpK :: Type)) = GetOption a6989586621679840093 :: Maybe a_abpK data ArgSym0 a6989586621680936903 data ArgSym1 a6989586621680936903 a6989586621680936904 type ArgSym2 (a6989586621680936903 :: a_abwA) (a6989586621680936904 :: b_abwB) = 'Arg a6989586621680936903 a6989586621680936904 :: Arg (a_abwA :: Type) (b_abwB :: Type) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Option_Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Semigroup.Option_Sym0 instance forall b a (a6989586621681020985 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Option_Sym1 a6989586621681020985) instance forall b (d :: b) a. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Semigroup.Option_Sym1 d) instance forall b a (a6989586621681020985 :: b) (a6989586621681020986 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Option_Sym2 a6989586621681020985 a6989586621681020986) instance forall b (d1 :: b) a (d2 :: a Data.Singletons.Internal.~> b). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Semigroup.Option_Sym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955965Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Semigroup.Option instance forall a (f :: * -> *) b (a6989586621680955970 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955965Sym1 a6989586621680955970) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955954Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Semigroup.Option instance forall a m (a6989586621680955959 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955954Sym1 a6989586621680955959) instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Semigroup.Option a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955940Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Semigroup.Option a) instance forall a (a6989586621680955945 :: Data.Semigroup.Option a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955940Sym1 a6989586621680955945) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955925Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Semigroup.Option instance forall a b (a6989586621680955934 :: Data.Semigroup.Option a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955925Sym1 a6989586621680955934) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955914Sym0 instance forall a b (a6989586621680955919 :: Data.Semigroup.Option a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955914Sym1 a6989586621680955919) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955903Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Semigroup.Option instance forall a b (a6989586621680955908 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955903Sym1 a6989586621680955908) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955892Sym0 instance forall a b (a6989586621680955897 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955892Sym1 a6989586621680955897) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955882Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Semigroup.Option instance forall a b (a6989586621680955887 :: Data.Semigroup.Option a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955882Sym1 a6989586621680955887) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955868Sym0 instance forall a b c (a6989586621680955874 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955868Sym1 a6989586621680955874) instance forall a b c (a6989586621680955874 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680955875 :: Data.Semigroup.Option a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955868Sym2 a6989586621680955874 a6989586621680955875) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955856Sym0 instance forall a b (a6989586621680955861 :: Data.Semigroup.Option (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955856Sym1 a6989586621680955861) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pure_6989586621680955848Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955836Sym0 instance Data.Singletons.Prelude.Monad.Internal.PAlternative Data.Semigroup.Option instance forall a (a6989586621680955841 :: Data.Semigroup.Option a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955836Sym1 a6989586621680955841) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Let6989586621680955845ASym0 instance Data.Singletons.Prelude.Monad.Internal.SAlternative Data.Semigroup.Option instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955819Sym0 instance Data.Singletons.Prelude.Enum.PEnum (Data.Semigroup.WrappedMonoid a) instance forall a (a6989586621680955825 :: Data.Semigroup.WrappedMonoid a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955819Sym1 a6989586621680955825) instance forall a (a6989586621680955825 :: Data.Semigroup.WrappedMonoid a) (a6989586621680955826 :: Data.Semigroup.WrappedMonoid a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955819Sym2 a6989586621680955825 a6989586621680955826) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680955807Sym0 instance forall a (a6989586621680955812 :: Data.Semigroup.WrappedMonoid a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680955807Sym1 a6989586621680955812) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FromEnum_6989586621680955799Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ToEnum_6989586621680955790Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pred_6989586621680955783Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Succ_6989586621680955776Sym0 instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Semigroup.WrappedMonoid m) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955763Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Semigroup.WrappedMonoid m) instance forall m (a6989586621680955768 :: Data.Semigroup.WrappedMonoid m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955763Sym1 a6989586621680955768) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955752Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Semigroup.Last instance forall a (f :: * -> *) b (a6989586621680955757 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955752Sym1 a6989586621680955757) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955738Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Semigroup.Last instance forall a b (a6989586621680955744 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955738Sym1 a6989586621680955744) instance forall a b (a6989586621680955744 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680955745 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955738Sym2 a6989586621680955744 a6989586621680955745) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955726Sym0 instance forall a m (a6989586621680955731 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955726Sym1 a6989586621680955731) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955716Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Semigroup.Last a) instance forall a (a6989586621680955721 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955716Sym1 a6989586621680955721) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955705Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Semigroup.Last instance forall a b (a6989586621680955710 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955705Sym1 a6989586621680955710) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955690Sym0 instance forall a b (a6989586621680955699 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955690Sym1 a6989586621680955699) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955675Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Semigroup.Last instance forall a b (a6989586621680955680 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955675Sym1 a6989586621680955680) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955684Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Semigroup.Last instance forall k1 k2 k3 (_z_69895866216809545616989586621680955682 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955684Sym1 _z_69895866216809545616989586621680955682) instance forall k1 k2 k3 (_z_69895866216809545616989586621680955682 :: k1) (a_69895866216809545676989586621680955683 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955684Sym2 _z_69895866216809545616989586621680955682 a_69895866216809545676989586621680955683) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955664Sym0 instance forall a b (a6989586621680955669 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955664Sym1 a6989586621680955669) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955650Sym0 instance Data.Singletons.Prelude.Enum.PEnum (Data.Semigroup.Last a) instance forall a (a6989586621680955656 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955650Sym1 a6989586621680955656) instance forall a (a6989586621680955656 :: Data.Semigroup.Last a) (a6989586621680955657 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955650Sym2 a6989586621680955656 a6989586621680955657) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680955638Sym0 instance forall a (a6989586621680955643 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680955638Sym1 a6989586621680955643) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FromEnum_6989586621680955630Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ToEnum_6989586621680955621Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pred_6989586621680955614Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Succ_6989586621680955607Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955594Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Semigroup.Last instance forall a b c (a6989586621680955600 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955594Sym1 a6989586621680955600) instance forall a b c (a6989586621680955600 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680955601 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955594Sym2 a6989586621680955600 a6989586621680955601) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955582Sym0 instance forall a b (a6989586621680955587 :: Data.Semigroup.Last (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955582Sym1 a6989586621680955587) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955572Sym0 instance forall a b (a6989586621680955577 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955572Sym1 a6989586621680955577) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955562Sym0 instance forall a b (a6989586621680955567 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955562Sym1 a6989586621680955567) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pure_6989586621680955554Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955544Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Semigroup.First instance forall a (f :: * -> *) b (a6989586621680955549 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955544Sym1 a6989586621680955549) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955530Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Semigroup.First instance forall a b (a6989586621680955536 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955530Sym1 a6989586621680955536) instance forall a b (a6989586621680955536 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680955537 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955530Sym2 a6989586621680955536 a6989586621680955537) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955518Sym0 instance forall a m (a6989586621680955523 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955518Sym1 a6989586621680955523) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955508Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Semigroup.First a) instance forall a (a6989586621680955513 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955508Sym1 a6989586621680955513) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955497Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Semigroup.First instance forall a b (a6989586621680955502 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955497Sym1 a6989586621680955502) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955482Sym0 instance forall a b (a6989586621680955491 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955482Sym1 a6989586621680955491) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955467Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Semigroup.First instance forall a b (a6989586621680955472 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955467Sym1 a6989586621680955472) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955476Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Semigroup.First instance forall k1 k2 k3 (_z_69895866216809545306989586621680955474 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955476Sym1 _z_69895866216809545306989586621680955474) instance forall k1 k2 k3 (_z_69895866216809545306989586621680955474 :: k1) (a_69895866216809545366989586621680955475 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955476Sym2 _z_69895866216809545306989586621680955474 a_69895866216809545366989586621680955475) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955456Sym0 instance forall a b (a6989586621680955461 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955456Sym1 a6989586621680955461) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955442Sym0 instance Data.Singletons.Prelude.Enum.PEnum (Data.Semigroup.First a) instance forall a (a6989586621680955448 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955442Sym1 a6989586621680955448) instance forall a (a6989586621680955448 :: Data.Semigroup.First a) (a6989586621680955449 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680955442Sym2 a6989586621680955448 a6989586621680955449) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680955430Sym0 instance forall a (a6989586621680955435 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680955430Sym1 a6989586621680955435) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FromEnum_6989586621680955422Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ToEnum_6989586621680955413Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pred_6989586621680955406Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Succ_6989586621680955399Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955386Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Semigroup.First instance forall a b c (a6989586621680955392 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955386Sym1 a6989586621680955392) instance forall a b c (a6989586621680955392 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680955393 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680955386Sym2 a6989586621680955392 a6989586621680955393) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955374Sym0 instance forall a b (a6989586621680955379 :: Data.Semigroup.First (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955374Sym1 a6989586621680955379) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955364Sym0 instance forall a b (a6989586621680955369 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955364Sym1 a6989586621680955369) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955354Sym0 instance forall a b (a6989586621680955359 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955354Sym1 a6989586621680955359) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pure_6989586621680955346Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955335Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable (Data.Semigroup.Arg a) instance forall a1 (f :: * -> *) b a2 (a6989586621680955340 :: a1 Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955335Sym1 a6989586621680955340) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955315Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable (Data.Semigroup.Arg a) instance forall a1 b a2 (a6989586621680955321 :: a1 Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955315Sym1 a6989586621680955321) instance forall a1 b a2 (a6989586621680955321 :: a1 Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680955322 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955315Sym2 a6989586621680955321 a6989586621680955322) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955328Sym0 instance Data.Singletons.Prelude.Foldable.SFoldable (Data.Semigroup.Arg a) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216809544956989586621680955324 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955328Sym1 _f_69895866216809544956989586621680955324) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216809544956989586621680955324 :: k1) (_z_69895866216809544976989586621680955325 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955328Sym2 _f_69895866216809544956989586621680955324 _z_69895866216809544976989586621680955325) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216809544956989586621680955324 :: k1) (_z_69895866216809544976989586621680955325 :: k2) (a_69895866216809545096989586621680955326 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955328Sym3 _f_69895866216809544956989586621680955324 _z_69895866216809544976989586621680955325 a_69895866216809545096989586621680955326) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216809544956989586621680955324 :: k1) (_z_69895866216809544976989586621680955325 :: k2) (a_69895866216809545096989586621680955326 :: k3) (a_69895866216809545116989586621680955327 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955328Sym4 _f_69895866216809544956989586621680955324 _z_69895866216809544976989586621680955325 a_69895866216809545096989586621680955326 a_69895866216809545116989586621680955327) instance forall k1 k2 k3 k4 k5 k6 (_f_69895866216809544956989586621680955324 :: k1) (_z_69895866216809544976989586621680955325 :: k2) (a_69895866216809545096989586621680955326 :: k3) (a_69895866216809545116989586621680955327 :: k4) (n1_69895866216809545056989586621680955330 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955328Sym5 _f_69895866216809544956989586621680955324 _z_69895866216809544976989586621680955325 a_69895866216809545096989586621680955326 a_69895866216809545116989586621680955327 n1_69895866216809545056989586621680955330) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955298Sym0 instance forall a1 m a2 (a6989586621680955303 :: a1 Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955298Sym1 a6989586621680955303) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955308Sym0 instance forall k1 k2 k3 k4 k5 (_f_69895866216809544956989586621680955305 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955308Sym1 _f_69895866216809544956989586621680955305) instance forall k1 k2 k3 k4 k5 (_f_69895866216809544956989586621680955305 :: k1) (a_69895866216809545016989586621680955306 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955308Sym2 _f_69895866216809544956989586621680955305 a_69895866216809545016989586621680955306) instance forall k1 k2 k3 k4 k5 (_f_69895866216809544956989586621680955305 :: k1) (a_69895866216809545016989586621680955306 :: k2) (a_69895866216809545036989586621680955307 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955308Sym3 _f_69895866216809544956989586621680955305 a_69895866216809545016989586621680955306 a_69895866216809545036989586621680955307) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680955281Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.Arg a b) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680955281Sym1 a6989586621680955289) instance forall a b (a6989586621680955289 :: GHC.Types.Nat) (a6989586621680955290 :: Data.Semigroup.Arg a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680955281Sym2 a6989586621680955289 a6989586621680955290) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Max_6989586621680955256Sym0 instance Data.Singletons.Prelude.Ord.POrd (Data.Semigroup.Arg a b) instance forall a b (a6989586621680955261 :: Data.Semigroup.Arg a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Max_6989586621680955256Sym1 a6989586621680955261) instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Ord.SOrd (Data.Semigroup.Arg a b) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Let6989586621680955271XSym0 instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271XSym1 a6989586621680955267) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2) (wild_69895866216809541746989586621680955268 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271XSym2 a6989586621680955267 wild_69895866216809541746989586621680955268) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2) (wild_69895866216809541746989586621680955268 :: k3) (b6989586621680955269 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271XSym3 a6989586621680955267 wild_69895866216809541746989586621680955268 b6989586621680955269) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2) (wild_69895866216809541746989586621680955268 :: k3) (b6989586621680955269 :: k4) (wild_69895866216809541766989586621680955270 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271XSym4 a6989586621680955267 wild_69895866216809541746989586621680955268 b6989586621680955269 wild_69895866216809541766989586621680955270) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2) (wild_69895866216809541746989586621680955268 :: k3) (b6989586621680955269 :: k4) (wild_69895866216809541766989586621680955270 :: k5) (arg_69895866216809541706989586621680955263 :: k6). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271XSym5 a6989586621680955267 wild_69895866216809541746989586621680955268 b6989586621680955269 wild_69895866216809541766989586621680955270 arg_69895866216809541706989586621680955263) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Let6989586621680955271YSym0 instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271YSym1 a6989586621680955267) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2) (wild_69895866216809541746989586621680955268 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271YSym2 a6989586621680955267 wild_69895866216809541746989586621680955268) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2) (wild_69895866216809541746989586621680955268 :: k3) (b6989586621680955269 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271YSym3 a6989586621680955267 wild_69895866216809541746989586621680955268 b6989586621680955269) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2) (wild_69895866216809541746989586621680955268 :: k3) (b6989586621680955269 :: k4) (wild_69895866216809541766989586621680955270 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271YSym4 a6989586621680955267 wild_69895866216809541746989586621680955268 b6989586621680955269 wild_69895866216809541766989586621680955270) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955267 :: k2) (wild_69895866216809541746989586621680955268 :: k3) (b6989586621680955269 :: k4) (wild_69895866216809541766989586621680955270 :: k5) (arg_69895866216809541706989586621680955263 :: k6). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955271YSym5 a6989586621680955267 wild_69895866216809541746989586621680955268 b6989586621680955269 wild_69895866216809541766989586621680955270 arg_69895866216809541706989586621680955263) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Min_6989586621680955232Sym0 instance forall a b (a6989586621680955237 :: Data.Semigroup.Arg a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Min_6989586621680955232Sym1 a6989586621680955237) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Let6989586621680955247XSym0 instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247XSym1 a6989586621680955243) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2) (wild_69895866216809541626989586621680955244 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247XSym2 a6989586621680955243 wild_69895866216809541626989586621680955244) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2) (wild_69895866216809541626989586621680955244 :: k3) (b6989586621680955245 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247XSym3 a6989586621680955243 wild_69895866216809541626989586621680955244 b6989586621680955245) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2) (wild_69895866216809541626989586621680955244 :: k3) (b6989586621680955245 :: k4) (wild_69895866216809541646989586621680955246 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247XSym4 a6989586621680955243 wild_69895866216809541626989586621680955244 b6989586621680955245 wild_69895866216809541646989586621680955246) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2) (wild_69895866216809541626989586621680955244 :: k3) (b6989586621680955245 :: k4) (wild_69895866216809541646989586621680955246 :: k5) (arg_69895866216809541586989586621680955239 :: k6). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247XSym5 a6989586621680955243 wild_69895866216809541626989586621680955244 b6989586621680955245 wild_69895866216809541646989586621680955246 arg_69895866216809541586989586621680955239) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Let6989586621680955247YSym0 instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247YSym1 a6989586621680955243) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2) (wild_69895866216809541626989586621680955244 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247YSym2 a6989586621680955243 wild_69895866216809541626989586621680955244) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2) (wild_69895866216809541626989586621680955244 :: k3) (b6989586621680955245 :: k4). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247YSym3 a6989586621680955243 wild_69895866216809541626989586621680955244 b6989586621680955245) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2) (wild_69895866216809541626989586621680955244 :: k3) (b6989586621680955245 :: k4) (wild_69895866216809541646989586621680955246 :: k5). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247YSym4 a6989586621680955243 wild_69895866216809541626989586621680955244 b6989586621680955245 wild_69895866216809541646989586621680955246) instance forall k2 k3 k4 k5 k6 k7 (a6989586621680955243 :: k2) (wild_69895866216809541626989586621680955244 :: k3) (b6989586621680955245 :: k4) (wild_69895866216809541646989586621680955246 :: k5) (arg_69895866216809541586989586621680955239 :: k6). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Let6989586621680955247YSym5 a6989586621680955243 wild_69895866216809541626989586621680955244 b6989586621680955245 wild_69895866216809541646989586621680955246 arg_69895866216809541586989586621680955239) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Compare_6989586621680955221Sym0 instance forall a b (a6989586621680955226 :: Data.Semigroup.Arg a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Compare_6989586621680955221Sym1 a6989586621680955226) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955201Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor (Data.Semigroup.Arg a) instance forall a1 a2 b (a6989586621680955206 :: a1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955201Sym1 a6989586621680955206) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955215Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor (Data.Semigroup.Arg a) instance forall k1 k2 k3 k4 (_z_69895866216809544616989586621680955208 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955215Sym1 _z_69895866216809544616989586621680955208) instance forall k1 k2 k3 k4 (_z_69895866216809544616989586621680955208 :: k1) (a_69895866216809544736989586621680955209 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955215Sym2 _z_69895866216809544616989586621680955208 a_69895866216809544736989586621680955209) instance forall k1 k2 k3 k4 (_z_69895866216809544616989586621680955208 :: k1) (a_69895866216809544736989586621680955209 :: k2) (a_69895866216809544756989586621680955210 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955215Sym3 _z_69895866216809544616989586621680955208 a_69895866216809544736989586621680955209 a_69895866216809544756989586621680955210) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955211Sym0 instance forall k1 k2 k3 k4 (_z_69895866216809544616989586621680955208 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955211Sym1 _z_69895866216809544616989586621680955208) instance forall k1 k2 k3 k4 (_z_69895866216809544616989586621680955208 :: k1) (a_69895866216809544736989586621680955209 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955211Sym2 _z_69895866216809544616989586621680955208 a_69895866216809544736989586621680955209) instance forall k1 k2 k3 k4 (_z_69895866216809544616989586621680955208 :: k1) (a_69895866216809544736989586621680955209 :: k2) (a_69895866216809544756989586621680955210 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955211Sym3 _z_69895866216809544616989586621680955208 a_69895866216809544736989586621680955209 a_69895866216809544756989586621680955210) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955185Sym0 instance forall a1 b a2 (a6989586621680955190 :: a1 Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955185Sym1 a6989586621680955190) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955195Sym0 instance forall k1 k2 k3 k4 (_f_69895866216809544596989586621680955192 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955195Sym1 _f_69895866216809544596989586621680955192) instance forall k1 k2 k3 k4 (_f_69895866216809544596989586621680955192 :: k1) (a_69895866216809544656989586621680955193 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955195Sym2 _f_69895866216809544596989586621680955192 a_69895866216809544656989586621680955193) instance forall k1 k2 k3 k4 (_f_69895866216809544596989586621680955192 :: k1) (a_69895866216809544656989586621680955193 :: k2) (a_69895866216809544676989586621680955194 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955195Sym3 _f_69895866216809544596989586621680955192 a_69895866216809544656989586621680955193 a_69895866216809544676989586621680955194) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955174Sym0 instance Data.Singletons.Prelude.Eq.PEq (Data.Semigroup.Arg a b) instance forall a b (a6989586621680955179 :: Data.Semigroup.Arg a b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955174Sym1 a6989586621680955179) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955163Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Semigroup.Max instance forall a (f :: * -> *) b (a6989586621680955168 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Traverse_6989586621680955163Sym1 a6989586621680955168) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955149Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Semigroup.Max instance forall a b (a6989586621680955155 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955149Sym1 a6989586621680955155) instance forall a b (a6989586621680955155 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680955156 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680955149Sym2 a6989586621680955155 a6989586621680955156) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955137Sym0 instance forall a m (a6989586621680955142 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680955137Sym1 a6989586621680955142) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FromInteger_6989586621680955127Sym0 instance Data.Singletons.Prelude.Num.PNum (Data.Semigroup.Max a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Signum_6989586621680955120Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Abs_6989586621680955113Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Negate_6989586621680955106Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955096Sym0 instance forall a (a6989586621680955101 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955096Sym1 a6989586621680955101) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955085Sym0 instance forall a (a6989586621680955090 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955085Sym1 a6989586621680955090) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955074Sym0 instance forall a (a6989586621680955079 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955074Sym1 a6989586621680955079) instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Semigroup.Max a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955060Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Semigroup.Max a) instance forall a (a6989586621680955065 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955060Sym1 a6989586621680955065) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955049Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Semigroup.Max instance forall a b (a6989586621680955054 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955049Sym1 a6989586621680955054) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955034Sym0 instance forall a b (a6989586621680955043 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955034Sym1 a6989586621680955043) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955019Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Semigroup.Max instance forall a b (a6989586621680955024 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680955019Sym1 a6989586621680955024) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955028Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Semigroup.Max instance forall k1 k2 k3 (_z_69895866216809544276989586621680955026 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955028Sym1 _z_69895866216809544276989586621680955026) instance forall k1 k2 k3 (_z_69895866216809544276989586621680955026 :: k1) (a_69895866216809544336989586621680955027 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680955028Sym2 _z_69895866216809544276989586621680955026 a_69895866216809544336989586621680955027) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955008Sym0 instance forall a b (a6989586621680955013 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Fmap_6989586621680955008Sym1 a6989586621680955013) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680954994Sym0 instance Data.Singletons.Prelude.Enum.PEnum (Data.Semigroup.Max a) instance forall a (a6989586621680955000 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680954994Sym1 a6989586621680955000) instance forall a (a6989586621680955000 :: Data.Semigroup.Max a) (a6989586621680955001 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680954994Sym2 a6989586621680955000 a6989586621680955001) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680954982Sym0 instance forall a (a6989586621680954987 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680954982Sym1 a6989586621680954987) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FromEnum_6989586621680954974Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ToEnum_6989586621680954965Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pred_6989586621680954958Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Succ_6989586621680954951Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680954938Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Semigroup.Max instance forall a b c (a6989586621680954944 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680954938Sym1 a6989586621680954944) instance forall a b c (a6989586621680954944 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680954945 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680954938Sym2 a6989586621680954944 a6989586621680954945) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954926Sym0 instance forall a b (a6989586621680954931 :: Data.Semigroup.Max (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954926Sym1 a6989586621680954931) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954916Sym0 instance forall a b (a6989586621680954921 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954916Sym1 a6989586621680954921) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954906Sym0 instance forall a b (a6989586621680954911 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954906Sym1 a6989586621680954911) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pure_6989586621680954896Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Traverse_6989586621680954886Sym0 instance Data.Singletons.Prelude.Traversable.PTraversable Data.Semigroup.Min instance forall a (f :: * -> *) b (a6989586621680954891 :: a Data.Singletons.Internal.~> f b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Traverse_6989586621680954886Sym1 a6989586621680954891) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Foldr_6989586621680954872Sym0 instance Data.Singletons.Prelude.Foldable.PFoldable Data.Semigroup.Min instance forall a b (a6989586621680954878 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680954872Sym1 a6989586621680954878) instance forall a b (a6989586621680954878 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621680954879 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Foldr_6989586621680954872Sym2 a6989586621680954878 a6989586621680954879) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680954860Sym0 instance forall a m (a6989586621680954865 :: a Data.Singletons.Internal.~> m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.FoldMap_6989586621680954860Sym1 a6989586621680954865) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FromInteger_6989586621680954850Sym0 instance Data.Singletons.Prelude.Num.PNum (Data.Semigroup.Min a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Signum_6989586621680954843Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Abs_6989586621680954836Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Negate_6989586621680954829Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954819Sym0 instance forall a (a6989586621680954824 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954819Sym1 a6989586621680954824) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954808Sym0 instance forall a (a6989586621680954813 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954808Sym1 a6989586621680954813) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954797Sym0 instance forall a (a6989586621680954802 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954797Sym1 a6989586621680954802) instance Data.Singletons.Prelude.Monoid.PMonoid (Data.Semigroup.Min a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954783Sym0 instance Data.Singletons.Prelude.Semigroup.Internal.PSemigroup (Data.Semigroup.Min a) instance forall a (a6989586621680954788 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954783Sym1 a6989586621680954788) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954772Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Semigroup.Min instance forall a b (a6989586621680954777 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954772Sym1 a6989586621680954777) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954757Sym0 instance forall a b (a6989586621680954766 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954757Sym1 a6989586621680954766) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954742Sym0 instance Data.Singletons.Prelude.Monad.Internal.PFunctor Data.Semigroup.Min instance forall a b (a6989586621680954747 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954742Sym1 a6989586621680954747) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Lambda_6989586621680954751Sym0 instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Semigroup.Min instance forall k1 k2 k3 (_z_69895866216809543966989586621680954749 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680954751Sym1 _z_69895866216809543966989586621680954749) instance forall k1 k2 k3 (_z_69895866216809543966989586621680954749 :: k1) (a_69895866216809544026989586621680954750 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Lambda_6989586621680954751Sym2 _z_69895866216809543966989586621680954749 a_69895866216809544026989586621680954750) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Fmap_6989586621680954731Sym0 instance forall a b (a6989586621680954736 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.Fmap_6989586621680954731Sym1 a6989586621680954736) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680954717Sym0 instance Data.Singletons.Prelude.Enum.PEnum (Data.Semigroup.Min a) instance forall a (a6989586621680954723 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680954717Sym1 a6989586621680954723) instance forall a (a6989586621680954723 :: Data.Semigroup.Min a) (a6989586621680954724 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromThenTo_6989586621680954717Sym2 a6989586621680954723 a6989586621680954724) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680954705Sym0 instance forall a (a6989586621680954710 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.EnumFromTo_6989586621680954705Sym1 a6989586621680954710) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.FromEnum_6989586621680954697Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ToEnum_6989586621680954688Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pred_6989586621680954681Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Succ_6989586621680954674Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680954661Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Semigroup.Min instance forall a b c (a6989586621680954667 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680954661Sym1 a6989586621680954667) instance forall a b c (a6989586621680954667 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621680954668 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.LiftA2_6989586621680954661Sym2 a6989586621680954667 a6989586621680954668) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954649Sym0 instance forall a b (a6989586621680954654 :: Data.Semigroup.Min (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954649Sym1 a6989586621680954654) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954639Sym0 instance forall a b (a6989586621680954644 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954639Sym1 a6989586621680954644) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954629Sym0 instance forall a b (a6989586621680954634 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.TFHelper_6989586621680954629Sym1 a6989586621680954634) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.Pure_6989586621680954619Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonadPlus Data.Semigroup.Option instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Semigroup.Min instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Prelude.Enum.SEnum (Data.Semigroup.Min a) instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Semigroup.Min instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Semigroup.Min a) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Enum.SBounded a) => Data.Singletons.Prelude.Monoid.SMonoid (Data.Semigroup.Min a) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Prelude.Num.SNum (Data.Semigroup.Min a) instance Data.Singletons.Prelude.Foldable.SFoldable Data.Semigroup.Min instance Data.Singletons.Prelude.Traversable.STraversable Data.Semigroup.Min instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Semigroup.Max instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Prelude.Enum.SEnum (Data.Semigroup.Max a) instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Semigroup.Max instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Semigroup.Max a) instance (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Prelude.Enum.SBounded a) => Data.Singletons.Prelude.Monoid.SMonoid (Data.Semigroup.Max a) instance Data.Singletons.Prelude.Num.SNum a => Data.Singletons.Prelude.Num.SNum (Data.Semigroup.Max a) instance Data.Singletons.Prelude.Foldable.SFoldable Data.Semigroup.Max instance Data.Singletons.Prelude.Traversable.STraversable Data.Semigroup.Max instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Prelude.Eq.SEq (Data.Semigroup.Arg a b) instance (Data.Singletons.Prelude.Show.SShow a, Data.Singletons.Prelude.Show.SShow b) => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.Arg a b) instance Data.Singletons.Prelude.Traversable.STraversable (Data.Semigroup.Arg a) instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Semigroup.First instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Prelude.Enum.SEnum (Data.Semigroup.First a) instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Semigroup.First instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Semigroup.First a) instance Data.Singletons.Prelude.Foldable.SFoldable Data.Semigroup.First instance Data.Singletons.Prelude.Traversable.STraversable Data.Semigroup.First instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Semigroup.Last instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Prelude.Enum.SEnum (Data.Semigroup.Last a) instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Semigroup.Last instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Semigroup.Last a) instance Data.Singletons.Prelude.Foldable.SFoldable Data.Semigroup.Last instance Data.Singletons.Prelude.Traversable.STraversable Data.Semigroup.Last instance Data.Singletons.Prelude.Monoid.SMonoid m => Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Semigroup.WrappedMonoid m) instance Data.Singletons.Prelude.Monoid.SMonoid m => Data.Singletons.Prelude.Monoid.SMonoid (Data.Semigroup.WrappedMonoid m) instance Data.Singletons.Prelude.Enum.SEnum a => Data.Singletons.Prelude.Enum.SEnum (Data.Semigroup.WrappedMonoid a) instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Semigroup.Option instance Data.Singletons.Prelude.Monad.Internal.SFunctor Data.Semigroup.Option instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Semigroup.Option instance Data.Singletons.Prelude.Monad.Internal.SMonadPlus Data.Semigroup.Option instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup a => Data.Singletons.Prelude.Semigroup.Internal.SSemigroup (Data.Semigroup.Option a) instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup a => Data.Singletons.Prelude.Monoid.SMonoid (Data.Semigroup.Option a) instance Data.Singletons.Prelude.Foldable.SFoldable Data.Semigroup.Option instance Data.Singletons.Prelude.Traversable.STraversable Data.Semigroup.Option instance forall a b (z :: Data.Semigroup.Arg a b). (Data.Singletons.ShowSing.ShowSing a, Data.Singletons.ShowSing.ShowSing b) => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.SArg z) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680939004Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.WrappedMonoid m) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680939004Sym1 a6989586621680939012) instance forall m (a6989586621680939012 :: GHC.Types.Nat) (a6989586621680939013 :: Data.Semigroup.WrappedMonoid m). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680939004Sym2 a6989586621680939012 a6989586621680939013) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938975Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.Last a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938975Sym1 a6989586621680938983) instance forall a (a6989586621680938983 :: GHC.Types.Nat) (a6989586621680938984 :: Data.Semigroup.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938975Sym2 a6989586621680938983 a6989586621680938984) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938946Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.First a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938946Sym1 a6989586621680938954) instance forall a (a6989586621680938954 :: GHC.Types.Nat) (a6989586621680938955 :: Data.Semigroup.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938946Sym2 a6989586621680938954 a6989586621680938955) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938917Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.Max a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938917Sym1 a6989586621680938925) instance forall a (a6989586621680938925 :: GHC.Types.Nat) (a6989586621680938926 :: Data.Semigroup.Max a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938917Sym2 a6989586621680938925 a6989586621680938926) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938888Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.Min a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938888Sym1 a6989586621680938896) instance forall a (a6989586621680938896 :: GHC.Types.Nat) (a6989586621680938897 :: Data.Semigroup.Min a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938888Sym2 a6989586621680938896 a6989586621680938897) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938859Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.Internal.Product a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938859Sym1 a6989586621680938867) instance forall a (a6989586621680938867 :: GHC.Types.Nat) (a6989586621680938868 :: Data.Semigroup.Internal.Product a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938859Sym2 a6989586621680938867 a6989586621680938868) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938830Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.Internal.Sum a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938830Sym1 a6989586621680938838) instance forall a (a6989586621680938838 :: GHC.Types.Nat) (a6989586621680938839 :: Data.Semigroup.Internal.Sum a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938830Sym2 a6989586621680938838 a6989586621680938839) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938801Sym0 instance Data.Singletons.Prelude.Show.PShow Data.Semigroup.Internal.Any instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938801Sym1 a6989586621680938809) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938801Sym2 a6989586621680938809 a6989586621680938810) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938775Sym0 instance Data.Singletons.Prelude.Show.PShow Data.Semigroup.Internal.All instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938775Sym1 a6989586621680938783) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938775Sym2 a6989586621680938783 a6989586621680938784) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938749Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.Internal.Dual a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938749Sym1 a6989586621680938757) instance forall a (a6989586621680938757 :: GHC.Types.Nat) (a6989586621680938758 :: Data.Semigroup.Internal.Dual a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938749Sym2 a6989586621680938757 a6989586621680938758) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938720Sym0 instance Data.Singletons.Prelude.Show.PShow (Data.Semigroup.Option a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938720Sym1 a6989586621680938728) instance forall a (a6989586621680938728 :: GHC.Types.Nat) (a6989586621680938729 :: Data.Semigroup.Option a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ShowsPrec_6989586621680938720Sym2 a6989586621680938728 a6989586621680938729) instance Data.Singletons.Prelude.Show.SShow (GHC.Maybe.Maybe a) => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.Option a) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.Internal.Dual a) instance Data.Singletons.Prelude.Show.SShow GHC.Types.Bool => Data.Singletons.Prelude.Show.SShow Data.Semigroup.Internal.All instance Data.Singletons.Prelude.Show.SShow GHC.Types.Bool => Data.Singletons.Prelude.Show.SShow Data.Semigroup.Internal.Any instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.Internal.Sum a) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.Internal.Product a) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.Min a) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.Max a) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.First a) instance Data.Singletons.Prelude.Show.SShow a => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.Last a) instance Data.Singletons.Prelude.Show.SShow m => Data.Singletons.Prelude.Show.SShow (Data.Semigroup.WrappedMonoid m) instance forall a (z :: Data.Semigroup.Option a). Data.Singletons.ShowSing.ShowSing (GHC.Maybe.Maybe a) => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SOption z) instance forall a (z :: Data.Semigroup.Internal.Dual a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SDual z) instance Data.Singletons.ShowSing.ShowSing GHC.Types.Bool => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SAll z) instance Data.Singletons.ShowSing.ShowSing GHC.Types.Bool => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SAny z) instance forall a (z :: Data.Semigroup.Internal.Sum a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SSum z) instance forall a (z :: Data.Semigroup.Internal.Product a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SProduct z) instance forall a (z :: Data.Semigroup.Min a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SMin z) instance forall a (z :: Data.Semigroup.Max a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SMax z) instance forall a (z :: Data.Semigroup.First a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SFirst z) instance forall a (z :: Data.Semigroup.Last a). Data.Singletons.ShowSing.ShowSing a => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SLast z) instance forall m (z :: Data.Semigroup.WrappedMonoid m). Data.Singletons.ShowSing.ShowSing m => GHC.Show.Show (Data.Singletons.Prelude.Semigroup.Internal.SWrappedMonoid z) instance (Data.Singletons.Internal.SingKind a, Data.Singletons.Internal.SingKind b) => Data.Singletons.Internal.SingKind (Data.Semigroup.Arg a b) instance forall a (n1 :: a) b (n2 :: b). (Data.Singletons.Internal.SingI n1, Data.Singletons.Internal.SingI n2) => Data.Singletons.Internal.SingI ('Data.Semigroup.Arg n1 n2) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.Semigroup.ArgSym0 instance forall a (d :: a) b. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Semigroup.ArgSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Semigroup.ArgSym0 instance forall a b (a6989586621680936903 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Semigroup.ArgSym1 a6989586621680936903) -- | Defines functions and datatypes relating to the singleton for '[]', -- including a singletons version 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.Singletons.Prelude.List -- | The singleton kind-indexed type family. type family Sing data SList z_a1ezK [SNil] :: forall (a_11 :: Type). () => SList ('[] :: [a_11 :: Type]) [SCons] :: forall (a_11 :: Type) (n_a1ezy :: a_11) (n_a1ezz :: [a_11]). () => Sing n_a1ezy -> Sing n_a1ezz -> SList ('(:) n_a1ezy n_a1ezz :: [a_11 :: Type]) infixr 5 `SCons` type family (++) a_a2cqj a_a2cqk infixr 5 ++ (%++) :: forall a_a2cna (t_a2crv :: [a_a2cna]) (t_a2crw :: [a_a2cna]). Sing t_a2crv -> Sing t_a2crw -> Sing (Apply (Apply (++@#@$) t_a2crv) t_a2crw :: [a_a2cna]) infixr 5 %++ type family Head a_a41NN sHead :: forall a_a40qQ (t_a41Tj :: [a_a40qQ]). Sing t_a41Tj -> Sing (Apply HeadSym0 t_a41Tj :: a_a40qQ) type family Last a_a41NH sLast :: forall a_a40qP (t_a41Th :: [a_a40qP]). Sing t_a41Th -> Sing (Apply LastSym0 t_a41Th :: a_a40qP) type family Tail a_a41ND sTail :: forall a_a40qO (t_a41Tf :: [a_a40qO]). Sing t_a41Tf -> Sing (Apply TailSym0 t_a41Tf :: [a_a40qO]) type family Init a_a41Nr sInit :: forall a_a40qN (t_a41Td :: [a_a40qN]). Sing t_a41Td -> Sing (Apply InitSym0 t_a41Td :: [a_a40qN]) type family Null (arg_a6dIs :: t_a6dyx a_a6dyM) :: Bool sNull :: forall a_a6dyM (t_a6e4Y :: t_a6dyx a_a6dyM). SFoldable t_a6dyx => Sing t_a6e4Y -> Sing (Apply NullSym0 t_a6e4Y :: Bool) type family Length (arg_a6dIv :: t_a6dyx a_a6dyN) :: Nat sLength :: forall a_a6dyN (t_a6e50 :: t_a6dyx a_a6dyN). SFoldable t_a6dyx => Sing t_a6e50 -> Sing (Apply LengthSym0 t_a6e50 :: Nat) type family Map a_a2cqs a_a2cqt sMap :: forall a_a2cnb b_a2cnc (t_a2crz :: (~>) a_a2cnb b_a2cnc) (t_a2crA :: [a_a2cnb]). Sing t_a2crz -> Sing t_a2crA -> Sing (Apply (Apply MapSym0 t_a2crz) t_a2crA :: [b_a2cnc]) type family Reverse a_a41Nc sReverse :: forall a_a40qL (t_a41T9 :: [a_a40qL]). Sing t_a41T9 -> Sing (Apply ReverseSym0 t_a41T9 :: [a_a40qL]) type family Intersperse a_a41N4 a_a41N5 sIntersperse :: forall a_a40qK (t_a41T5 :: a_a40qK) (t_a41T6 :: [a_a40qK]). Sing t_a41T5 -> Sing t_a41T6 -> Sing (Apply (Apply IntersperseSym0 t_a41T5) t_a41T6 :: [a_a40qK]) type family Intercalate a_a41MX a_a41MY sIntercalate :: forall a_a40qJ (t_a41T1 :: [a_a40qJ]) (t_a41T2 :: [[a_a40qJ]]). Sing t_a41T1 -> Sing t_a41T2 -> Sing (Apply (Apply IntercalateSym0 t_a41T1) t_a41T2 :: [a_a40qJ]) type family Transpose a_a41vf sTranspose :: forall a_a40oU (t_a41Oj :: [[a_a40oU]]). Sing t_a41Oj -> Sing (Apply TransposeSym0 t_a41Oj :: [[a_a40oU]]) type family Subsequences a_a41MT sSubsequences :: forall a_a40qI (t_a41SZ :: [a_a40qI]). Sing t_a41SZ -> Sing (Apply SubsequencesSym0 t_a41SZ :: [[a_a40qI]]) type family Permutations a_a41LH sPermutations :: forall a_a40qF (t_a41SR :: [a_a40qF]). Sing t_a41SR -> Sing (Apply PermutationsSym0 t_a41SR :: [[a_a40qF]]) type family Foldl (arg_a6dI1 :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (arg_a6dI2 :: b_a6dyF) (arg_a6dI3 :: t_a6dyx a_a6dyG) :: b_a6dyF sFoldl :: forall b_a6dyF a_a6dyG (t_a6e4C :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (t_a6e4D :: b_a6dyF) (t_a6e4E :: t_a6dyx a_a6dyG). SFoldable t_a6dyx => Sing t_a6e4C -> Sing t_a6e4D -> Sing t_a6e4E -> Sing (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) type family Foldl' (arg_a6dI8 :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (arg_a6dI9 :: b_a6dyH) (arg_a6dIa :: t_a6dyx a_a6dyI) :: b_a6dyH sFoldl' :: forall b_a6dyH a_a6dyI (t_a6e4I :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (t_a6e4J :: b_a6dyH) (t_a6e4K :: t_a6dyx a_a6dyI). SFoldable t_a6dyx => Sing t_a6e4I -> Sing t_a6e4J -> Sing t_a6e4K -> Sing (Apply (Apply (Apply Foldl'Sym0 t_a6e4I) t_a6e4J) t_a6e4K :: b_a6dyH) type family Foldl1 (arg_a6dIk :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (arg_a6dIl :: t_a6dyx a_a6dyK) :: a_a6dyK sFoldl1 :: forall a_a6dyK (t_a6e4S :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (t_a6e4T :: t_a6dyx a_a6dyK). SFoldable t_a6dyx => Sing t_a6e4S -> Sing t_a6e4T -> Sing (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) type family Foldl1' a_a41L7 a_a41L8 sFoldl1' :: forall a_a40qB (t_a41SD :: (~>) a_a40qB ((~>) a_a40qB a_a40qB)) (t_a41SE :: [a_a40qB]). Sing t_a41SD -> Sing t_a41SE -> Sing (Apply (Apply Foldl1'Sym0 t_a41SD) t_a41SE :: a_a40qB) type family Foldr (arg_a6dHN :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (arg_a6dHO :: b_a6dyC) (arg_a6dHP :: t_a6dyx a_a6dyB) :: b_a6dyC sFoldr :: forall a_a6dyB b_a6dyC (t_a6e4q :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (t_a6e4r :: b_a6dyC) (t_a6e4s :: t_a6dyx a_a6dyB). SFoldable t_a6dyx => Sing t_a6e4q -> Sing t_a6e4r -> Sing t_a6e4s -> Sing (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) type family Foldr1 (arg_a6dIf :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (arg_a6dIg :: t_a6dyx a_a6dyJ) :: a_a6dyJ sFoldr1 :: forall a_a6dyJ (t_a6e4O :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (t_a6e4P :: t_a6dyx a_a6dyJ). SFoldable t_a6dyx => Sing t_a6e4O -> Sing t_a6e4P -> Sing (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) type family Concat a_a6dFU sConcat :: forall t_a6dxk a_a6dxl (t_a6e2X :: t_a6dxk [a_a6dxl]). SFoldable t_a6dxk => Sing t_a6e2X -> Sing (Apply ConcatSym0 t_a6e2X :: [a_a6dxl]) type family ConcatMap a_a6dFI a_a6dFJ sConcatMap :: forall a_a6dxi b_a6dxj t_a6dxh (t_a6e2T :: (~>) a_a6dxi [b_a6dxj]) (t_a6e2U :: t_a6dxh a_a6dxi). SFoldable t_a6dxh => Sing t_a6e2T -> Sing t_a6e2U -> Sing (Apply (Apply ConcatMapSym0 t_a6e2T) t_a6e2U :: [b_a6dxj]) type family And a_a6dFE sAnd :: forall t_a6dxg (t_a6e2R :: t_a6dxg Bool). SFoldable t_a6dxg => Sing t_a6e2R -> Sing (Apply AndSym0 t_a6e2R :: Bool) type family Or a_a6dFy sOr :: forall t_a6dxf (t_a6e2P :: t_a6dxf Bool). SFoldable t_a6dxf => Sing t_a6e2P -> Sing (Apply OrSym0 t_a6e2P :: Bool) type family Any a_a6dFp a_a6dFq sAny :: forall a_a6dxe t_a6dxd (t_a6e2L :: (~>) a_a6dxe Bool) (t_a6e2M :: t_a6dxd a_a6dxe). SFoldable t_a6dxd => Sing t_a6e2L -> Sing t_a6e2M -> Sing (Apply (Apply AnySym0 t_a6e2L) t_a6e2M :: Bool) type family All a_a6dFg a_a6dFh sAll :: forall a_a6dxc t_a6dxb (t_a6e2H :: (~>) a_a6dxc Bool) (t_a6e2I :: t_a6dxb a_a6dxc). SFoldable t_a6dxb => Sing t_a6e2H -> Sing t_a6e2I -> Sing (Apply (Apply AllSym0 t_a6e2H) t_a6e2I :: Bool) type family Sum (arg_a6dIJ :: t_a6dyx a_a6dyR) :: a_a6dyR sSum :: forall a_a6dyR (t_a6e5a :: t_a6dyx a_a6dyR). (SFoldable t_a6dyx, SNum a_a6dyR) => Sing t_a6e5a -> Sing (Apply SumSym0 t_a6e5a :: a_a6dyR) type family Product (arg_a6dIM :: t_a6dyx a_a6dyS) :: a_a6dyS sProduct :: forall a_a6dyS (t_a6e5c :: t_a6dyx a_a6dyS). (SFoldable t_a6dyx, SNum a_a6dyS) => Sing t_a6e5c -> Sing (Apply ProductSym0 t_a6e5c :: a_a6dyS) type family Maximum (arg_a6dID :: t_a6dyx a_a6dyP) :: a_a6dyP sMaximum :: forall a_a6dyP (t_a6e56 :: t_a6dyx a_a6dyP). (SFoldable t_a6dyx, SOrd a_a6dyP) => Sing t_a6e56 -> Sing (Apply MaximumSym0 t_a6e56 :: a_a6dyP) type family Minimum (arg_a6dIG :: t_a6dyx a_a6dyQ) :: a_a6dyQ sMinimum :: forall a_a6dyQ (t_a6e58 :: t_a6dyx a_a6dyQ). (SFoldable t_a6dyx, SOrd a_a6dyQ) => Sing t_a6e58 -> Sing (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) type family Scanl a_a41K1 a_a41K2 a_a41K3 sScanl :: forall b_a40qt a_a40qu (t_a41Sb :: (~>) b_a40qt ((~>) a_a40qu b_a40qt)) (t_a41Sc :: b_a40qt) (t_a41Sd :: [a_a40qu]). Sing t_a41Sb -> Sing t_a41Sc -> Sing t_a41Sd -> Sing (Apply (Apply (Apply ScanlSym0 t_a41Sb) t_a41Sc) t_a41Sd :: [b_a40qt]) type family Scanl1 a_a41JT a_a41JU sScanl1 :: forall a_a40qs (t_a41S7 :: (~>) a_a40qs ((~>) a_a40qs a_a40qs)) (t_a41S8 :: [a_a40qs]). Sing t_a41S7 -> Sing t_a41S8 -> Sing (Apply (Apply Scanl1Sym0 t_a41S7) t_a41S8 :: [a_a40qs]) type family Scanr a_a41JA a_a41JB a_a41JC sScanr :: forall a_a40qq b_a40qr (t_a41S1 :: (~>) a_a40qq ((~>) b_a40qr b_a40qr)) (t_a41S2 :: b_a40qr) (t_a41S3 :: [a_a40qq]). Sing t_a41S1 -> Sing t_a41S2 -> Sing t_a41S3 -> Sing (Apply (Apply (Apply ScanrSym0 t_a41S1) t_a41S2) t_a41S3 :: [b_a40qr]) type family Scanr1 a_a41Jh a_a41Ji sScanr1 :: forall a_a40qp (t_a41RX :: (~>) a_a40qp ((~>) a_a40qp a_a40qp)) (t_a41RY :: [a_a40qp]). Sing t_a41RX -> Sing t_a41RY -> Sing (Apply (Apply Scanr1Sym0 t_a41RX) t_a41RY :: [a_a40qp]) type family MapAccumL a_a7BHk a_a7BHl a_a7BHm sMapAccumL :: forall t_a7Bz9 a_a7Bza b_a7Bzb c_a7Bzc (t_a7BPz :: (~>) a_a7Bza ((~>) b_a7Bzb (a_a7Bza, c_a7Bzc))) (t_a7BPA :: a_a7Bza) (t_a7BPB :: t_a7Bz9 b_a7Bzb). STraversable t_a7Bz9 => Sing t_a7BPz -> Sing t_a7BPA -> Sing t_a7BPB -> Sing (Apply (Apply (Apply MapAccumLSym0 t_a7BPz) t_a7BPA) t_a7BPB :: (a_a7Bza, t_a7Bz9 c_a7Bzc)) type family MapAccumR a_a7BHa a_a7BHb a_a7BHc sMapAccumR :: forall a_a7Bz6 b_a7Bz7 c_a7Bz8 t_a7Bz5 (t_a7BPt :: (~>) a_a7Bz6 ((~>) b_a7Bz7 (a_a7Bz6, c_a7Bz8))) (t_a7BPu :: a_a7Bz6) (t_a7BPv :: t_a7Bz5 b_a7Bz7). STraversable t_a7Bz5 => Sing t_a7BPt -> Sing t_a7BPu -> Sing t_a7BPv -> Sing (Apply (Apply (Apply MapAccumRSym0 t_a7BPt) t_a7BPu) t_a7BPv :: (a_a7Bz6, t_a7Bz5 c_a7Bz8)) type family Replicate a_a41vm a_a41vn sReplicate :: forall a_a40oV (t_a41Ol :: Nat) (t_a41Om :: a_a40oV). Sing t_a41Ol -> Sing t_a41Om -> Sing (Apply (Apply ReplicateSym0 t_a41Ol) t_a41Om :: [a_a40oV]) type family Unfoldr a_a41Hx a_a41Hy sUnfoldr :: forall b_a40qh a_a40qi (t_a41RH :: (~>) b_a40qh (Maybe (a_a40qi, b_a40qh))) (t_a41RI :: b_a40qh). Sing t_a41RH -> Sing t_a41RI -> Sing (Apply (Apply UnfoldrSym0 t_a41RH) t_a41RI :: [a_a40qi]) type family Take a_a41xR a_a41xS sTake :: forall a_a40pb (t_a41P7 :: Nat) (t_a41P8 :: [a_a40pb]). Sing t_a41P7 -> Sing t_a41P8 -> Sing (Apply (Apply TakeSym0 t_a41P7) t_a41P8 :: [a_a40pb]) type family Drop a_a41xE a_a41xF sDrop :: forall a_a40pa (t_a41P3 :: Nat) (t_a41P4 :: [a_a40pa]). Sing t_a41P3 -> Sing t_a41P4 -> Sing (Apply (Apply DropSym0 t_a41P3) t_a41P4 :: [a_a40pa]) type family SplitAt a_a41xx a_a41xy sSplitAt :: forall a_a40p9 (t_a41OZ :: Nat) (t_a41P0 :: [a_a40p9]). Sing t_a41OZ -> Sing t_a41P0 -> Sing (Apply (Apply SplitAtSym0 t_a41OZ) t_a41P0 :: ([a_a40p9], [a_a40p9])) type family TakeWhile a_a41zK a_a41zL sTakeWhile :: forall a_a40pg (t_a41Pr :: (~>) a_a40pg Bool) (t_a41Ps :: [a_a40pg]). Sing t_a41Pr -> Sing t_a41Ps -> Sing (Apply (Apply TakeWhileSym0 t_a41Pr) t_a41Ps :: [a_a40pg]) type family DropWhile a_a41zv a_a41zw sDropWhile :: forall a_a40pf (t_a41Pn :: (~>) a_a40pf Bool) (t_a41Po :: [a_a40pf]). Sing t_a41Pn -> Sing t_a41Po -> Sing (Apply (Apply DropWhileSym0 t_a41Pn) t_a41Po :: [a_a40pf]) type family DropWhileEnd a_a41ze a_a41zf sDropWhileEnd :: forall a_a40pe (t_a41Pj :: (~>) a_a40pe Bool) (t_a41Pk :: [a_a40pe]). Sing t_a41Pj -> Sing t_a41Pk -> Sing (Apply (Apply DropWhileEndSym0 t_a41Pj) t_a41Pk :: [a_a40pe]) type family Span a_a41yD a_a41yE sSpan :: forall a_a40pd (t_a41Pf :: (~>) a_a40pd Bool) (t_a41Pg :: [a_a40pd]). Sing t_a41Pf -> Sing t_a41Pg -> Sing (Apply (Apply SpanSym0 t_a41Pf) t_a41Pg :: ([a_a40pd], [a_a40pd])) type family Break a_a41y4 a_a41y5 sBreak :: forall a_a40pc (t_a41Pb :: (~>) a_a40pc Bool) (t_a41Pc :: [a_a40pc]). Sing t_a41Pb -> Sing t_a41Pc -> Sing (Apply (Apply BreakSym0 t_a41Pb) t_a41Pc :: ([a_a40pc], [a_a40pc])) type family StripPrefix a_a4xmn a_a4xmo type family Group a_a41xt sGroup :: forall a_a40p8 (t_a41OX :: [a_a40p8]). SEq a_a40p8 => Sing t_a41OX -> Sing (Apply GroupSym0 t_a41OX :: [[a_a40p8]]) type family Inits a_a41Ho sInits :: forall a_a40qg (t_a41RF :: [a_a40qg]). Sing t_a41RF -> Sing (Apply InitsSym0 t_a41RF :: [[a_a40qg]]) type family Tails a_a41Hg sTails :: forall a_a40qf (t_a41RD :: [a_a40qf]). Sing t_a41RD -> Sing (Apply TailsSym0 t_a41RD :: [[a_a40qf]]) type family IsPrefixOf a_a41H7 a_a41H8 sIsPrefixOf :: forall a_a40qe (t_a41Rz :: [a_a40qe]) (t_a41RA :: [a_a40qe]). SEq a_a40qe => Sing t_a41Rz -> Sing t_a41RA -> Sing (Apply (Apply IsPrefixOfSym0 t_a41Rz) t_a41RA :: Bool) type family IsSuffixOf a_a41H0 a_a41H1 sIsSuffixOf :: forall a_a40qd (t_a41Rv :: [a_a40qd]) (t_a41Rw :: [a_a40qd]). SEq a_a40qd => Sing t_a41Rv -> Sing t_a41Rw -> Sing (Apply (Apply IsSuffixOfSym0 t_a41Rv) t_a41Rw :: Bool) type family IsInfixOf a_a41GT a_a41GU sIsInfixOf :: forall a_a40qc (t_a41Rr :: [a_a40qc]) (t_a41Rs :: [a_a40qc]). SEq a_a40qc => Sing t_a41Rr -> Sing t_a41Rs -> Sing (Apply (Apply IsInfixOfSym0 t_a41Rr) t_a41Rs :: Bool) type family Elem (arg_a6dIy :: a_a6dyO) (arg_a6dIz :: t_a6dyx a_a6dyO) :: Bool sElem :: forall a_a6dyO (t_a6e52 :: a_a6dyO) (t_a6e53 :: t_a6dyx a_a6dyO). (SFoldable t_a6dyx, SEq a_a6dyO) => Sing t_a6e52 -> Sing t_a6e53 -> Sing (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) type family NotElem a_a6dEt a_a6dEu sNotElem :: forall a_a6dx6 t_a6dx5 (t_a6e2v :: a_a6dx6) (t_a6e2w :: t_a6dx5 a_a6dx6). (SFoldable t_a6dx5, SEq a_a6dx6) => Sing t_a6e2v -> Sing t_a6e2w -> Sing (Apply (Apply NotElemSym0 t_a6e2v) t_a6e2w :: Bool) type family Lookup a_a41wn a_a41wo sLookup :: forall a_a40p1 b_a40p2 (t_a41OF :: a_a40p1) (t_a41OG :: [(a_a40p1, b_a40p2)]). SEq a_a40p1 => Sing t_a41OF -> Sing t_a41OG -> Sing (Apply (Apply LookupSym0 t_a41OF) t_a41OG :: Maybe b_a40p2) type family Find a_a6dEb a_a6dEc sFind :: forall a_a6dx4 t_a6dx3 (t_a6e2r :: (~>) a_a6dx4 Bool) (t_a6e2s :: t_a6dx3 a_a6dx4). SFoldable t_a6dx3 => Sing t_a6e2r -> Sing t_a6e2s -> Sing (Apply (Apply FindSym0 t_a6e2r) t_a6e2s :: Maybe a_a6dx4) type family Filter a_a41Bm a_a41Bn sFilter :: forall a_a40po (t_a41PZ :: (~>) a_a40po Bool) (t_a41Q0 :: [a_a40po]). Sing t_a41PZ -> Sing t_a41Q0 -> Sing (Apply (Apply FilterSym0 t_a41PZ) t_a41Q0 :: [a_a40po]) type family Partition a_a41wg a_a41wh sPartition :: forall a_a40p0 (t_a41OB :: (~>) a_a40p0 Bool) (t_a41OC :: [a_a40p0]). Sing t_a41OB -> Sing t_a41OC -> Sing (Apply (Apply PartitionSym0 t_a41OB) t_a41OC :: ([a_a40p0], [a_a40p0])) type family (!!) a_a41v2 a_a41v3 infixl 9 !! (%!!) :: forall a_a40oT (t_a41Of :: [a_a40oT]) (t_a41Og :: Nat). Sing t_a41Of -> Sing t_a41Og -> Sing (Apply (Apply (!!@#@$) t_a41Of) t_a41Og :: a_a40oT) infixl 9 %!! type family ElemIndex a_a41B6 a_a41B7 sElemIndex :: forall a_a40pm (t_a41PR :: a_a40pm) (t_a41PS :: [a_a40pm]). SEq a_a40pm => Sing t_a41PR -> Sing t_a41PS -> Sing (Apply (Apply ElemIndexSym0 t_a41PR) t_a41PS :: Maybe Nat) type family ElemIndices a_a41AX a_a41AY sElemIndices :: forall a_a40pl (t_a41PN :: a_a40pl) (t_a41PO :: [a_a40pl]). SEq a_a40pl => Sing t_a41PN -> Sing t_a41PO -> Sing (Apply (Apply ElemIndicesSym0 t_a41PN) t_a41PO :: [Nat]) type family FindIndex a_a41AO a_a41AP sFindIndex :: forall a_a40pk (t_a41PJ :: (~>) a_a40pk Bool) (t_a41PK :: [a_a40pk]). Sing t_a41PJ -> Sing t_a41PK -> Sing (Apply (Apply FindIndexSym0 t_a41PJ) t_a41PK :: Maybe Nat) type family FindIndices a_a41Ar a_a41As sFindIndices :: forall a_a40pj (t_a41PF :: (~>) a_a40pj Bool) (t_a41PG :: [a_a40pj]). Sing t_a41PF -> Sing t_a41PG -> Sing (Apply (Apply FindIndicesSym0 t_a41PF) t_a41PG :: [Nat]) type family Zip a_a41Gu a_a41Gv sZip :: forall a_a40q8 b_a40q9 (t_a41Rf :: [a_a40q8]) (t_a41Rg :: [b_a40q9]). Sing t_a41Rf -> Sing t_a41Rg -> Sing (Apply (Apply ZipSym0 t_a41Rf) t_a41Rg :: [(a_a40q8, b_a40q9)]) type family Zip3 a_a41Gh a_a41Gi a_a41Gj sZip3 :: forall a_a40q5 b_a40q6 c_a40q7 (t_a41R9 :: [a_a40q5]) (t_a41Ra :: [b_a40q6]) (t_a41Rb :: [c_a40q7]). Sing t_a41R9 -> Sing t_a41Ra -> Sing t_a41Rb -> Sing (Apply (Apply (Apply Zip3Sym0 t_a41R9) t_a41Ra) t_a41Rb :: [(a_a40q5, b_a40q6, c_a40q7)]) type family Zip4 a_a4xma a_a4xmb a_a4xmc a_a4xmd type family Zip5 a_a4xlM a_a4xlN a_a4xlO a_a4xlP a_a4xlQ type family Zip6 a_a4xlj a_a4xlk a_a4xll a_a4xlm a_a4xln a_a4xlo type family Zip7 a_a4xkL a_a4xkM a_a4xkN a_a4xkO a_a4xkP a_a4xkQ a_a4xkR type family ZipWith a_a41G5 a_a41G6 a_a41G7 sZipWith :: forall a_a40q2 b_a40q3 c_a40q4 (t_a41R3 :: (~>) a_a40q2 ((~>) b_a40q3 c_a40q4)) (t_a41R4 :: [a_a40q2]) (t_a41R5 :: [b_a40q3]). Sing t_a41R3 -> Sing t_a41R4 -> Sing t_a41R5 -> Sing (Apply (Apply (Apply ZipWithSym0 t_a41R3) t_a41R4) t_a41R5 :: [c_a40q4]) type family ZipWith3 a_a41FP a_a41FQ a_a41FR a_a41FS sZipWith3 :: forall a_a40pY b_a40pZ c_a40q0 d_a40q1 (t_a41QV :: (~>) a_a40pY ((~>) b_a40pZ ((~>) c_a40q0 d_a40q1))) (t_a41QW :: [a_a40pY]) (t_a41QX :: [b_a40pZ]) (t_a41QY :: [c_a40q0]). Sing t_a41QV -> Sing t_a41QW -> Sing t_a41QX -> Sing t_a41QY -> Sing (Apply (Apply (Apply (Apply ZipWith3Sym0 t_a41QV) t_a41QW) t_a41QX) t_a41QY :: [d_a40q1]) type family ZipWith4 a_a4xkd a_a4xke a_a4xkf a_a4xkg a_a4xkh type family ZipWith5 a_a4xjP a_a4xjQ a_a4xjR a_a4xjS a_a4xjT a_a4xjU type family ZipWith6 a_a4xjn a_a4xjo a_a4xjp a_a4xjq a_a4xjr a_a4xjs a_a4xjt type family ZipWith7 a_a4xiR a_a4xiS a_a4xiT a_a4xiU a_a4xiV a_a4xiW a_a4xiX a_a4xiY type family Unzip a_a41Fz sUnzip :: forall a_a40pW b_a40pX (t_a41QT :: [(a_a40pW, b_a40pX)]). Sing t_a41QT -> Sing (Apply UnzipSym0 t_a41QT :: ([a_a40pW], [b_a40pX])) type family Unzip3 a_a41Fh sUnzip3 :: forall a_a40pT b_a40pU c_a40pV (t_a41QR :: [(a_a40pT, b_a40pU, c_a40pV)]). Sing t_a41QR -> Sing (Apply Unzip3Sym0 t_a41QR :: ([a_a40pT], [b_a40pU], [c_a40pV])) type family Unzip4 a_a41EX sUnzip4 :: forall a_a40pP b_a40pQ c_a40pR d_a40pS (t_a41QP :: [(a_a40pP, b_a40pQ, c_a40pR, d_a40pS)]). Sing t_a41QP -> Sing (Apply Unzip4Sym0 t_a41QP :: ([a_a40pP], [b_a40pQ], [c_a40pR], [d_a40pS])) type family Unzip5 a_a41EB sUnzip5 :: forall a_a40pK b_a40pL c_a40pM d_a40pN e_a40pO (t_a41QN :: [(a_a40pK, b_a40pL, c_a40pM, d_a40pN, e_a40pO)]). Sing t_a41QN -> Sing (Apply Unzip5Sym0 t_a41QN :: ([a_a40pK], [b_a40pL], [c_a40pM], [d_a40pN], [e_a40pO])) type family Unzip6 a_a41Ed sUnzip6 :: forall a_a40pE b_a40pF c_a40pG d_a40pH e_a40pI f_a40pJ (t_a41QL :: [(a_a40pE, b_a40pF, c_a40pG, d_a40pH, e_a40pI, f_a40pJ)]). Sing t_a41QL -> Sing (Apply Unzip6Sym0 t_a41QL :: ([a_a40pE], [b_a40pF], [c_a40pG], [d_a40pH], [e_a40pI], [f_a40pJ])) type family Unzip7 a_a41DN sUnzip7 :: forall a_a40px b_a40py c_a40pz d_a40pA e_a40pB f_a40pC g_a40pD (t_a41QJ :: [(a_a40px, b_a40py, c_a40pz, d_a40pA, e_a40pB, f_a40pC, g_a40pD)]). Sing t_a41QJ -> Sing (Apply Unzip7Sym0 t_a41QJ :: ([a_a40px], [b_a40py], [c_a40pz], [d_a40pA], [e_a40pB], [f_a40pC], [g_a40pD])) type family Unlines a_a41DI sUnlines :: forall (t_a41QH :: [Symbol]). Sing t_a41QH -> Sing (Apply UnlinesSym0 t_a41QH :: Symbol) type family Unwords a_a41Dy sUnwords :: forall (t_a41QF :: [Symbol]). Sing t_a41QF -> Sing (Apply UnwordsSym0 t_a41QF :: Symbol) type family Nub a_a41uM sNub :: forall a_a40oS (t_a41Od :: [a_a40oS]). SEq a_a40oS => Sing t_a41Od -> Sing (Apply NubSym0 t_a41Od :: [a_a40oS]) type family Delete a_a41Dr a_a41Ds sDelete :: forall a_a40pw (t_a41QB :: a_a40pw) (t_a41QC :: [a_a40pw]). SEq a_a40pw => Sing t_a41QB -> Sing t_a41QC -> Sing (Apply (Apply DeleteSym0 t_a41QB) t_a41QC :: [a_a40pw]) type family (\\) a_a41Dg a_a41Dh infix 5 \\ (%\\) :: forall a_a40pv (t_a41Qx :: [a_a40pv]) (t_a41Qy :: [a_a40pv]). SEq a_a40pv => Sing t_a41Qx -> Sing t_a41Qy -> Sing (Apply (Apply (\\@#@$) t_a41Qx) t_a41Qy :: [a_a40pv]) infix 5 %\\ type family Union a_a41u1 a_a41u2 sUnion :: forall a_a40oO (t_a41NT :: [a_a40oO]) (t_a41NU :: [a_a40oO]). SEq a_a40oO => Sing t_a41NT -> Sing t_a41NU -> Sing (Apply (Apply UnionSym0 t_a41NT) t_a41NU :: [a_a40oO]) type family Intersect a_a41Ak a_a41Al sIntersect :: forall a_a40pi (t_a41PB :: [a_a40pi]) (t_a41PC :: [a_a40pi]). SEq a_a40pi => Sing t_a41PB -> Sing t_a41PC -> Sing (Apply (Apply IntersectSym0 t_a41PB) t_a41PC :: [a_a40pi]) type family Insert a_a41x8 a_a41x9 sInsert :: forall a_a40p5 (t_a41OP :: a_a40p5) (t_a41OQ :: [a_a40p5]). SOrd a_a40p5 => Sing t_a41OP -> Sing t_a41OQ -> Sing (Apply (Apply InsertSym0 t_a41OP) t_a41OQ :: [a_a40p5]) type family Sort a_a41x4 sSort :: forall a_a40p4 (t_a41ON :: [a_a40p4]). SOrd a_a40p4 => Sing t_a41ON -> Sing (Apply SortSym0 t_a41ON :: [a_a40p4]) type family NubBy a_a41ut a_a41uu sNubBy :: forall a_a40oR (t_a41O9 :: (~>) a_a40oR ((~>) a_a40oR Bool)) (t_a41Oa :: [a_a40oR]). Sing t_a41O9 -> Sing t_a41Oa -> Sing (Apply (Apply NubBySym0 t_a41O9) t_a41Oa :: [a_a40oR]) type family DeleteBy a_a41CW a_a41CX a_a41CY sDeleteBy :: forall a_a40pu (t_a41Qr :: (~>) a_a40pu ((~>) a_a40pu Bool)) (t_a41Qs :: a_a40pu) (t_a41Qt :: [a_a40pu]). Sing t_a41Qr -> Sing t_a41Qs -> Sing t_a41Qt -> Sing (Apply (Apply (Apply DeleteBySym0 t_a41Qr) t_a41Qs) t_a41Qt :: [a_a40pu]) type family DeleteFirstsBy a_a41CM a_a41CN a_a41CO sDeleteFirstsBy :: forall a_a40pt (t_a41Ql :: (~>) a_a40pt ((~>) a_a40pt Bool)) (t_a41Qm :: [a_a40pt]) (t_a41Qn :: [a_a40pt]). Sing t_a41Ql -> Sing t_a41Qm -> Sing t_a41Qn -> Sing (Apply (Apply (Apply DeleteFirstsBySym0 t_a41Ql) t_a41Qm) t_a41Qn :: [a_a40pt]) type family UnionBy a_a41u8 a_a41u9 a_a41ua sUnionBy :: forall a_a40oP (t_a41NX :: (~>) a_a40oP ((~>) a_a40oP Bool)) (t_a41NY :: [a_a40oP]) (t_a41NZ :: [a_a40oP]). Sing t_a41NX -> Sing t_a41NY -> Sing t_a41NZ -> Sing (Apply (Apply (Apply UnionBySym0 t_a41NX) t_a41NY) t_a41NZ :: [a_a40oP]) type family IntersectBy a_a41zX a_a41zY a_a41zZ sIntersectBy :: forall a_a40ph (t_a41Pv :: (~>) a_a40ph ((~>) a_a40ph Bool)) (t_a41Pw :: [a_a40ph]) (t_a41Px :: [a_a40ph]). Sing t_a41Pv -> Sing t_a41Pw -> Sing t_a41Px -> Sing (Apply (Apply (Apply IntersectBySym0 t_a41Pv) t_a41Pw) t_a41Px :: [a_a40ph]) type family GroupBy a_a41wC a_a41wD sGroupBy :: forall a_a40p3 (t_a41OJ :: (~>) a_a40p3 ((~>) a_a40p3 Bool)) (t_a41OK :: [a_a40p3]). Sing t_a41OJ -> Sing t_a41OK -> Sing (Apply (Apply GroupBySym0 t_a41OJ) t_a41OK :: [[a_a40p3]]) type family SortBy a_a41CB a_a41CC sSortBy :: forall a_a40ps (t_a41Qh :: (~>) a_a40ps ((~>) a_a40ps Ordering)) (t_a41Qi :: [a_a40ps]). Sing t_a41Qh -> Sing t_a41Qi -> Sing (Apply (Apply SortBySym0 t_a41Qh) t_a41Qi :: [a_a40ps]) type family InsertBy a_a41Cg a_a41Ch a_a41Ci sInsertBy :: forall a_a40pr (t_a41Qb :: (~>) a_a40pr ((~>) a_a40pr Ordering)) (t_a41Qc :: a_a40pr) (t_a41Qd :: [a_a40pr]). Sing t_a41Qb -> Sing t_a41Qc -> Sing t_a41Qd -> Sing (Apply (Apply (Apply InsertBySym0 t_a41Qb) t_a41Qc) t_a41Qd :: [a_a40pr]) type family MaximumBy a_a6dEW a_a6dEX sMaximumBy :: forall a_a6dxa t_a6dx9 (t_a6e2D :: (~>) a_a6dxa ((~>) a_a6dxa Ordering)) (t_a6e2E :: t_a6dx9 a_a6dxa). SFoldable t_a6dx9 => Sing t_a6e2D -> Sing t_a6e2E -> Sing (Apply (Apply MaximumBySym0 t_a6e2D) t_a6e2E :: a_a6dxa) type family MinimumBy a_a6dEC a_a6dED sMinimumBy :: forall a_a6dx8 t_a6dx7 (t_a6e2z :: (~>) a_a6dx8 ((~>) a_a6dx8 Ordering)) (t_a6e2A :: t_a6dx7 a_a6dx8). SFoldable t_a6dx7 => Sing t_a6e2z -> Sing t_a6e2A -> Sing (Apply (Apply MinimumBySym0 t_a6e2z) t_a6e2A :: a_a6dx8) type family GenericLength a_a41tT sGenericLength :: forall a_a40oN i_a40oM (t_a41NR :: [a_a40oN]). SNum i_a40oM => Sing t_a41NR -> Sing (Apply GenericLengthSym0 t_a41NR :: i_a40oM) type NilSym0 = '[] :: [a_11 :: Type] data (:@#@$) a6989586621679304138 infixr 5 :@#@$ data (:@#@$$) a6989586621679304138 a6989586621679304139 infixr 5 :@#@$$ type (:@#@$$$) (a6989586621679304138 :: a_11) (a6989586621679304139 :: [a_11]) = '(:) a6989586621679304138 a6989586621679304139 :: [a_11 :: Type] infixr 5 :@#@$$$ type (++@#@$$$) (a6989586621679534210 :: [a_a2cna]) (a6989586621679534211 :: [a_a2cna]) = (++) a6989586621679534210 a6989586621679534211 :: [a_a2cna] infixr 5 ++@#@$$$ data (++@#@$$) a6989586621679534210 a6989586621679534211 infixr 5 ++@#@$$ data (++@#@$) a6989586621679534210 infixr 5 ++@#@$ data HeadSym0 a6989586621679970037 type HeadSym1 (a6989586621679970037 :: [a_a40qQ]) = Head a6989586621679970037 :: a_a40qQ data LastSym0 a6989586621679970031 type LastSym1 (a6989586621679970031 :: [a_a40qP]) = Last a6989586621679970031 :: a_a40qP data TailSym0 a6989586621679970027 type TailSym1 (a6989586621679970027 :: [a_a40qO]) = Tail a6989586621679970027 :: [a_a40qO] data InitSym0 a6989586621679970015 type InitSym1 (a6989586621679970015 :: [a_a40qN]) = Init a6989586621679970015 :: [a_a40qN] data NullSym0 a6989586621680492490 type NullSym1 (a6989586621680492490 :: t_a6dyx a_a6dyM) = Null a6989586621680492490 :: Bool data LengthSym0 a6989586621680492493 type LengthSym1 (a6989586621680492493 :: t_a6dyx a_a6dyN) = Length a6989586621680492493 :: Nat data MapSym0 a6989586621679534219 data MapSym1 a6989586621679534219 a6989586621679534220 type MapSym2 (a6989586621679534219 :: (~>) a_a2cnb b_a2cnc) (a6989586621679534220 :: [a_a2cnb]) = Map a6989586621679534219 a6989586621679534220 :: [b_a2cnc] data ReverseSym0 a6989586621679970000 type ReverseSym1 (a6989586621679970000 :: [a_a40qL]) = Reverse a6989586621679970000 :: [a_a40qL] data IntersperseSym0 a6989586621679969993 data IntersperseSym1 a6989586621679969993 a6989586621679969994 type IntersperseSym2 (a6989586621679969993 :: a_a40qK) (a6989586621679969994 :: [a_a40qK]) = Intersperse a6989586621679969993 a6989586621679969994 :: [a_a40qK] data IntercalateSym0 a6989586621679969986 data IntercalateSym1 a6989586621679969986 a6989586621679969987 type IntercalateSym2 (a6989586621679969986 :: [a_a40qJ]) (a6989586621679969987 :: [[a_a40qJ]]) = Intercalate a6989586621679969986 a6989586621679969987 :: [a_a40qJ] data TransposeSym0 a6989586621679968887 type TransposeSym1 (a6989586621679968887 :: [[a_a40oU]]) = Transpose a6989586621679968887 :: [[a_a40oU]] data SubsequencesSym0 a6989586621679969981 type SubsequencesSym1 (a6989586621679969981 :: [a_a40qI]) = Subsequences a6989586621679969981 :: [[a_a40qI]] data PermutationsSym0 a6989586621679969907 type PermutationsSym1 (a6989586621679969907 :: [a_a40qF]) = Permutations a6989586621679969907 :: [[a_a40qF]] data FoldlSym0 a6989586621680492465 data FoldlSym1 a6989586621680492465 a6989586621680492466 data FoldlSym2 a6989586621680492465 a6989586621680492466 a6989586621680492467 type FoldlSym3 (a6989586621680492465 :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (a6989586621680492466 :: b_a6dyF) (a6989586621680492467 :: t_a6dyx a_a6dyG) = Foldl a6989586621680492465 a6989586621680492466 a6989586621680492467 :: b_a6dyF data Foldl'Sym0 a6989586621680492472 data Foldl'Sym1 a6989586621680492472 a6989586621680492473 data Foldl'Sym2 a6989586621680492472 a6989586621680492473 a6989586621680492474 type Foldl'Sym3 (a6989586621680492472 :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (a6989586621680492473 :: b_a6dyH) (a6989586621680492474 :: t_a6dyx a_a6dyI) = Foldl' a6989586621680492472 a6989586621680492473 a6989586621680492474 :: b_a6dyH data Foldl1Sym0 a6989586621680492483 data Foldl1Sym1 a6989586621680492483 a6989586621680492484 type Foldl1Sym2 (a6989586621680492483 :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (a6989586621680492484 :: t_a6dyx a_a6dyK) = Foldl1 a6989586621680492483 a6989586621680492484 :: a_a6dyK data Foldl1'Sym0 a6989586621679969872 data Foldl1'Sym1 a6989586621679969872 a6989586621679969873 type Foldl1'Sym2 (a6989586621679969872 :: (~>) a_a40qB ((~>) a_a40qB a_a40qB)) (a6989586621679969873 :: [a_a40qB]) = Foldl1' a6989586621679969872 a6989586621679969873 :: a_a40qB data FoldrSym0 a6989586621680492451 data FoldrSym1 a6989586621680492451 a6989586621680492452 data FoldrSym2 a6989586621680492451 a6989586621680492452 a6989586621680492453 type FoldrSym3 (a6989586621680492451 :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (a6989586621680492452 :: b_a6dyC) (a6989586621680492453 :: t_a6dyx a_a6dyB) = Foldr a6989586621680492451 a6989586621680492452 a6989586621680492453 :: b_a6dyC data Foldr1Sym0 a6989586621680492478 data Foldr1Sym1 a6989586621680492478 a6989586621680492479 type Foldr1Sym2 (a6989586621680492478 :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (a6989586621680492479 :: t_a6dyx a_a6dyJ) = Foldr1 a6989586621680492478 a6989586621680492479 :: a_a6dyJ data ConcatSym0 a6989586621680492332 type ConcatSym1 (a6989586621680492332 :: t_a6dxk [a_a6dxl]) = Concat a6989586621680492332 :: [a_a6dxl] data ConcatMapSym0 a6989586621680492321 data ConcatMapSym1 a6989586621680492321 a6989586621680492322 type ConcatMapSym2 (a6989586621680492321 :: (~>) a_a6dxi [b_a6dxj]) (a6989586621680492322 :: t_a6dxh a_a6dxi) = ConcatMap a6989586621680492321 a6989586621680492322 :: [b_a6dxj] data AndSym0 a6989586621680492316 type AndSym1 (a6989586621680492316 :: t_a6dxg Bool) = And a6989586621680492316 :: Bool data OrSym0 a6989586621680492310 type OrSym1 (a6989586621680492310 :: t_a6dxf Bool) = Or a6989586621680492310 :: Bool data AnySym0 a6989586621680492302 data AnySym1 a6989586621680492302 a6989586621680492303 type AnySym2 (a6989586621680492302 :: (~>) a_a6dxe Bool) (a6989586621680492303 :: t_a6dxd a_a6dxe) = Any a6989586621680492302 a6989586621680492303 :: Bool data AllSym0 a6989586621680492293 data AllSym1 a6989586621680492293 a6989586621680492294 type AllSym2 (a6989586621680492293 :: (~>) a_a6dxc Bool) (a6989586621680492294 :: t_a6dxb a_a6dxc) = All a6989586621680492293 a6989586621680492294 :: Bool data SumSym0 a6989586621680492507 type SumSym1 (a6989586621680492507 :: t_a6dyx a_a6dyR) = Sum a6989586621680492507 :: a_a6dyR data ProductSym0 a6989586621680492510 type ProductSym1 (a6989586621680492510 :: t_a6dyx a_a6dyS) = Product a6989586621680492510 :: a_a6dyS data MaximumSym0 a6989586621680492501 type MaximumSym1 (a6989586621680492501 :: t_a6dyx a_a6dyP) = Maximum a6989586621680492501 :: a_a6dyP data MinimumSym0 a6989586621680492504 type MinimumSym1 (a6989586621680492504 :: t_a6dyx a_a6dyQ) = Minimum a6989586621680492504 :: a_a6dyQ data ScanlSym0 a6989586621679969805 data ScanlSym1 a6989586621679969805 a6989586621679969806 data ScanlSym2 a6989586621679969805 a6989586621679969806 a6989586621679969807 type ScanlSym3 (a6989586621679969805 :: (~>) b_a40qt ((~>) a_a40qu b_a40qt)) (a6989586621679969806 :: b_a40qt) (a6989586621679969807 :: [a_a40qu]) = Scanl a6989586621679969805 a6989586621679969806 a6989586621679969807 :: [b_a40qt] data Scanl1Sym0 a6989586621679969796 data Scanl1Sym1 a6989586621679969796 a6989586621679969797 type Scanl1Sym2 (a6989586621679969796 :: (~>) a_a40qs ((~>) a_a40qs a_a40qs)) (a6989586621679969797 :: [a_a40qs]) = Scanl1 a6989586621679969796 a6989586621679969797 :: [a_a40qs] data ScanrSym0 a6989586621679969778 data ScanrSym1 a6989586621679969778 a6989586621679969779 data ScanrSym2 a6989586621679969778 a6989586621679969779 a6989586621679969780 type ScanrSym3 (a6989586621679969778 :: (~>) a_a40qq ((~>) b_a40qr b_a40qr)) (a6989586621679969779 :: b_a40qr) (a6989586621679969780 :: [a_a40qq]) = Scanr a6989586621679969778 a6989586621679969779 a6989586621679969780 :: [b_a40qr] data Scanr1Sym0 a6989586621679969758 data Scanr1Sym1 a6989586621679969758 a6989586621679969759 type Scanr1Sym2 (a6989586621679969758 :: (~>) a_a40qp ((~>) a_a40qp a_a40qp)) (a6989586621679969759 :: [a_a40qp]) = Scanr1 a6989586621679969758 a6989586621679969759 :: [a_a40qp] data MapAccumLSym0 a6989586621680823006 data MapAccumLSym1 a6989586621680823006 a6989586621680823007 data MapAccumLSym2 a6989586621680823006 a6989586621680823007 a6989586621680823008 type MapAccumLSym3 (a6989586621680823006 :: (~>) a_a7Bza ((~>) b_a7Bzb (a_a7Bza, c_a7Bzc))) (a6989586621680823007 :: a_a7Bza) (a6989586621680823008 :: t_a7Bz9 b_a7Bzb) = MapAccumL a6989586621680823006 a6989586621680823007 a6989586621680823008 :: (a_a7Bza, t_a7Bz9 c_a7Bzc) data MapAccumRSym0 a6989586621680822996 data MapAccumRSym1 a6989586621680822996 a6989586621680822997 data MapAccumRSym2 a6989586621680822996 a6989586621680822997 a6989586621680822998 type MapAccumRSym3 (a6989586621680822996 :: (~>) a_a7Bz6 ((~>) b_a7Bz7 (a_a7Bz6, c_a7Bz8))) (a6989586621680822997 :: a_a7Bz6) (a6989586621680822998 :: t_a7Bz5 b_a7Bz7) = MapAccumR a6989586621680822996 a6989586621680822997 a6989586621680822998 :: (a_a7Bz6, t_a7Bz5 c_a7Bz8) data ReplicateSym0 a6989586621679968895 data ReplicateSym1 a6989586621679968895 a6989586621679968896 type ReplicateSym2 (a6989586621679968895 :: Nat) (a6989586621679968896 :: a_a40oV) = Replicate a6989586621679968895 a6989586621679968896 :: [a_a40oV] data UnfoldrSym0 a6989586621679969650 data UnfoldrSym1 a6989586621679969650 a6989586621679969651 type UnfoldrSym2 (a6989586621679969650 :: (~>) b_a40qh (Maybe (a_a40qi, b_a40qh))) (a6989586621679969651 :: b_a40qh) = Unfoldr a6989586621679969650 a6989586621679969651 :: [a_a40qi] data TakeSym0 a6989586621679969050 data TakeSym1 a6989586621679969050 a6989586621679969051 type TakeSym2 (a6989586621679969050 :: Nat) (a6989586621679969051 :: [a_a40pb]) = Take a6989586621679969050 a6989586621679969051 :: [a_a40pb] data DropSym0 a6989586621679969037 data DropSym1 a6989586621679969037 a6989586621679969038 type DropSym2 (a6989586621679969037 :: Nat) (a6989586621679969038 :: [a_a40pa]) = Drop a6989586621679969037 a6989586621679969038 :: [a_a40pa] data SplitAtSym0 a6989586621679969030 data SplitAtSym1 a6989586621679969030 a6989586621679969031 type SplitAtSym2 (a6989586621679969030 :: Nat) (a6989586621679969031 :: [a_a40p9]) = SplitAt a6989586621679969030 a6989586621679969031 :: ([a_a40p9], [a_a40p9]) data TakeWhileSym0 a6989586621679969167 data TakeWhileSym1 a6989586621679969167 a6989586621679969168 type TakeWhileSym2 (a6989586621679969167 :: (~>) a_a40pg Bool) (a6989586621679969168 :: [a_a40pg]) = TakeWhile a6989586621679969167 a6989586621679969168 :: [a_a40pg] data DropWhileSym0 a6989586621679969152 data DropWhileSym1 a6989586621679969152 a6989586621679969153 type DropWhileSym2 (a6989586621679969152 :: (~>) a_a40pf Bool) (a6989586621679969153 :: [a_a40pf]) = DropWhile a6989586621679969152 a6989586621679969153 :: [a_a40pf] data DropWhileEndSym0 a6989586621679969135 data DropWhileEndSym1 a6989586621679969135 a6989586621679969136 type DropWhileEndSym2 (a6989586621679969135 :: (~>) a_a40pe Bool) (a6989586621679969136 :: [a_a40pe]) = DropWhileEnd a6989586621679969135 a6989586621679969136 :: [a_a40pe] data SpanSym0 a6989586621679969098 data SpanSym1 a6989586621679969098 a6989586621679969099 type SpanSym2 (a6989586621679969098 :: (~>) a_a40pd Bool) (a6989586621679969099 :: [a_a40pd]) = Span a6989586621679969098 a6989586621679969099 :: ([a_a40pd], [a_a40pd]) data BreakSym0 a6989586621679969063 data BreakSym1 a6989586621679969063 a6989586621679969064 type BreakSym2 (a6989586621679969063 :: (~>) a_a40pc Bool) (a6989586621679969064 :: [a_a40pc]) = Break a6989586621679969063 a6989586621679969064 :: ([a_a40pc], [a_a40pc]) data StripPrefixSym0 a6989586621680091346 data StripPrefixSym1 a6989586621680091346 a6989586621680091347 type StripPrefixSym2 (a6989586621680091346 :: [a_a4wXK]) (a6989586621680091347 :: [a_a4wXK]) = StripPrefix a6989586621680091346 a6989586621680091347 :: Maybe [a_a4wXK] data GroupSym0 a6989586621679969025 type GroupSym1 (a6989586621679969025 :: [a_a40p8]) = Group a6989586621679969025 :: [[a_a40p8]] data InitsSym0 a6989586621679969640 type InitsSym1 (a6989586621679969640 :: [a_a40qg]) = Inits a6989586621679969640 :: [[a_a40qg]] data TailsSym0 a6989586621679969632 type TailsSym1 (a6989586621679969632 :: [a_a40qf]) = Tails a6989586621679969632 :: [[a_a40qf]] data IsPrefixOfSym0 a6989586621679969624 data IsPrefixOfSym1 a6989586621679969624 a6989586621679969625 type IsPrefixOfSym2 (a6989586621679969624 :: [a_a40qe]) (a6989586621679969625 :: [a_a40qe]) = IsPrefixOf a6989586621679969624 a6989586621679969625 :: Bool data IsSuffixOfSym0 a6989586621679969617 data IsSuffixOfSym1 a6989586621679969617 a6989586621679969618 type IsSuffixOfSym2 (a6989586621679969617 :: [a_a40qd]) (a6989586621679969618 :: [a_a40qd]) = IsSuffixOf a6989586621679969617 a6989586621679969618 :: Bool data IsInfixOfSym0 a6989586621679969610 data IsInfixOfSym1 a6989586621679969610 a6989586621679969611 type IsInfixOfSym2 (a6989586621679969610 :: [a_a40qc]) (a6989586621679969611 :: [a_a40qc]) = IsInfixOf a6989586621679969610 a6989586621679969611 :: Bool data ElemSym0 a6989586621680492497 data ElemSym1 a6989586621680492497 a6989586621680492498 type ElemSym2 (a6989586621680492497 :: a_a6dyO) (a6989586621680492498 :: t_a6dyx a_a6dyO) = Elem a6989586621680492497 a6989586621680492498 :: Bool data NotElemSym0 a6989586621680492244 data NotElemSym1 a6989586621680492244 a6989586621680492245 type NotElemSym2 (a6989586621680492244 :: a_a6dx6) (a6989586621680492245 :: t_a6dx5 a_a6dx6) = NotElem a6989586621680492244 a6989586621680492245 :: Bool data LookupSym0 a6989586621679968958 data LookupSym1 a6989586621679968958 a6989586621679968959 type LookupSym2 (a6989586621679968958 :: a_a40p1) (a6989586621679968959 :: [(a_a40p1, b_a40p2)]) = Lookup a6989586621679968958 a6989586621679968959 :: Maybe b_a40p2 data FindSym0 a6989586621680492226 data FindSym1 a6989586621680492226 a6989586621680492227 type FindSym2 (a6989586621680492226 :: (~>) a_a6dx4 Bool) (a6989586621680492227 :: t_a6dx3 a_a6dx4) = Find a6989586621680492226 a6989586621680492227 :: Maybe a_a6dx4 data FilterSym0 a6989586621679969267 data FilterSym1 a6989586621679969267 a6989586621679969268 type FilterSym2 (a6989586621679969267 :: (~>) a_a40po Bool) (a6989586621679969268 :: [a_a40po]) = Filter a6989586621679969267 a6989586621679969268 :: [a_a40po] data PartitionSym0 a6989586621679968951 data PartitionSym1 a6989586621679968951 a6989586621679968952 type PartitionSym2 (a6989586621679968951 :: (~>) a_a40p0 Bool) (a6989586621679968952 :: [a_a40p0]) = Partition a6989586621679968951 a6989586621679968952 :: ([a_a40p0], [a_a40p0]) data (!!@#@$) a6989586621679968875 infixl 9 !!@#@$ data (!!@#@$$) a6989586621679968875 a6989586621679968876 infixl 9 !!@#@$$ type (!!@#@$$$) (a6989586621679968875 :: [a_a40oT]) (a6989586621679968876 :: Nat) = (!!) a6989586621679968875 a6989586621679968876 :: a_a40oT infixl 9 !!@#@$$$ data ElemIndexSym0 a6989586621679969251 data ElemIndexSym1 a6989586621679969251 a6989586621679969252 type ElemIndexSym2 (a6989586621679969251 :: a_a40pm) (a6989586621679969252 :: [a_a40pm]) = ElemIndex a6989586621679969251 a6989586621679969252 :: Maybe Nat data ElemIndicesSym0 a6989586621679969242 data ElemIndicesSym1 a6989586621679969242 a6989586621679969243 type ElemIndicesSym2 (a6989586621679969242 :: a_a40pl) (a6989586621679969243 :: [a_a40pl]) = ElemIndices a6989586621679969242 a6989586621679969243 :: [Nat] data FindIndexSym0 a6989586621679969233 data FindIndexSym1 a6989586621679969233 a6989586621679969234 type FindIndexSym2 (a6989586621679969233 :: (~>) a_a40pk Bool) (a6989586621679969234 :: [a_a40pk]) = FindIndex a6989586621679969233 a6989586621679969234 :: Maybe Nat data FindIndicesSym0 a6989586621679969210 data FindIndicesSym1 a6989586621679969210 a6989586621679969211 type FindIndicesSym2 (a6989586621679969210 :: (~>) a_a40pj Bool) (a6989586621679969211 :: [a_a40pj]) = FindIndices a6989586621679969210 a6989586621679969211 :: [Nat] data ZipSym0 a6989586621679969585 data ZipSym1 a6989586621679969585 a6989586621679969586 type ZipSym2 (a6989586621679969585 :: [a_a40q8]) (a6989586621679969586 :: [b_a40q9]) = Zip a6989586621679969585 a6989586621679969586 :: [(a_a40q8, b_a40q9)] data Zip3Sym0 a6989586621679969573 data Zip3Sym1 a6989586621679969573 a6989586621679969574 data Zip3Sym2 a6989586621679969573 a6989586621679969574 a6989586621679969575 type Zip3Sym3 (a6989586621679969573 :: [a_a40q5]) (a6989586621679969574 :: [b_a40q6]) (a6989586621679969575 :: [c_a40q7]) = Zip3 a6989586621679969573 a6989586621679969574 a6989586621679969575 :: [(a_a40q5, b_a40q6, c_a40q7)] data Zip4Sym0 a6989586621680091335 data Zip4Sym1 a6989586621680091335 a6989586621680091336 data Zip4Sym2 a6989586621680091335 a6989586621680091336 a6989586621680091337 data Zip4Sym3 a6989586621680091335 a6989586621680091336 a6989586621680091337 a6989586621680091338 type Zip4Sym4 (a6989586621680091335 :: [a_a4wXG]) (a6989586621680091336 :: [b_a4wXH]) (a6989586621680091337 :: [c_a4wXI]) (a6989586621680091338 :: [d_a4wXJ]) = Zip4 a6989586621680091335 a6989586621680091336 a6989586621680091337 a6989586621680091338 :: [(a_a4wXG, b_a4wXH, c_a4wXI, d_a4wXJ)] data Zip5Sym0 a6989586621680091312 data Zip5Sym1 a6989586621680091312 a6989586621680091313 data Zip5Sym2 a6989586621680091312 a6989586621680091313 a6989586621680091314 data Zip5Sym3 a6989586621680091312 a6989586621680091313 a6989586621680091314 a6989586621680091315 data Zip5Sym4 a6989586621680091312 a6989586621680091313 a6989586621680091314 a6989586621680091315 a6989586621680091316 type Zip5Sym5 (a6989586621680091312 :: [a_a4wXB]) (a6989586621680091313 :: [b_a4wXC]) (a6989586621680091314 :: [c_a4wXD]) (a6989586621680091315 :: [d_a4wXE]) (a6989586621680091316 :: [e_a4wXF]) = Zip5 a6989586621680091312 a6989586621680091313 a6989586621680091314 a6989586621680091315 a6989586621680091316 :: [(a_a4wXB, b_a4wXC, c_a4wXD, d_a4wXE, e_a4wXF)] data Zip6Sym0 a6989586621680091284 data Zip6Sym1 a6989586621680091284 a6989586621680091285 data Zip6Sym2 a6989586621680091284 a6989586621680091285 a6989586621680091286 data Zip6Sym3 a6989586621680091284 a6989586621680091285 a6989586621680091286 a6989586621680091287 data Zip6Sym4 a6989586621680091284 a6989586621680091285 a6989586621680091286 a6989586621680091287 a6989586621680091288 data Zip6Sym5 a6989586621680091284 a6989586621680091285 a6989586621680091286 a6989586621680091287 a6989586621680091288 a6989586621680091289 type Zip6Sym6 (a6989586621680091284 :: [a_a4wXv]) (a6989586621680091285 :: [b_a4wXw]) (a6989586621680091286 :: [c_a4wXx]) (a6989586621680091287 :: [d_a4wXy]) (a6989586621680091288 :: [e_a4wXz]) (a6989586621680091289 :: [f_a4wXA]) = Zip6 a6989586621680091284 a6989586621680091285 a6989586621680091286 a6989586621680091287 a6989586621680091288 a6989586621680091289 :: [(a_a4wXv, b_a4wXw, c_a4wXx, d_a4wXy, e_a4wXz, f_a4wXA)] data Zip7Sym0 a6989586621680091251 data Zip7Sym1 a6989586621680091251 a6989586621680091252 data Zip7Sym2 a6989586621680091251 a6989586621680091252 a6989586621680091253 data Zip7Sym3 a6989586621680091251 a6989586621680091252 a6989586621680091253 a6989586621680091254 data Zip7Sym4 a6989586621680091251 a6989586621680091252 a6989586621680091253 a6989586621680091254 a6989586621680091255 data Zip7Sym5 a6989586621680091251 a6989586621680091252 a6989586621680091253 a6989586621680091254 a6989586621680091255 a6989586621680091256 data Zip7Sym6 a6989586621680091251 a6989586621680091252 a6989586621680091253 a6989586621680091254 a6989586621680091255 a6989586621680091256 a6989586621680091257 type Zip7Sym7 (a6989586621680091251 :: [a_a4wXo]) (a6989586621680091252 :: [b_a4wXp]) (a6989586621680091253 :: [c_a4wXq]) (a6989586621680091254 :: [d_a4wXr]) (a6989586621680091255 :: [e_a4wXs]) (a6989586621680091256 :: [f_a4wXt]) (a6989586621680091257 :: [g_a4wXu]) = Zip7 a6989586621680091251 a6989586621680091252 a6989586621680091253 a6989586621680091254 a6989586621680091255 a6989586621680091256 a6989586621680091257 :: [(a_a4wXo, b_a4wXp, c_a4wXq, d_a4wXr, e_a4wXs, f_a4wXt, g_a4wXu)] data ZipWithSym0 a6989586621679969561 data ZipWithSym1 a6989586621679969561 a6989586621679969562 data ZipWithSym2 a6989586621679969561 a6989586621679969562 a6989586621679969563 type ZipWithSym3 (a6989586621679969561 :: (~>) a_a40q2 ((~>) b_a40q3 c_a40q4)) (a6989586621679969562 :: [a_a40q2]) (a6989586621679969563 :: [b_a40q3]) = ZipWith a6989586621679969561 a6989586621679969562 a6989586621679969563 :: [c_a40q4] data ZipWith3Sym0 a6989586621679969546 data ZipWith3Sym1 a6989586621679969546 a6989586621679969547 data ZipWith3Sym2 a6989586621679969546 a6989586621679969547 a6989586621679969548 data ZipWith3Sym3 a6989586621679969546 a6989586621679969547 a6989586621679969548 a6989586621679969549 type ZipWith3Sym4 (a6989586621679969546 :: (~>) a_a40pY ((~>) b_a40pZ ((~>) c_a40q0 d_a40q1))) (a6989586621679969547 :: [a_a40pY]) (a6989586621679969548 :: [b_a40pZ]) (a6989586621679969549 :: [c_a40q0]) = ZipWith3 a6989586621679969546 a6989586621679969547 a6989586621679969548 a6989586621679969549 :: [d_a40q1] data ZipWith4Sym0 a6989586621680091215 data ZipWith4Sym1 a6989586621680091215 a6989586621680091216 data ZipWith4Sym2 a6989586621680091215 a6989586621680091216 a6989586621680091217 data ZipWith4Sym3 a6989586621680091215 a6989586621680091216 a6989586621680091217 a6989586621680091218 data ZipWith4Sym4 a6989586621680091215 a6989586621680091216 a6989586621680091217 a6989586621680091218 a6989586621680091219 type ZipWith4Sym5 (a6989586621680091215 :: (~>) a_a4wXj ((~>) b_a4wXk ((~>) c_a4wXl ((~>) d_a4wXm e_a4wXn)))) (a6989586621680091216 :: [a_a4wXj]) (a6989586621680091217 :: [b_a4wXk]) (a6989586621680091218 :: [c_a4wXl]) (a6989586621680091219 :: [d_a4wXm]) = ZipWith4 a6989586621680091215 a6989586621680091216 a6989586621680091217 a6989586621680091218 a6989586621680091219 :: [e_a4wXn] data ZipWith5Sym0 a6989586621680091192 data ZipWith5Sym1 a6989586621680091192 a6989586621680091193 data ZipWith5Sym2 a6989586621680091192 a6989586621680091193 a6989586621680091194 data ZipWith5Sym3 a6989586621680091192 a6989586621680091193 a6989586621680091194 a6989586621680091195 data ZipWith5Sym4 a6989586621680091192 a6989586621680091193 a6989586621680091194 a6989586621680091195 a6989586621680091196 data ZipWith5Sym5 a6989586621680091192 a6989586621680091193 a6989586621680091194 a6989586621680091195 a6989586621680091196 a6989586621680091197 type ZipWith5Sym6 (a6989586621680091192 :: (~>) a_a4wXd ((~>) b_a4wXe ((~>) c_a4wXf ((~>) d_a4wXg ((~>) e_a4wXh f_a4wXi))))) (a6989586621680091193 :: [a_a4wXd]) (a6989586621680091194 :: [b_a4wXe]) (a6989586621680091195 :: [c_a4wXf]) (a6989586621680091196 :: [d_a4wXg]) (a6989586621680091197 :: [e_a4wXh]) = ZipWith5 a6989586621680091192 a6989586621680091193 a6989586621680091194 a6989586621680091195 a6989586621680091196 a6989586621680091197 :: [f_a4wXi] data ZipWith6Sym0 a6989586621680091165 data ZipWith6Sym1 a6989586621680091165 a6989586621680091166 data ZipWith6Sym2 a6989586621680091165 a6989586621680091166 a6989586621680091167 data ZipWith6Sym3 a6989586621680091165 a6989586621680091166 a6989586621680091167 a6989586621680091168 data ZipWith6Sym4 a6989586621680091165 a6989586621680091166 a6989586621680091167 a6989586621680091168 a6989586621680091169 data ZipWith6Sym5 a6989586621680091165 a6989586621680091166 a6989586621680091167 a6989586621680091168 a6989586621680091169 a6989586621680091170 data ZipWith6Sym6 a6989586621680091165 a6989586621680091166 a6989586621680091167 a6989586621680091168 a6989586621680091169 a6989586621680091170 a6989586621680091171 type ZipWith6Sym7 (a6989586621680091165 :: (~>) a_a4wX6 ((~>) b_a4wX7 ((~>) c_a4wX8 ((~>) d_a4wX9 ((~>) e_a4wXa ((~>) f_a4wXb g_a4wXc)))))) (a6989586621680091166 :: [a_a4wX6]) (a6989586621680091167 :: [b_a4wX7]) (a6989586621680091168 :: [c_a4wX8]) (a6989586621680091169 :: [d_a4wX9]) (a6989586621680091170 :: [e_a4wXa]) (a6989586621680091171 :: [f_a4wXb]) = ZipWith6 a6989586621680091165 a6989586621680091166 a6989586621680091167 a6989586621680091168 a6989586621680091169 a6989586621680091170 a6989586621680091171 :: [g_a4wXc] data ZipWith7Sym0 a6989586621680091134 data ZipWith7Sym1 a6989586621680091134 a6989586621680091135 data ZipWith7Sym2 a6989586621680091134 a6989586621680091135 a6989586621680091136 data ZipWith7Sym3 a6989586621680091134 a6989586621680091135 a6989586621680091136 a6989586621680091137 data ZipWith7Sym4 a6989586621680091134 a6989586621680091135 a6989586621680091136 a6989586621680091137 a6989586621680091138 data ZipWith7Sym5 a6989586621680091134 a6989586621680091135 a6989586621680091136 a6989586621680091137 a6989586621680091138 a6989586621680091139 data ZipWith7Sym6 a6989586621680091134 a6989586621680091135 a6989586621680091136 a6989586621680091137 a6989586621680091138 a6989586621680091139 a6989586621680091140 data ZipWith7Sym7 a6989586621680091134 a6989586621680091135 a6989586621680091136 a6989586621680091137 a6989586621680091138 a6989586621680091139 a6989586621680091140 a6989586621680091141 type ZipWith7Sym8 (a6989586621680091134 :: (~>) a_a4wWY ((~>) b_a4wWZ ((~>) c_a4wX0 ((~>) d_a4wX1 ((~>) e_a4wX2 ((~>) f_a4wX3 ((~>) g_a4wX4 h_a4wX5))))))) (a6989586621680091135 :: [a_a4wWY]) (a6989586621680091136 :: [b_a4wWZ]) (a6989586621680091137 :: [c_a4wX0]) (a6989586621680091138 :: [d_a4wX1]) (a6989586621680091139 :: [e_a4wX2]) (a6989586621680091140 :: [f_a4wX3]) (a6989586621680091141 :: [g_a4wX4]) = ZipWith7 a6989586621680091134 a6989586621680091135 a6989586621680091136 a6989586621680091137 a6989586621680091138 a6989586621680091139 a6989586621680091140 a6989586621680091141 :: [h_a4wX5] data UnzipSym0 a6989586621679969527 type UnzipSym1 (a6989586621679969527 :: [(a_a40pW, b_a40pX)]) = Unzip a6989586621679969527 :: ([a_a40pW], [b_a40pX]) data Unzip3Sym0 a6989586621679969509 type Unzip3Sym1 (a6989586621679969509 :: [(a_a40pT, b_a40pU, c_a40pV)]) = Unzip3 a6989586621679969509 :: ([a_a40pT], [b_a40pU], [c_a40pV]) data Unzip4Sym0 a6989586621679969489 type Unzip4Sym1 (a6989586621679969489 :: [(a_a40pP, b_a40pQ, c_a40pR, d_a40pS)]) = Unzip4 a6989586621679969489 :: ([a_a40pP], [b_a40pQ], [c_a40pR], [d_a40pS]) data Unzip5Sym0 a6989586621679969467 type Unzip5Sym1 (a6989586621679969467 :: [(a_a40pK, b_a40pL, c_a40pM, d_a40pN, e_a40pO)]) = Unzip5 a6989586621679969467 :: ([a_a40pK], [b_a40pL], [c_a40pM], [d_a40pN], [e_a40pO]) data Unzip6Sym0 a6989586621679969443 type Unzip6Sym1 (a6989586621679969443 :: [(a_a40pE, b_a40pF, c_a40pG, d_a40pH, e_a40pI, f_a40pJ)]) = Unzip6 a6989586621679969443 :: ([a_a40pE], [b_a40pF], [c_a40pG], [d_a40pH], [e_a40pI], [f_a40pJ]) data Unzip7Sym0 a6989586621679969417 type Unzip7Sym1 (a6989586621679969417 :: [(a_a40px, b_a40py, c_a40pz, d_a40pA, e_a40pB, f_a40pC, g_a40pD)]) = Unzip7 a6989586621679969417 :: ([a_a40px], [b_a40py], [c_a40pz], [d_a40pA], [e_a40pB], [f_a40pC], [g_a40pD]) data UnlinesSym0 a6989586621679969412 type UnlinesSym1 (a6989586621679969412 :: [Symbol]) = Unlines a6989586621679969412 :: Symbol data UnwordsSym0 a6989586621679969402 type UnwordsSym1 (a6989586621679969402 :: [Symbol]) = Unwords a6989586621679969402 :: Symbol data NubSym0 a6989586621679968858 type NubSym1 (a6989586621679968858 :: [a_a40oS]) = Nub a6989586621679968858 :: [a_a40oS] data DeleteSym0 a6989586621679969396 data DeleteSym1 a6989586621679969396 a6989586621679969397 type DeleteSym2 (a6989586621679969396 :: a_a40pw) (a6989586621679969397 :: [a_a40pw]) = Delete a6989586621679969396 a6989586621679969397 :: [a_a40pw] data (\\@#@$) a6989586621679969385 infix 5 \\@#@$ data (\\@#@$$) a6989586621679969385 a6989586621679969386 infix 5 \\@#@$$ type (\\@#@$$$) (a6989586621679969385 :: [a_a40pv]) (a6989586621679969386 :: [a_a40pv]) = (\\) a6989586621679969385 a6989586621679969386 :: [a_a40pv] infix 5 \\@#@$$$ data UnionSym0 a6989586621679968812 data UnionSym1 a6989586621679968812 a6989586621679968813 type UnionSym2 (a6989586621679968812 :: [a_a40oO]) (a6989586621679968813 :: [a_a40oO]) = Union a6989586621679968812 a6989586621679968813 :: [a_a40oO] data IntersectSym0 a6989586621679969203 data IntersectSym1 a6989586621679969203 a6989586621679969204 type IntersectSym2 (a6989586621679969203 :: [a_a40pi]) (a6989586621679969204 :: [a_a40pi]) = Intersect a6989586621679969203 a6989586621679969204 :: [a_a40pi] data InsertSym0 a6989586621679969005 data InsertSym1 a6989586621679969005 a6989586621679969006 type InsertSym2 (a6989586621679969005 :: a_a40p5) (a6989586621679969006 :: [a_a40p5]) = Insert a6989586621679969005 a6989586621679969006 :: [a_a40p5] data SortSym0 a6989586621679969000 type SortSym1 (a6989586621679969000 :: [a_a40p4]) = Sort a6989586621679969000 :: [a_a40p4] data NubBySym0 a6989586621679968840 data NubBySym1 a6989586621679968840 a6989586621679968841 type NubBySym2 (a6989586621679968840 :: (~>) a_a40oR ((~>) a_a40oR Bool)) (a6989586621679968841 :: [a_a40oR]) = NubBy a6989586621679968840 a6989586621679968841 :: [a_a40oR] data DeleteBySym0 a6989586621679969366 data DeleteBySym1 a6989586621679969366 a6989586621679969367 data DeleteBySym2 a6989586621679969366 a6989586621679969367 a6989586621679969368 type DeleteBySym3 (a6989586621679969366 :: (~>) a_a40pu ((~>) a_a40pu Bool)) (a6989586621679969367 :: a_a40pu) (a6989586621679969368 :: [a_a40pu]) = DeleteBy a6989586621679969366 a6989586621679969367 a6989586621679969368 :: [a_a40pu] data DeleteFirstsBySym0 a6989586621679969356 data DeleteFirstsBySym1 a6989586621679969356 a6989586621679969357 data DeleteFirstsBySym2 a6989586621679969356 a6989586621679969357 a6989586621679969358 type DeleteFirstsBySym3 (a6989586621679969356 :: (~>) a_a40pt ((~>) a_a40pt Bool)) (a6989586621679969357 :: [a_a40pt]) (a6989586621679969358 :: [a_a40pt]) = DeleteFirstsBy a6989586621679969356 a6989586621679969357 a6989586621679969358 :: [a_a40pt] data UnionBySym0 a6989586621679968820 data UnionBySym1 a6989586621679968820 a6989586621679968821 data UnionBySym2 a6989586621679968820 a6989586621679968821 a6989586621679968822 type UnionBySym3 (a6989586621679968820 :: (~>) a_a40oP ((~>) a_a40oP Bool)) (a6989586621679968821 :: [a_a40oP]) (a6989586621679968822 :: [a_a40oP]) = UnionBy a6989586621679968820 a6989586621679968821 a6989586621679968822 :: [a_a40oP] data IntersectBySym0 a6989586621679969181 data IntersectBySym1 a6989586621679969181 a6989586621679969182 data IntersectBySym2 a6989586621679969181 a6989586621679969182 a6989586621679969183 type IntersectBySym3 (a6989586621679969181 :: (~>) a_a40ph ((~>) a_a40ph Bool)) (a6989586621679969182 :: [a_a40ph]) (a6989586621679969183 :: [a_a40ph]) = IntersectBy a6989586621679969181 a6989586621679969182 a6989586621679969183 :: [a_a40ph] data GroupBySym0 a6989586621679968973 data GroupBySym1 a6989586621679968973 a6989586621679968974 type GroupBySym2 (a6989586621679968973 :: (~>) a_a40p3 ((~>) a_a40p3 Bool)) (a6989586621679968974 :: [a_a40p3]) = GroupBy a6989586621679968973 a6989586621679968974 :: [[a_a40p3]] data SortBySym0 a6989586621679969344 data SortBySym1 a6989586621679969344 a6989586621679969345 type SortBySym2 (a6989586621679969344 :: (~>) a_a40ps ((~>) a_a40ps Ordering)) (a6989586621679969345 :: [a_a40ps]) = SortBy a6989586621679969344 a6989586621679969345 :: [a_a40ps] data InsertBySym0 a6989586621679969324 data InsertBySym1 a6989586621679969324 a6989586621679969325 data InsertBySym2 a6989586621679969324 a6989586621679969325 a6989586621679969326 type InsertBySym3 (a6989586621679969324 :: (~>) a_a40pr ((~>) a_a40pr Ordering)) (a6989586621679969325 :: a_a40pr) (a6989586621679969326 :: [a_a40pr]) = InsertBy a6989586621679969324 a6989586621679969325 a6989586621679969326 :: [a_a40pr] data MaximumBySym0 a6989586621680492273 data MaximumBySym1 a6989586621680492273 a6989586621680492274 type MaximumBySym2 (a6989586621680492273 :: (~>) a_a6dxa ((~>) a_a6dxa Ordering)) (a6989586621680492274 :: t_a6dx9 a_a6dxa) = MaximumBy a6989586621680492273 a6989586621680492274 :: a_a6dxa data MinimumBySym0 a6989586621680492253 data MinimumBySym1 a6989586621680492253 a6989586621680492254 type MinimumBySym2 (a6989586621680492253 :: (~>) a_a6dx8 ((~>) a_a6dx8 Ordering)) (a6989586621680492254 :: t_a6dx7 a_a6dx8) = MinimumBy a6989586621680492253 a6989586621680492254 :: a_a6dx8 data GenericLengthSym0 a6989586621679968803 type GenericLengthSym1 (a6989586621679968803 :: [a_a40oN]) = GenericLength a6989586621679968803 :: i_a40oM -- | Defines the promoted and singled versions of the MonadZip -- type class. module Data.Singletons.Prelude.Monad.Zip class PMonadZip m_a8YSu where { type family Mzip (arg_a8YTO :: m_a8YSu a_a8YSv) (arg_a8YTP :: m_a8YSu b_a8YSw) :: m_a8YSu (a_a8YSv, b_a8YSw); type family MzipWith (arg_a8YTT :: (~>) a_a8YSx ((~>) b_a8YSy c_a8YSz)) (arg_a8YTU :: m_a8YSu a_a8YSx) (arg_a8YTV :: m_a8YSu b_a8YSy) :: m_a8YSu c_a8YSz; type family Munzip (arg_a8YU0 :: m_a8YSu (a_a8YSA, b_a8YSB)) :: (m_a8YSu a_a8YSA, m_a8YSu b_a8YSB); type Mzip a_a8YU3 a_a8YU4 = Apply (Apply Mzip_6989586621681150533Sym0 a_a8YU3) a_a8YU4; type MzipWith a_a8YUi a_a8YUj a_a8YUk = Apply (Apply (Apply MzipWith_6989586621681150549Sym0 a_a8YUi) a_a8YUj) a_a8YUk; type Munzip a_a8YUx = Apply Munzip_6989586621681150562Sym0 a_a8YUx; } class SMonad m_a8YSu => SMonadZip m_a8YSu sMzip :: forall a_a8YSv b_a8YSw (t_a8YY4 :: m_a8YSu a_a8YSv) (t_a8YY5 :: m_a8YSu b_a8YSw). SMonadZip m_a8YSu => Sing t_a8YY4 -> Sing t_a8YY5 -> Sing (Apply (Apply MzipSym0 t_a8YY4) t_a8YY5 :: m_a8YSu (a_a8YSv, b_a8YSw)) sMzipWith :: forall a_a8YSx b_a8YSy c_a8YSz (t_a8YY8 :: (~>) a_a8YSx ((~>) b_a8YSy c_a8YSz)) (t_a8YY9 :: m_a8YSu a_a8YSx) (t_a8YYa :: m_a8YSu b_a8YSy). SMonadZip m_a8YSu => Sing t_a8YY8 -> Sing t_a8YY9 -> Sing t_a8YYa -> Sing (Apply (Apply (Apply MzipWithSym0 t_a8YY8) t_a8YY9) t_a8YYa :: m_a8YSu c_a8YSz) sMunzip :: forall a_a8YSA b_a8YSB (t_a8YYe :: m_a8YSu (a_a8YSA, b_a8YSB)). SMonadZip m_a8YSu => Sing t_a8YYe -> Sing (Apply MunzipSym0 t_a8YYe :: (m_a8YSu a_a8YSA, m_a8YSu b_a8YSB)) sMzip :: forall a_a8YSv b_a8YSw (t_a8YY4 :: m_a8YSu a_a8YSv) (t_a8YY5 :: m_a8YSu b_a8YSw). (SMonadZip m_a8YSu, (Apply (Apply MzipSym0 t_a8YY4) t_a8YY5 :: m_a8YSu (a_a8YSv, b_a8YSw)) ~ Apply (Apply Mzip_6989586621681150533Sym0 t_a8YY4) t_a8YY5) => Sing t_a8YY4 -> Sing t_a8YY5 -> Sing (Apply (Apply MzipSym0 t_a8YY4) t_a8YY5 :: m_a8YSu (a_a8YSv, b_a8YSw)) sMzipWith :: forall a_a8YSx b_a8YSy c_a8YSz (t_a8YY8 :: (~>) a_a8YSx ((~>) b_a8YSy c_a8YSz)) (t_a8YY9 :: m_a8YSu a_a8YSx) (t_a8YYa :: m_a8YSu b_a8YSy). (SMonadZip m_a8YSu, (Apply (Apply (Apply MzipWithSym0 t_a8YY8) t_a8YY9) t_a8YYa :: m_a8YSu c_a8YSz) ~ Apply (Apply (Apply MzipWith_6989586621681150549Sym0 t_a8YY8) t_a8YY9) t_a8YYa) => Sing t_a8YY8 -> Sing t_a8YY9 -> Sing t_a8YYa -> Sing (Apply (Apply (Apply MzipWithSym0 t_a8YY8) t_a8YY9) t_a8YYa :: m_a8YSu c_a8YSz) sMunzip :: forall a_a8YSA b_a8YSB (t_a8YYe :: m_a8YSu (a_a8YSA, b_a8YSB)). (SMonadZip m_a8YSu, (Apply MunzipSym0 t_a8YYe :: (m_a8YSu a_a8YSA, m_a8YSu b_a8YSB)) ~ Apply Munzip_6989586621681150562Sym0 t_a8YYe) => Sing t_a8YYe -> Sing (Apply MunzipSym0 t_a8YYe :: (m_a8YSu a_a8YSA, m_a8YSu b_a8YSB)) data MzipSym0 a6989586621681150519 data MzipSym1 a6989586621681150519 a6989586621681150520 type MzipSym2 (a6989586621681150519 :: m_a8YSu a_a8YSv) (a6989586621681150520 :: m_a8YSu b_a8YSw) = Mzip a6989586621681150519 a6989586621681150520 :: m_a8YSu (a_a8YSv, b_a8YSw) data MzipWithSym0 a6989586621681150525 data MzipWithSym1 a6989586621681150525 a6989586621681150526 data MzipWithSym2 a6989586621681150525 a6989586621681150526 a6989586621681150527 type MzipWithSym3 (a6989586621681150525 :: (~>) a_a8YSx ((~>) b_a8YSy c_a8YSz)) (a6989586621681150526 :: m_a8YSu a_a8YSx) (a6989586621681150527 :: m_a8YSu b_a8YSy) = MzipWith a6989586621681150525 a6989586621681150526 a6989586621681150527 :: m_a8YSu c_a8YSz data MunzipSym0 a6989586621681150530 type MunzipSym1 (a6989586621681150530 :: m_a8YSu (a_a8YSA, b_a8YSB)) = Munzip a6989586621681150530 :: (m_a8YSu a_a8YSA, m_a8YSu b_a8YSB) instance Data.Singletons.Prelude.Monad.Zip.SMonadZip [] instance Data.Singletons.Prelude.Monad.Zip.SMonadZip Data.Functor.Identity.Identity instance Data.Singletons.Prelude.Monad.Zip.SMonadZip Data.Semigroup.Internal.Dual instance Data.Singletons.Prelude.Monad.Zip.SMonadZip Data.Semigroup.Internal.Sum instance Data.Singletons.Prelude.Monad.Zip.SMonadZip Data.Semigroup.Internal.Product instance Data.Singletons.Prelude.Monad.Zip.SMonadZip GHC.Maybe.Maybe instance Data.Singletons.Prelude.Monad.Zip.SMonadZip Data.Monoid.First instance Data.Singletons.Prelude.Monad.Zip.SMonadZip Data.Monoid.Last instance Data.Singletons.Prelude.Monad.Zip.SMonadZip Data.Proxy.Proxy instance Data.Singletons.Prelude.Monad.Zip.SMonadZip m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.Zip.MzipSym0 instance forall (m :: * -> *) a (d :: m a) b. (Data.Singletons.Prelude.Monad.Zip.SMonadZip m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.Zip.MzipSym1 d) instance Data.Singletons.Prelude.Monad.Zip.SMonadZip m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.Zip.MzipWithSym0 instance forall (m :: * -> *) a b c (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). (Data.Singletons.Prelude.Monad.Zip.SMonadZip m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.Zip.MzipWithSym1 d) instance forall (m :: * -> *) a b c (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (d2 :: m a). (Data.Singletons.Prelude.Monad.Zip.SMonadZip m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.Zip.MzipWithSym2 d1 d2) instance Data.Singletons.Prelude.Monad.Zip.SMonadZip m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.Zip.MunzipSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150771Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip Data.Proxy.Proxy instance forall a b c (a6989586621681150777 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150771Sym1 a6989586621681150777) instance forall a b c (a6989586621681150777 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150778 :: Data.Proxy.Proxy a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150771Sym2 a6989586621681150777 a6989586621681150778) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150750Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip Data.Monoid.Last instance forall a b c (a6989586621681150762 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150750Sym1 a6989586621681150762) instance forall a b c (a6989586621681150762 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150763 :: Data.Monoid.Last a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150750Sym2 a6989586621681150762 a6989586621681150763) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150729Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip Data.Monoid.First instance forall a b c (a6989586621681150741 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150729Sym1 a6989586621681150741) instance forall a b c (a6989586621681150741 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150742 :: Data.Monoid.First a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150729Sym2 a6989586621681150741 a6989586621681150742) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150708Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip GHC.Maybe.Maybe instance forall a b c (a6989586621681150720 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150708Sym1 a6989586621681150720) instance forall a b c (a6989586621681150720 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150721 :: GHC.Maybe.Maybe a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150708Sym2 a6989586621681150720 a6989586621681150721) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150687Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip Data.Semigroup.Internal.Product instance forall a b c (a6989586621681150699 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150687Sym1 a6989586621681150699) instance forall a b c (a6989586621681150699 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150700 :: Data.Semigroup.Internal.Product a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150687Sym2 a6989586621681150699 a6989586621681150700) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150666Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip Data.Semigroup.Internal.Sum instance forall a b c (a6989586621681150678 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150666Sym1 a6989586621681150678) instance forall a b c (a6989586621681150678 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150679 :: Data.Semigroup.Internal.Sum a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150666Sym2 a6989586621681150678 a6989586621681150679) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150645Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip Data.Semigroup.Internal.Dual instance forall a b c (a6989586621681150657 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150645Sym1 a6989586621681150657) instance forall a b c (a6989586621681150657 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150658 :: Data.Semigroup.Internal.Dual a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150645Sym2 a6989586621681150657 a6989586621681150658) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.Munzip_6989586621681150635Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip Data.Functor.Identity.Identity instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150616Sym0 instance forall a b c (a6989586621681150628 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150616Sym1 a6989586621681150628) instance forall a b c (a6989586621681150628 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150629 :: Data.Functor.Identity.Identity a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150616Sym2 a6989586621681150628 a6989586621681150629) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.Munzip_6989586621681150605Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip [] instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150586Sym0 instance forall a b c (a6989586621681150598 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150586Sym1 a6989586621681150598) instance forall a b c (a6989586621681150598 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150599 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150586Sym2 a6989586621681150598 a6989586621681150599) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.Mzip_6989586621681150570Sym0 instance forall a b (a6989586621681150579 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.Mzip_6989586621681150570Sym1 a6989586621681150579) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MunzipSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipSym0 instance forall (m :: * -> *) a b (a6989586621681150519 :: m a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipSym1 a6989586621681150519) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWithSym0 instance forall a b c (m :: * -> *) (a6989586621681150525 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWithSym1 a6989586621681150525) instance forall a b c (m :: * -> *) (a6989586621681150525 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150526 :: m a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWithSym2 a6989586621681150525 a6989586621681150526) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.Mzip_6989586621681150533Sym0 instance forall (m :: * -> *) a b (a6989586621681150542 :: m a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.Mzip_6989586621681150533Sym1 a6989586621681150542) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150549Sym0 instance forall a b c (m :: * -> *) (a6989586621681150555 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150549Sym1 a6989586621681150555) instance forall a b c (m :: * -> *) (a6989586621681150555 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681150556 :: m a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Zip.MzipWith_6989586621681150549Sym2 a6989586621681150555 a6989586621681150556) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Zip.Munzip_6989586621681150562Sym0 -- | Defines functions and datatypes relating to the singleton for -- NonEmpty, including a singletons version 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.Singletons.Prelude.List.NonEmpty -- | The singleton kind-indexed type family. type family Sing data SNonEmpty z_a1eAQ [:%|] :: forall (a_abqn :: Type) (n_a1eAE :: a_abqn) (n_a1eAF :: [a_abqn]). () => Sing n_a1eAE -> Sing n_a1eAF -> SNonEmpty ('(:|) n_a1eAE n_a1eAF :: NonEmpty (a_abqn :: Type)) infixr 5 :%| type family Map a_a98ax a_a98ay sMap :: forall a_a97Jg b_a97Jh (t_a98fJ :: (~>) a_a97Jg b_a97Jh) (t_a98fK :: NonEmpty a_a97Jg). Sing t_a98fJ -> Sing t_a98fK -> Sing (Apply (Apply MapSym0 t_a98fJ) t_a98fK :: NonEmpty b_a97Jh) type family Intersperse a_a989n a_a989o sIntersperse :: forall a_a97J6 (t_a98fd :: a_a97J6) (t_a98fe :: NonEmpty a_a97J6). Sing t_a98fd -> Sing t_a98fe -> Sing (Apply (Apply IntersperseSym0 t_a98fd) t_a98fe :: NonEmpty a_a97J6) type family Scanl a_a98a2 a_a98a3 a_a98a4 sScanl :: forall b_a97Jb a_a97Jc (t_a98fv :: (~>) b_a97Jb ((~>) a_a97Jc b_a97Jb)) (t_a98fw :: b_a97Jb) (t_a98fx :: [a_a97Jc]). Sing t_a98fv -> Sing t_a98fw -> Sing t_a98fx -> Sing (Apply (Apply (Apply ScanlSym0 t_a98fv) t_a98fw) t_a98fx :: NonEmpty b_a97Jb) type family Scanr a_a989Q a_a989R a_a989S sScanr :: forall a_a97J9 b_a97Ja (t_a98fp :: (~>) a_a97J9 ((~>) b_a97Ja b_a97Ja)) (t_a98fq :: b_a97Ja) (t_a98fr :: [a_a97J9]). Sing t_a98fp -> Sing t_a98fq -> Sing t_a98fr -> Sing (Apply (Apply (Apply ScanrSym0 t_a98fp) t_a98fq) t_a98fr :: NonEmpty b_a97Ja) type family Scanl1 a_a989G a_a989H sScanl1 :: forall a_a97J8 (t_a98fl :: (~>) a_a97J8 ((~>) a_a97J8 a_a97J8)) (t_a98fm :: NonEmpty a_a97J8). Sing t_a98fl -> Sing t_a98fm -> Sing (Apply (Apply Scanl1Sym0 t_a98fl) t_a98fm :: NonEmpty a_a97J8) type family Scanr1 a_a989y a_a989z sScanr1 :: forall a_a97J7 (t_a98fh :: (~>) a_a97J7 ((~>) a_a97J7 a_a97J7)) (t_a98fi :: NonEmpty a_a97J7). Sing t_a98fh -> Sing t_a98fi -> Sing (Apply (Apply Scanr1Sym0 t_a98fh) t_a98fi :: NonEmpty a_a97J7) type family Transpose a_a984H sTranspose :: forall a_a97Iy (t_a98dH :: NonEmpty (NonEmpty a_a97Iy)). Sing t_a98dH -> Sing (Apply TransposeSym0 t_a98dH :: NonEmpty (NonEmpty a_a97Iy)) type family SortBy a_a984y a_a984z sSortBy :: forall a_a97Ix (t_a98dD :: (~>) a_a97Ix ((~>) a_a97Ix Ordering)) (t_a98dE :: NonEmpty a_a97Ix). Sing t_a98dD -> Sing t_a98dE -> Sing (Apply (Apply SortBySym0 t_a98dD) t_a98dE :: NonEmpty a_a97Ix) type family SortWith a_a984p a_a984q sSortWith :: forall a_a97Iw o_a97Iv (t_a98dz :: (~>) a_a97Iw o_a97Iv) (t_a98dA :: NonEmpty a_a97Iw). SOrd o_a97Iv => Sing t_a98dz -> Sing t_a98dA -> Sing (Apply (Apply SortWithSym0 t_a98dz) t_a98dA :: NonEmpty a_a97Iw) type family Length a_a98cE sLength :: forall a_a97Jz (t_a98gr :: NonEmpty a_a97Jz). Sing t_a98gr -> Sing (Apply LengthSym0 t_a98gr :: Nat) type family Head a_a98bB sHead :: forall a_a97Js (t_a98gb :: NonEmpty a_a97Js). Sing t_a98gb -> Sing (Apply HeadSym0 t_a98gb :: a_a97Js) type family Tail a_a98bx sTail :: forall a_a97Jr (t_a98g9 :: NonEmpty a_a97Jr). Sing t_a98g9 -> Sing (Apply TailSym0 t_a98g9 :: [a_a97Jr]) type family Last a_a98bs sLast :: forall a_a97Jq (t_a98g7 :: NonEmpty a_a97Jq). Sing t_a98g7 -> Sing (Apply LastSym0 t_a98g7 :: a_a97Jq) type family Init a_a98bn sInit :: forall a_a97Jp (t_a98g5 :: NonEmpty a_a97Jp). Sing t_a98g5 -> Sing (Apply InitSym0 t_a98g5 :: [a_a97Jp]) type family (<|) a_a98bf a_a98bg (%<|) :: forall a_a97Jo (t_a98g1 :: a_a97Jo) (t_a98g2 :: NonEmpty a_a97Jo). Sing t_a98g1 -> Sing t_a98g2 -> Sing (Apply (Apply (<|@#@$) t_a98g1) t_a98g2 :: NonEmpty a_a97Jo) type family Cons a_a98b8 a_a98b9 sCons :: forall a_a97Jn (t_a98fX :: a_a97Jn) (t_a98fY :: NonEmpty a_a97Jn). Sing t_a98fX -> Sing t_a98fY -> Sing (Apply (Apply ConsSym0 t_a98fX) t_a98fY :: NonEmpty a_a97Jn) type family Uncons a_a98c4 sUncons :: forall a_a97Jv (t_a98gh :: NonEmpty a_a97Jv). Sing t_a98gh -> Sing (Apply UnconsSym0 t_a98gh :: (a_a97Jv, Maybe (NonEmpty a_a97Jv))) type family Unfoldr a_a98bF a_a98bG sUnfoldr :: forall a_a97Jt b_a97Ju (t_a98gd :: (~>) a_a97Jt (b_a97Ju, Maybe a_a97Jt)) (t_a98ge :: a_a97Jt). Sing t_a98gd -> Sing t_a98ge -> Sing (Apply (Apply UnfoldrSym0 t_a98gd) t_a98ge :: NonEmpty b_a97Ju) type family Sort a_a98b0 sSort :: forall a_a97Jm (t_a98fV :: NonEmpty a_a97Jm). SOrd a_a97Jm => Sing t_a98fV -> Sing (Apply SortSym0 t_a98fV :: NonEmpty a_a97Jm) type family Reverse a_a989j sReverse :: forall a_a97J5 (t_a98fb :: NonEmpty a_a97J5). Sing t_a98fb -> Sing (Apply ReverseSym0 t_a98fb :: NonEmpty a_a97J5) type family Inits a_a98at sInits :: forall a_a97Jf (t_a98fH :: [a_a97Jf]). Sing t_a98fH -> Sing (Apply InitsSym0 t_a98fH :: NonEmpty [a_a97Jf]) type family Tails a_a98an sTails :: forall a_a97Je (t_a98fF :: [a_a97Je]). Sing t_a98fF -> Sing (Apply TailsSym0 t_a98fF :: NonEmpty [a_a97Je]) type family Unfold a_a98ce a_a98cf sUnfold :: forall a_a97Jx b_a97Jy (t_a98gl :: (~>) a_a97Jx (b_a97Jy, Maybe a_a97Jx)) (t_a98gm :: a_a97Jx). Sing t_a98gl -> Sing t_a98gm -> Sing (Apply (Apply UnfoldSym0 t_a98gl) t_a98gm :: NonEmpty b_a97Jy) type family Insert a_a98ae a_a98af sInsert :: forall a_a97Jd (t_a98fB :: a_a97Jd) (t_a98fC :: [a_a97Jd]). SOrd a_a97Jd => Sing t_a98fB -> Sing t_a98fC -> Sing (Apply (Apply InsertSym0 t_a98fB) t_a98fC :: NonEmpty a_a97Jd) type family Take a_a989a a_a989b sTake :: forall a_a97J4 (t_a98f7 :: Nat) (t_a98f8 :: NonEmpty a_a97J4). Sing t_a98f7 -> Sing t_a98f8 -> Sing (Apply (Apply TakeSym0 t_a98f7) t_a98f8 :: [a_a97J4]) type family Drop a_a9891 a_a9892 sDrop :: forall a_a97J3 (t_a98f3 :: Nat) (t_a98f4 :: NonEmpty a_a97J3). Sing t_a98f3 -> Sing t_a98f4 -> Sing (Apply (Apply DropSym0 t_a98f3) t_a98f4 :: [a_a97J3]) type family SplitAt a_a988S a_a988T sSplitAt :: forall a_a97J2 (t_a98eZ :: Nat) (t_a98f0 :: NonEmpty a_a97J2). Sing t_a98eZ -> Sing t_a98f0 -> Sing (Apply (Apply SplitAtSym0 t_a98eZ) t_a98f0 :: ([a_a97J2], [a_a97J2])) type family TakeWhile a_a988J a_a988K sTakeWhile :: forall a_a97J1 (t_a98eV :: (~>) a_a97J1 Bool) (t_a98eW :: NonEmpty a_a97J1). Sing t_a98eV -> Sing t_a98eW -> Sing (Apply (Apply TakeWhileSym0 t_a98eV) t_a98eW :: [a_a97J1]) type family DropWhile a_a988A a_a988B sDropWhile :: forall a_a97J0 (t_a98eR :: (~>) a_a97J0 Bool) (t_a98eS :: NonEmpty a_a97J0). Sing t_a98eR -> Sing t_a98eS -> Sing (Apply (Apply DropWhileSym0 t_a98eR) t_a98eS :: [a_a97J0]) type family Span a_a988r a_a988s sSpan :: forall a_a97IZ (t_a98eN :: (~>) a_a97IZ Bool) (t_a98eO :: NonEmpty a_a97IZ). Sing t_a98eN -> Sing t_a98eO -> Sing (Apply (Apply SpanSym0 t_a98eN) t_a98eO :: ([a_a97IZ], [a_a97IZ])) type family Break a_a988i a_a988j sBreak :: forall a_a97IY (t_a98eJ :: (~>) a_a97IY Bool) (t_a98eK :: NonEmpty a_a97IY). Sing t_a98eJ -> Sing t_a98eK -> Sing (Apply (Apply BreakSym0 t_a98eJ) t_a98eK :: ([a_a97IY], [a_a97IY])) type family Filter a_a9889 a_a988a sFilter :: forall a_a97IX (t_a98eF :: (~>) a_a97IX Bool) (t_a98eG :: NonEmpty a_a97IX). Sing t_a98eF -> Sing t_a98eG -> Sing (Apply (Apply FilterSym0 t_a98eF) t_a98eG :: [a_a97IX]) type family Partition a_a9880 a_a9881 sPartition :: forall a_a97IW (t_a98eB :: (~>) a_a97IW Bool) (t_a98eC :: NonEmpty a_a97IW). Sing t_a98eB -> Sing t_a98eC -> Sing (Apply (Apply PartitionSym0 t_a98eB) t_a98eC :: ([a_a97IW], [a_a97IW])) type family Group a_a987U sGroup :: forall a_a97IV (t_a98ez :: [a_a97IV]). SEq a_a97IV => Sing t_a98ez -> Sing (Apply GroupSym0 t_a98ez :: [NonEmpty a_a97IV]) type family GroupBy a_a987m a_a987n sGroupBy :: forall a_a97IU (t_a98ev :: (~>) a_a97IU ((~>) a_a97IU Bool)) (t_a98ew :: [a_a97IU]). Sing t_a98ev -> Sing t_a98ew -> Sing (Apply (Apply GroupBySym0 t_a98ev) t_a98ew :: [NonEmpty a_a97IU]) type family GroupWith a_a987d a_a987e sGroupWith :: forall a_a97IT b_a97IS (t_a98er :: (~>) a_a97IT b_a97IS) (t_a98es :: [a_a97IT]). SEq b_a97IS => Sing t_a98er -> Sing t_a98es -> Sing (Apply (Apply GroupWithSym0 t_a98er) t_a98es :: [NonEmpty a_a97IT]) type family GroupAllWith a_a9874 a_a9875 sGroupAllWith :: forall a_a97IR b_a97IQ (t_a98en :: (~>) a_a97IR b_a97IQ) (t_a98eo :: [a_a97IR]). SOrd b_a97IQ => Sing t_a98en -> Sing t_a98eo -> Sing (Apply (Apply GroupAllWithSym0 t_a98en) t_a98eo :: [NonEmpty a_a97IR]) type family Group1 a_a986Y sGroup1 :: forall a_a97IP (t_a98el :: NonEmpty a_a97IP). SEq a_a97IP => Sing t_a98el -> Sing (Apply Group1Sym0 t_a98el :: NonEmpty (NonEmpty a_a97IP)) type family GroupBy1 a_a986w a_a986x sGroupBy1 :: forall a_a97IO (t_a98eh :: (~>) a_a97IO ((~>) a_a97IO Bool)) (t_a98ei :: NonEmpty a_a97IO). Sing t_a98eh -> Sing t_a98ei -> Sing (Apply (Apply GroupBy1Sym0 t_a98eh) t_a98ei :: NonEmpty (NonEmpty a_a97IO)) type family GroupWith1 a_a986p a_a986q sGroupWith1 :: forall a_a97IN b_a97IM (t_a98ed :: (~>) a_a97IN b_a97IM) (t_a98ee :: NonEmpty a_a97IN). SEq b_a97IM => Sing t_a98ed -> Sing t_a98ee -> Sing (Apply (Apply GroupWith1Sym0 t_a98ed) t_a98ee :: NonEmpty (NonEmpty a_a97IN)) type family GroupAllWith1 a_a986g a_a986h sGroupAllWith1 :: forall a_a97IL b_a97IK (t_a98e9 :: (~>) a_a97IL b_a97IK) (t_a98ea :: NonEmpty a_a97IL). SOrd b_a97IK => Sing t_a98e9 -> Sing t_a98ea -> Sing (Apply (Apply GroupAllWith1Sym0 t_a98e9) t_a98ea :: NonEmpty (NonEmpty a_a97IL)) type family IsPrefixOf a_a9865 a_a9866 sIsPrefixOf :: forall a_a97IJ (t_a98e5 :: [a_a97IJ]) (t_a98e6 :: NonEmpty a_a97IJ). SEq a_a97IJ => Sing t_a98e5 -> Sing t_a98e6 -> Sing (Apply (Apply IsPrefixOfSym0 t_a98e5) t_a98e6 :: Bool) type family Nub a_a984Z sNub :: forall a_a97IA (t_a98dN :: NonEmpty a_a97IA). SEq a_a97IA => Sing t_a98dN -> Sing (Apply NubSym0 t_a98dN :: NonEmpty a_a97IA) type family NubBy a_a984L a_a984M sNubBy :: forall a_a97Iz (t_a98dJ :: (~>) a_a97Iz ((~>) a_a97Iz Bool)) (t_a98dK :: NonEmpty a_a97Iz). Sing t_a98dJ -> Sing t_a98dK -> Sing (Apply (Apply NubBySym0 t_a98dJ) t_a98dK :: NonEmpty a_a97Iz) type family (!!) a_a985M a_a985N (%!!) :: forall a_a97II (t_a98e1 :: NonEmpty a_a97II) (t_a98e2 :: Nat). Sing t_a98e1 -> Sing t_a98e2 -> Sing (Apply (Apply (!!@#@$) t_a98e1) t_a98e2 :: a_a97II) type family Zip a_a985D a_a985E sZip :: forall a_a97IG b_a97IH (t_a98dX :: NonEmpty a_a97IG) (t_a98dY :: NonEmpty b_a97IH). Sing t_a98dX -> Sing t_a98dY -> Sing (Apply (Apply ZipSym0 t_a98dX) t_a98dY :: NonEmpty (a_a97IG, b_a97IH)) type family ZipWith a_a985r a_a985s a_a985t sZipWith :: forall a_a97ID b_a97IE c_a97IF (t_a98dR :: (~>) a_a97ID ((~>) b_a97IE c_a97IF)) (t_a98dS :: NonEmpty a_a97ID) (t_a98dT :: NonEmpty b_a97IE). Sing t_a98dR -> Sing t_a98dS -> Sing t_a98dT -> Sing (Apply (Apply (Apply ZipWithSym0 t_a98dR) t_a98dS) t_a98dT :: NonEmpty c_a97IF) type family Unzip a_a9853 sUnzip :: forall a_a97IB b_a97IC (t_a98dP :: NonEmpty (a_a97IB, b_a97IC)). Sing t_a98dP -> Sing (Apply UnzipSym0 t_a98dP :: (NonEmpty a_a97IB, NonEmpty b_a97IC)) type family FromList a_a98aT sFromList :: forall a_a97Jl (t_a98fT :: [a_a97Jl]). Sing t_a98fT -> Sing (Apply FromListSym0 t_a98fT :: NonEmpty a_a97Jl) type family ToList a_a98aO sToList :: forall a_a97Jk (t_a98fR :: NonEmpty a_a97Jk). Sing t_a98fR -> Sing (Apply ToListSym0 t_a98fR :: [a_a97Jk]) type family NonEmpty_ a_a98c9 sNonEmpty_ :: forall a_a97Jw (t_a98gj :: [a_a97Jw]). Sing t_a98gj -> Sing (Apply NonEmpty_Sym0 t_a98gj :: Maybe (NonEmpty a_a97Jw)) type family Xor a_a98ct sXor :: forall (t_a98gp :: NonEmpty Bool). Sing t_a98gp -> Sing (Apply XorSym0 t_a98gp :: Bool) data (:|@#@$) a6989586621679304206 infixr 5 :|@#@$ data (:|@#@$$) a6989586621679304206 a6989586621679304207 infixr 5 :|@#@$$ type (:|@#@$$$) (a6989586621679304206 :: a_abqn) (a6989586621679304207 :: [a_abqn]) = '(:|) a6989586621679304206 a6989586621679304207 :: NonEmpty (a_abqn :: Type) infixr 5 :|@#@$$$ data MapSym0 a6989586621681186152 data MapSym1 a6989586621681186152 a6989586621681186153 type MapSym2 (a6989586621681186152 :: (~>) a_a97Jg b_a97Jh) (a6989586621681186153 :: NonEmpty a_a97Jg) = Map a6989586621681186152 a6989586621681186153 :: NonEmpty b_a97Jh data IntersperseSym0 a6989586621681186080 data IntersperseSym1 a6989586621681186080 a6989586621681186081 type IntersperseSym2 (a6989586621681186080 :: a_a97J6) (a6989586621681186081 :: NonEmpty a_a97J6) = Intersperse a6989586621681186080 a6989586621681186081 :: NonEmpty a_a97J6 data ScanlSym0 a6989586621681186122 data ScanlSym1 a6989586621681186122 a6989586621681186123 data ScanlSym2 a6989586621681186122 a6989586621681186123 a6989586621681186124 type ScanlSym3 (a6989586621681186122 :: (~>) b_a97Jb ((~>) a_a97Jc b_a97Jb)) (a6989586621681186123 :: b_a97Jb) (a6989586621681186124 :: [a_a97Jc]) = Scanl a6989586621681186122 a6989586621681186123 a6989586621681186124 :: NonEmpty b_a97Jb data ScanrSym0 a6989586621681186110 data ScanrSym1 a6989586621681186110 a6989586621681186111 data ScanrSym2 a6989586621681186110 a6989586621681186111 a6989586621681186112 type ScanrSym3 (a6989586621681186110 :: (~>) a_a97J9 ((~>) b_a97Ja b_a97Ja)) (a6989586621681186111 :: b_a97Ja) (a6989586621681186112 :: [a_a97J9]) = Scanr a6989586621681186110 a6989586621681186111 a6989586621681186112 :: NonEmpty b_a97Ja data Scanl1Sym0 a6989586621681186099 data Scanl1Sym1 a6989586621681186099 a6989586621681186100 type Scanl1Sym2 (a6989586621681186099 :: (~>) a_a97J8 ((~>) a_a97J8 a_a97J8)) (a6989586621681186100 :: NonEmpty a_a97J8) = Scanl1 a6989586621681186099 a6989586621681186100 :: NonEmpty a_a97J8 data Scanr1Sym0 a6989586621681186091 data Scanr1Sym1 a6989586621681186091 a6989586621681186092 type Scanr1Sym2 (a6989586621681186091 :: (~>) a_a97J7 ((~>) a_a97J7 a_a97J7)) (a6989586621681186092 :: NonEmpty a_a97J7) = Scanr1 a6989586621681186091 a6989586621681186092 :: NonEmpty a_a97J7 data TransposeSym0 a6989586621681185789 type TransposeSym1 (a6989586621681185789 :: NonEmpty (NonEmpty a_a97Iy)) = Transpose a6989586621681185789 :: NonEmpty (NonEmpty a_a97Iy) data SortBySym0 a6989586621681185781 data SortBySym1 a6989586621681185781 a6989586621681185782 type SortBySym2 (a6989586621681185781 :: (~>) a_a97Ix ((~>) a_a97Ix Ordering)) (a6989586621681185782 :: NonEmpty a_a97Ix) = SortBy a6989586621681185781 a6989586621681185782 :: NonEmpty a_a97Ix data SortWithSym0 a6989586621681185772 data SortWithSym1 a6989586621681185772 a6989586621681185773 type SortWithSym2 (a6989586621681185772 :: (~>) a_a97Iw o_a97Iv) (a6989586621681185773 :: NonEmpty a_a97Iw) = SortWith a6989586621681185772 a6989586621681185773 :: NonEmpty a_a97Iw data LengthSym0 a6989586621681186282 type LengthSym1 (a6989586621681186282 :: NonEmpty a_a97Jz) = Length a6989586621681186282 :: Nat data HeadSym0 a6989586621681186217 type HeadSym1 (a6989586621681186217 :: NonEmpty a_a97Js) = Head a6989586621681186217 :: a_a97Js data TailSym0 a6989586621681186213 type TailSym1 (a6989586621681186213 :: NonEmpty a_a97Jr) = Tail a6989586621681186213 :: [a_a97Jr] data LastSym0 a6989586621681186208 type LastSym1 (a6989586621681186208 :: NonEmpty a_a97Jq) = Last a6989586621681186208 :: a_a97Jq data InitSym0 a6989586621681186203 type InitSym1 (a6989586621681186203 :: NonEmpty a_a97Jp) = Init a6989586621681186203 :: [a_a97Jp] data (<|@#@$) a6989586621681186196 data (<|@#@$$) a6989586621681186196 a6989586621681186197 type (<|@#@$$$) (a6989586621681186196 :: a_a97Jo) (a6989586621681186197 :: NonEmpty a_a97Jo) = (<|) a6989586621681186196 a6989586621681186197 :: NonEmpty a_a97Jo data ConsSym0 a6989586621681186189 data ConsSym1 a6989586621681186189 a6989586621681186190 type ConsSym2 (a6989586621681186189 :: a_a97Jn) (a6989586621681186190 :: NonEmpty a_a97Jn) = Cons a6989586621681186189 a6989586621681186190 :: NonEmpty a_a97Jn data UnconsSym0 a6989586621681186246 type UnconsSym1 (a6989586621681186246 :: NonEmpty a_a97Jv) = Uncons a6989586621681186246 :: (a_a97Jv, Maybe (NonEmpty a_a97Jv)) data UnfoldrSym0 a6989586621681186222 data UnfoldrSym1 a6989586621681186222 a6989586621681186223 type UnfoldrSym2 (a6989586621681186222 :: (~>) a_a97Jt (b_a97Ju, Maybe a_a97Jt)) (a6989586621681186223 :: a_a97Jt) = Unfoldr a6989586621681186222 a6989586621681186223 :: NonEmpty b_a97Ju data SortSym0 a6989586621681186180 type SortSym1 (a6989586621681186180 :: NonEmpty a_a97Jm) = Sort a6989586621681186180 :: NonEmpty a_a97Jm data ReverseSym0 a6989586621681186075 type ReverseSym1 (a6989586621681186075 :: NonEmpty a_a97J5) = Reverse a6989586621681186075 :: NonEmpty a_a97J5 data InitsSym0 a6989586621681186147 type InitsSym1 (a6989586621681186147 :: [a_a97Jf]) = Inits a6989586621681186147 :: NonEmpty [a_a97Jf] data TailsSym0 a6989586621681186141 type TailsSym1 (a6989586621681186141 :: [a_a97Je]) = Tails a6989586621681186141 :: NonEmpty [a_a97Je] data UnfoldSym0 a6989586621681186257 data UnfoldSym1 a6989586621681186257 a6989586621681186258 data InsertSym0 a6989586621681186133 data InsertSym1 a6989586621681186133 a6989586621681186134 type InsertSym2 (a6989586621681186133 :: a_a97Jd) (a6989586621681186134 :: [a_a97Jd]) = Insert a6989586621681186133 a6989586621681186134 :: NonEmpty a_a97Jd data TakeSym0 a6989586621681186067 data TakeSym1 a6989586621681186067 a6989586621681186068 type TakeSym2 (a6989586621681186067 :: Nat) (a6989586621681186068 :: NonEmpty a_a97J4) = Take a6989586621681186067 a6989586621681186068 :: [a_a97J4] data DropSym0 a6989586621681186058 data DropSym1 a6989586621681186058 a6989586621681186059 type DropSym2 (a6989586621681186058 :: Nat) (a6989586621681186059 :: NonEmpty a_a97J3) = Drop a6989586621681186058 a6989586621681186059 :: [a_a97J3] data SplitAtSym0 a6989586621681186049 data SplitAtSym1 a6989586621681186049 a6989586621681186050 type SplitAtSym2 (a6989586621681186049 :: Nat) (a6989586621681186050 :: NonEmpty a_a97J2) = SplitAt a6989586621681186049 a6989586621681186050 :: ([a_a97J2], [a_a97J2]) data TakeWhileSym0 a6989586621681186040 data TakeWhileSym1 a6989586621681186040 a6989586621681186041 type TakeWhileSym2 (a6989586621681186040 :: (~>) a_a97J1 Bool) (a6989586621681186041 :: NonEmpty a_a97J1) = TakeWhile a6989586621681186040 a6989586621681186041 :: [a_a97J1] data DropWhileSym0 a6989586621681186031 data DropWhileSym1 a6989586621681186031 a6989586621681186032 type DropWhileSym2 (a6989586621681186031 :: (~>) a_a97J0 Bool) (a6989586621681186032 :: NonEmpty a_a97J0) = DropWhile a6989586621681186031 a6989586621681186032 :: [a_a97J0] data SpanSym0 a6989586621681186022 data SpanSym1 a6989586621681186022 a6989586621681186023 type SpanSym2 (a6989586621681186022 :: (~>) a_a97IZ Bool) (a6989586621681186023 :: NonEmpty a_a97IZ) = Span a6989586621681186022 a6989586621681186023 :: ([a_a97IZ], [a_a97IZ]) data BreakSym0 a6989586621681186013 data BreakSym1 a6989586621681186013 a6989586621681186014 type BreakSym2 (a6989586621681186013 :: (~>) a_a97IY Bool) (a6989586621681186014 :: NonEmpty a_a97IY) = Break a6989586621681186013 a6989586621681186014 :: ([a_a97IY], [a_a97IY]) data FilterSym0 a6989586621681186004 data FilterSym1 a6989586621681186004 a6989586621681186005 type FilterSym2 (a6989586621681186004 :: (~>) a_a97IX Bool) (a6989586621681186005 :: NonEmpty a_a97IX) = Filter a6989586621681186004 a6989586621681186005 :: [a_a97IX] data PartitionSym0 a6989586621681185995 data PartitionSym1 a6989586621681185995 a6989586621681185996 type PartitionSym2 (a6989586621681185995 :: (~>) a_a97IW Bool) (a6989586621681185996 :: NonEmpty a_a97IW) = Partition a6989586621681185995 a6989586621681185996 :: ([a_a97IW], [a_a97IW]) data GroupSym0 a6989586621681185988 type GroupSym1 (a6989586621681185988 :: [a_a97IV]) = Group a6989586621681185988 :: [NonEmpty a_a97IV] data GroupBySym0 a6989586621681185955 data GroupBySym1 a6989586621681185955 a6989586621681185956 type GroupBySym2 (a6989586621681185955 :: (~>) a_a97IU ((~>) a_a97IU Bool)) (a6989586621681185956 :: [a_a97IU]) = GroupBy a6989586621681185955 a6989586621681185956 :: [NonEmpty a_a97IU] data GroupWithSym0 a6989586621681185946 data GroupWithSym1 a6989586621681185946 a6989586621681185947 type GroupWithSym2 (a6989586621681185946 :: (~>) a_a97IT b_a97IS) (a6989586621681185947 :: [a_a97IT]) = GroupWith a6989586621681185946 a6989586621681185947 :: [NonEmpty a_a97IT] data GroupAllWithSym0 a6989586621681185937 data GroupAllWithSym1 a6989586621681185937 a6989586621681185938 type GroupAllWithSym2 (a6989586621681185937 :: (~>) a_a97IR b_a97IQ) (a6989586621681185938 :: [a_a97IR]) = GroupAllWith a6989586621681185937 a6989586621681185938 :: [NonEmpty a_a97IR] data Group1Sym0 a6989586621681185930 type Group1Sym1 (a6989586621681185930 :: NonEmpty a_a97IP) = Group1 a6989586621681185930 :: NonEmpty (NonEmpty a_a97IP) data GroupBy1Sym0 a6989586621681185903 data GroupBy1Sym1 a6989586621681185903 a6989586621681185904 type GroupBy1Sym2 (a6989586621681185903 :: (~>) a_a97IO ((~>) a_a97IO Bool)) (a6989586621681185904 :: NonEmpty a_a97IO) = GroupBy1 a6989586621681185903 a6989586621681185904 :: NonEmpty (NonEmpty a_a97IO) data GroupWith1Sym0 a6989586621681185896 data GroupWith1Sym1 a6989586621681185896 a6989586621681185897 type GroupWith1Sym2 (a6989586621681185896 :: (~>) a_a97IN b_a97IM) (a6989586621681185897 :: NonEmpty a_a97IN) = GroupWith1 a6989586621681185896 a6989586621681185897 :: NonEmpty (NonEmpty a_a97IN) data GroupAllWith1Sym0 a6989586621681185887 data GroupAllWith1Sym1 a6989586621681185887 a6989586621681185888 type GroupAllWith1Sym2 (a6989586621681185887 :: (~>) a_a97IL b_a97IK) (a6989586621681185888 :: NonEmpty a_a97IL) = GroupAllWith1 a6989586621681185887 a6989586621681185888 :: NonEmpty (NonEmpty a_a97IL) data IsPrefixOfSym0 a6989586621681185876 data IsPrefixOfSym1 a6989586621681185876 a6989586621681185877 type IsPrefixOfSym2 (a6989586621681185876 :: [a_a97IJ]) (a6989586621681185877 :: NonEmpty a_a97IJ) = IsPrefixOf a6989586621681185876 a6989586621681185877 :: Bool data NubSym0 a6989586621681185807 type NubSym1 (a6989586621681185807 :: NonEmpty a_a97IA) = Nub a6989586621681185807 :: NonEmpty a_a97IA data NubBySym0 a6989586621681185794 data NubBySym1 a6989586621681185794 a6989586621681185795 type NubBySym2 (a6989586621681185794 :: (~>) a_a97Iz ((~>) a_a97Iz Bool)) (a6989586621681185795 :: NonEmpty a_a97Iz) = NubBy a6989586621681185794 a6989586621681185795 :: NonEmpty a_a97Iz data (!!@#@$) a6989586621681185857 data (!!@#@$$) a6989586621681185857 a6989586621681185858 type (!!@#@$$$) (a6989586621681185857 :: NonEmpty a_a97II) (a6989586621681185858 :: Nat) = (!!) a6989586621681185857 a6989586621681185858 :: a_a97II data ZipSym0 a6989586621681185848 data ZipSym1 a6989586621681185848 a6989586621681185849 type ZipSym2 (a6989586621681185848 :: NonEmpty a_a97IG) (a6989586621681185849 :: NonEmpty b_a97IH) = Zip a6989586621681185848 a6989586621681185849 :: NonEmpty (a_a97IG, b_a97IH) data ZipWithSym0 a6989586621681185837 data ZipWithSym1 a6989586621681185837 a6989586621681185838 data ZipWithSym2 a6989586621681185837 a6989586621681185838 a6989586621681185839 type ZipWithSym3 (a6989586621681185837 :: (~>) a_a97ID ((~>) b_a97IE c_a97IF)) (a6989586621681185838 :: NonEmpty a_a97ID) (a6989586621681185839 :: NonEmpty b_a97IE) = ZipWith a6989586621681185837 a6989586621681185838 a6989586621681185839 :: NonEmpty c_a97IF data UnzipSym0 a6989586621681185811 type UnzipSym1 (a6989586621681185811 :: NonEmpty (a_a97IB, b_a97IC)) = Unzip a6989586621681185811 :: (NonEmpty a_a97IB, NonEmpty b_a97IC) data FromListSym0 a6989586621681186173 type FromListSym1 (a6989586621681186173 :: [a_a97Jl]) = FromList a6989586621681186173 :: NonEmpty a_a97Jl data ToListSym0 a6989586621681186168 type ToListSym1 (a6989586621681186168 :: NonEmpty a_a97Jk) = ToList a6989586621681186168 :: [a_a97Jk] data NonEmpty_Sym0 a6989586621681186251 type NonEmpty_Sym1 (a6989586621681186251 :: [a_a97Jw]) = NonEmpty_ a6989586621681186251 :: Maybe (NonEmpty a_a97Jw) data XorSym0 a6989586621681186271 type XorSym1 (a6989586621681186271 :: NonEmpty Bool) = Xor a6989586621681186271 :: Bool instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Munzip_6989586621681186329Sym0 instance Data.Singletons.Prelude.Monad.Zip.PMonadZip GHC.Base.NonEmpty instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.MzipWith_6989586621681186310Sym0 instance forall a b c (a6989586621681186322 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.MzipWith_6989586621681186310Sym1 a6989586621681186322) instance forall a b c (a6989586621681186322 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681186323 :: GHC.Base.NonEmpty a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.MzipWith_6989586621681186310Sym2 a6989586621681186322 a6989586621681186323) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Mzip_6989586621681186294Sym0 instance forall a b (a6989586621681186303 :: GHC.Base.NonEmpty a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Mzip_6989586621681186294Sym1 a6989586621681186303) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.TransposeSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.TransposeSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.FmapSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.FmapSym0 instance forall a b (a6989586621681186287 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.FmapSym1 a6989586621681186287) instance forall a b (d :: a Data.Singletons.Internal.~> b). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.FmapSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.LengthSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.LengthSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.XorSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.XorSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.UnfoldSym0 instance forall a b (a6989586621681186257 :: a Data.Singletons.Internal.~> (b, GHC.Maybe.Maybe a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.UnfoldSym1 a6989586621681186257) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.UnfoldSym0 instance forall a b (d :: a Data.Singletons.Internal.~> (b, GHC.Maybe.Maybe a)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.UnfoldSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.UnconsSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.UnconsSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.NonEmpty_Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.NonEmpty_Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.UnfoldrSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.UnfoldrSym0 instance forall a b (a6989586621681186222 :: a Data.Singletons.Internal.~> (b, GHC.Maybe.Maybe a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.UnfoldrSym1 a6989586621681186222) instance forall a b (d :: a Data.Singletons.Internal.~> (b, GHC.Maybe.Maybe a)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.UnfoldrSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.HeadSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.HeadSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.TailSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.TailSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.LastSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.LastSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.InitSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.InitSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.ConsSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.ConsSym0 instance forall a (a6989586621681186189 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.ConsSym1 a6989586621681186189) instance forall a (d :: a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.ConsSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.<|@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.<|@#@$) instance forall a (a6989586621681186196 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.List.NonEmpty.<|@#@$$) a6989586621681186196) instance forall a (d :: a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.List.NonEmpty.<|@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.SortSym0 instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.SortSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Scanr1Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.Scanr1Sym0 instance forall a (a6989586621681186091 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Scanr1Sym1 a6989586621681186091) instance forall a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.Scanr1Sym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Scanl1Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.Scanl1Sym0 instance forall a (a6989586621681186099 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Scanl1Sym1 a6989586621681186099) instance forall a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> a)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.Scanl1Sym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.ScanrSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.ScanrSym0 instance forall a b (a6989586621681186110 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.ScanrSym1 a6989586621681186110) instance forall a b (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.ScanrSym1 d) instance forall a b (a6989586621681186110 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (a6989586621681186111 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.ScanrSym2 a6989586621681186110 a6989586621681186111) instance forall a b (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> b)) (d2 :: b). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.ScanrSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.ScanlSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.ScanlSym0 instance forall b a (a6989586621681186122 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.ScanlSym1 a6989586621681186122) instance forall b a (d :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.ScanlSym1 d) instance forall b a (a6989586621681186122 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (a6989586621681186123 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.ScanlSym2 a6989586621681186122 a6989586621681186123) instance forall b a (d1 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> b)) (d2 :: b). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.ScanlSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.InsertSym0 instance Data.Singletons.Prelude.Ord.SOrd a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.InsertSym0 instance forall a (a6989586621681186133 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.InsertSym1 a6989586621681186133) instance forall a (d :: a). (Data.Singletons.Prelude.Ord.SOrd a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.InsertSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.TailsSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.TailsSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.InitsSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.InitsSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.GroupAllWith1Sym0 instance Data.Singletons.Prelude.Ord.SOrd b => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.GroupAllWith1Sym0 instance forall a b (a6989586621681185887 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.GroupAllWith1Sym1 a6989586621681185887) instance forall b a (d :: a Data.Singletons.Internal.~> b). (Data.Singletons.Prelude.Ord.SOrd b, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.GroupAllWith1Sym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.SortWithSym0 instance Data.Singletons.Prelude.Ord.SOrd o => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.SortWithSym0 instance forall a o (a6989586621681185772 :: a Data.Singletons.Internal.~> o). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.SortWithSym1 a6989586621681185772) instance forall o a (d :: a Data.Singletons.Internal.~> o). (Data.Singletons.Prelude.Ord.SOrd o, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.SortWithSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.SortBySym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.SortBySym0 instance forall a (a6989586621681185781 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Ordering)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.SortBySym1 a6989586621681185781) instance forall a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Ordering)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.SortBySym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.ReverseSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.ReverseSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.LiftSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.LiftSym0 instance forall a b (a6989586621681186162 :: [a] Data.Singletons.Internal.~> [b]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.LiftSym1 a6989586621681186162) instance forall a b (d :: [a] Data.Singletons.Internal.~> [b]). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.LiftSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.FromListSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.FromListSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.PartitionSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.PartitionSym0 instance forall a (a6989586621681185995 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.PartitionSym1 a6989586621681185995) instance forall a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.PartitionSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.FilterSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.FilterSym0 instance forall a (a6989586621681186004 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.FilterSym1 a6989586621681186004) instance forall a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.FilterSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.BreakSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.BreakSym0 instance forall a (a6989586621681186013 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.BreakSym1 a6989586621681186013) instance forall a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.BreakSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.SpanSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.SpanSym0 instance forall a (a6989586621681186022 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.SpanSym1 a6989586621681186022) instance forall a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.SpanSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.DropWhileSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.DropWhileSym0 instance forall a (a6989586621681186031 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.DropWhileSym1 a6989586621681186031) instance forall a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.DropWhileSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.TakeWhileSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.TakeWhileSym0 instance forall a (a6989586621681186040 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.TakeWhileSym1 a6989586621681186040) instance forall a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.TakeWhileSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.SplitAtSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.SplitAtSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.SplitAtSym1 a6989586621681186049) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.SplitAtSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.DropSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.DropSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.DropSym1 a6989586621681186058) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.DropSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.TakeSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.TakeSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.TakeSym1 a6989586621681186067) instance Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.TakeSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.ToListSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.ToListSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.MapSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.MapSym0 instance forall a b (a6989586621681186152 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.MapSym1 a6989586621681186152) instance forall a b (d :: a Data.Singletons.Internal.~> b). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.MapSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.IntersperseSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.IntersperseSym0 instance forall a (a6989586621681186080 :: a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.IntersperseSym1 a6989586621681186080) instance forall a (d :: a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.IntersperseSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.GroupSym0 instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.GroupSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185959GoSym0 instance forall k1 k2 a (eq06989586621681185957 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185959GoSym1 eq06989586621681185957) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.GroupWith1Sym0 instance Data.Singletons.Prelude.Eq.SEq b => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.GroupWith1Sym0 instance forall a b (a6989586621681185896 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.GroupWith1Sym1 a6989586621681185896) instance forall b a (d :: a Data.Singletons.Internal.~> b). (Data.Singletons.Prelude.Eq.SEq b, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.GroupWith1Sym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Group1Sym0 instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.Group1Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.GroupBy1Sym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.GroupBy1Sym0 instance forall a (a6989586621681185903 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.GroupBy1Sym1 a6989586621681185903) instance forall a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.GroupBy1Sym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.GroupAllWithSym0 instance Data.Singletons.Prelude.Ord.SOrd b => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.GroupAllWithSym0 instance forall a b (a6989586621681185937 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.GroupAllWithSym1 a6989586621681185937) instance forall b a (d :: a Data.Singletons.Internal.~> b). (Data.Singletons.Prelude.Ord.SOrd b, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.GroupAllWithSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.GroupWithSym0 instance Data.Singletons.Prelude.Eq.SEq b => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.GroupWithSym0 instance forall a b (a6989586621681185946 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.GroupWithSym1 a6989586621681185946) instance forall b a (d :: a Data.Singletons.Internal.~> b). (Data.Singletons.Prelude.Eq.SEq b, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.GroupWithSym1 d) instance forall k1 k2 a (eq06989586621681185957 :: k1) (a_69895866216811859506989586621681185958 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185959GoSym2 eq06989586621681185957 a_69895866216811859506989586621681185958) instance forall k1 k2 a (eq06989586621681185957 :: k1) (a_69895866216811859506989586621681185958 :: k2) (a6989586621681185960 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185959GoSym3 eq06989586621681185957 a_69895866216811859506989586621681185958 a6989586621681185960) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.GroupBySym0 instance forall a (a6989586621681185955 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.GroupBySym1 a6989586621681185955) instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.GroupBySym0 instance forall a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.GroupBySym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.IsPrefixOfSym0 instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.IsPrefixOfSym0 instance forall a (a6989586621681185876 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.IsPrefixOfSym1 a6989586621681185876) instance forall a (d :: [a]). (Data.Singletons.Prelude.Eq.SEq a, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.IsPrefixOfSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.!!@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.!!@#@$) instance forall a (a6989586621681185857 :: GHC.Base.NonEmpty a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.List.NonEmpty.!!@#@$$) a6989586621681185857) instance forall a (d :: GHC.Base.NonEmpty a). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.List.NonEmpty.!!@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.ZipSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.ZipSym0 instance Data.Singletons.Prelude.Monad.Zip.SMonadZip GHC.Base.NonEmpty instance forall a b (a6989586621681185848 :: GHC.Base.NonEmpty a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.ZipSym1 a6989586621681185848) instance forall a (d :: GHC.Base.NonEmpty a) b. Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.ZipSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.ZipWithSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.ZipWithSym0 instance forall a b c (a6989586621681185837 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.ZipWithSym1 a6989586621681185837) instance forall a b c (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.ZipWithSym1 d) instance forall a b c (a6989586621681185837 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681185838 :: GHC.Base.NonEmpty a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.ZipWithSym2 a6989586621681185837 a6989586621681185838) instance forall a b c (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (d2 :: GHC.Base.NonEmpty a). (Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.ZipWithSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.UnzipSym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.UnzipSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.NubSym0 instance Data.Singletons.Prelude.Eq.SEq a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.NubSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.NubBySym0 instance Data.Singletons.Internal.SingI Data.Singletons.Prelude.List.NonEmpty.NubBySym0 instance forall a (a6989586621681185794 :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.NubBySym1 a6989586621681185794) instance forall a (d :: a Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.Internal.SingI d => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.List.NonEmpty.NubBySym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186274Xor'Sym0 instance forall k1 k2 (x6989586621681186272 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186274Xor'Sym1 x6989586621681186272) instance forall k1 k2 (x6989586621681186272 :: k1) (xs6989586621681186273 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186274Xor'Sym2 x6989586621681186272 xs6989586621681186273) instance forall k1 k2 (x6989586621681186272 :: k1) (xs6989586621681186273 :: k2) (a6989586621681186275 :: GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186274Xor'Sym3 x6989586621681186272 xs6989586621681186273 a6989586621681186275) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186261Scrutinee_6989586621681184642Sym0 instance forall k1 k (f6989586621681186259 :: k1 Data.Singletons.Internal.~> k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186261Scrutinee_6989586621681184642Sym1 f6989586621681186259) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186237Scrutinee_6989586621681184652Sym0 instance forall k1 k (f6989586621681186224 :: k1 Data.Singletons.Internal.~> k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186237Scrutinee_6989586621681184652Sym1 f6989586621681186224) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186226GoSym0 instance forall k2 k3 k (f6989586621681186224 :: k2 Data.Singletons.Internal.~> (k3, GHC.Maybe.Maybe k2)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186226GoSym1 f6989586621681186224) instance forall k2 k3 k (f6989586621681186224 :: k2 Data.Singletons.Internal.~> (k3, GHC.Maybe.Maybe k2)) (a6989586621681186225 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186226GoSym2 f6989586621681186224 a6989586621681186225) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186230Scrutinee_6989586621681184656Sym0 instance forall k1 k2 k3 (c6989586621681186229 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186230Scrutinee_6989586621681184656Sym1 c6989586621681186229) instance forall k1 k2 k3 (c6989586621681186229 :: k1) (f6989586621681186224 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681186230Scrutinee_6989586621681184656Sym2 c6989586621681186229 f6989586621681186224) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966X_6989586621681185967Sym0 instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966X_6989586621681185967Sym1 eq6989586621681185963) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966X_6989586621681185967Sym2 eq6989586621681185963 x6989586621681185964) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1) (xs6989586621681185965 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966X_6989586621681185967Sym3 eq6989586621681185963 x6989586621681185964 xs6989586621681185965) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1) (xs6989586621681185965 :: [a]) (eq06989586621681185957 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966X_6989586621681185967Sym4 eq6989586621681185963 x6989586621681185964 xs6989586621681185965 eq06989586621681185957) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966ZsSym0 instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966ZsSym1 eq6989586621681185963) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966ZsSym2 eq6989586621681185963 x6989586621681185964) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1) (xs6989586621681185965 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966ZsSym3 eq6989586621681185963 x6989586621681185964 xs6989586621681185965) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1) (xs6989586621681185965 :: [a]) (eq06989586621681185957 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966ZsSym4 eq6989586621681185963 x6989586621681185964 xs6989586621681185965 eq06989586621681185957) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966YsSym0 instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966YsSym1 eq6989586621681185963) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966YsSym2 eq6989586621681185963 x6989586621681185964) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1) (xs6989586621681185965 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966YsSym3 eq6989586621681185963 x6989586621681185964 xs6989586621681185965) instance forall k1 a k2 k3 (eq6989586621681185963 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185964 :: k1) (xs6989586621681185965 :: [a]) (eq06989586621681185957 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185966YsSym4 eq6989586621681185963 x6989586621681185964 xs6989586621681185965 eq06989586621681185957) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908X_6989586621681185909Sym0 instance forall k1 a (eq6989586621681185905 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908X_6989586621681185909Sym1 eq6989586621681185905) instance forall k1 a (eq6989586621681185905 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185906 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908X_6989586621681185909Sym2 eq6989586621681185905 x6989586621681185906) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908ZsSym0 instance forall k1 a (eq6989586621681185905 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908ZsSym1 eq6989586621681185905) instance forall k1 a (eq6989586621681185905 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185906 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908ZsSym2 eq6989586621681185905 x6989586621681185906) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908YsSym0 instance forall k1 a (eq6989586621681185905 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908YsSym1 eq6989586621681185905) instance forall k1 a (eq6989586621681185905 :: k1 Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> GHC.Types.Bool)) (x6989586621681185906 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185908YsSym2 eq6989586621681185905 x6989586621681185906) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815X_6989586621681185816Sym0 instance forall k1 k2 a b (a6989586621681185812 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815X_6989586621681185816Sym1 a6989586621681185812) instance forall k1 k2 a b (a6989586621681185812 :: k1) (b6989586621681185813 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815X_6989586621681185816Sym2 a6989586621681185812 b6989586621681185813) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815BsSym0 instance forall k1 k2 a b (a6989586621681185812 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815BsSym1 a6989586621681185812) instance forall k1 k2 a b (a6989586621681185812 :: k1) (b6989586621681185813 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815BsSym2 a6989586621681185812 b6989586621681185813) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815AsSym0 instance forall k1 k2 a b (a6989586621681185812 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815AsSym1 a6989586621681185812) instance forall k1 k2 a b (a6989586621681185812 :: k1) (b6989586621681185813 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Let6989586621681185815AsSym2 a6989586621681185812 b6989586621681185813) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.List.NonEmpty.Lambda_6989586621681185799Sym0 instance forall k2 k3 k (eq6989586621681185796 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> GHC.Types.Bool)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Lambda_6989586621681185799Sym1 eq6989586621681185796) instance forall k2 k3 k (eq6989586621681185796 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> GHC.Types.Bool)) (a6989586621681185797 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Lambda_6989586621681185799Sym2 eq6989586621681185796 a6989586621681185797) instance forall k2 k3 k (eq6989586621681185796 :: k2 Data.Singletons.Internal.~> (k3 Data.Singletons.Internal.~> GHC.Types.Bool)) (a6989586621681185797 :: k2) (as6989586621681185798 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.List.NonEmpty.Lambda_6989586621681185799Sym3 eq6989586621681185796 a6989586621681185797 as6989586621681185798) -- | Defines and exports a promoted and singled version of the -- IsString type class from Data.String. module Data.Singletons.Prelude.IsString class PIsString a_a9wHn where { type family FromString (arg_a9wHN :: Symbol) :: a_a9wHn; } class SIsString a_a9wHn sFromString :: forall (t_a9wI4 :: Symbol). SIsString a_a9wHn => Sing t_a9wI4 -> Sing (Apply FromStringSym0 t_a9wI4 :: a_a9wHn) data FromStringSym0 a6989586621681280469 type FromStringSym1 (a6989586621681280469 :: Symbol) = FromString a6989586621681280469 :: a_a9wHn instance forall a k (b :: k). Data.Singletons.Prelude.IsString.SIsString a => Data.Singletons.Prelude.IsString.SIsString (Data.Functor.Const.Const a b) instance Data.Singletons.Prelude.IsString.SIsString a => Data.Singletons.Prelude.IsString.SIsString (Data.Functor.Identity.Identity a) instance Data.Singletons.Prelude.IsString.SIsString a => Data.Singletons.Internal.SingI Data.Singletons.Prelude.IsString.FromStringSym0 instance Data.Singletons.Prelude.IsString.SIsString GHC.Types.Symbol instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.IsString.FromString_6989586621681280478Sym0 instance Data.Singletons.Prelude.IsString.PIsString (Data.Functor.Identity.Identity a) instance forall k a (b :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.IsString.FromString_6989586621681280471Sym0 instance forall a k (b :: k). Data.Singletons.Prelude.IsString.PIsString (Data.Functor.Const.Const a b) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.IsString.FromStringSym0 instance Data.Singletons.Prelude.IsString.PIsString GHC.Types.Symbol -- | Defines the promoted and singled versions of the Applicative -- type class. module Data.Singletons.Prelude.Applicative class PApplicative f_a2iYl where { type family Pure (arg_a2j3j :: a_a2iYm) :: f_a2iYl a_a2iYm; type family (<*>) (arg_a2j3m :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (arg_a2j3n :: f_a2iYl a_a2iYn) :: f_a2iYl b_a2iYo; type family LiftA2 (arg_a2j3r :: (~>) a_a2iYp ((~>) b_a2iYq c_a2iYr)) (arg_a2j3s :: f_a2iYl a_a2iYp) (arg_a2j3t :: f_a2iYl b_a2iYq) :: f_a2iYl c_a2iYr; type family (*>) (arg_a2j3y :: f_a2iYl a_a2iYs) (arg_a2j3z :: f_a2iYl b_a2iYt) :: f_a2iYl b_a2iYt; type family (<*) (arg_a2j3D :: f_a2iYl a_a2iYu) (arg_a2j3E :: f_a2iYl b_a2iYv) :: f_a2iYl a_a2iYu; type (<*>) a_a2j3I a_a2j3J = Apply (Apply TFHelper_6989586621679559716Sym0 a_a2j3I) a_a2j3J; type LiftA2 a_a2j3X a_a2j3Y a_a2j3Z = Apply (Apply (Apply LiftA2_6989586621679559732Sym0 a_a2j3X) a_a2j3Y) a_a2j3Z; type (*>) a_a2j4e a_a2j4f = Apply (Apply TFHelper_6989586621679559748Sym0 a_a2j4e) a_a2j4f; type (<*) a_a2j4p a_a2j4q = Apply (Apply TFHelper_6989586621679559759Sym0 a_a2j4p) a_a2j4q; } infixl 4 <*> infixl 4 *> infixl 4 <* class SFunctor f_a2iYl => SApplicative f_a2iYl sPure :: forall a_a2iYm (t_a2j7q :: a_a2iYm). SApplicative f_a2iYl => Sing t_a2j7q -> Sing (Apply PureSym0 t_a2j7q :: f_a2iYl a_a2iYm) (%<*>) :: forall a_a2iYn b_a2iYo (t_a2j7s :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (t_a2j7t :: f_a2iYl a_a2iYn). SApplicative f_a2iYl => Sing t_a2j7s -> Sing t_a2j7t -> Sing (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) sLiftA2 :: forall a_a2iYp b_a2iYq c_a2iYr (t_a2j7w :: (~>) a_a2iYp ((~>) b_a2iYq c_a2iYr)) (t_a2j7x :: f_a2iYl a_a2iYp) (t_a2j7y :: f_a2iYl b_a2iYq). SApplicative f_a2iYl => Sing t_a2j7w -> Sing t_a2j7x -> Sing t_a2j7y -> Sing (Apply (Apply (Apply LiftA2Sym0 t_a2j7w) t_a2j7x) t_a2j7y :: f_a2iYl c_a2iYr) (%*>) :: forall a_a2iYs b_a2iYt (t_a2j7C :: f_a2iYl a_a2iYs) (t_a2j7D :: f_a2iYl b_a2iYt). SApplicative f_a2iYl => Sing t_a2j7C -> Sing t_a2j7D -> Sing (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) (%<*) :: forall a_a2iYu b_a2iYv (t_a2j7G :: f_a2iYl a_a2iYu) (t_a2j7H :: f_a2iYl b_a2iYv). SApplicative f_a2iYl => Sing t_a2j7G -> Sing t_a2j7H -> Sing (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) (%<*>) :: forall a_a2iYn b_a2iYo (t_a2j7s :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (t_a2j7t :: f_a2iYl a_a2iYn). (SApplicative f_a2iYl, (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) ~ Apply (Apply TFHelper_6989586621679559716Sym0 t_a2j7s) t_a2j7t) => Sing t_a2j7s -> Sing t_a2j7t -> Sing (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) sLiftA2 :: forall a_a2iYp b_a2iYq c_a2iYr (t_a2j7w :: (~>) a_a2iYp ((~>) b_a2iYq c_a2iYr)) (t_a2j7x :: f_a2iYl a_a2iYp) (t_a2j7y :: f_a2iYl b_a2iYq). (SApplicative f_a2iYl, (Apply (Apply (Apply LiftA2Sym0 t_a2j7w) t_a2j7x) t_a2j7y :: f_a2iYl c_a2iYr) ~ Apply (Apply (Apply LiftA2_6989586621679559732Sym0 t_a2j7w) t_a2j7x) t_a2j7y) => Sing t_a2j7w -> Sing t_a2j7x -> Sing t_a2j7y -> Sing (Apply (Apply (Apply LiftA2Sym0 t_a2j7w) t_a2j7x) t_a2j7y :: f_a2iYl c_a2iYr) (%*>) :: forall a_a2iYs b_a2iYt (t_a2j7C :: f_a2iYl a_a2iYs) (t_a2j7D :: f_a2iYl b_a2iYt). (SApplicative f_a2iYl, (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) ~ Apply (Apply TFHelper_6989586621679559748Sym0 t_a2j7C) t_a2j7D) => Sing t_a2j7C -> Sing t_a2j7D -> Sing (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) (%<*) :: forall a_a2iYu b_a2iYv (t_a2j7G :: f_a2iYl a_a2iYu) (t_a2j7H :: f_a2iYl b_a2iYv). (SApplicative f_a2iYl, (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) ~ Apply (Apply TFHelper_6989586621679559759Sym0 t_a2j7G) t_a2j7H) => Sing t_a2j7G -> Sing t_a2j7H -> Sing (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) infixl 4 %<*> infixl 4 %*> infixl 4 %<* class PAlternative f_a2iZy where { type family Empty :: f_a2iZy a_a2iZz; type family (<|>) (arg_a2j5j :: f_a2iZy a_a2iZA) (arg_a2j5k :: f_a2iZy a_a2iZA) :: f_a2iZy a_a2iZA; } infixl 3 <|> class SApplicative f_a2iZy => SAlternative f_a2iZy sEmpty :: forall a_a2iZz. SAlternative f_a2iZy => Sing (EmptySym0 :: f_a2iZy a_a2iZz) (%<|>) :: forall a_a2iZA (t_a2j85 :: f_a2iZy a_a2iZA) (t_a2j86 :: f_a2iZy a_a2iZA). SAlternative f_a2iZy => Sing t_a2j85 -> Sing t_a2j86 -> Sing (Apply (Apply (<|>@#@$) t_a2j85) t_a2j86 :: f_a2iZy a_a2iZA) infixl 3 %<|> -- | The singleton kind-indexed type family. type family Sing data SConst c [SConst] :: Sing a -> SConst ('Const a) -- | The Const functor. data Const a (b :: k) type family GetConst a_a7pId sGetConst :: forall a_a7pDJ b_a7pDK (t_a7pMy :: Const a_a7pDJ b_a7pDK). Sing t_a7pMy -> Sing (Apply GetConstSym0 t_a7pMy :: a_a7pDJ) type family (<$>) a_a31Mv a_a31Mw infixl 4 <$> (%<$>) :: forall a_a31L9 b_a31La f_a31L8 (t_a31NM :: (~>) a_a31L9 b_a31La) (t_a31NN :: f_a31L8 a_a31L9). SFunctor f_a31L8 => Sing t_a31NM -> Sing t_a31NN -> Sing (Apply (Apply (<$>@#@$) t_a31NM) t_a31NN :: f_a31L8 b_a31La) infixl 4 %<$> type family (<$) (arg_a2j2Z :: a_a2iYj) (arg_a2j30 :: f_a2iYg b_a2iYk) :: f_a2iYg a_a2iYj infixl 4 <$ (%<$) :: forall a_a2iYj b_a2iYk (t_a2j7k :: a_a2iYj) (t_a2j7l :: f_a2iYg b_a2iYk). SFunctor f_a2iYg => Sing t_a2j7k -> Sing t_a2j7l -> Sing (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) infixl 4 %<$ type family (<**>) a_a2j2I a_a2j2J infixl 4 <**> (%<**>) :: forall f_a2iXH a_a2iXI b_a2iXJ (t_a2j6S :: f_a2iXH a_a2iXI) (t_a2j6T :: f_a2iXH ((~>) a_a2iXI b_a2iXJ)). SApplicative f_a2iXH => Sing t_a2j6S -> Sing t_a2j6T -> Sing (Apply (Apply (<**>@#@$) t_a2j6S) t_a2j6T :: f_a2iXH b_a2iXJ) infixl 4 %<**> type family LiftA a_a2j2x a_a2j2y sLiftA :: forall a_a2iXF b_a2iXG f_a2iXE (t_a2j6O :: (~>) a_a2iXF b_a2iXG) (t_a2j6P :: f_a2iXE a_a2iXF). SApplicative f_a2iXE => Sing t_a2j6O -> Sing t_a2j6P -> Sing (Apply (Apply LiftASym0 t_a2j6O) t_a2j6P :: f_a2iXE b_a2iXG) type family LiftA3 a_a2j2k a_a2j2l a_a2j2m a_a2j2n sLiftA3 :: forall a_a2iXA b_a2iXB c_a2iXC d_a2iXD f_a2iXz (t_a2j6G :: (~>) a_a2iXA ((~>) b_a2iXB ((~>) c_a2iXC d_a2iXD))) (t_a2j6H :: f_a2iXz a_a2iXA) (t_a2j6I :: f_a2iXz b_a2iXB) (t_a2j6J :: f_a2iXz c_a2iXC). SApplicative f_a2iXz => Sing t_a2j6G -> Sing t_a2j6H -> Sing t_a2j6I -> Sing t_a2j6J -> Sing (Apply (Apply (Apply (Apply LiftA3Sym0 t_a2j6G) t_a2j6H) t_a2j6I) t_a2j6J :: f_a2iXz d_a2iXD) type family Optional a_a9xm3 sOptional :: forall f_a9xlp a_a9xlq (t_a9xn2 :: f_a9xlp a_a9xlq). SAlternative f_a9xlp => Sing t_a9xn2 -> Sing (Apply OptionalSym0 t_a9xn2 :: f_a9xlp (Maybe a_a9xlq)) data PureSym0 a6989586621679559691 type PureSym1 (a6989586621679559691 :: a_a2iYm) = Pure a6989586621679559691 :: f_a2iYl a_a2iYm data (<*>@#@$) a6989586621679559695 infixl 4 <*>@#@$ data (<*>@#@$$) a6989586621679559695 a6989586621679559696 infixl 4 <*>@#@$$ type (<*>@#@$$$) (a6989586621679559695 :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (a6989586621679559696 :: f_a2iYl a_a2iYn) = (<*>) a6989586621679559695 a6989586621679559696 :: f_a2iYl b_a2iYo infixl 4 <*>@#@$$$ data (*>@#@$) a6989586621679559707 infixl 4 *>@#@$ data (*>@#@$$) a6989586621679559707 a6989586621679559708 infixl 4 *>@#@$$ type (*>@#@$$$) (a6989586621679559707 :: f_a2iYl a_a2iYs) (a6989586621679559708 :: f_a2iYl b_a2iYt) = (*>) a6989586621679559707 a6989586621679559708 :: f_a2iYl b_a2iYt infixl 4 *>@#@$$$ data (<*@#@$) a6989586621679559712 infixl 4 <*@#@$ data (<*@#@$$) a6989586621679559712 a6989586621679559713 infixl 4 <*@#@$$ type (<*@#@$$$) (a6989586621679559712 :: f_a2iYl a_a2iYu) (a6989586621679559713 :: f_a2iYl b_a2iYv) = (<*) a6989586621679559712 a6989586621679559713 :: f_a2iYl a_a2iYu infixl 4 <*@#@$$$ type EmptySym0 = Empty :: f_a2iZy a_a2iZz data (<|>@#@$) a6989586621679559816 infixl 3 <|>@#@$ data (<|>@#@$$) a6989586621679559816 a6989586621679559817 infixl 3 <|>@#@$$ type (<|>@#@$$$) (a6989586621679559816 :: f_a2iZy a_a2iZA) (a6989586621679559817 :: f_a2iZy a_a2iZA) = (<|>) a6989586621679559816 a6989586621679559817 :: f_a2iZy a_a2iZA infixl 3 <|>@#@$$$ data ConstSym0 a6989586621680775209 type ConstSym1 (a6989586621680775209 :: a_agmP) = 'Const a6989586621680775209 :: Const (a_agmP :: Type) (b_agmQ :: k_agmO) data GetConstSym0 a6989586621680776931 type GetConstSym1 (a6989586621680776931 :: Const a_a7pDJ b_a7pDK) = GetConst a6989586621680776931 :: a_a7pDJ data (<$>@#@$) a6989586621679731630 infixl 4 <$>@#@$ data (<$>@#@$$) a6989586621679731630 a6989586621679731631 infixl 4 <$>@#@$$ type (<$>@#@$$$) (a6989586621679731630 :: (~>) a_a31L9 b_a31La) (a6989586621679731631 :: f_a31L8 a_a31L9) = (<$>) a6989586621679731630 a6989586621679731631 :: f_a31L8 b_a31La infixl 4 <$>@#@$$$ data (<$@#@$) a6989586621679559672 infixl 4 <$@#@$ data (<$@#@$$) a6989586621679559672 a6989586621679559673 infixl 4 <$@#@$$ type (<$@#@$$$) (a6989586621679559672 :: a_a2iYj) (a6989586621679559673 :: f_a2iYg b_a2iYk) = (<$) a6989586621679559672 a6989586621679559673 :: f_a2iYg a_a2iYj infixl 4 <$@#@$$$ data (<**>@#@$) a6989586621679559655 infixl 4 <**>@#@$ data (<**>@#@$$) a6989586621679559655 a6989586621679559656 infixl 4 <**>@#@$$ type (<**>@#@$$$) (a6989586621679559655 :: f_a2iXH a_a2iXI) (a6989586621679559656 :: f_a2iXH ((~>) a_a2iXI b_a2iXJ)) = (<**>) a6989586621679559655 a6989586621679559656 :: f_a2iXH b_a2iXJ infixl 4 <**>@#@$$$ data LiftASym0 a6989586621679559644 data LiftASym1 a6989586621679559644 a6989586621679559645 type LiftASym2 (a6989586621679559644 :: (~>) a_a2iXF b_a2iXG) (a6989586621679559645 :: f_a2iXE a_a2iXF) = LiftA a6989586621679559644 a6989586621679559645 :: f_a2iXE b_a2iXG data LiftA2Sym0 a6989586621679559701 data LiftA2Sym1 a6989586621679559701 a6989586621679559702 data LiftA2Sym2 a6989586621679559701 a6989586621679559702 a6989586621679559703 type LiftA2Sym3 (a6989586621679559701 :: (~>) a_a2iYp ((~>) b_a2iYq c_a2iYr)) (a6989586621679559702 :: f_a2iYl a_a2iYp) (a6989586621679559703 :: f_a2iYl b_a2iYq) = LiftA2 a6989586621679559701 a6989586621679559702 a6989586621679559703 :: f_a2iYl c_a2iYr data LiftA3Sym0 a6989586621679559633 data LiftA3Sym1 a6989586621679559633 a6989586621679559634 data LiftA3Sym2 a6989586621679559633 a6989586621679559634 a6989586621679559635 data LiftA3Sym3 a6989586621679559633 a6989586621679559634 a6989586621679559635 a6989586621679559636 data OptionalSym0 a6989586621681282965 type OptionalSym1 (a6989586621681282965 :: f_a9xlp a_a9xlq) = Optional a6989586621681282965 :: f_a9xlp (Maybe a_a9xlq) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Applicative.TFHelper_6989586621681283015Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative Data.Ord.Down instance forall a b (a6989586621681283020 :: Data.Ord.Down (a Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Applicative.TFHelper_6989586621681283015Sym1 a6989586621681283020) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Applicative.Pure_6989586621681283005Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Applicative.LiftA2_6989586621681282990Sym0 instance Data.Singletons.Prelude.Monad.Internal.PApplicative ((,) a) instance forall a1 b c a2 (a6989586621681282996 :: a1 Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Applicative.LiftA2_6989586621681282990Sym1 a6989586621681282996) instance forall a1 b c a2 (a6989586621681282996 :: a1 Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> c)) (a6989586621681282997 :: (a2, a1)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Applicative.LiftA2_6989586621681282990Sym2 a6989586621681282996 a6989586621681282997) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Applicative.TFHelper_6989586621681282976Sym0 instance forall a1 a2 b (a6989586621681282981 :: (a1, a2 Data.Singletons.Internal.~> b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Applicative.TFHelper_6989586621681282976Sym1 a6989586621681282981) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Applicative.Pure_6989586621681282968Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Applicative.OptionalSym0 instance Data.Singletons.Prelude.Monad.Internal.SAlternative f => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Applicative.OptionalSym0 instance Data.Singletons.Prelude.Monoid.SMonoid a => Data.Singletons.Prelude.Monad.Internal.SApplicative ((,) a) instance Data.Singletons.Prelude.Monad.Internal.SApplicative Data.Ord.Down -- | Defines the promoted and singled versions of the Monad type -- class. module Data.Singletons.Prelude.Monad class PFunctor f_a2iYg where { type family Fmap (arg_a2j2U :: (~>) a_a2iYh b_a2iYi) (arg_a2j2V :: f_a2iYg a_a2iYh) :: f_a2iYg b_a2iYi; type (<$) a_a2j34 a_a2j35 = Apply (Apply TFHelper_6989586621679559676Sym0 a_a2j34) a_a2j35; } class SFunctor f_a2iYg sFmap :: forall a_a2iYh b_a2iYi (t_a2j7g :: (~>) a_a2iYh b_a2iYi) (t_a2j7h :: f_a2iYg a_a2iYh). SFunctor f_a2iYg => Sing t_a2j7g -> Sing t_a2j7h -> Sing (Apply (Apply FmapSym0 t_a2j7g) t_a2j7h :: f_a2iYg b_a2iYi) class PMonad m_a2iYJ where { type family (>>=) (arg_a2j4E :: m_a2iYJ a_a2iYK) (arg_a2j4F :: (~>) a_a2iYK (m_a2iYJ b_a2iYL)) :: m_a2iYJ b_a2iYL; type family (>>) (arg_a2j4J :: m_a2iYJ a_a2iYM) (arg_a2j4K :: m_a2iYJ b_a2iYN) :: m_a2iYJ b_a2iYN; type family Return (arg_a2j4O :: a_a2iYO) :: m_a2iYJ a_a2iYO; type (>>) a_a2j4R a_a2j4S = Apply (Apply TFHelper_6989586621679559787Sym0 a_a2j4R) a_a2j4S; type Return a_a2j59 = Apply Return_6989586621679559804Sym0 a_a2j59; } infixl 1 >>= infixl 1 >> class SApplicative m_a2iYJ => SMonad m_a2iYJ (%>>=) :: forall a_a2iYK b_a2iYL (t_a2j7R :: m_a2iYJ a_a2iYK) (t_a2j7S :: (~>) a_a2iYK (m_a2iYJ b_a2iYL)). SMonad m_a2iYJ => Sing t_a2j7R -> Sing t_a2j7S -> Sing (Apply (Apply (>>=@#@$) t_a2j7R) t_a2j7S :: m_a2iYJ b_a2iYL) (%>>) :: forall a_a2iYM b_a2iYN (t_a2j7V :: m_a2iYJ a_a2iYM) (t_a2j7W :: m_a2iYJ b_a2iYN). SMonad m_a2iYJ => Sing t_a2j7V -> Sing t_a2j7W -> Sing (Apply (Apply (>>@#@$) t_a2j7V) t_a2j7W :: m_a2iYJ b_a2iYN) sReturn :: forall a_a2iYO (t_a2j7Z :: a_a2iYO). SMonad m_a2iYJ => Sing t_a2j7Z -> Sing (Apply ReturnSym0 t_a2j7Z :: m_a2iYJ a_a2iYO) (%>>) :: forall a_a2iYM b_a2iYN (t_a2j7V :: m_a2iYJ a_a2iYM) (t_a2j7W :: m_a2iYJ b_a2iYN). (SMonad m_a2iYJ, (Apply (Apply (>>@#@$) t_a2j7V) t_a2j7W :: m_a2iYJ b_a2iYN) ~ Apply (Apply TFHelper_6989586621679559787Sym0 t_a2j7V) t_a2j7W) => Sing t_a2j7V -> Sing t_a2j7W -> Sing (Apply (Apply (>>@#@$) t_a2j7V) t_a2j7W :: m_a2iYJ b_a2iYN) sReturn :: forall a_a2iYO (t_a2j7Z :: a_a2iYO). (SMonad m_a2iYJ, (Apply ReturnSym0 t_a2j7Z :: m_a2iYJ a_a2iYO) ~ Apply Return_6989586621679559804Sym0 t_a2j7Z) => Sing t_a2j7Z -> Sing (Apply ReturnSym0 t_a2j7Z :: m_a2iYJ a_a2iYO) infixl 1 %>>= infixl 1 %>> class PMonadPlus m_a2iZB where { type family Mzero :: m_a2iZB a_a2iZC; type family Mplus (arg_a2j5p :: m_a2iZB a_a2iZD) (arg_a2j5q :: m_a2iZB a_a2iZD) :: m_a2iZB a_a2iZD; type Mzero = Mzero_6989586621679559824Sym0; type Mplus a_a2j5x a_a2j5y = Apply (Apply Mplus_6989586621679559829Sym0 a_a2j5x) a_a2j5y; } class (SAlternative m_a2iZB, SMonad m_a2iZB) => SMonadPlus m_a2iZB sMzero :: forall a_a2iZC. SMonadPlus m_a2iZB => Sing (MzeroSym0 :: m_a2iZB a_a2iZC) sMplus :: forall a_a2iZD (t_a2j89 :: m_a2iZB a_a2iZD) (t_a2j8a :: m_a2iZB a_a2iZD). SMonadPlus m_a2iZB => Sing t_a2j89 -> Sing t_a2j8a -> Sing (Apply (Apply MplusSym0 t_a2j89) t_a2j8a :: m_a2iZB a_a2iZD) sMzero :: forall a_a2iZC. (SMonadPlus m_a2iZB, (MzeroSym0 :: m_a2iZB a_a2iZC) ~ Mzero_6989586621679559824Sym0) => Sing (MzeroSym0 :: m_a2iZB a_a2iZC) sMplus :: forall a_a2iZD (t_a2j89 :: m_a2iZB a_a2iZD) (t_a2j8a :: m_a2iZB a_a2iZD). (SMonadPlus m_a2iZB, (Apply (Apply MplusSym0 t_a2j89) t_a2j8a :: m_a2iZB a_a2iZD) ~ Apply (Apply Mplus_6989586621679559829Sym0 t_a2j89) t_a2j8a) => Sing t_a2j89 -> Sing t_a2j8a -> Sing (Apply (Apply MplusSym0 t_a2j89) t_a2j8a :: m_a2iZB a_a2iZD) class PMonadFail m_a31ec where { type family Fail (arg_a31ew :: [Char]) :: m_a31ec a_a31ed; } class SMonad m_a31ec => SMonadFail m_a31ec sFail :: forall a_a31ed (t_a31eL :: [Char]). SMonadFail m_a31ec => Sing t_a31eL -> Sing (Apply FailSym0 t_a31eL :: m_a31ec a_a31ed) type family MapM (arg_a7A4r :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (arg_a7A4s :: t_a7A47 a_a7A4e) :: m_a7A4d (t_a7A47 b_a7A4f) sMapM :: forall a_a7A4e m_a7A4d b_a7A4f (t_a7A5p :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (t_a7A5q :: t_a7A47 a_a7A4e). (STraversable t_a7A47, SMonad m_a7A4d) => Sing t_a7A5p -> Sing t_a7A5q -> Sing (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) type family MapM_ a_a6dGE a_a6dGF sMapM_ :: forall a_a6dxE m_a6dxD b_a6dxF t_a6dxC (t_a6e3b :: (~>) a_a6dxE (m_a6dxD b_a6dxF)) (t_a6e3c :: t_a6dxC a_a6dxE). (SFoldable t_a6dxC, SMonad m_a6dxD) => Sing t_a6e3b -> Sing t_a6e3c -> Sing (Apply (Apply MapM_Sym0 t_a6e3b) t_a6e3c :: m_a6dxD ()) type family ForM a_a7BHy a_a7BHz sForM :: forall t_a7Bzd a_a7Bzf m_a7Bze b_a7Bzg (t_a7BPF :: t_a7Bzd a_a7Bzf) (t_a7BPG :: (~>) a_a7Bzf (m_a7Bze b_a7Bzg)). (STraversable t_a7Bzd, SMonad m_a7Bze) => Sing t_a7BPF -> Sing t_a7BPG -> Sing (Apply (Apply ForMSym0 t_a7BPF) t_a7BPG :: m_a7Bze (t_a7Bzd b_a7Bzg)) type family Sequence (arg_a7A4w :: t_a7A47 (m_a7A4g a_a7A4h)) :: m_a7A4g (t_a7A47 a_a7A4h) sSequence :: forall m_a7A4g a_a7A4h (t_a7A5t :: t_a7A47 (m_a7A4g a_a7A4h)). (STraversable t_a7A47, SMonad m_a7A4g) => Sing t_a7A5t -> Sing (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) type family Sequence_ a_a6dGh sSequence_ :: forall t_a6dxs m_a6dxt a_a6dxu (t_a6e33 :: t_a6dxs (m_a6dxt a_a6dxu)). (SFoldable t_a6dxs, SMonad m_a6dxt) => Sing t_a6e33 -> Sing (Apply Sequence_Sym0 t_a6e33 :: m_a6dxt ()) type family (=<<) a_a2j29 a_a2j2a infixr 1 =<< (%=<<) :: forall a_a2iXv m_a2iXu b_a2iXw (t_a2j6A :: (~>) a_a2iXv (m_a2iXu b_a2iXw)) (t_a2j6B :: m_a2iXu a_a2iXv). SMonad m_a2iXu => Sing t_a2j6A -> Sing t_a2j6B -> Sing (Apply (Apply (=<<@#@$) t_a2j6A) t_a2j6B :: m_a2iXu b_a2iXw) infixr 1 %=<< type family (>=>) a_a9zNV a_a9zNW a_a9zNX infixr 1 >=> (%>=>) :: forall a_a9zGu m_a9zGt b_a9zGv c_a9zGw (t_a9zPP :: (~>) a_a9zGu (m_a9zGt b_a9zGv)) (t_a9zPQ :: (~>) b_a9zGv (m_a9zGt c_a9zGw)) (t_a9zPR :: a_a9zGu). SMonad m_a9zGt => Sing t_a9zPP -> Sing t_a9zPQ -> Sing t_a9zPR -> Sing (Apply (Apply (Apply (>=>@#@$) t_a9zPP) t_a9zPQ) t_a9zPR :: m_a9zGt c_a9zGw) infixr 1 %>=> type family (<=<) a_a9zNJ a_a9zNK a_a9zNL infixr 1 <=< (%<=<) :: forall b_a9zGq m_a9zGp c_a9zGr a_a9zGs (t_a9zPJ :: (~>) b_a9zGq (m_a9zGp c_a9zGr)) (t_a9zPK :: (~>) a_a9zGs (m_a9zGp b_a9zGq)) (t_a9zPL :: a_a9zGs). SMonad m_a9zGp => Sing t_a9zPJ -> Sing t_a9zPK -> Sing t_a9zPL -> Sing (Apply (Apply (Apply (<=<@#@$) t_a9zPJ) t_a9zPK) t_a9zPL :: m_a9zGp c_a9zGr) infixr 1 %<=< type family Void a_a31M5 sVoid :: forall f_a31L0 a_a31L1 (t_a31NC :: f_a31L0 a_a31L1). SFunctor f_a31L0 => Sing t_a31NC -> Sing (Apply VoidSym0 t_a31NC :: f_a31L0 ()) type family Join a_a2j2g sJoin :: forall m_a2iXx a_a2iXy (t_a2j6E :: m_a2iXx (m_a2iXx a_a2iXy)). SMonad m_a2iXx => Sing t_a2j6E -> Sing (Apply JoinSym0 t_a2j6E :: m_a2iXx a_a2iXy) type family Msum a_a6dG5 sMsum :: forall t_a6dxm m_a6dxn a_a6dxo (t_a6e2Z :: t_a6dxm (m_a6dxn a_a6dxo)). (SFoldable t_a6dxm, SMonadPlus m_a6dxn) => Sing t_a6e2Z -> Sing (Apply MsumSym0 t_a6e2Z :: m_a6dxn a_a6dxo) type family Mfilter a_a9zLz a_a9zLA sMfilter :: forall a_a9zFW m_a9zFV (t_a9zOX :: (~>) a_a9zFW Bool) (t_a9zOY :: m_a9zFV a_a9zFW). SMonadPlus m_a9zFV => Sing t_a9zOX -> Sing t_a9zOY -> Sing (Apply (Apply MfilterSym0 t_a9zOX) t_a9zOY :: m_a9zFV a_a9zFW) type family FilterM a_a9zOb a_a9zOc sFilterM :: forall a_a9zGy m_a9zGx (t_a9zPV :: (~>) a_a9zGy (m_a9zGx Bool)) (t_a9zPW :: [a_a9zGy]). SApplicative m_a9zGx => Sing t_a9zPV -> Sing t_a9zPW -> Sing (Apply (Apply FilterMSym0 t_a9zPV) t_a9zPW :: m_a9zGx [a_a9zGy]) type family MapAndUnzipM a_a9zNw a_a9zNx sMapAndUnzipM :: forall a_a9zGm m_a9zGl b_a9zGn c_a9zGo (t_a9zPF :: (~>) a_a9zGm (m_a9zGl (b_a9zGn, c_a9zGo))) (t_a9zPG :: [a_a9zGm]). SApplicative m_a9zGl => Sing t_a9zPF -> Sing t_a9zPG -> Sing (Apply (Apply MapAndUnzipMSym0 t_a9zPF) t_a9zPG :: m_a9zGl ([b_a9zGn], [c_a9zGo])) type family ZipWithM a_a9zNm a_a9zNn a_a9zNo sZipWithM :: forall a_a9zGi b_a9zGj m_a9zGh c_a9zGk (t_a9zPz :: (~>) a_a9zGi ((~>) b_a9zGj (m_a9zGh c_a9zGk))) (t_a9zPA :: [a_a9zGi]) (t_a9zPB :: [b_a9zGj]). SApplicative m_a9zGh => Sing t_a9zPz -> Sing t_a9zPA -> Sing t_a9zPB -> Sing (Apply (Apply (Apply ZipWithMSym0 t_a9zPz) t_a9zPA) t_a9zPB :: m_a9zGh [c_a9zGk]) type family ZipWithM_ a_a9zNc a_a9zNd a_a9zNe sZipWithM_ :: forall a_a9zGe b_a9zGf m_a9zGd c_a9zGg (t_a9zPt :: (~>) a_a9zGe ((~>) b_a9zGf (m_a9zGd c_a9zGg))) (t_a9zPu :: [a_a9zGe]) (t_a9zPv :: [b_a9zGf]). SApplicative m_a9zGd => Sing t_a9zPt -> Sing t_a9zPu -> Sing t_a9zPv -> Sing (Apply (Apply (Apply ZipWithM_Sym0 t_a9zPt) t_a9zPu) t_a9zPv :: m_a9zGd ()) type family FoldlM a_a6dH5 a_a6dH6 a_a6dH7 sFoldlM :: forall b_a6dxQ a_a6dxR m_a6dxP t_a6dxO (t_a6e3n :: (~>) b_a6dxQ ((~>) a_a6dxR (m_a6dxP b_a6dxQ))) (t_a6e3o :: b_a6dxQ) (t_a6e3p :: t_a6dxO a_a6dxR). (SFoldable t_a6dxO, SMonad m_a6dxP) => Sing t_a6e3n -> Sing t_a6e3o -> Sing t_a6e3p -> Sing (Apply (Apply (Apply FoldlMSym0 t_a6e3n) t_a6e3o) t_a6e3p :: m_a6dxP b_a6dxQ) type family ReplicateM a_a9zMu a_a9zMv sReplicateM :: forall m_a9zG3 a_a9zG4 (t_a9zPd :: Nat) (t_a9zPe :: m_a9zG3 a_a9zG4). SApplicative m_a9zG3 => Sing t_a9zPd -> Sing t_a9zPe -> Sing (Apply (Apply ReplicateMSym0 t_a9zPd) t_a9zPe :: m_a9zG3 [a_a9zG4]) type family ReplicateM_ a_a9zMc a_a9zMd sReplicateM_ :: forall m_a9zG1 a_a9zG2 (t_a9zP9 :: Nat) (t_a9zPa :: m_a9zG1 a_a9zG2). SApplicative m_a9zG1 => Sing t_a9zP9 -> Sing t_a9zPa -> Sing (Apply (Apply ReplicateM_Sym0 t_a9zP9) t_a9zPa :: m_a9zG1 ()) type family Guard a_a2iZG sGuard :: forall f_a2iX0 (t_a2j5M :: Bool). SAlternative f_a2iX0 => Sing t_a2j5M -> Sing (Apply GuardSym0 t_a2j5M :: f_a2iX0 ()) type family When a_a2j1Z a_a2j20 sWhen :: forall f_a2iXt (t_a2j6w :: Bool) (t_a2j6x :: f_a2iXt ()). SApplicative f_a2iXt => Sing t_a2j6w -> Sing t_a2j6x -> Sing (Apply (Apply WhenSym0 t_a2j6w) t_a2j6x :: f_a2iXt ()) type family Unless a_a9zM2 a_a9zM3 sUnless :: forall f_a9zG0 (t_a9zP5 :: Bool) (t_a9zP6 :: f_a9zG0 ()). SApplicative f_a9zG0 => Sing t_a9zP5 -> Sing t_a9zP6 -> Sing (Apply (Apply UnlessSym0 t_a9zP5) t_a9zP6 :: f_a9zG0 ()) type family LiftM a_a2j1O a_a2j1P sLiftM :: forall a1_a2iXr r_a2iXs m_a2iXq (t_a2j6s :: (~>) a1_a2iXr r_a2iXs) (t_a2j6t :: m_a2iXq a1_a2iXr). SMonad m_a2iXq => Sing t_a2j6s -> Sing t_a2j6t -> Sing (Apply (Apply LiftMSym0 t_a2j6s) t_a2j6t :: m_a2iXq r_a2iXs) type family LiftM2 a_a2j1w a_a2j1x a_a2j1y sLiftM2 :: forall a1_a2iXn a2_a2iXo r_a2iXp m_a2iXm (t_a2j6m :: (~>) a1_a2iXn ((~>) a2_a2iXo r_a2iXp)) (t_a2j6n :: m_a2iXm a1_a2iXn) (t_a2j6o :: m_a2iXm a2_a2iXo). SMonad m_a2iXm => Sing t_a2j6m -> Sing t_a2j6n -> Sing t_a2j6o -> Sing (Apply (Apply (Apply LiftM2Sym0 t_a2j6m) t_a2j6n) t_a2j6o :: m_a2iXm r_a2iXp) type family LiftM3 a_a2j17 a_a2j18 a_a2j19 a_a2j1a sLiftM3 :: forall a1_a2iXi a2_a2iXj a3_a2iXk r_a2iXl m_a2iXh (t_a2j6e :: (~>) a1_a2iXi ((~>) a2_a2iXj ((~>) a3_a2iXk r_a2iXl))) (t_a2j6f :: m_a2iXh a1_a2iXi) (t_a2j6g :: m_a2iXh a2_a2iXj) (t_a2j6h :: m_a2iXh a3_a2iXk). SMonad m_a2iXh => Sing t_a2j6e -> Sing t_a2j6f -> Sing t_a2j6g -> Sing t_a2j6h -> Sing (Apply (Apply (Apply (Apply LiftM3Sym0 t_a2j6e) t_a2j6f) t_a2j6g) t_a2j6h :: m_a2iXh r_a2iXl) type family LiftM4 a_a2j0B a_a2j0C a_a2j0D a_a2j0E a_a2j0F sLiftM4 :: forall a1_a2iXc a2_a2iXd a3_a2iXe a4_a2iXf r_a2iXg m_a2iXb (t_a2j64 :: (~>) a1_a2iXc ((~>) a2_a2iXd ((~>) a3_a2iXe ((~>) a4_a2iXf r_a2iXg)))) (t_a2j65 :: m_a2iXb a1_a2iXc) (t_a2j66 :: m_a2iXb a2_a2iXd) (t_a2j67 :: m_a2iXb a3_a2iXe) (t_a2j68 :: m_a2iXb a4_a2iXf). SMonad m_a2iXb => Sing t_a2j64 -> Sing t_a2j65 -> Sing t_a2j66 -> Sing t_a2j67 -> Sing t_a2j68 -> Sing (Apply (Apply (Apply (Apply (Apply LiftM4Sym0 t_a2j64) t_a2j65) t_a2j66) t_a2j67) t_a2j68 :: m_a2iXb r_a2iXg) type family LiftM5 a_a2iZY a_a2iZZ a_a2j00 a_a2j01 a_a2j02 a_a2j03 sLiftM5 :: forall a1_a2iX5 a2_a2iX6 a3_a2iX7 a4_a2iX8 a5_a2iX9 r_a2iXa m_a2iX4 (t_a2j5S :: (~>) a1_a2iX5 ((~>) a2_a2iX6 ((~>) a3_a2iX7 ((~>) a4_a2iX8 ((~>) a5_a2iX9 r_a2iXa))))) (t_a2j5T :: m_a2iX4 a1_a2iX5) (t_a2j5U :: m_a2iX4 a2_a2iX6) (t_a2j5V :: m_a2iX4 a3_a2iX7) (t_a2j5W :: m_a2iX4 a4_a2iX8) (t_a2j5X :: m_a2iX4 a5_a2iX9). SMonad m_a2iX4 => Sing t_a2j5S -> Sing t_a2j5T -> Sing t_a2j5U -> Sing t_a2j5V -> Sing t_a2j5W -> Sing t_a2j5X -> Sing (Apply (Apply (Apply (Apply (Apply (Apply LiftM5Sym0 t_a2j5S) t_a2j5T) t_a2j5U) t_a2j5V) t_a2j5W) t_a2j5X :: m_a2iX4 r_a2iXa) type family Ap a_a2iZJ a_a2iZK sAp :: forall m_a2iX1 a_a2iX2 b_a2iX3 (t_a2j5O :: m_a2iX1 ((~>) a_a2iX2 b_a2iX3)) (t_a2j5P :: m_a2iX1 a_a2iX2). SMonad m_a2iX1 => Sing t_a2j5O -> Sing t_a2j5P -> Sing (Apply (Apply ApSym0 t_a2j5O) t_a2j5P :: m_a2iX1 b_a2iX3) type family (<$!>) a_a9zLP a_a9zLQ infixl 4 <$!> (%<$!>) :: forall a_a9zFY b_a9zFZ m_a9zFX (t_a9zP1 :: (~>) a_a9zFY b_a9zFZ) (t_a9zP2 :: m_a9zFX a_a9zFY). SMonad m_a9zFX => Sing t_a9zP1 -> Sing t_a9zP2 -> Sing (Apply (Apply (<$!>@#@$) t_a9zP1) t_a9zP2 :: m_a9zFX b_a9zFZ) infixl 4 %<$!> data FmapSym0 a6989586621679559667 data FmapSym1 a6989586621679559667 a6989586621679559668 type FmapSym2 (a6989586621679559667 :: (~>) a_a2iYh b_a2iYi) (a6989586621679559668 :: f_a2iYg a_a2iYh) = Fmap a6989586621679559667 a6989586621679559668 :: f_a2iYg b_a2iYi data (>>=@#@$) a6989586621679559775 infixl 1 >>=@#@$ data (>>=@#@$$) a6989586621679559775 a6989586621679559776 infixl 1 >>=@#@$$ type (>>=@#@$$$) (a6989586621679559775 :: m_a2iYJ a_a2iYK) (a6989586621679559776 :: (~>) a_a2iYK (m_a2iYJ b_a2iYL)) = (>>=) a6989586621679559775 a6989586621679559776 :: m_a2iYJ b_a2iYL infixl 1 >>=@#@$$$ data (>>@#@$) a6989586621679559780 infixl 1 >>@#@$ data (>>@#@$$) a6989586621679559780 a6989586621679559781 infixl 1 >>@#@$$ type (>>@#@$$$) (a6989586621679559780 :: m_a2iYJ a_a2iYM) (a6989586621679559781 :: m_a2iYJ b_a2iYN) = (>>) a6989586621679559780 a6989586621679559781 :: m_a2iYJ b_a2iYN infixl 1 >>@#@$$$ data ReturnSym0 a6989586621679559784 type ReturnSym1 (a6989586621679559784 :: a_a2iYO) = Return a6989586621679559784 :: m_a2iYJ a_a2iYO data FailSym0 a6989586621679729522 type FailSym1 (a6989586621679729522 :: [Char]) = Fail a6989586621679729522 :: m_a31ec a_a31ed type MzeroSym0 = Mzero :: m_a2iZB a_a2iZC data MplusSym0 a6989586621679559822 data MplusSym1 a6989586621679559822 a6989586621679559823 type MplusSym2 (a6989586621679559822 :: m_a2iZB a_a2iZD) (a6989586621679559823 :: m_a2iZB a_a2iZD) = Mplus a6989586621679559822 a6989586621679559823 :: m_a2iZB a_a2iZD data MapMSym0 a6989586621680816750 data MapMSym1 a6989586621680816750 a6989586621680816751 type MapMSym2 (a6989586621680816750 :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (a6989586621680816751 :: t_a7A47 a_a7A4e) = MapM a6989586621680816750 a6989586621680816751 :: m_a7A4d (t_a7A47 b_a7A4f) data MapM_Sym0 a6989586621680492379 data MapM_Sym1 a6989586621680492379 a6989586621680492380 type MapM_Sym2 (a6989586621680492379 :: (~>) a_a6dxE (m_a6dxD b_a6dxF)) (a6989586621680492380 :: t_a6dxC a_a6dxE) = MapM_ a6989586621680492379 a6989586621680492380 :: m_a6dxD () data ForMSym0 a6989586621680823019 data ForMSym1 a6989586621680823019 a6989586621680823020 type ForMSym2 (a6989586621680823019 :: t_a7Bzd a_a7Bzf) (a6989586621680823020 :: (~>) a_a7Bzf (m_a7Bze b_a7Bzg)) = ForM a6989586621680823019 a6989586621680823020 :: m_a7Bze (t_a7Bzd b_a7Bzg) data SequenceSym0 a6989586621680816754 type SequenceSym1 (a6989586621680816754 :: t_a7A47 (m_a7A4g a_a7A4h)) = Sequence a6989586621680816754 :: m_a7A4g (t_a7A47 a_a7A4h) data Sequence_Sym0 a6989586621680492355 type Sequence_Sym1 (a6989586621680492355 :: t_a6dxs (m_a6dxt a_a6dxu)) = Sequence_ a6989586621680492355 :: m_a6dxt () data (=<<@#@$) a6989586621679559620 infixr 1 =<<@#@$ data (=<<@#@$$) a6989586621679559620 a6989586621679559621 infixr 1 =<<@#@$$ type (=<<@#@$$$) (a6989586621679559620 :: (~>) a_a2iXv (m_a2iXu b_a2iXw)) (a6989586621679559621 :: m_a2iXu a_a2iXv) = (=<<) a6989586621679559620 a6989586621679559621 :: m_a2iXu b_a2iXw infixr 1 =<<@#@$$$ data (>=>@#@$) a6989586621681292383 infixr 1 >=>@#@$ data (>=>@#@$$) a6989586621681292383 a6989586621681292384 infixr 1 >=>@#@$$ data (>=>@#@$$$) a6989586621681292383 a6989586621681292384 a6989586621681292385 infixr 1 >=>@#@$$$ data (<=<@#@$) a6989586621681292371 infixr 1 <=<@#@$ data (<=<@#@$$) a6989586621681292371 a6989586621681292372 infixr 1 <=<@#@$$ data (<=<@#@$$$) a6989586621681292371 a6989586621681292372 a6989586621681292373 infixr 1 <=<@#@$$$ data VoidSym0 a6989586621679731603 type VoidSym1 (a6989586621679731603 :: f_a31L0 a_a31L1) = Void a6989586621679731603 :: f_a31L0 () data JoinSym0 a6989586621679559626 type JoinSym1 (a6989586621679559626 :: m_a2iXx (m_a2iXx a_a2iXy)) = Join a6989586621679559626 :: m_a2iXx a_a2iXy data MsumSym0 a6989586621680492343 type MsumSym1 (a6989586621680492343 :: t_a6dxm (m_a6dxn a_a6dxo)) = Msum a6989586621680492343 :: m_a6dxn a_a6dxo data MfilterSym0 a6989586621681292236 data MfilterSym1 a6989586621681292236 a6989586621681292237 type MfilterSym2 (a6989586621681292236 :: (~>) a_a9zFW Bool) (a6989586621681292237 :: m_a9zFV a_a9zFW) = Mfilter a6989586621681292236 a6989586621681292237 :: m_a9zFV a_a9zFW data FilterMSym0 a6989586621681292398 data FilterMSym1 a6989586621681292398 a6989586621681292399 type FilterMSym2 (a6989586621681292398 :: (~>) a_a9zGy (m_a9zGx Bool)) (a6989586621681292399 :: [a_a9zGy]) = FilterM a6989586621681292398 a6989586621681292399 :: m_a9zGx [a_a9zGy] data MapAndUnzipMSym0 a6989586621681292357 data MapAndUnzipMSym1 a6989586621681292357 a6989586621681292358 type MapAndUnzipMSym2 (a6989586621681292357 :: (~>) a_a9zGm (m_a9zGl (b_a9zGn, c_a9zGo))) (a6989586621681292358 :: [a_a9zGm]) = MapAndUnzipM a6989586621681292357 a6989586621681292358 :: m_a9zGl ([b_a9zGn], [c_a9zGo]) data ZipWithMSym0 a6989586621681292348 data ZipWithMSym1 a6989586621681292348 a6989586621681292349 data ZipWithMSym2 a6989586621681292348 a6989586621681292349 a6989586621681292350 type ZipWithMSym3 (a6989586621681292348 :: (~>) a_a9zGi ((~>) b_a9zGj (m_a9zGh c_a9zGk))) (a6989586621681292349 :: [a_a9zGi]) (a6989586621681292350 :: [b_a9zGj]) = ZipWithM a6989586621681292348 a6989586621681292349 a6989586621681292350 :: m_a9zGh [c_a9zGk] data ZipWithM_Sym0 a6989586621681292338 data ZipWithM_Sym1 a6989586621681292338 a6989586621681292339 data ZipWithM_Sym2 a6989586621681292338 a6989586621681292339 a6989586621681292340 type ZipWithM_Sym3 (a6989586621681292338 :: (~>) a_a9zGe ((~>) b_a9zGf (m_a9zGd c_a9zGg))) (a6989586621681292339 :: [a_a9zGe]) (a6989586621681292340 :: [b_a9zGf]) = ZipWithM_ a6989586621681292338 a6989586621681292339 a6989586621681292340 :: m_a9zGd () data FoldlMSym0 a6989586621680492407 data FoldlMSym1 a6989586621680492407 a6989586621680492408 data FoldlMSym2 a6989586621680492407 a6989586621680492408 a6989586621680492409 type FoldlMSym3 (a6989586621680492407 :: (~>) b_a6dxQ ((~>) a_a6dxR (m_a6dxP b_a6dxQ))) (a6989586621680492408 :: b_a6dxQ) (a6989586621680492409 :: t_a6dxO a_a6dxR) = FoldlM a6989586621680492407 a6989586621680492408 a6989586621680492409 :: m_a6dxP b_a6dxQ data ReplicateMSym0 a6989586621681292293 data ReplicateMSym1 a6989586621681292293 a6989586621681292294 type ReplicateMSym2 (a6989586621681292293 :: Nat) (a6989586621681292294 :: m_a9zG3 a_a9zG4) = ReplicateM a6989586621681292293 a6989586621681292294 :: m_a9zG3 [a_a9zG4] data ReplicateM_Sym0 a6989586621681292275 data ReplicateM_Sym1 a6989586621681292275 a6989586621681292276 type ReplicateM_Sym2 (a6989586621681292275 :: Nat) (a6989586621681292276 :: m_a9zG1 a_a9zG2) = ReplicateM_ a6989586621681292275 a6989586621681292276 :: m_a9zG1 () data GuardSym0 a6989586621679559466 type GuardSym1 (a6989586621679559466 :: Bool) = Guard a6989586621679559466 :: f_a2iX0 () data WhenSym0 a6989586621679559610 data WhenSym1 a6989586621679559610 a6989586621679559611 type WhenSym2 (a6989586621679559610 :: Bool) (a6989586621679559611 :: f_a2iXt ()) = When a6989586621679559610 a6989586621679559611 :: f_a2iXt () data UnlessSym0 a6989586621681292265 data UnlessSym1 a6989586621681292265 a6989586621681292266 type UnlessSym2 (a6989586621681292265 :: Bool) (a6989586621681292266 :: f_a9zG0 ()) = Unless a6989586621681292265 a6989586621681292266 :: f_a9zG0 () data LiftMSym0 a6989586621679559599 data LiftMSym1 a6989586621679559599 a6989586621679559600 type LiftMSym2 (a6989586621679559599 :: (~>) a1_a2iXr r_a2iXs) (a6989586621679559600 :: m_a2iXq a1_a2iXr) = LiftM a6989586621679559599 a6989586621679559600 :: m_a2iXq r_a2iXs data LiftM2Sym0 a6989586621679559582 data LiftM2Sym1 a6989586621679559582 a6989586621679559583 data LiftM2Sym2 a6989586621679559582 a6989586621679559583 a6989586621679559584 type LiftM2Sym3 (a6989586621679559582 :: (~>) a1_a2iXn ((~>) a2_a2iXo r_a2iXp)) (a6989586621679559583 :: m_a2iXm a1_a2iXn) (a6989586621679559584 :: m_a2iXm a2_a2iXo) = LiftM2 a6989586621679559582 a6989586621679559583 a6989586621679559584 :: m_a2iXm r_a2iXp data LiftM3Sym0 a6989586621679559558 data LiftM3Sym1 a6989586621679559558 a6989586621679559559 data LiftM3Sym2 a6989586621679559558 a6989586621679559559 a6989586621679559560 data LiftM3Sym3 a6989586621679559558 a6989586621679559559 a6989586621679559560 a6989586621679559561 type LiftM3Sym4 (a6989586621679559558 :: (~>) a1_a2iXi ((~>) a2_a2iXj ((~>) a3_a2iXk r_a2iXl))) (a6989586621679559559 :: m_a2iXh a1_a2iXi) (a6989586621679559560 :: m_a2iXh a2_a2iXj) (a6989586621679559561 :: m_a2iXh a3_a2iXk) = LiftM3 a6989586621679559558 a6989586621679559559 a6989586621679559560 a6989586621679559561 :: m_a2iXh r_a2iXl data LiftM4Sym0 a6989586621679559527 data LiftM4Sym1 a6989586621679559527 a6989586621679559528 data LiftM4Sym2 a6989586621679559527 a6989586621679559528 a6989586621679559529 data LiftM4Sym3 a6989586621679559527 a6989586621679559528 a6989586621679559529 a6989586621679559530 data LiftM4Sym4 a6989586621679559527 a6989586621679559528 a6989586621679559529 a6989586621679559530 a6989586621679559531 type LiftM4Sym5 (a6989586621679559527 :: (~>) a1_a2iXc ((~>) a2_a2iXd ((~>) a3_a2iXe ((~>) a4_a2iXf r_a2iXg)))) (a6989586621679559528 :: m_a2iXb a1_a2iXc) (a6989586621679559529 :: m_a2iXb a2_a2iXd) (a6989586621679559530 :: m_a2iXb a3_a2iXe) (a6989586621679559531 :: m_a2iXb a4_a2iXf) = LiftM4 a6989586621679559527 a6989586621679559528 a6989586621679559529 a6989586621679559530 a6989586621679559531 :: m_a2iXb r_a2iXg data LiftM5Sym0 a6989586621679559489 data LiftM5Sym1 a6989586621679559489 a6989586621679559490 data LiftM5Sym2 a6989586621679559489 a6989586621679559490 a6989586621679559491 data LiftM5Sym3 a6989586621679559489 a6989586621679559490 a6989586621679559491 a6989586621679559492 data LiftM5Sym4 a6989586621679559489 a6989586621679559490 a6989586621679559491 a6989586621679559492 a6989586621679559493 data LiftM5Sym5 a6989586621679559489 a6989586621679559490 a6989586621679559491 a6989586621679559492 a6989586621679559493 a6989586621679559494 type LiftM5Sym6 (a6989586621679559489 :: (~>) a1_a2iX5 ((~>) a2_a2iX6 ((~>) a3_a2iX7 ((~>) a4_a2iX8 ((~>) a5_a2iX9 r_a2iXa))))) (a6989586621679559490 :: m_a2iX4 a1_a2iX5) (a6989586621679559491 :: m_a2iX4 a2_a2iX6) (a6989586621679559492 :: m_a2iX4 a3_a2iX7) (a6989586621679559493 :: m_a2iX4 a4_a2iX8) (a6989586621679559494 :: m_a2iX4 a5_a2iX9) = LiftM5 a6989586621679559489 a6989586621679559490 a6989586621679559491 a6989586621679559492 a6989586621679559493 a6989586621679559494 :: m_a2iX4 r_a2iXa data ApSym0 a6989586621679559470 data ApSym1 a6989586621679559470 a6989586621679559471 type ApSym2 (a6989586621679559470 :: m_a2iX1 ((~>) a_a2iX2 b_a2iX3)) (a6989586621679559471 :: m_a2iX1 a_a2iX2) = Ap a6989586621679559470 a6989586621679559471 :: m_a2iX1 b_a2iX3 data (<$!>@#@$) a6989586621681292252 infixl 4 <$!>@#@$ data (<$!>@#@$$) a6989586621681292252 a6989586621681292253 infixl 4 <$!>@#@$$ type (<$!>@#@$$$) (a6989586621681292252 :: (~>) a_a9zFY b_a9zFZ) (a6989586621681292253 :: m_a9zFX a_a9zFY) = (<$!>) a6989586621681292252 a6989586621681292253 :: m_a9zFX b_a9zFZ infixl 4 <$!>@#@$$$ instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.TFHelper_6989586621681292434Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad Data.Ord.Down instance forall a b (a6989586621681292439 :: Data.Ord.Down a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.TFHelper_6989586621681292434Sym1 a6989586621681292439) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.TFHelper_6989586621681292415Sym0 instance Data.Singletons.Prelude.Monad.Internal.PMonad ((,) a) instance forall a1 a2 b (a6989586621681292420 :: (a1, a2)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.TFHelper_6989586621681292415Sym1 a6989586621681292420) instance Data.Singletons.Prelude.Monoid.SMonoid a => Data.Singletons.Prelude.Monad.Internal.SMonad ((,) a) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Let6989586621681292425Scrutinee_6989586621681291984Sym0 instance forall k1 k2 k3 (u6989586621681292422 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292425Scrutinee_6989586621681291984Sym1 u6989586621681292422) instance forall k1 k2 k3 (u6989586621681292422 :: k1) (a6989586621681292423 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292425Scrutinee_6989586621681291984Sym2 u6989586621681292422 a6989586621681292423) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.FilterMSym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.FilterMSym0 instance forall a (m :: * -> *) (a6989586621681292398 :: a Data.Singletons.Internal.~> m GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.FilterMSym1 a6989586621681292398) instance forall (m :: * -> *) a (d :: a Data.Singletons.Internal.~> m GHC.Types.Bool). (Data.Singletons.Prelude.Monad.Internal.SApplicative m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.FilterMSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.<=<@#@$) instance Data.Singletons.Prelude.Monad.Internal.SMonad m => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.<=<@#@$) instance forall b (m :: * -> *) c a (a6989586621681292371 :: b Data.Singletons.Internal.~> m c). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Monad.<=<@#@$$) a6989586621681292371) instance forall (m :: * -> *) b c (d :: b Data.Singletons.Internal.~> m c) a. (Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Monad.<=<@#@$$) d) instance forall b (m :: * -> *) c a (a6989586621681292371 :: b Data.Singletons.Internal.~> m c) (a6989586621681292372 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (a6989586621681292371 Data.Singletons.Prelude.Monad.<=<@#@$$$ a6989586621681292372) instance forall (m :: * -> *) b c (d1 :: b Data.Singletons.Internal.~> m c) a (d2 :: a Data.Singletons.Internal.~> m b). (Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (d1 Data.Singletons.Prelude.Monad.<=<@#@$$$ d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.>=>@#@$) instance Data.Singletons.Prelude.Monad.Internal.SMonad m => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.>=>@#@$) instance forall a (m :: * -> *) b c (a6989586621681292383 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Monad.>=>@#@$$) a6989586621681292383) instance forall (m :: * -> *) a b (d :: a Data.Singletons.Internal.~> m b) c. (Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Monad.>=>@#@$$) d) instance forall a (m :: * -> *) b c (a6989586621681292383 :: a Data.Singletons.Internal.~> m b) (a6989586621681292384 :: b Data.Singletons.Internal.~> m c). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (a6989586621681292383 Data.Singletons.Prelude.Monad.>=>@#@$$$ a6989586621681292384) instance forall (m :: * -> *) a b (d1 :: a Data.Singletons.Internal.~> m b) c (d2 :: b Data.Singletons.Internal.~> m c). (Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (d1 Data.Singletons.Prelude.Monad.>=>@#@$$$ d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.MapAndUnzipMSym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.MapAndUnzipMSym0 instance forall a (m :: * -> *) b c (a6989586621681292357 :: a Data.Singletons.Internal.~> m (b, c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.MapAndUnzipMSym1 a6989586621681292357) instance forall (m :: * -> *) a b c (d :: a Data.Singletons.Internal.~> m (b, c)). (Data.Singletons.Prelude.Monad.Internal.SApplicative m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.MapAndUnzipMSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.ZipWithMSym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.ZipWithMSym0 instance forall a b (m :: * -> *) c (a6989586621681292348 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.ZipWithMSym1 a6989586621681292348) instance forall (m :: * -> *) a b c (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m c)). (Data.Singletons.Prelude.Monad.Internal.SApplicative m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.ZipWithMSym1 d) instance forall a b (m :: * -> *) c (a6989586621681292348 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m c)) (a6989586621681292349 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.ZipWithMSym2 a6989586621681292348 a6989586621681292349) instance forall (m :: * -> *) a b c (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m c)) (d2 :: [a]). (Data.Singletons.Prelude.Monad.Internal.SApplicative m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.ZipWithMSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.ZipWithM_Sym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.ZipWithM_Sym0 instance forall a b (m :: * -> *) c (a6989586621681292338 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m c)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.ZipWithM_Sym1 a6989586621681292338) instance forall (m :: * -> *) a b c (d :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m c)). (Data.Singletons.Prelude.Monad.Internal.SApplicative m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.ZipWithM_Sym1 d) instance forall a b (m :: * -> *) c (a6989586621681292338 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m c)) (a6989586621681292339 :: [a]). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.ZipWithM_Sym2 a6989586621681292338 a6989586621681292339) instance forall (m :: * -> *) a b c (d1 :: a Data.Singletons.Internal.~> (b Data.Singletons.Internal.~> m c)) (d2 :: [a]). (Data.Singletons.Prelude.Monad.Internal.SApplicative m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.ZipWithM_Sym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.FoldMSym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.FoldMSym0 instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621681292328 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.FoldMSym1 a6989586621681292328) instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.FoldMSym1 d) instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621681292328 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)) (a6989586621681292329 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.FoldMSym2 a6989586621681292328 a6989586621681292329) instance forall (t :: * -> *) (m :: * -> *) b a (d1 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)) (d2 :: b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.FoldMSym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.FoldM_Sym0 instance (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m) => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.FoldM_Sym0 instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621681292312 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.FoldM_Sym1 a6989586621681292312) instance forall (t :: * -> *) (m :: * -> *) b a (d :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.FoldM_Sym1 d) instance forall b a (m :: * -> *) (t :: * -> *) (a6989586621681292312 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)) (a6989586621681292313 :: b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.FoldM_Sym2 a6989586621681292312 a6989586621681292313) instance forall (t :: * -> *) (m :: * -> *) b a (d1 :: b Data.Singletons.Internal.~> (a Data.Singletons.Internal.~> m b)) (d2 :: b). (Data.Singletons.Prelude.Foldable.SFoldable t, Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d1, Data.Singletons.Internal.SingI d2) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.FoldM_Sym2 d1 d2) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.ReplicateMSym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.ReplicateMSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.ReplicateMSym1 a6989586621681292293) instance (Data.Singletons.Prelude.Monad.Internal.SApplicative m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.ReplicateMSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.ReplicateM_Sym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.ReplicateM_Sym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.ReplicateM_Sym1 a6989586621681292275) instance (Data.Singletons.Prelude.Monad.Internal.SApplicative m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.ReplicateM_Sym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.UnlessSym0 instance Data.Singletons.Prelude.Monad.Internal.SApplicative f => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.UnlessSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.UnlessSym1 a6989586621681292265) instance (Data.Singletons.Prelude.Monad.Internal.SApplicative f, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.UnlessSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.<$!>@#@$) instance Data.Singletons.Prelude.Monad.Internal.SMonad m => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.<$!>@#@$) instance forall a b (m :: * -> *) (a6989586621681292252 :: a Data.Singletons.Internal.~> b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.Prelude.Monad.<$!>@#@$$) a6989586621681292252) instance forall (m :: * -> *) a b (d :: a Data.Singletons.Internal.~> b). (Data.Singletons.Prelude.Monad.Internal.SMonad m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI ((Data.Singletons.Prelude.Monad.<$!>@#@$$) d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.MfilterSym0 instance Data.Singletons.Prelude.Monad.Internal.SMonadPlus m => Data.Singletons.Internal.SingI Data.Singletons.Prelude.Monad.MfilterSym0 instance forall a (m :: * -> *) (a6989586621681292236 :: a Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.MfilterSym1 a6989586621681292236) instance forall (m :: * -> *) a (d :: a Data.Singletons.Internal.~> GHC.Types.Bool). (Data.Singletons.Prelude.Monad.Internal.SMonadPlus m, Data.Singletons.Internal.SingI d) => Data.Singletons.Internal.SingI (Data.Singletons.Prelude.Monad.MfilterSym1 d) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Lambda_6989586621681292402Sym0 instance forall k2 (f :: * -> *) k3 (p6989586621681292400 :: k2 Data.Singletons.Internal.~> f GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292402Sym1 p6989586621681292400) instance forall k2 (f :: * -> *) k3 (p6989586621681292400 :: k2 Data.Singletons.Internal.~> f GHC.Types.Bool) (a_69895866216812923936989586621681292401 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292402Sym2 p6989586621681292400 a_69895866216812923936989586621681292401) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Lambda_6989586621681292405Sym0 instance forall k1 k2 k3 (x6989586621681292404 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292405Sym1 x6989586621681292404) instance forall k1 k2 k3 (x6989586621681292404 :: k1) (p6989586621681292400 :: k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292405Sym2 x6989586621681292404 p6989586621681292400) instance forall k1 k2 k3 (x6989586621681292404 :: k1) (p6989586621681292400 :: k2) (a_69895866216812923936989586621681292401 :: k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292405Sym3 x6989586621681292404 p6989586621681292400 a_69895866216812923936989586621681292401) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Lambda_6989586621681292389Sym0 instance forall k1 (m :: * -> *) a b k (f6989586621681292386 :: k1 Data.Singletons.Internal.~> m a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292389Sym1 f6989586621681292386) instance forall k1 (m :: * -> *) a b k (f6989586621681292386 :: k1 Data.Singletons.Internal.~> m a) (g6989586621681292387 :: a Data.Singletons.Internal.~> m b). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292389Sym2 f6989586621681292386 g6989586621681292387) instance forall k1 (m :: * -> *) a b k (f6989586621681292386 :: k1 Data.Singletons.Internal.~> m a) (g6989586621681292387 :: a Data.Singletons.Internal.~> m b) (a_69895866216812923776989586621681292388 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292389Sym3 f6989586621681292386 g6989586621681292387 a_69895866216812923776989586621681292388) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Let6989586621681292297LoopSym0 instance forall k (m6989586621681291891 :: * -> *) a6989586621681291892 (cnt06989586621681292295 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292297LoopSym1 cnt06989586621681292295) instance forall k (m6989586621681291891 :: * -> *) a6989586621681291892 (cnt06989586621681292295 :: k) (f6989586621681292296 :: m6989586621681291891 a6989586621681291892). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292297LoopSym2 cnt06989586621681292295 f6989586621681292296) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Let6989586621681292279LoopSym0 instance forall k (m6989586621681291889 :: * -> *) a (cnt06989586621681292277 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292279LoopSym1 cnt06989586621681292277) instance forall k (m6989586621681291889 :: * -> *) a (cnt06989586621681292277 :: k) (f6989586621681292278 :: m6989586621681291889 a). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292279LoopSym2 cnt06989586621681292277 f6989586621681292278) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Lambda_6989586621681292256Sym0 instance forall k2 k3 k (m :: * -> *) (f6989586621681292254 :: k2 Data.Singletons.Internal.~> k3). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292256Sym1 f6989586621681292254) instance forall k2 k3 k (m :: * -> *) (f6989586621681292254 :: k2 Data.Singletons.Internal.~> k3) (m6989586621681292255 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292256Sym2 f6989586621681292254 m6989586621681292255) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Let6989586621681292259ZSym0 instance forall k1 k2 k3 (x6989586621681292258 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292259ZSym1 x6989586621681292258) instance forall k1 k2 k3 (x6989586621681292258 :: k1) (f6989586621681292254 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292259ZSym2 x6989586621681292258 f6989586621681292254) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Lambda_6989586621681292240Sym0 instance forall k1 k (m :: * -> *) (p6989586621681292238 :: k1 Data.Singletons.Internal.~> GHC.Types.Bool). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292240Sym1 p6989586621681292238) instance forall k1 k (m :: * -> *) (p6989586621681292238 :: k1 Data.Singletons.Internal.~> GHC.Types.Bool) (ma6989586621681292239 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Lambda_6989586621681292240Sym2 p6989586621681292238 ma6989586621681292239) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.Prelude.Monad.Let6989586621681292243Scrutinee_6989586621681291982Sym0 instance forall k1 k2 k3 (a6989586621681292242 :: k1). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292243Scrutinee_6989586621681291982Sym1 a6989586621681292242) instance forall k1 k2 k3 (a6989586621681292242 :: k1) (p6989586621681292238 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.Prelude.Monad.Let6989586621681292243Scrutinee_6989586621681291982Sym2 a6989586621681292242 p6989586621681292238) instance Data.Singletons.Prelude.Monad.Internal.SMonad Data.Ord.Down -- | This module exports the basic definitions to use singletons. For -- routine use, consider importing Prelude, which exports -- constructors for singletons based on types in the Prelude. -- -- You may also want to read the original papers presenting this library, -- available at -- http://cs.brynmawr.edu/~rae/papers/2012/singletons/paper.pdf -- and -- http://cs.brynmawr.edu/~rae/papers/2014/promotion/promotion.pdf. module Data.Singletons -- | The singleton kind-indexed type family. type family Sing newtype SLambda f SLambda :: (forall t. Sing t -> Sing (f @@ t)) -> SLambda f [applySing] :: SLambda f -> forall t. Sing t -> Sing (f @@ t) -- | An infix synonym for applySing (@@) :: forall k1 k2 (f :: k1 ~> k2) (t :: k1). Sing f -> Sing t -> Sing (f @@ t) infixl 9 @@ -- | A SingI constraint is essentially an implicitly-passed -- singleton. If you need to satisfy this constraint with an explicit -- singleton, please see withSingI or the Sing pattern -- synonym. class SingI a -- | Produce the singleton explicitly. You will likely need the -- ScopedTypeVariables extension to use this method the way you -- want. sing :: SingI a => Sing a -- | The SingKind class is a kind class. It classifies all -- kinds for which singletons are defined. The class supports converting -- between a singleton type and the base (unrefined) type which it is -- built from. -- -- For a SingKind instance to be well behaved, it should obey the -- following laws: -- --
--   toSing . fromSing ≡ SomeSing
--   (\x -> withSomeSing x fromSing) ≡ id
--   
-- -- The final law can also be expressed in terms of the FromSing -- pattern synonym: -- --
--   (\(FromSing sing) -> FromSing sing) ≡ id
--   
class SingKind k where { -- | Get a base type from the promoted kind. For example, Demote -- Bool will be the type Bool. Rarely, the type and kind do -- not match. For example, Demote Nat is Natural. type family Demote k = (r :: Type) | r -> k; } -- | Convert a singleton to its unrefined version. fromSing :: SingKind k => Sing (a :: k) -> Demote k -- | Convert an unrefined type to an existentially-quantified singleton -- type. toSing :: SingKind k => Demote k -> SomeSing k -- | Convenient synonym to refer to the kind of a type variable: type -- KindOf (a :: k) = k type KindOf (a :: k) = k -- | Force GHC to unify the kinds of a and b. Note that -- SameKind a b is different from KindOf a ~ KindOf b -- in that the former makes the kinds unify immediately, whereas the -- latter is a proposition that GHC considers as possibly false. type SameKind a b = () -- | A SingInstance wraps up a SingI instance for explicit -- handling. data SingInstance a [SingInstance] :: SingI a => SingInstance a -- | An existentially-quantified singleton. This type is useful when -- you want a singleton type, but there is no way of knowing, at -- compile-time, what the type index will be. To make use of this type, -- you will generally have to use a pattern-match: -- --
--   foo :: Bool -> ...
--   foo b = case toSing b of
--             SomeSing sb -> {- fancy dependently-typed code with sb -}
--   
-- -- An example like the one above may be easier to write using -- withSomeSing. data SomeSing k [SomeSing] :: Sing (a :: k) -> SomeSing k -- | Get an implicit singleton (a SingI instance) from an explicit -- one. singInstance :: forall k (a :: k). Sing a -> SingInstance a -- | An explicitly bidirectional pattern synonym for implicit singletons. -- -- As an expression: Constructs a singleton Sing a given -- a implicit singleton constraint SingI a. -- -- As a pattern: Matches on an explicit Sing a witness -- bringing an implicit SingI a constraint into scope. pattern Sing :: forall k (a :: k). () => SingI a => Sing a -- | Convenience function for creating a context with an implicit singleton -- available. withSingI :: Sing n -> (SingI n => r) -> r -- | Convert a normal datatype (like Bool) to a singleton for that -- datatype, passing it into a continuation. withSomeSing :: forall k r. SingKind k => Demote k -> (forall (a :: k). Sing a -> r) -> r -- | An explicitly bidirectional pattern synonym for going between a -- singleton and the corresponding demoted term. -- -- As an expression: this takes a singleton to its demoted (base) -- type. -- --
--   >>> :t FromSing \@Bool
--   FromSing \@Bool :: Sing a -> Bool
--   
--   >>> FromSing SFalse
--   False
--   
-- -- As a pattern: It extracts a singleton from its demoted (base) -- type. -- --
--   singAnd :: Bool -> Bool -> SomeSing Bool
--   singAnd (FromSing singBool1) (FromSing singBool2) =
--     SomeSing (singBool1 %&& singBool2)
--   
-- -- instead of writing it with withSomeSing: -- --
--   singAnd bool1 bool2 =
--     withSomeSing bool1 $ singBool1 ->
--       withSomeSing bool2 $ singBool2 ->
--         SomeSing (singBool1 %&& singBool2)
--   
pattern FromSing :: SingKind k => forall (a :: k). Sing a -> Demote k -- | Allows creation of a singleton when a proxy is at hand. singByProxy :: SingI a => proxy a -> Sing a -- | A convenience function that takes a type as input and demotes it to -- its value-level counterpart as output. This uses SingKind and -- SingI behind the scenes, so demote = fromSing -- sing. -- -- This function is intended to be used with TypeApplications. -- For example: -- --
--   >>> demote @True
--   True
--   
-- --
--   >>> demote @(Nothing :: Maybe Ordering)
--   Nothing
--   
demote :: forall a. (SingKind (KindOf a), SingI a) => Demote (KindOf a) -- | Allows creation of a singleton when a proxy# is at hand. singByProxy# :: SingI a => Proxy# a -> Sing a -- | A convenience function useful when we need to name a singleton value -- multiple times. Without this function, each use of sing could -- potentially refer to a different singleton, and one has to use type -- signatures (often with ScopedTypeVariables) to ensure that -- they are the same. withSing :: SingI a => (Sing a -> b) -> b -- | A convenience function that names a singleton satisfying a certain -- property. If the singleton does not satisfy the property, then the -- function returns Nothing. The property is expressed in terms of -- the underlying representation of the singleton. singThat :: forall k (a :: k). (SingKind k, SingI a) => (Demote k -> Bool) -> Maybe (Sing a) -- | A newtype around Sing. -- -- Since Sing is a type family, it cannot be used directly in type -- class instances. As one example, one cannot write a catch-all -- instance SDecide k => TestEquality -- (Sing k). On the other hand, WrappedSing is a -- perfectly ordinary data type, which means that it is quite possible to -- define an instance SDecide k => TestEquality -- (WrappedSing k). newtype WrappedSing a [WrapSing] :: forall k (a :: k). {unwrapSing :: Sing a} -> WrappedSing a -- | The singleton for WrappedSings. Informally, this is the -- singleton type for other singletons. newtype SWrappedSing ws [SWrapSing] :: forall k (a :: k) (ws :: WrappedSing a). {sUnwrapSing :: Sing a} -> SWrappedSing ws type family UnwrapSing ws -- | Representation of the kind of a type-level function. The difference -- between term-level arrows and this type-level arrow is that at the -- term level applications can be unsaturated, whereas at the type level -- all applications have to be fully saturated. data TyFun a b -- | Something of kind `a ~> b` is a defunctionalized type function that -- is not necessarily generative or injective. type a ~> b = TyFun a b -> Type infixr 0 ~> -- | Wrapper for converting the normal type-level arrow into a -- ~>. For example, given: -- --
--   data Nat = Zero | Succ Nat
--   type family Map (a :: a ~> b) (a :: [a]) :: [b]
--     Map f '[] = '[]
--     Map f (x ': xs) = Apply f x ': Map f xs
--   
-- -- We can write: -- --
--   Map (TyCon1 Succ) [Zero, Succ Zero]
--   
type TyCon1 = TyCon -- | Similar to TyCon1, but for two-parameter type constructors. type TyCon2 = TyCon type TyCon3 = TyCon type TyCon4 = TyCon type TyCon5 = TyCon type TyCon6 = TyCon type TyCon7 = TyCon type TyCon8 = TyCon -- | Workhorse for the TyCon1, etc., types. This can be used -- directly in place of any of the TyConN types, but it will -- work only with monomorphic types. When GHC#14645 is fixed, this -- should fully supersede the TyConN types. data family TyCon -- | Type level function application type family Apply f x -- | An infix synonym for Apply type a @@ b = Apply a b infixl 9 @@ type family ApplyTyCon -- | An "internal" defunctionalization symbol used primarily in the -- definition of ApplyTyCon, as well as the SingI instances -- for TyCon1, TyCon2, etc. data ApplyTyConAux1 f z -- | An "internal" defunctionalization symbol used primarily in the -- definition of ApplyTyCon. data ApplyTyConAux2 f z -- | Use this function when passing a function on singletons as a -- higher-order function. You will need visible type application to get -- this to work. For example: -- --
--   falses = sMap (singFun1 @NotSym0 sNot)
--                 (STrue `SCons` STrue `SCons` SNil)
--   
-- -- There are a family of singFun... functions, keyed by the -- number of parameters of the function. singFun1 :: forall f. SingFunction1 f -> Sing f singFun2 :: forall f. SingFunction2 f -> Sing f singFun3 :: forall f. SingFunction3 f -> Sing f singFun4 :: forall f. SingFunction4 f -> Sing f singFun5 :: forall f. SingFunction5 f -> Sing f singFun6 :: forall f. SingFunction6 f -> Sing f singFun7 :: forall f. SingFunction7 f -> Sing f singFun8 :: forall f. SingFunction8 f -> Sing f -- | This is the inverse of singFun1, and likewise for the other -- unSingFun... functions. unSingFun1 :: forall f. Sing f -> SingFunction1 f unSingFun2 :: forall f. Sing f -> SingFunction2 f unSingFun3 :: forall f. Sing f -> SingFunction3 f unSingFun4 :: forall f. Sing f -> SingFunction4 f unSingFun5 :: forall f. Sing f -> SingFunction5 f unSingFun6 :: forall f. Sing f -> SingFunction6 f unSingFun7 :: forall f. Sing f -> SingFunction7 f unSingFun8 :: forall f. Sing f -> SingFunction8 f pattern SLambda2 :: forall f. SingFunction2 f -> Sing f applySing2 :: forall a1 a2 b (f :: a1 ~> (a2 ~> b)). Sing f -> forall (t1 :: a1) (t2 :: a2). () => Sing t1 -> Sing t2 -> Sing ((f @@ t1) @@ t2) pattern SLambda3 :: forall f. SingFunction3 f -> Sing f applySing3 :: forall a1 a2 a3 b (f :: a1 ~> (a2 ~> (a3 ~> b))). Sing f -> forall (t1 :: a1) (t2 :: a2) (t3 :: a3). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing (((f @@ t1) @@ t2) @@ t3) pattern SLambda4 :: forall f. SingFunction4 f -> Sing f applySing4 :: forall a1 a2 a3 a4 b (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> b)))). Sing f -> forall (t1 :: a1) (t2 :: a2) (t3 :: a3) (t4 :: a4). () => Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing ((((f @@ t1) @@ t2) @@ t3) @@ t4) pattern SLambda5 :: forall f. SingFunction5 f -> Sing f applySing5 :: forall a1 a2 a3 a4 a5 b (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> b))))). Sing f -> 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) pattern SLambda6 :: forall f. SingFunction6 f -> Sing f applySing6 :: forall a1 a2 a3 a4 a5 a6 b (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> b)))))). Sing f -> 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) pattern SLambda7 :: forall f. SingFunction7 f -> Sing f applySing7 :: forall a1 a2 a3 a4 a5 a6 a7 b (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> b))))))). Sing f -> 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) pattern SLambda8 :: forall f. SingFunction8 f -> Sing f applySing8 :: forall a1 a2 a3 a4 a5 a6 a7 a8 b (f :: a1 ~> (a2 ~> (a3 ~> (a4 ~> (a5 ~> (a6 ~> (a7 ~> (a8 ~> b)))))))). Sing f -> 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) type SingFunction1 f = forall t. Sing t -> Sing (f @@ t) type SingFunction2 f = forall t1 t2. Sing t1 -> Sing t2 -> Sing (f @@ t1 @@ t2) type SingFunction3 f = forall t1 t2 t3. Sing t1 -> Sing t2 -> Sing t3 -> Sing (f @@ t1 @@ t2 @@ t3) type SingFunction4 f = forall t1 t2 t3 t4. Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing (f @@ t1 @@ t2 @@ t3 @@ t4) type SingFunction5 f = forall t1 t2 t3 t4 t5. Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing (f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5) type SingFunction6 f = forall t1 t2 t3 t4 t5 t6. Sing t1 -> Sing t2 -> Sing t3 -> Sing t4 -> Sing t5 -> Sing t6 -> Sing (f @@ t1 @@ t2 @@ t3 @@ t4 @@ t5 @@ t6) type SingFunction7 f = forall t1 t2 t3 t4 t5 t6 t7. 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 = forall t1 t2 t3 t4 t5 t6 t7 t8. 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) -- | 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) data DemoteSym0 a6989586621681337317 type DemoteSym1 (a6989586621681337317 :: Type) = Demote a6989586621681337317 :: Type data SameKindSym0 a6989586621681337319 data SameKindSym1 a6989586621681337319 a6989586621681337320 type SameKindSym2 (a6989586621681337319 :: k_a4a4) (a6989586621681337320 :: k_a4a4) = SameKind a6989586621681337319 a6989586621681337320 :: Constraint data KindOfSym0 a6989586621681337322 type KindOfSym1 (a6989586621681337322 :: k_a49Z) = KindOf a6989586621681337322 :: Type data (~>@#@$) a6989586621681337324 infixr 0 ~>@#@$ data (~>@#@$$) a6989586621681337324 a6989586621681337325 infixr 0 ~>@#@$$ type (~>@#@$$$) (a6989586621681337324 :: Type) (a6989586621681337325 :: Type) = (~>) a6989586621681337324 a6989586621681337325 :: Type infixr 0 ~>@#@$$$ data ApplySym0 a6989586621681337327 data ApplySym1 a6989586621681337327 a6989586621681337328 type ApplySym2 (a6989586621681337327 :: (~>) k1_a49N k2_a49O) (a6989586621681337328 :: k1_a49N) = Apply a6989586621681337327 a6989586621681337328 :: k2_a49O data (@@@#@$) a6989586621681337330 infixl 9 @@@#@$ data (@@@#@$$) a6989586621681337330 a6989586621681337331 infixl 9 @@@#@$$ type (@@@#@$$$) (a6989586621681337330 :: (~>) k1_a49L k2_a49M) (a6989586621681337331 :: k1_a49L) = (@@) a6989586621681337330 a6989586621681337331 :: k2_a49M infixl 9 @@@#@$$$ instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.@@@#@$) instance forall k1 k2 (a6989586621681337330 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.@@@#@$$) a6989586621681337330) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.ApplySym0 instance forall k1 k2 (a6989586621681337327 :: k1 Data.Singletons.Internal.~> k2). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.ApplySym1 a6989586621681337327) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.~>@#@$) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.~>@#@$$) a6989586621681337324) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.KindOfSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.SameKindSym0 instance forall k (a6989586621681337319 :: k). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.SameKindSym1 a6989586621681337319) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.DemoteSym0 instance forall k k_last (f :: k -> k_last). (forall (a :: k). Data.Singletons.Internal.SingI a => Data.Singletons.Internal.SingI (f a), Data.Singletons.Internal.ApplyTyCon GHC.Types.~ Data.Singletons.Internal.ApplyTyConAux1) => Data.Singletons.Internal.SingI (Data.Singletons.Internal.TyCon1 f) instance forall k1 k_last k2 (f :: k2 -> k1 -> k_last). (forall (a1 :: k2) (a2 :: k1). (Data.Singletons.Internal.SingI a1, Data.Singletons.Internal.SingI a2) => Data.Singletons.Internal.SingI (f a1 a2), Data.Singletons.Internal.ApplyTyCon GHC.Types.~ Data.Singletons.Internal.ApplyTyConAux1) => Data.Singletons.Internal.SingI (Data.Singletons.Internal.TyCon2 f) instance forall k1 k_last k2 k3 (f :: k2 -> k3 -> k1 -> k_last). (forall (a1 :: k2) (a2 :: k3) (a3 :: k1). (Data.Singletons.Internal.SingI a1, Data.Singletons.Internal.SingI a2, Data.Singletons.Internal.SingI a3) => Data.Singletons.Internal.SingI (f a1 a2 a3), Data.Singletons.Internal.ApplyTyCon GHC.Types.~ Data.Singletons.Internal.ApplyTyConAux1) => Data.Singletons.Internal.SingI (Data.Singletons.Internal.TyCon3 f) instance forall k1 k_last k2 k3 k4 (f :: k2 -> k3 -> k4 -> k1 -> k_last). (forall (a1 :: k2) (a2 :: k3) (a3 :: k4) (a4 :: k1). (Data.Singletons.Internal.SingI a1, Data.Singletons.Internal.SingI a2, Data.Singletons.Internal.SingI a3, Data.Singletons.Internal.SingI a4) => Data.Singletons.Internal.SingI (f a1 a2 a3 a4), Data.Singletons.Internal.ApplyTyCon GHC.Types.~ Data.Singletons.Internal.ApplyTyConAux1) => Data.Singletons.Internal.SingI (Data.Singletons.Internal.TyCon4 f) instance forall k1 k_last k2 k3 k4 k5 (f :: k2 -> k3 -> k4 -> k5 -> k1 -> k_last). (forall (a1 :: k2) (a2 :: k3) (a3 :: k4) (a4 :: k5) (a5 :: k1). (Data.Singletons.Internal.SingI a1, Data.Singletons.Internal.SingI a2, Data.Singletons.Internal.SingI a3, Data.Singletons.Internal.SingI a4, Data.Singletons.Internal.SingI a5) => Data.Singletons.Internal.SingI (f a1 a2 a3 a4 a5), Data.Singletons.Internal.ApplyTyCon GHC.Types.~ Data.Singletons.Internal.ApplyTyConAux1) => Data.Singletons.Internal.SingI (Data.Singletons.Internal.TyCon5 f) instance forall k1 k_last k2 k3 k4 k5 k6 (f :: k2 -> k3 -> k4 -> k5 -> k6 -> k1 -> k_last). (forall (a1 :: k2) (a2 :: k3) (a3 :: k4) (a4 :: k5) (a5 :: k6) (a6 :: k1). (Data.Singletons.Internal.SingI a1, Data.Singletons.Internal.SingI a2, Data.Singletons.Internal.SingI a3, Data.Singletons.Internal.SingI a4, Data.Singletons.Internal.SingI a5, Data.Singletons.Internal.SingI a6) => Data.Singletons.Internal.SingI (f a1 a2 a3 a4 a5 a6), Data.Singletons.Internal.ApplyTyCon GHC.Types.~ Data.Singletons.Internal.ApplyTyConAux1) => Data.Singletons.Internal.SingI (Data.Singletons.Internal.TyCon6 f) instance forall k1 k_last k2 k3 k4 k5 k6 k7 (f :: k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k1 -> k_last). (forall (a1 :: k2) (a2 :: k3) (a3 :: k4) (a4 :: k5) (a5 :: k6) (a6 :: k7) (a7 :: k1). (Data.Singletons.Internal.SingI a1, Data.Singletons.Internal.SingI a2, Data.Singletons.Internal.SingI a3, Data.Singletons.Internal.SingI a4, Data.Singletons.Internal.SingI a5, Data.Singletons.Internal.SingI a6, Data.Singletons.Internal.SingI a7) => Data.Singletons.Internal.SingI (f a1 a2 a3 a4 a5 a6 a7), Data.Singletons.Internal.ApplyTyCon GHC.Types.~ Data.Singletons.Internal.ApplyTyConAux1) => Data.Singletons.Internal.SingI (Data.Singletons.Internal.TyCon7 f) instance forall k1 k_last k2 k3 k4 k5 k6 k7 k8 (f :: k2 -> k3 -> k4 -> k5 -> k6 -> k7 -> k8 -> k1 -> k_last). (forall (a1 :: k2) (a2 :: k3) (a3 :: k4) (a4 :: k5) (a5 :: k6) (a6 :: k7) (a7 :: k8) (a8 :: k1). (Data.Singletons.Internal.SingI a1, Data.Singletons.Internal.SingI a2, Data.Singletons.Internal.SingI a3, Data.Singletons.Internal.SingI a4, Data.Singletons.Internal.SingI a5, Data.Singletons.Internal.SingI a6, Data.Singletons.Internal.SingI a7, Data.Singletons.Internal.SingI a8) => Data.Singletons.Internal.SingI (f a1 a2 a3 a4 a5 a6 a7 a8), Data.Singletons.Internal.ApplyTyCon GHC.Types.~ Data.Singletons.Internal.ApplyTyConAux1) => Data.Singletons.Internal.SingI (Data.Singletons.Internal.TyCon8 f) instance Data.Singletons.Prelude.Eq.SEq k => GHC.Classes.Eq (Data.Singletons.Internal.SomeSing k) instance Data.Singletons.Prelude.Ord.SOrd k => GHC.Classes.Ord (Data.Singletons.Internal.SomeSing k) instance Data.Singletons.Prelude.Enum.SBounded k => GHC.Enum.Bounded (Data.Singletons.Internal.SomeSing k) instance Data.Singletons.Prelude.Enum.SEnum k => GHC.Enum.Enum (Data.Singletons.Internal.SomeSing k) instance Data.Singletons.Prelude.Num.SNum k => GHC.Num.Num (Data.Singletons.Internal.SomeSing k) instance Data.Singletons.ShowSing.ShowSing k => GHC.Show.Show (Data.Singletons.Internal.SomeSing k) instance Data.Singletons.Prelude.Semigroup.Internal.SSemigroup k => GHC.Base.Semigroup (Data.Singletons.Internal.SomeSing k) instance Data.Singletons.Prelude.Monoid.SMonoid k => GHC.Base.Monoid (Data.Singletons.Internal.SomeSing k) instance Data.Singletons.Prelude.IsString.SIsString k => Data.String.IsString (Data.Singletons.Internal.SomeSing k) -- | This module contains everything you need to derive your own singletons -- via Template Haskell. -- -- TURN ON -XScopedTypeVariables IN YOUR MODULE IF YOU WANT THIS -- TO WORK. module Data.Singletons.TH -- | Make promoted and singled versions of all declarations given, -- retaining the original declarations. See the README -- for further explanation. singletons :: OptionsMonad q => q [Dec] -> q [Dec] -- | Make promoted and singled versions of all declarations given, -- discarding the original declarations. Note that a singleton based on a -- datatype needs the original datatype, so this will fail if it sees any -- datatype declarations. Classes, instances, and functions are all fine. singletonsOnly :: OptionsMonad q => q [Dec] -> q [Dec] -- | Generate singled definitions for each of the provided type-level -- declaration Names. For example, the singletons package itself -- uses -- --
--   $(genSingletons [''Bool, ''Maybe, ''Either, ''[]])
--   
-- -- to generate singletons for Prelude types. genSingletons :: OptionsMonad q => [Name] -> q [Dec] -- | Promote every declaration given to the type level, retaining the -- originals. See the README for further explanation. promote :: OptionsMonad q => q [Dec] -> q [Dec] -- | Promote each declaration, discarding the originals. Note that a -- promoted datatype uses the same definition as an original datatype, so -- this will not work with datatypes. Classes, instances, and functions -- are all fine. promoteOnly :: OptionsMonad q => q [Dec] -> q [Dec] -- | Generate defunctionalization symbols for each of the provided -- type-level declaration Names. See the "Promotion and partial -- application" section of the singletons README -- for further explanation. genDefunSymbols :: OptionsMonad q => [Name] -> q [Dec] -- | Generate promoted definitions for each of the provided type-level -- declaration Names. This is generally only useful with classes. genPromotions :: OptionsMonad q => [Name] -> q [Dec] -- | Produce instances for (==) (type-level equality) from the -- given types promoteEqInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Produce an instance for (==) (type-level equality) from the -- given type promoteEqInstance :: OptionsMonad q => Name -> q [Dec] -- | Create instances of SEq and type-level (==) for each -- type in the list singEqInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Create instance of SEq and type-level (==) for the -- given type singEqInstance :: OptionsMonad q => Name -> q [Dec] -- | Create instances of SEq (only -- no instance for -- (==), which SEq generally relies on) for each type -- in the list singEqInstancesOnly :: OptionsMonad q => [Name] -> q [Dec] -- | Create instances of SEq (only -- no instance for -- (==), which SEq generally relies on) for the given -- type singEqInstanceOnly :: OptionsMonad q => Name -> q [Dec] -- | Create instances of SDecide, TestEquality, and -- TestCoercion for each type in the list. singDecideInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Create instance of SDecide, TestEquality, and -- TestCoercion for the given type. singDecideInstance :: OptionsMonad q => Name -> q [Dec] -- | Produce instances for POrd from the given types promoteOrdInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Produce an instance for POrd from the given type promoteOrdInstance :: OptionsMonad q => Name -> q [Dec] -- | Create instances of SOrd for the given types singOrdInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Create instance of SOrd for the given type singOrdInstance :: OptionsMonad q => Name -> q [Dec] -- | Produce instances for PBounded from the given types promoteBoundedInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Produce an instance for PBounded from the given type promoteBoundedInstance :: OptionsMonad q => Name -> q [Dec] -- | Create instances of SBounded for the given types singBoundedInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Create instance of SBounded for the given type singBoundedInstance :: OptionsMonad q => Name -> q [Dec] -- | Produce instances for PEnum from the given types promoteEnumInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Produce an instance for PEnum from the given type promoteEnumInstance :: OptionsMonad q => Name -> q [Dec] -- | Create instances of SEnum for the given types singEnumInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Create instance of SEnum for the given type singEnumInstance :: OptionsMonad q => Name -> q [Dec] -- | Produce instances for PShow from the given types promoteShowInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Produce an instance for PShow from the given type promoteShowInstance :: OptionsMonad q => Name -> q [Dec] -- | Create instances of SShow for the given types -- -- (Not to be confused with showSingInstances.) singShowInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Create instance of SShow for the given type -- -- (Not to be confused with showShowInstance.) singShowInstance :: OptionsMonad q => Name -> q [Dec] -- | Create instances of Show for the given singleton types -- -- (Not to be confused with singShowInstances.) showSingInstances :: OptionsMonad q => [Name] -> q [Dec] -- | Create instance of Show for the given singleton type -- -- (Not to be confused with singShowInstance.) showSingInstance :: OptionsMonad q => Name -> q [Dec] -- | Create an instance for SingI TyCon{N}, where -- N is the positive number provided as an argument. -- -- Note that the generated code requires the use of the -- QuantifiedConstraints language extension. singITyConInstances :: DsMonad q => [Int] -> q [Dec] -- | Create an instance for SingI TyCon{N}, where -- N is the positive number provided as an argument. -- -- Note that the generated code requires the use of the -- QuantifiedConstraints language extension. singITyConInstance :: DsMonad q => Int -> q [Dec] -- | The function cases generates a case expression where each -- right-hand side is identical. This may be useful if the type-checker -- requires knowledge of which constructor is used to satisfy equality or -- type-class constraints, but where each constructor is treated the -- same. cases :: DsMonad q => Name -> q Exp -> q Exp -> q Exp -- | The function sCases generates a case expression where each -- right-hand side is identical. This may be useful if the type-checker -- requires knowledge of which constructor is used to satisfy equality or -- type-class constraints, but where each constructor is treated the -- same. For sCases, unlike cases, the scrutinee is a -- singleton. But make sure to pass in the name of the original -- datatype, preferring ''Maybe over ''SMaybe. sCases :: OptionsMonad q => Name -> q Exp -> q Exp -> q Exp data SBool z_a1eHs [SFalse] :: SBool ('False :: Bool) [STrue] :: SBool ('True :: Bool) data STuple0 z_a1eHC [STuple0] :: STuple0 ('() :: ()) data STuple2 z_a1eBh [STuple2] :: forall (a_11 :: Type) (b_12 :: Type) (n_a1eB5 :: a_11) (n_a1eB6 :: b_12). () => Sing n_a1eB5 -> Sing n_a1eB6 -> STuple2 ('(n_a1eB5, n_a1eB6) :: (a_11 :: Type, b_12 :: Type)) data STuple3 z_a1eBS [STuple3] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (n_a1eBB :: a_11) (n_a1eBC :: b_12) (n_a1eBD :: c_13). () => Sing n_a1eBB -> Sing n_a1eBC -> Sing n_a1eBD -> STuple3 ('(n_a1eBB, n_a1eBC, n_a1eBD) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type)) data STuple4 z_a1eCI [STuple4] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (n_a1eCm :: a_11) (n_a1eCn :: b_12) (n_a1eCo :: c_13) (n_a1eCp :: d_14). () => Sing n_a1eCm -> Sing n_a1eCn -> Sing n_a1eCo -> Sing n_a1eCp -> STuple4 ('(n_a1eCm, n_a1eCn, n_a1eCo, n_a1eCp) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type)) data STuple5 z_a1eDP [STuple5] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (n_a1eDo :: a_11) (n_a1eDp :: b_12) (n_a1eDq :: c_13) (n_a1eDr :: d_14) (n_a1eDs :: e_15). () => Sing n_a1eDo -> Sing n_a1eDp -> Sing n_a1eDq -> Sing n_a1eDr -> Sing n_a1eDs -> STuple5 ('(n_a1eDo, n_a1eDp, n_a1eDq, n_a1eDr, n_a1eDs) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type)) data STuple6 z_a1eFf [STuple6] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (f_16 :: Type) (n_a1eEJ :: a_11) (n_a1eEK :: b_12) (n_a1eEL :: c_13) (n_a1eEM :: d_14) (n_a1eEN :: e_15) (n_a1eEO :: f_16). () => Sing n_a1eEJ -> Sing n_a1eEK -> Sing n_a1eEL -> Sing n_a1eEM -> Sing n_a1eEN -> Sing n_a1eEO -> STuple6 ('(n_a1eEJ, n_a1eEK, n_a1eEL, n_a1eEM, n_a1eEN, n_a1eEO) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type)) data STuple7 z_a1eH0 [STuple7] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (f_16 :: Type) (g_17 :: Type) (n_a1eGp :: a_11) (n_a1eGq :: b_12) (n_a1eGr :: c_13) (n_a1eGs :: d_14) (n_a1eGt :: e_15) (n_a1eGu :: f_16) (n_a1eGv :: g_17). () => Sing n_a1eGp -> Sing n_a1eGq -> Sing n_a1eGr -> Sing n_a1eGs -> Sing n_a1eGt -> Sing n_a1eGu -> Sing n_a1eGv -> STuple7 ('(n_a1eGp, n_a1eGq, n_a1eGr, n_a1eGs, n_a1eGt, n_a1eGu, n_a1eGv) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type, g_17 :: Type)) data SOrdering z_a1eHy [SLT] :: SOrdering ('LT :: Ordering) [SEQ] :: SOrdering ('EQ :: Ordering) [SGT] :: SOrdering ('GT :: Ordering) -- | The promoted analogue of Eq. If you supply no definition for -- (==), then it defaults to a use of DefaultEq. class PEq a where { type family (==) (x :: a) (y :: a) :: Bool; type family (/=) (x :: a) (y :: a) :: Bool; type (x :: a) == (y :: a) = x `DefaultEq` y; type (x :: a) /= (y :: a) = Not (x == y); } 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 :: 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 (%&&) :: Sing a -> Sing b -> Sing (a && b) infixr 3 %&& -- | The singleton analogue of Eq. Unlike the definition for -- Eq, it is required that instances define a body for -- (%==). You may also supply a body for (%/=). class SEq k -- | Boolean equality on singletons (%==) :: forall (a :: k) (b :: k). SEq k => Sing a -> Sing b -> Sing (a == b) -- | Boolean disequality on singletons (%/=) :: forall (a :: k) (b :: k). SEq k => Sing a -> Sing b -> Sing (a /= b) -- | Boolean disequality on singletons (%/=) :: forall (a :: k) (b :: k). (SEq k, (a /= b) ~ Not (a == b)) => Sing a -> Sing b -> Sing (a /= b) infix 4 %== infix 4 %/= class POrd a_a1zeQ where { type family Compare (arg_a1zfL :: a_a1zeQ) (arg_a1zfM :: a_a1zeQ) :: Ordering; type family (<) (arg_a1zfQ :: a_a1zeQ) (arg_a1zfR :: a_a1zeQ) :: Bool; type family (<=) (arg_a1zfV :: a_a1zeQ) (arg_a1zfW :: a_a1zeQ) :: Bool; type family (>) (arg_a1zg0 :: a_a1zeQ) (arg_a1zg1 :: a_a1zeQ) :: Bool; type family (>=) (arg_a1zg5 :: a_a1zeQ) (arg_a1zg6 :: a_a1zeQ) :: Bool; type family Max (arg_a1zga :: a_a1zeQ) (arg_a1zgb :: a_a1zeQ) :: a_a1zeQ; type family Min (arg_a1zgf :: a_a1zeQ) (arg_a1zgg :: a_a1zeQ) :: a_a1zeQ; type Compare a_a1zgk a_a1zgl = Apply (Apply Compare_6989586621679383674Sym0 a_a1zgk) a_a1zgl; type (<) a_a1zgF a_a1zgG = Apply (Apply TFHelper_6989586621679383695Sym0 a_a1zgF) a_a1zgG; type (<=) a_a1zgV a_a1zgW = Apply (Apply TFHelper_6989586621679383711Sym0 a_a1zgV) a_a1zgW; type (>) a_a1zhb a_a1zhc = Apply (Apply TFHelper_6989586621679383727Sym0 a_a1zhb) a_a1zhc; type (>=) a_a1zhr a_a1zhs = Apply (Apply TFHelper_6989586621679383743Sym0 a_a1zhr) a_a1zhs; type Max a_a1zhH a_a1zhI = Apply (Apply Max_6989586621679383759Sym0 a_a1zhH) a_a1zhI; type Min a_a1zhX a_a1zhY = Apply (Apply Min_6989586621679383775Sym0 a_a1zhX) a_a1zhY; } infix 4 >= infix 4 > infix 4 <= infix 4 < class SEq a_a1zeQ => SOrd a_a1zeQ sCompare :: forall (t_a1zim :: a_a1zeQ) (t_a1zin :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1zim -> Sing t_a1zin -> Sing (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) (%<) :: forall (t_a1ziq :: a_a1zeQ) (t_a1zir :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziq -> Sing t_a1zir -> Sing (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) (%<=) :: forall (t_a1ziu :: a_a1zeQ) (t_a1ziv :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziu -> Sing t_a1ziv -> Sing (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) (%>) :: forall (t_a1ziy :: a_a1zeQ) (t_a1ziz :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziy -> Sing t_a1ziz -> Sing (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) (%>=) :: forall (t_a1ziC :: a_a1zeQ) (t_a1ziD :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziC -> Sing t_a1ziD -> Sing (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) sMax :: forall (t_a1ziG :: a_a1zeQ) (t_a1ziH :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziG -> Sing t_a1ziH -> Sing (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) sMin :: forall (t_a1ziK :: a_a1zeQ) (t_a1ziL :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziK -> Sing t_a1ziL -> Sing (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) sCompare :: forall (t_a1zim :: a_a1zeQ) (t_a1zin :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) ~ Apply (Apply Compare_6989586621679383674Sym0 t_a1zim) t_a1zin) => Sing t_a1zim -> Sing t_a1zin -> Sing (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) (%<) :: forall (t_a1ziq :: a_a1zeQ) (t_a1zir :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) ~ Apply (Apply TFHelper_6989586621679383695Sym0 t_a1ziq) t_a1zir) => Sing t_a1ziq -> Sing t_a1zir -> Sing (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) (%<=) :: forall (t_a1ziu :: a_a1zeQ) (t_a1ziv :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) ~ Apply (Apply TFHelper_6989586621679383711Sym0 t_a1ziu) t_a1ziv) => Sing t_a1ziu -> Sing t_a1ziv -> Sing (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) (%>) :: forall (t_a1ziy :: a_a1zeQ) (t_a1ziz :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) ~ Apply (Apply TFHelper_6989586621679383727Sym0 t_a1ziy) t_a1ziz) => Sing t_a1ziy -> Sing t_a1ziz -> Sing (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) (%>=) :: forall (t_a1ziC :: a_a1zeQ) (t_a1ziD :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) ~ Apply (Apply TFHelper_6989586621679383743Sym0 t_a1ziC) t_a1ziD) => Sing t_a1ziC -> Sing t_a1ziD -> Sing (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) sMax :: forall (t_a1ziG :: a_a1zeQ) (t_a1ziH :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) ~ Apply (Apply Max_6989586621679383759Sym0 t_a1ziG) t_a1ziH) => Sing t_a1ziG -> Sing t_a1ziH -> Sing (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) sMin :: forall (t_a1ziK :: a_a1zeQ) (t_a1ziL :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) ~ Apply (Apply Min_6989586621679383775Sym0 t_a1ziK) t_a1ziL) => Sing t_a1ziK -> Sing t_a1ziL -> Sing (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) infix 4 %<= infix 4 %>= infix 4 %> infix 4 %< type family ThenCmp a_a1C6j a_a1C6k sThenCmp :: forall (t_a1C6p :: Ordering) (t_a1C6q :: Ordering). Sing t_a1C6p -> Sing t_a1C6q -> Sing (Apply (Apply ThenCmpSym0 t_a1C6p) t_a1C6q :: Ordering) -- | Members of the SDecide "kind" class support decidable equality. -- Instances of this class are generated alongside singleton definitions -- for datatypes that derive an Eq instance. class SDecide k -- | Compute a proof or disproof of equality, given two singletons. (%~) :: forall (a :: k) (b :: k). SDecide k => Sing a -> Sing b -> Decision (a :~: b) infix 4 %~ -- | 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 -- | Because we can never create a value of type Void, a function -- that type-checks at a -> Void shows that objects of type -- a can never exist. Thus, we say that a is -- Refuted type Refuted a = (a -> Void) -- | A Decision about a type a is either a proof of -- existence or a proof that a cannot exist. data Decision a -- | Witness for a Proved :: a -> Decision a -- | Proof that no a exists Disproved :: Refuted a -> Decision a class PBounded a_a37BL where { type family MinBound :: a_a37BL; type family MaxBound :: a_a37BL; } class SBounded a_a37BL sMinBound :: SBounded a_a37BL => Sing (MinBoundSym0 :: a_a37BL) sMaxBound :: SBounded a_a37BL => Sing (MaxBoundSym0 :: a_a37BL) class PEnum a_a38Hz where { type family ToEnum (arg_a38Lv :: Nat) :: a_a38Hz; type family FromEnum (arg_a38Ly :: a_a38Hz) :: Nat; type Succ a_a38LN = Apply Succ_6989586621679758492Sym0 a_a38LN; type Pred a_a38M0 = Apply Pred_6989586621679758505Sym0 a_a38M0; type EnumFromTo a_a38M9 a_a38Ma = Apply (Apply EnumFromTo_6989586621679758515Sym0 a_a38M9) a_a38Ma; type EnumFromThenTo a_a38Mk a_a38Ml a_a38Mm = Apply (Apply (Apply EnumFromThenTo_6989586621679758527Sym0 a_a38Mk) a_a38Ml) a_a38Mm; } class SEnum a_a38Hz sToEnum :: forall (t_a38Op :: Nat). SEnum a_a38Hz => Sing t_a38Op -> Sing (Apply ToEnumSym0 t_a38Op :: a_a38Hz) sFromEnum :: forall (t_a38Or :: a_a38Hz). SEnum a_a38Hz => Sing t_a38Or -> Sing (Apply FromEnumSym0 t_a38Or :: Nat) class PShow a_a5kd9 where { type family ShowsPrec (arg_a5kkc :: Nat) (arg_a5kkd :: a_a5kd9) (arg_a5kke :: Symbol) :: Symbol; type family Show_ (arg_a5kkj :: a_a5kd9) :: Symbol; type family ShowList (arg_a5kkm :: [a_a5kd9]) (arg_a5kkn :: Symbol) :: Symbol; type ShowsPrec a_a5kkr a_a5kks a_a5kkt = Apply (Apply (Apply ShowsPrec_6989586621680279582Sym0 a_a5kkr) a_a5kks) a_a5kkt; type Show_ a_a5kkF = Apply Show__6989586621680279594Sym0 a_a5kkF; type ShowList a_a5kkM a_a5kkN = Apply (Apply ShowList_6989586621680279602Sym0 a_a5kkM) a_a5kkN; } class SShow a_a5kd9 sShowsPrec :: forall (t_a5ko5 :: Nat) (t_a5ko6 :: a_a5kd9) (t_a5ko7 :: Symbol). SShow a_a5kd9 => Sing t_a5ko5 -> Sing t_a5ko6 -> Sing t_a5ko7 -> Sing (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) sShow_ :: forall (t_a5kob :: a_a5kd9). SShow a_a5kd9 => Sing t_a5kob -> Sing (Apply Show_Sym0 t_a5kob :: Symbol) sShowList :: forall (t_a5kod :: [a_a5kd9]) (t_a5koe :: Symbol). SShow a_a5kd9 => Sing t_a5kod -> Sing t_a5koe -> Sing (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) sShowsPrec :: forall (t_a5ko5 :: Nat) (t_a5ko6 :: a_a5kd9) (t_a5ko7 :: Symbol). (SShow a_a5kd9, (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) ~ Apply (Apply (Apply ShowsPrec_6989586621680279582Sym0 t_a5ko5) t_a5ko6) t_a5ko7) => Sing t_a5ko5 -> Sing t_a5ko6 -> Sing t_a5ko7 -> Sing (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) sShow_ :: forall (t_a5kob :: a_a5kd9). (SShow a_a5kd9, (Apply Show_Sym0 t_a5kob :: Symbol) ~ Apply Show__6989586621680279594Sym0 t_a5kob) => Sing t_a5kob -> Sing (Apply Show_Sym0 t_a5kob :: Symbol) sShowList :: forall (t_a5kod :: [a_a5kd9]) (t_a5koe :: Symbol). (SShow a_a5kd9, (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) ~ Apply (Apply ShowList_6989586621680279602Sym0 t_a5kod) t_a5koe) => Sing t_a5kod -> Sing t_a5koe -> Sing (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) type family ShowString a_a5kju a_a5kjv sShowString :: forall (t_a5kns :: Symbol) (t_a5knt :: Symbol). Sing t_a5kns -> Sing t_a5knt -> Sing (Apply (Apply ShowStringSym0 t_a5kns) t_a5knt :: Symbol) type family ShowParen a_a5kjd a_a5kje a_a5kjf sShowParen :: forall (t_a5knm :: Bool) (t_a5knn :: (~>) Symbol Symbol) (t_a5kno :: Symbol). Sing t_a5knm -> Sing t_a5knn -> Sing t_a5kno -> Sing (Apply (Apply (Apply ShowParenSym0 t_a5knm) t_a5knn) t_a5kno :: Symbol) type family ShowSpace a_a5kj3 sShowSpace :: forall (t_a5knk :: Symbol). Sing t_a5knk -> Sing (Apply ShowSpaceSym0 t_a5knk :: Symbol) type family ShowChar a_a5kjF a_a5kjG sShowChar :: forall (t_a5knw :: Symbol) (t_a5knx :: Symbol). Sing t_a5knw -> Sing t_a5knx -> Sing (Apply (Apply ShowCharSym0 t_a5knw) t_a5knx :: Symbol) type family ShowCommaSpace a_a5kiX sShowCommaSpace :: forall (t_a5kni :: Symbol). Sing t_a5kni -> Sing (Apply ShowCommaSpaceSym0 t_a5kni :: Symbol) class PFunctor f_a2iYg where { type family Fmap (arg_a2j2U :: (~>) a_a2iYh b_a2iYi) (arg_a2j2V :: f_a2iYg a_a2iYh) :: f_a2iYg b_a2iYi; type family (<$) (arg_a2j2Z :: a_a2iYj) (arg_a2j30 :: f_a2iYg b_a2iYk) :: f_a2iYg a_a2iYj; type (<$) a_a2j34 a_a2j35 = Apply (Apply TFHelper_6989586621679559676Sym0 a_a2j34) a_a2j35; } infixl 4 <$ class SFunctor f_a2iYg sFmap :: forall a_a2iYh b_a2iYi (t_a2j7g :: (~>) a_a2iYh b_a2iYi) (t_a2j7h :: f_a2iYg a_a2iYh). SFunctor f_a2iYg => Sing t_a2j7g -> Sing t_a2j7h -> Sing (Apply (Apply FmapSym0 t_a2j7g) t_a2j7h :: f_a2iYg b_a2iYi) (%<$) :: forall a_a2iYj b_a2iYk (t_a2j7k :: a_a2iYj) (t_a2j7l :: f_a2iYg b_a2iYk). SFunctor f_a2iYg => Sing t_a2j7k -> Sing t_a2j7l -> Sing (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) (%<$) :: forall a_a2iYj b_a2iYk (t_a2j7k :: a_a2iYj) (t_a2j7l :: f_a2iYg b_a2iYk). (SFunctor f_a2iYg, (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) ~ Apply (Apply TFHelper_6989586621679559676Sym0 t_a2j7k) t_a2j7l) => Sing t_a2j7k -> Sing t_a2j7l -> Sing (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) infixl 4 %<$ class PFoldable t_a6dyx where { type family Fold (arg_a6dHF :: t_a6dyx m_a6dyy) :: m_a6dyy; type family FoldMap (arg_a6dHI :: (~>) a_a6dyA m_a6dyz) (arg_a6dHJ :: t_a6dyx a_a6dyA) :: m_a6dyz; type family Foldr (arg_a6dHN :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (arg_a6dHO :: b_a6dyC) (arg_a6dHP :: t_a6dyx a_a6dyB) :: b_a6dyC; type family Foldr' (arg_a6dHU :: (~>) a_a6dyD ((~>) b_a6dyE b_a6dyE)) (arg_a6dHV :: b_a6dyE) (arg_a6dHW :: t_a6dyx a_a6dyD) :: b_a6dyE; type family Foldl (arg_a6dI1 :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (arg_a6dI2 :: b_a6dyF) (arg_a6dI3 :: t_a6dyx a_a6dyG) :: b_a6dyF; type family Foldl' (arg_a6dI8 :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (arg_a6dI9 :: b_a6dyH) (arg_a6dIa :: t_a6dyx a_a6dyI) :: b_a6dyH; type family Foldr1 (arg_a6dIf :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (arg_a6dIg :: t_a6dyx a_a6dyJ) :: a_a6dyJ; type family Foldl1 (arg_a6dIk :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (arg_a6dIl :: t_a6dyx a_a6dyK) :: a_a6dyK; type family ToList (arg_a6dIp :: t_a6dyx a_a6dyL) :: [a_a6dyL]; type family Null (arg_a6dIs :: t_a6dyx a_a6dyM) :: Bool; type family Length (arg_a6dIv :: t_a6dyx a_a6dyN) :: Nat; type family Elem (arg_a6dIy :: a_a6dyO) (arg_a6dIz :: t_a6dyx a_a6dyO) :: Bool; type family Maximum (arg_a6dID :: t_a6dyx a_a6dyP) :: a_a6dyP; type family Minimum (arg_a6dIG :: t_a6dyx a_a6dyQ) :: a_a6dyQ; type family Sum (arg_a6dIJ :: t_a6dyx a_a6dyR) :: a_a6dyR; type family Product (arg_a6dIM :: t_a6dyx a_a6dyS) :: a_a6dyS; type Fold a_a6dIP = Apply Fold_6989586621680492512Sym0 a_a6dIP; type FoldMap a_a6dIY a_a6dIZ = Apply (Apply FoldMap_6989586621680492522Sym0 a_a6dIY) a_a6dIZ; type Foldr a_a6dJb a_a6dJc a_a6dJd = Apply (Apply (Apply Foldr_6989586621680492536Sym0 a_a6dJb) a_a6dJc) a_a6dJd; type Foldr' a_a6dJq a_a6dJr a_a6dJs = Apply (Apply (Apply Foldr'_6989586621680492551Sym0 a_a6dJq) a_a6dJr) a_a6dJs; type Foldl a_a6dJN a_a6dJO a_a6dJP = Apply (Apply (Apply Foldl_6989586621680492574Sym0 a_a6dJN) a_a6dJO) a_a6dJP; type Foldl' a_a6dK2 a_a6dK3 a_a6dK4 = Apply (Apply (Apply Foldl'_6989586621680492589Sym0 a_a6dK2) a_a6dK3) a_a6dK4; type Foldr1 a_a6dKp a_a6dKq = Apply (Apply Foldr1_6989586621680492611Sym0 a_a6dKp) a_a6dKq; type Foldl1 a_a6dKK a_a6dKL = Apply (Apply Foldl1_6989586621680492632Sym0 a_a6dKK) a_a6dKL; type ToList a_a6dL5 = Apply ToList_6989586621680492652Sym0 a_a6dL5; type Null a_a6dLe = Apply Null_6989586621680492661Sym0 a_a6dLe; type Length a_a6dLv = Apply Length_6989586621680492678Sym0 a_a6dLv; type Elem a_a6dLN a_a6dLO = Apply (Apply Elem_6989586621680492697Sym0 a_a6dLN) a_a6dLO; type Maximum a_a6dM2 = Apply Maximum_6989586621680492711Sym0 a_a6dM2; type Minimum a_a6dMh = Apply Minimum_6989586621680492726Sym0 a_a6dMh; type Sum a_a6dMw = Apply Sum_6989586621680492741Sym0 a_a6dMw; type Product a_a6dMF = Apply Product_6989586621680492750Sym0 a_a6dMF; } class SFoldable t_a6dyx sFold :: forall m_a6dyy (t_a6e4k :: t_a6dyx m_a6dyy). (SFoldable t_a6dyx, SMonoid m_a6dyy) => Sing t_a6e4k -> Sing (Apply FoldSym0 t_a6e4k :: m_a6dyy) sFoldMap :: forall a_a6dyA m_a6dyz (t_a6e4m :: (~>) a_a6dyA m_a6dyz) (t_a6e4n :: t_a6dyx a_a6dyA). (SFoldable t_a6dyx, SMonoid m_a6dyz) => Sing t_a6e4m -> Sing t_a6e4n -> Sing (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) sFoldr :: forall a_a6dyB b_a6dyC (t_a6e4q :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (t_a6e4r :: b_a6dyC) (t_a6e4s :: t_a6dyx a_a6dyB). SFoldable t_a6dyx => Sing t_a6e4q -> Sing t_a6e4r -> Sing t_a6e4s -> Sing (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) sFoldr' :: forall a_a6dyD b_a6dyE (t_a6e4w :: (~>) a_a6dyD ((~>) b_a6dyE b_a6dyE)) (t_a6e4x :: b_a6dyE) (t_a6e4y :: t_a6dyx a_a6dyD). SFoldable t_a6dyx => Sing t_a6e4w -> Sing t_a6e4x -> Sing t_a6e4y -> Sing (Apply (Apply (Apply Foldr'Sym0 t_a6e4w) t_a6e4x) t_a6e4y :: b_a6dyE) sFoldl :: forall b_a6dyF a_a6dyG (t_a6e4C :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (t_a6e4D :: b_a6dyF) (t_a6e4E :: t_a6dyx a_a6dyG). SFoldable t_a6dyx => Sing t_a6e4C -> Sing t_a6e4D -> Sing t_a6e4E -> Sing (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) sFoldl' :: forall b_a6dyH a_a6dyI (t_a6e4I :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (t_a6e4J :: b_a6dyH) (t_a6e4K :: t_a6dyx a_a6dyI). SFoldable t_a6dyx => Sing t_a6e4I -> Sing t_a6e4J -> Sing t_a6e4K -> Sing (Apply (Apply (Apply Foldl'Sym0 t_a6e4I) t_a6e4J) t_a6e4K :: b_a6dyH) sFoldr1 :: forall a_a6dyJ (t_a6e4O :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (t_a6e4P :: t_a6dyx a_a6dyJ). SFoldable t_a6dyx => Sing t_a6e4O -> Sing t_a6e4P -> Sing (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) sFoldl1 :: forall a_a6dyK (t_a6e4S :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (t_a6e4T :: t_a6dyx a_a6dyK). SFoldable t_a6dyx => Sing t_a6e4S -> Sing t_a6e4T -> Sing (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) sToList :: forall a_a6dyL (t_a6e4W :: t_a6dyx a_a6dyL). SFoldable t_a6dyx => Sing t_a6e4W -> Sing (Apply ToListSym0 t_a6e4W :: [a_a6dyL]) sNull :: forall a_a6dyM (t_a6e4Y :: t_a6dyx a_a6dyM). SFoldable t_a6dyx => Sing t_a6e4Y -> Sing (Apply NullSym0 t_a6e4Y :: Bool) sLength :: forall a_a6dyN (t_a6e50 :: t_a6dyx a_a6dyN). SFoldable t_a6dyx => Sing t_a6e50 -> Sing (Apply LengthSym0 t_a6e50 :: Nat) sElem :: forall a_a6dyO (t_a6e52 :: a_a6dyO) (t_a6e53 :: t_a6dyx a_a6dyO). (SFoldable t_a6dyx, SEq a_a6dyO) => Sing t_a6e52 -> Sing t_a6e53 -> Sing (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) sMaximum :: forall a_a6dyP (t_a6e56 :: t_a6dyx a_a6dyP). (SFoldable t_a6dyx, SOrd a_a6dyP) => Sing t_a6e56 -> Sing (Apply MaximumSym0 t_a6e56 :: a_a6dyP) sMinimum :: forall a_a6dyQ (t_a6e58 :: t_a6dyx a_a6dyQ). (SFoldable t_a6dyx, SOrd a_a6dyQ) => Sing t_a6e58 -> Sing (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) sSum :: forall a_a6dyR (t_a6e5a :: t_a6dyx a_a6dyR). (SFoldable t_a6dyx, SNum a_a6dyR) => Sing t_a6e5a -> Sing (Apply SumSym0 t_a6e5a :: a_a6dyR) sProduct :: forall a_a6dyS (t_a6e5c :: t_a6dyx a_a6dyS). (SFoldable t_a6dyx, SNum a_a6dyS) => Sing t_a6e5c -> Sing (Apply ProductSym0 t_a6e5c :: a_a6dyS) sFold :: forall m_a6dyy (t_a6e4k :: t_a6dyx m_a6dyy). (SFoldable t_a6dyx, (Apply FoldSym0 t_a6e4k :: m_a6dyy) ~ Apply Fold_6989586621680492512Sym0 t_a6e4k, SMonoid m_a6dyy) => Sing t_a6e4k -> Sing (Apply FoldSym0 t_a6e4k :: m_a6dyy) sFoldMap :: forall a_a6dyA m_a6dyz (t_a6e4m :: (~>) a_a6dyA m_a6dyz) (t_a6e4n :: t_a6dyx a_a6dyA). (SFoldable t_a6dyx, (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) ~ Apply (Apply FoldMap_6989586621680492522Sym0 t_a6e4m) t_a6e4n, SMonoid m_a6dyz) => Sing t_a6e4m -> Sing t_a6e4n -> Sing (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) sFoldr :: forall a_a6dyB b_a6dyC (t_a6e4q :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (t_a6e4r :: b_a6dyC) (t_a6e4s :: t_a6dyx a_a6dyB). (SFoldable t_a6dyx, (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) ~ Apply (Apply (Apply Foldr_6989586621680492536Sym0 t_a6e4q) t_a6e4r) t_a6e4s) => Sing t_a6e4q -> Sing t_a6e4r -> Sing t_a6e4s -> Sing (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) sFoldr' :: forall a_a6dyD b_a6dyE (t_a6e4w :: (~>) a_a6dyD ((~>) b_a6dyE b_a6dyE)) (t_a6e4x :: b_a6dyE) (t_a6e4y :: t_a6dyx a_a6dyD). (SFoldable t_a6dyx, (Apply (Apply (Apply Foldr'Sym0 t_a6e4w) t_a6e4x) t_a6e4y :: b_a6dyE) ~ Apply (Apply (Apply Foldr'_6989586621680492551Sym0 t_a6e4w) t_a6e4x) t_a6e4y) => Sing t_a6e4w -> Sing t_a6e4x -> Sing t_a6e4y -> Sing (Apply (Apply (Apply Foldr'Sym0 t_a6e4w) t_a6e4x) t_a6e4y :: b_a6dyE) sFoldl :: forall b_a6dyF a_a6dyG (t_a6e4C :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (t_a6e4D :: b_a6dyF) (t_a6e4E :: t_a6dyx a_a6dyG). (SFoldable t_a6dyx, (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) ~ Apply (Apply (Apply Foldl_6989586621680492574Sym0 t_a6e4C) t_a6e4D) t_a6e4E) => Sing t_a6e4C -> Sing t_a6e4D -> Sing t_a6e4E -> Sing (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) sFoldl' :: forall b_a6dyH a_a6dyI (t_a6e4I :: (~>) b_a6dyH ((~>) a_a6dyI b_a6dyH)) (t_a6e4J :: b_a6dyH) (t_a6e4K :: t_a6dyx a_a6dyI). (SFoldable t_a6dyx, (Apply (Apply (Apply Foldl'Sym0 t_a6e4I) t_a6e4J) t_a6e4K :: b_a6dyH) ~ Apply (Apply (Apply Foldl'_6989586621680492589Sym0 t_a6e4I) t_a6e4J) t_a6e4K) => Sing t_a6e4I -> Sing t_a6e4J -> Sing t_a6e4K -> Sing (Apply (Apply (Apply Foldl'Sym0 t_a6e4I) t_a6e4J) t_a6e4K :: b_a6dyH) sFoldr1 :: forall a_a6dyJ (t_a6e4O :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (t_a6e4P :: t_a6dyx a_a6dyJ). (SFoldable t_a6dyx, (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) ~ Apply (Apply Foldr1_6989586621680492611Sym0 t_a6e4O) t_a6e4P) => Sing t_a6e4O -> Sing t_a6e4P -> Sing (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) sFoldl1 :: forall a_a6dyK (t_a6e4S :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (t_a6e4T :: t_a6dyx a_a6dyK). (SFoldable t_a6dyx, (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) ~ Apply (Apply Foldl1_6989586621680492632Sym0 t_a6e4S) t_a6e4T) => Sing t_a6e4S -> Sing t_a6e4T -> Sing (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) sToList :: forall a_a6dyL (t_a6e4W :: t_a6dyx a_a6dyL). (SFoldable t_a6dyx, (Apply ToListSym0 t_a6e4W :: [a_a6dyL]) ~ Apply ToList_6989586621680492652Sym0 t_a6e4W) => Sing t_a6e4W -> Sing (Apply ToListSym0 t_a6e4W :: [a_a6dyL]) sNull :: forall a_a6dyM (t_a6e4Y :: t_a6dyx a_a6dyM). (SFoldable t_a6dyx, (Apply NullSym0 t_a6e4Y :: Bool) ~ Apply Null_6989586621680492661Sym0 t_a6e4Y) => Sing t_a6e4Y -> Sing (Apply NullSym0 t_a6e4Y :: Bool) sLength :: forall a_a6dyN (t_a6e50 :: t_a6dyx a_a6dyN). (SFoldable t_a6dyx, (Apply LengthSym0 t_a6e50 :: Nat) ~ Apply Length_6989586621680492678Sym0 t_a6e50) => Sing t_a6e50 -> Sing (Apply LengthSym0 t_a6e50 :: Nat) sElem :: forall a_a6dyO (t_a6e52 :: a_a6dyO) (t_a6e53 :: t_a6dyx a_a6dyO). (SFoldable t_a6dyx, (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) ~ Apply (Apply Elem_6989586621680492697Sym0 t_a6e52) t_a6e53, SEq a_a6dyO) => Sing t_a6e52 -> Sing t_a6e53 -> Sing (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) sMaximum :: forall a_a6dyP (t_a6e56 :: t_a6dyx a_a6dyP). (SFoldable t_a6dyx, (Apply MaximumSym0 t_a6e56 :: a_a6dyP) ~ Apply Maximum_6989586621680492711Sym0 t_a6e56, SOrd a_a6dyP) => Sing t_a6e56 -> Sing (Apply MaximumSym0 t_a6e56 :: a_a6dyP) sMinimum :: forall a_a6dyQ (t_a6e58 :: t_a6dyx a_a6dyQ). (SFoldable t_a6dyx, (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) ~ Apply Minimum_6989586621680492726Sym0 t_a6e58, SOrd a_a6dyQ) => Sing t_a6e58 -> Sing (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) sSum :: forall a_a6dyR (t_a6e5a :: t_a6dyx a_a6dyR). (SFoldable t_a6dyx, (Apply SumSym0 t_a6e5a :: a_a6dyR) ~ Apply Sum_6989586621680492741Sym0 t_a6e5a, SNum a_a6dyR) => Sing t_a6e5a -> Sing (Apply SumSym0 t_a6e5a :: a_a6dyR) sProduct :: forall a_a6dyS (t_a6e5c :: t_a6dyx a_a6dyS). (SFoldable t_a6dyx, (Apply ProductSym0 t_a6e5c :: a_a6dyS) ~ Apply Product_6989586621680492750Sym0 t_a6e5c, SNum a_a6dyS) => Sing t_a6e5c -> Sing (Apply ProductSym0 t_a6e5c :: a_a6dyS) class PMonoid a_a5BTv where { type family Mempty :: a_a5BTv; type family Mappend (arg_a5BVL :: a_a5BTv) (arg_a5BVM :: a_a5BTv) :: a_a5BTv; type family Mconcat (arg_a5BVQ :: [a_a5BTv]) :: a_a5BTv; type Mappend a_a5BVT a_a5BVU = Apply (Apply Mappend_6989586621680347251Sym0 a_a5BVT) a_a5BVU; type Mconcat a_a5BW8 = Apply Mconcat_6989586621680347265Sym0 a_a5BW8; } class SSemigroup a_a5BTv => SMonoid a_a5BTv sMempty :: SMonoid a_a5BTv => Sing (MemptySym0 :: a_a5BTv) sMappend :: forall (t_a5BX0 :: a_a5BTv) (t_a5BX1 :: a_a5BTv). SMonoid a_a5BTv => Sing t_a5BX0 -> Sing t_a5BX1 -> Sing (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) sMconcat :: forall (t_a5BX4 :: [a_a5BTv]). SMonoid a_a5BTv => Sing t_a5BX4 -> Sing (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) sMappend :: forall (t_a5BX0 :: a_a5BTv) (t_a5BX1 :: a_a5BTv). (SMonoid a_a5BTv, (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) ~ Apply (Apply Mappend_6989586621680347251Sym0 t_a5BX0) t_a5BX1) => Sing t_a5BX0 -> Sing t_a5BX1 -> Sing (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) sMconcat :: forall (t_a5BX4 :: [a_a5BTv]). (SMonoid a_a5BTv, (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) ~ Apply Mconcat_6989586621680347265Sym0 t_a5BX4) => Sing t_a5BX4 -> Sing (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) class PTraversable t_a7A47 where { type family Traverse (arg_a7A4j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (arg_a7A4k :: t_a7A47 a_a7A49) :: f_a7A48 (t_a7A47 b_a7A4a); type family SequenceA (arg_a7A4o :: t_a7A47 (f_a7A4b a_a7A4c)) :: f_a7A4b (t_a7A47 a_a7A4c); type family MapM (arg_a7A4r :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (arg_a7A4s :: t_a7A47 a_a7A4e) :: m_a7A4d (t_a7A47 b_a7A4f); type family Sequence (arg_a7A4w :: t_a7A47 (m_a7A4g a_a7A4h)) :: m_a7A4g (t_a7A47 a_a7A4h); type Traverse a_a7A4z a_a7A4A = Apply (Apply Traverse_6989586621680816757Sym0 a_a7A4z) a_a7A4A; type SequenceA a_a7A4M = Apply SequenceA_6989586621680816769Sym0 a_a7A4M; type MapM a_a7A4V a_a7A4W = Apply (Apply MapM_6989586621680816779Sym0 a_a7A4V) a_a7A4W; type Sequence a_a7A5a = Apply Sequence_6989586621680816793Sym0 a_a7A5a; } class (SFunctor t_a7A47, SFoldable t_a7A47) => STraversable t_a7A47 sTraverse :: forall a_a7A49 f_a7A48 b_a7A4a (t_a7A5j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (t_a7A5k :: t_a7A47 a_a7A49). (STraversable t_a7A47, SApplicative f_a7A48) => Sing t_a7A5j -> Sing t_a7A5k -> Sing (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) sSequenceA :: forall f_a7A4b a_a7A4c (t_a7A5n :: t_a7A47 (f_a7A4b a_a7A4c)). (STraversable t_a7A47, SApplicative f_a7A4b) => Sing t_a7A5n -> Sing (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) sMapM :: forall a_a7A4e m_a7A4d b_a7A4f (t_a7A5p :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (t_a7A5q :: t_a7A47 a_a7A4e). (STraversable t_a7A47, SMonad m_a7A4d) => Sing t_a7A5p -> Sing t_a7A5q -> Sing (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) sSequence :: forall m_a7A4g a_a7A4h (t_a7A5t :: t_a7A47 (m_a7A4g a_a7A4h)). (STraversable t_a7A47, SMonad m_a7A4g) => Sing t_a7A5t -> Sing (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) sTraverse :: forall a_a7A49 f_a7A48 b_a7A4a (t_a7A5j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (t_a7A5k :: t_a7A47 a_a7A49). (STraversable t_a7A47, (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) ~ Apply (Apply Traverse_6989586621680816757Sym0 t_a7A5j) t_a7A5k, SApplicative f_a7A48) => Sing t_a7A5j -> Sing t_a7A5k -> Sing (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) sSequenceA :: forall f_a7A4b a_a7A4c (t_a7A5n :: t_a7A47 (f_a7A4b a_a7A4c)). (STraversable t_a7A47, (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) ~ Apply SequenceA_6989586621680816769Sym0 t_a7A5n, SApplicative f_a7A4b) => Sing t_a7A5n -> Sing (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) sMapM :: forall a_a7A4e m_a7A4d b_a7A4f (t_a7A5p :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (t_a7A5q :: t_a7A47 a_a7A4e). (STraversable t_a7A47, (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) ~ Apply (Apply MapM_6989586621680816779Sym0 t_a7A5p) t_a7A5q, SMonad m_a7A4d) => Sing t_a7A5p -> Sing t_a7A5q -> Sing (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) sSequence :: forall m_a7A4g a_a7A4h (t_a7A5t :: t_a7A47 (m_a7A4g a_a7A4h)). (STraversable t_a7A47, (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) ~ Apply Sequence_6989586621680816793Sym0 t_a7A5t, SMonad m_a7A4g) => Sing t_a7A5t -> Sing (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) class PApplicative f_a2iYl where { type family Pure (arg_a2j3j :: a_a2iYm) :: f_a2iYl a_a2iYm; type family (<*>) (arg_a2j3m :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (arg_a2j3n :: f_a2iYl a_a2iYn) :: f_a2iYl b_a2iYo; type family LiftA2 (arg_a2j3r :: (~>) a_a2iYp ((~>) b_a2iYq c_a2iYr)) (arg_a2j3s :: f_a2iYl a_a2iYp) (arg_a2j3t :: f_a2iYl b_a2iYq) :: f_a2iYl c_a2iYr; type family (*>) (arg_a2j3y :: f_a2iYl a_a2iYs) (arg_a2j3z :: f_a2iYl b_a2iYt) :: f_a2iYl b_a2iYt; type family (<*) (arg_a2j3D :: f_a2iYl a_a2iYu) (arg_a2j3E :: f_a2iYl b_a2iYv) :: f_a2iYl a_a2iYu; type (<*>) a_a2j3I a_a2j3J = Apply (Apply TFHelper_6989586621679559716Sym0 a_a2j3I) a_a2j3J; type LiftA2 a_a2j3X a_a2j3Y a_a2j3Z = Apply (Apply (Apply LiftA2_6989586621679559732Sym0 a_a2j3X) a_a2j3Y) a_a2j3Z; type (*>) a_a2j4e a_a2j4f = Apply (Apply TFHelper_6989586621679559748Sym0 a_a2j4e) a_a2j4f; type (<*) a_a2j4p a_a2j4q = Apply (Apply TFHelper_6989586621679559759Sym0 a_a2j4p) a_a2j4q; } infixl 4 <*> infixl 4 *> infixl 4 <* class SFunctor f_a2iYl => SApplicative f_a2iYl sPure :: forall a_a2iYm (t_a2j7q :: a_a2iYm). SApplicative f_a2iYl => Sing t_a2j7q -> Sing (Apply PureSym0 t_a2j7q :: f_a2iYl a_a2iYm) (%<*>) :: forall a_a2iYn b_a2iYo (t_a2j7s :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (t_a2j7t :: f_a2iYl a_a2iYn). SApplicative f_a2iYl => Sing t_a2j7s -> Sing t_a2j7t -> Sing (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) sLiftA2 :: forall a_a2iYp b_a2iYq c_a2iYr (t_a2j7w :: (~>) a_a2iYp ((~>) b_a2iYq c_a2iYr)) (t_a2j7x :: f_a2iYl a_a2iYp) (t_a2j7y :: f_a2iYl b_a2iYq). SApplicative f_a2iYl => Sing t_a2j7w -> Sing t_a2j7x -> Sing t_a2j7y -> Sing (Apply (Apply (Apply LiftA2Sym0 t_a2j7w) t_a2j7x) t_a2j7y :: f_a2iYl c_a2iYr) (%*>) :: forall a_a2iYs b_a2iYt (t_a2j7C :: f_a2iYl a_a2iYs) (t_a2j7D :: f_a2iYl b_a2iYt). SApplicative f_a2iYl => Sing t_a2j7C -> Sing t_a2j7D -> Sing (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) (%<*) :: forall a_a2iYu b_a2iYv (t_a2j7G :: f_a2iYl a_a2iYu) (t_a2j7H :: f_a2iYl b_a2iYv). SApplicative f_a2iYl => Sing t_a2j7G -> Sing t_a2j7H -> Sing (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) (%<*>) :: forall a_a2iYn b_a2iYo (t_a2j7s :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (t_a2j7t :: f_a2iYl a_a2iYn). (SApplicative f_a2iYl, (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) ~ Apply (Apply TFHelper_6989586621679559716Sym0 t_a2j7s) t_a2j7t) => Sing t_a2j7s -> Sing t_a2j7t -> Sing (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) sLiftA2 :: forall a_a2iYp b_a2iYq c_a2iYr (t_a2j7w :: (~>) a_a2iYp ((~>) b_a2iYq c_a2iYr)) (t_a2j7x :: f_a2iYl a_a2iYp) (t_a2j7y :: f_a2iYl b_a2iYq). (SApplicative f_a2iYl, (Apply (Apply (Apply LiftA2Sym0 t_a2j7w) t_a2j7x) t_a2j7y :: f_a2iYl c_a2iYr) ~ Apply (Apply (Apply LiftA2_6989586621679559732Sym0 t_a2j7w) t_a2j7x) t_a2j7y) => Sing t_a2j7w -> Sing t_a2j7x -> Sing t_a2j7y -> Sing (Apply (Apply (Apply LiftA2Sym0 t_a2j7w) t_a2j7x) t_a2j7y :: f_a2iYl c_a2iYr) (%*>) :: forall a_a2iYs b_a2iYt (t_a2j7C :: f_a2iYl a_a2iYs) (t_a2j7D :: f_a2iYl b_a2iYt). (SApplicative f_a2iYl, (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) ~ Apply (Apply TFHelper_6989586621679559748Sym0 t_a2j7C) t_a2j7D) => Sing t_a2j7C -> Sing t_a2j7D -> Sing (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) (%<*) :: forall a_a2iYu b_a2iYv (t_a2j7G :: f_a2iYl a_a2iYu) (t_a2j7H :: f_a2iYl b_a2iYv). (SApplicative f_a2iYl, (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) ~ Apply (Apply TFHelper_6989586621679559759Sym0 t_a2j7G) t_a2j7H) => Sing t_a2j7G -> Sing t_a2j7H -> Sing (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) infixl 4 %<*> infixl 4 %*> infixl 4 %<* type family (.) a_a2cpV a_a2cpW a_a2cpX infixr 9 . (%.) :: forall b_a2cn4 c_a2cn5 a_a2cn6 (t_a2crj :: (~>) b_a2cn4 c_a2cn5) (t_a2crk :: (~>) a_a2cn6 b_a2cn4) (t_a2crl :: a_a2cn6). Sing t_a2crj -> Sing t_a2crk -> Sing t_a2crl -> Sing (Apply (Apply (Apply (.@#@$) t_a2crj) t_a2crk) t_a2crl :: c_a2cn5) infixr 9 %. -- | An existentially-quantified singleton. This type is useful when -- you want a singleton type, but there is no way of knowing, at -- compile-time, what the type index will be. To make use of this type, -- you will generally have to use a pattern-match: -- --
--   foo :: Bool -> ...
--   foo b = case toSing b of
--             SomeSing sb -> {- fancy dependently-typed code with sb -}
--   
-- -- An example like the one above may be easier to write using -- withSomeSing. data SomeSing k [SomeSing] :: Sing (a :: k) -> SomeSing k -- | The promotion of error. This version is more poly-kinded for -- easier use. type family Error str -- | The singleton for error sError :: HasCallStack => Sing (str :: Symbol) -> a data ErrorSym0 a6989586621679472252 type ErrorSym1 (a6989586621679472252 :: k0_a1W1L) = Error a6989586621679472252 :: k_a1W1M -- | The promotion of undefined. type family Undefined -- | The singleton for undefined. sUndefined :: HasCallStack => a type UndefinedSym0 = Undefined :: k_a1WmZ type TrueSym0 = 'True :: Bool type FalseSym0 = 'False :: Bool data (==@#@$) a6989586621679370055 infix 4 ==@#@$ data (==@#@$$) a6989586621679370055 a6989586621679370056 infix 4 ==@#@$$ type (==@#@$$$) (a6989586621679370055 :: a_a1vGR) (a6989586621679370056 :: a_a1vGR) = (==) a6989586621679370055 a6989586621679370056 :: Bool infix 4 ==@#@$$$ data (>@#@$) a6989586621679383655 infix 4 >@#@$ data (>@#@$$) a6989586621679383655 a6989586621679383656 infix 4 >@#@$$ type (>@#@$$$) (a6989586621679383655 :: a_a1zeQ) (a6989586621679383656 :: a_a1zeQ) = (>) a6989586621679383655 a6989586621679383656 :: Bool infix 4 >@#@$$$ type LTSym0 = 'LT :: Ordering type EQSym0 = 'EQ :: Ordering type GTSym0 = 'GT :: Ordering type Tuple0Sym0 = '() :: () data Tuple2Sym0 a6989586621679304233 data Tuple2Sym1 a6989586621679304233 a6989586621679304234 type Tuple2Sym2 (a6989586621679304233 :: a_11) (a6989586621679304234 :: b_12) = '(a6989586621679304233, a6989586621679304234) :: (a_11 :: Type, b_12 :: Type) data Tuple3Sym0 a6989586621679304264 data Tuple3Sym1 a6989586621679304264 a6989586621679304265 data Tuple3Sym2 a6989586621679304264 a6989586621679304265 a6989586621679304266 type Tuple3Sym3 (a6989586621679304264 :: a_11) (a6989586621679304265 :: b_12) (a6989586621679304266 :: c_13) = '(a6989586621679304264, a6989586621679304265, a6989586621679304266) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type) data Tuple4Sym0 a6989586621679304310 data Tuple4Sym1 a6989586621679304310 a6989586621679304311 data Tuple4Sym2 a6989586621679304310 a6989586621679304311 a6989586621679304312 data Tuple4Sym3 a6989586621679304310 a6989586621679304311 a6989586621679304312 a6989586621679304313 type Tuple4Sym4 (a6989586621679304310 :: a_11) (a6989586621679304311 :: b_12) (a6989586621679304312 :: c_13) (a6989586621679304313 :: d_14) = '(a6989586621679304310, a6989586621679304311, a6989586621679304312, a6989586621679304313) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type) data Tuple5Sym0 a6989586621679304373 data Tuple5Sym1 a6989586621679304373 a6989586621679304374 data Tuple5Sym2 a6989586621679304373 a6989586621679304374 a6989586621679304375 data Tuple5Sym3 a6989586621679304373 a6989586621679304374 a6989586621679304375 a6989586621679304376 data Tuple5Sym4 a6989586621679304373 a6989586621679304374 a6989586621679304375 a6989586621679304376 a6989586621679304377 type Tuple5Sym5 (a6989586621679304373 :: a_11) (a6989586621679304374 :: b_12) (a6989586621679304375 :: c_13) (a6989586621679304376 :: d_14) (a6989586621679304377 :: e_15) = '(a6989586621679304373, a6989586621679304374, a6989586621679304375, a6989586621679304376, a6989586621679304377) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type) data Tuple6Sym0 a6989586621679304455 data Tuple6Sym1 a6989586621679304455 a6989586621679304456 data Tuple6Sym2 a6989586621679304455 a6989586621679304456 a6989586621679304457 data Tuple6Sym3 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 data Tuple6Sym4 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 a6989586621679304459 data Tuple6Sym5 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 a6989586621679304459 a6989586621679304460 type Tuple6Sym6 (a6989586621679304455 :: a_11) (a6989586621679304456 :: b_12) (a6989586621679304457 :: c_13) (a6989586621679304458 :: d_14) (a6989586621679304459 :: e_15) (a6989586621679304460 :: f_16) = '(a6989586621679304455, a6989586621679304456, a6989586621679304457, a6989586621679304458, a6989586621679304459, a6989586621679304460) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type) data Tuple7Sym0 a6989586621679304558 data Tuple7Sym1 a6989586621679304558 a6989586621679304559 data Tuple7Sym2 a6989586621679304558 a6989586621679304559 a6989586621679304560 data Tuple7Sym3 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 data Tuple7Sym4 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 data Tuple7Sym5 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 a6989586621679304563 data Tuple7Sym6 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 a6989586621679304563 a6989586621679304564 type Tuple7Sym7 (a6989586621679304558 :: a_11) (a6989586621679304559 :: b_12) (a6989586621679304560 :: c_13) (a6989586621679304561 :: d_14) (a6989586621679304562 :: e_15) (a6989586621679304563 :: f_16) (a6989586621679304564 :: g_17) = '(a6989586621679304558, a6989586621679304559, a6989586621679304560, a6989586621679304561, a6989586621679304562, a6989586621679304563, a6989586621679304564) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type, g_17 :: Type) data CompareSym0 a6989586621679383640 data CompareSym1 a6989586621679383640 a6989586621679383641 type CompareSym2 (a6989586621679383640 :: a_a1zeQ) (a6989586621679383641 :: a_a1zeQ) = Compare a6989586621679383640 a6989586621679383641 :: Ordering data ThenCmpSym0 a6989586621679394586 data ThenCmpSym1 a6989586621679394586 a6989586621679394587 type ThenCmpSym2 (a6989586621679394586 :: Ordering) (a6989586621679394587 :: Ordering) = ThenCmp a6989586621679394586 a6989586621679394587 :: Ordering data FoldlSym0 a6989586621680492465 data FoldlSym1 a6989586621680492465 a6989586621680492466 data FoldlSym2 a6989586621680492465 a6989586621680492466 a6989586621680492467 type FoldlSym3 (a6989586621680492465 :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (a6989586621680492466 :: b_a6dyF) (a6989586621680492467 :: t_a6dyx a_a6dyG) = Foldl a6989586621680492465 a6989586621680492466 a6989586621680492467 :: b_a6dyF type MinBoundSym0 = MinBound :: a_a37BL type MaxBoundSym0 = MaxBound :: a_a37BL data ShowsPrecSym0 a6989586621680279568 data ShowsPrecSym1 a6989586621680279568 a6989586621680279569 data ShowsPrecSym2 a6989586621680279568 a6989586621680279569 a6989586621680279570 type ShowsPrecSym3 (a6989586621680279568 :: Nat) (a6989586621680279569 :: a_a5kd9) (a6989586621680279570 :: Symbol) = ShowsPrec a6989586621680279568 a6989586621680279569 a6989586621680279570 :: Symbol data ShowStringSym0 a6989586621680279523 data ShowStringSym1 a6989586621680279523 a6989586621680279524 type ShowStringSym2 (a6989586621680279523 :: Symbol) (a6989586621680279524 :: Symbol) = ShowString a6989586621680279523 a6989586621680279524 :: Symbol data ShowParenSym0 a6989586621680279507 data ShowParenSym1 a6989586621680279507 a6989586621680279508 data ShowParenSym2 a6989586621680279507 a6989586621680279508 a6989586621680279509 data ShowSpaceSym0 a6989586621680279495 type ShowSpaceSym1 (a6989586621680279495 :: Symbol) = ShowSpace a6989586621680279495 :: Symbol data ShowCharSym0 a6989586621680279534 data ShowCharSym1 a6989586621680279534 a6989586621680279535 type ShowCharSym2 (a6989586621680279534 :: Symbol) (a6989586621680279535 :: Symbol) = ShowChar a6989586621680279534 a6989586621680279535 :: Symbol data ShowCommaSpaceSym0 a6989586621680279489 type ShowCommaSpaceSym1 (a6989586621680279489 :: Symbol) = ShowCommaSpace a6989586621680279489 :: Symbol data FmapSym0 a6989586621679559667 data FmapSym1 a6989586621679559667 a6989586621679559668 type FmapSym2 (a6989586621679559667 :: (~>) a_a2iYh b_a2iYi) (a6989586621679559668 :: f_a2iYg a_a2iYh) = Fmap a6989586621679559667 a6989586621679559668 :: f_a2iYg b_a2iYi data (<$@#@$) a6989586621679559672 infixl 4 <$@#@$ data (<$@#@$$) a6989586621679559672 a6989586621679559673 infixl 4 <$@#@$$ type (<$@#@$$$) (a6989586621679559672 :: a_a2iYj) (a6989586621679559673 :: f_a2iYg b_a2iYk) = (<$) a6989586621679559672 a6989586621679559673 :: f_a2iYg a_a2iYj infixl 4 <$@#@$$$ data FoldMapSym0 a6989586621680492445 data FoldMapSym1 a6989586621680492445 a6989586621680492446 type FoldMapSym2 (a6989586621680492445 :: (~>) a_a6dyA m_a6dyz) (a6989586621680492446 :: t_a6dyx a_a6dyA) = FoldMap a6989586621680492445 a6989586621680492446 :: m_a6dyz type MemptySym0 = Mempty :: a_a5BTv data MappendSym0 a6989586621680347244 data MappendSym1 a6989586621680347244 a6989586621680347245 type MappendSym2 (a6989586621680347244 :: a_a5BTv) (a6989586621680347245 :: a_a5BTv) = Mappend a6989586621680347244 a6989586621680347245 :: a_a5BTv data FoldrSym0 a6989586621680492451 data FoldrSym1 a6989586621680492451 a6989586621680492452 data FoldrSym2 a6989586621680492451 a6989586621680492452 a6989586621680492453 type FoldrSym3 (a6989586621680492451 :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (a6989586621680492452 :: b_a6dyC) (a6989586621680492453 :: t_a6dyx a_a6dyB) = Foldr a6989586621680492451 a6989586621680492452 a6989586621680492453 :: b_a6dyC data TraverseSym0 a6989586621680816742 data TraverseSym1 a6989586621680816742 a6989586621680816743 type TraverseSym2 (a6989586621680816742 :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (a6989586621680816743 :: t_a7A47 a_a7A49) = Traverse a6989586621680816742 a6989586621680816743 :: f_a7A48 (t_a7A47 b_a7A4a) data PureSym0 a6989586621679559691 type PureSym1 (a6989586621679559691 :: a_a2iYm) = Pure a6989586621679559691 :: f_a2iYl a_a2iYm data (<*>@#@$) a6989586621679559695 infixl 4 <*>@#@$ data (<*>@#@$$) a6989586621679559695 a6989586621679559696 infixl 4 <*>@#@$$ type (<*>@#@$$$) (a6989586621679559695 :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (a6989586621679559696 :: f_a2iYl a_a2iYn) = (<*>) a6989586621679559695 a6989586621679559696 :: f_a2iYl b_a2iYo infixl 4 <*>@#@$$$ data LiftA2Sym0 a6989586621679559701 data LiftA2Sym1 a6989586621679559701 a6989586621679559702 data LiftA2Sym2 a6989586621679559701 a6989586621679559702 a6989586621679559703 type LiftA2Sym3 (a6989586621679559701 :: (~>) a_a2iYp ((~>) b_a2iYq c_a2iYr)) (a6989586621679559702 :: f_a2iYl a_a2iYp) (a6989586621679559703 :: f_a2iYl b_a2iYq) = LiftA2 a6989586621679559701 a6989586621679559702 a6989586621679559703 :: f_a2iYl c_a2iYr data (.@#@$) a6989586621679534187 infixr 9 .@#@$ data (.@#@$$) a6989586621679534187 a6989586621679534188 infixr 9 .@#@$$ data (.@#@$$$) a6989586621679534187 a6989586621679534188 a6989586621679534189 infixr 9 .@#@$$$ type (.@#@$$$$) (a6989586621679534187 :: (~>) b_a2cn4 c_a2cn5) (a6989586621679534188 :: (~>) a_a2cn6 b_a2cn4) (a6989586621679534189 :: a_a2cn6) = (.) a6989586621679534187 a6989586621679534188 a6989586621679534189 :: c_a2cn5 infixr 9 .@#@$$$$ type NilSym0 = '[] :: [a_11 :: Type] data (:@#@$) a6989586621679304138 infixr 5 :@#@$ data (:@#@$$) a6989586621679304138 a6989586621679304139 infixr 5 :@#@$$ type (:@#@$$$) (a6989586621679304138 :: a_11) (a6989586621679304139 :: [a_11]) = '(:) a6989586621679304138 a6989586621679304139 :: [a_11 :: Type] infixr 5 :@#@$$$ -- | This class (which users should never see) is to be instantiated in -- order to use an otherwise-unused data constructor, such as the -- "kind-inference" data constructor for defunctionalization symbols. class SuppressUnusedWarnings t suppressUnusedWarnings :: SuppressUnusedWarnings t => () -- | 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.TypeError at the -- same time, as many of the definitons in the latter deliberately clash -- with the former. module Data.Singletons.TypeError -- | A drop-in replacement for TypeError. This also exists at the -- value-level as typeError. type family TypeError 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 :: HasCallStack => Sing err -> Sing (TypeError err) -- | 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 -- | The singleton kind-indexed type family. type family Sing data SErrorMessage em [SText] :: Sing t -> SErrorMessage ('Text t) [SShowType] :: Sing ty -> SErrorMessage ('ShowType ty) [:%<>:] :: Sing e1 -> Sing e2 -> SErrorMessage (e1 :<>: e2) [:%$$:] :: Sing e1 -> Sing e2 -> SErrorMessage (e1 :$$: e2) infixl 6 :%<>: infixl 5 :%$$: -- | Convert a PErrorMessage to a ErrorMessage from -- GHC.TypeLits. type family ConvertPErrorMessage a -- | Convert an ErrorMessage into a human-readable String. showErrorMessage :: ErrorMessage -> String data TextSym0 a6989586621681349583 type TextSym1 (a6989586621681349583 :: s_a9Ovb) = 'Text a6989586621681349583 :: ErrorMessage' (s_a9Ovb :: Type) data ShowTypeSym0 a6989586621681349585 type ShowTypeSym1 (a6989586621681349585 :: t_a9Ovc) = 'ShowType a6989586621681349585 :: ErrorMessage' (s_a9Ovb :: Type) data (:<>:@#@$) a6989586621681349587 infixl 6 :<>:@#@$ data (:<>:@#@$$) a6989586621681349587 a6989586621681349588 infixl 6 :<>:@#@$$ type (:<>:@#@$$$) (a6989586621681349587 :: ErrorMessage' s_a9Ovb) (a6989586621681349588 :: ErrorMessage' s_a9Ovb) = '(:<>:) a6989586621681349587 a6989586621681349588 :: ErrorMessage' (s_a9Ovb :: Type) infixl 6 :<>:@#@$$$ data (:$$:@#@$) a6989586621681349590 infixl 5 :$$:@#@$ data (:$$:@#@$$) a6989586621681349590 a6989586621681349591 infixl 5 :$$:@#@$$ type (:$$:@#@$$$) (a6989586621681349590 :: ErrorMessage' s_a9Ovb) (a6989586621681349591 :: ErrorMessage' s_a9Ovb) = '(:$$:) a6989586621681349590 a6989586621681349591 :: ErrorMessage' (s_a9Ovb :: Type) infixl 5 :$$:@#@$$$ data TypeErrorSym0 a6989586621681349593 type TypeErrorSym1 (a6989586621681349593 :: PErrorMessage) = TypeError a6989586621681349593 :: a_a9Ovd instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeError.TypeErrorSym0 instance Data.Singletons.Internal.SingI Data.Singletons.TypeError.TypeErrorSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.TypeError.:$$:@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.TypeError.:$$:@#@$) instance forall s (a6989586621681349590 :: Data.Singletons.TypeError.ErrorMessage' s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.TypeError.:$$:@#@$$) a6989586621681349590) instance Data.Singletons.Internal.SingI x => Data.Singletons.Internal.SingI ((Data.Singletons.TypeError.:$$:@#@$$) x) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings (Data.Singletons.TypeError.:<>:@#@$) instance Data.Singletons.Internal.SingI (Data.Singletons.TypeError.:<>:@#@$) instance forall s (a6989586621681349587 :: Data.Singletons.TypeError.ErrorMessage' s). Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings ((Data.Singletons.TypeError.:<>:@#@$$) a6989586621681349587) instance Data.Singletons.Internal.SingI x => Data.Singletons.Internal.SingI ((Data.Singletons.TypeError.:<>:@#@$$) x) instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeError.ShowTypeSym0 instance Data.Singletons.Internal.SingI Data.Singletons.TypeError.ShowTypeSym0 instance Data.Singletons.SuppressUnusedWarnings.SuppressUnusedWarnings Data.Singletons.TypeError.TextSym0 instance Data.Singletons.Internal.SingI Data.Singletons.TypeError.TextSym0 instance Data.Singletons.Internal.SingKind Data.Singletons.TypeError.PErrorMessage instance Data.Singletons.Internal.SingI t => Data.Singletons.Internal.SingI ('Data.Singletons.TypeError.Text t) instance forall t (ty :: t). Data.Singletons.Internal.SingI ty => Data.Singletons.Internal.SingI ('Data.Singletons.TypeError.ShowType ty) instance (Data.Singletons.Internal.SingI e1, Data.Singletons.Internal.SingI e2) => Data.Singletons.Internal.SingI (e1 'Data.Singletons.TypeError.:<>: e2) instance (Data.Singletons.Internal.SingI e1, Data.Singletons.Internal.SingI e2) => Data.Singletons.Internal.SingI (e1 'Data.Singletons.TypeError.:$$: e2) -- | 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 Data.Singletons.Prelude data SBool z_a1eHs [SFalse] :: SBool ('False :: Bool) [STrue] :: SBool ('True :: Bool) data SList z_a1ezK [SNil] :: forall (a_11 :: Type). () => SList ('[] :: [a_11 :: Type]) [SCons] :: forall (a_11 :: Type) (n_a1ezy :: a_11) (n_a1ezz :: [a_11]). () => Sing n_a1ezy -> Sing n_a1ezz -> SList ('(:) n_a1ezy n_a1ezz :: [a_11 :: Type]) infixr 5 `SCons` data SMaybe z_a1ezf [SNothing] :: forall (a_11 :: Type). () => SMaybe ('Nothing :: Maybe (a_11 :: Type)) [SJust] :: forall (a_11 :: Type) (n_a1ez8 :: a_11). () => Sing n_a1ez8 -> SMaybe ('Just n_a1ez8 :: Maybe (a_11 :: Type)) data SEither z_a1eAt [SLeft] :: forall (a_af38 :: Type) (b_af39 :: Type) (n_a1eAh :: a_af38). () => Sing n_a1eAh -> SEither ('Left n_a1eAh :: Either (a_af38 :: Type) (b_af39 :: Type)) [SRight] :: forall (a_af38 :: Type) (b_af39 :: Type) (n_a1eAj :: b_af39). () => Sing n_a1eAj -> SEither ('Right n_a1eAj :: Either (a_af38 :: Type) (b_af39 :: Type)) data SOrdering z_a1eHy [SLT] :: SOrdering ('LT :: Ordering) [SEQ] :: SOrdering ('EQ :: Ordering) [SGT] :: SOrdering ('GT :: Ordering) data STuple0 z_a1eHC [STuple0] :: STuple0 ('() :: ()) data STuple2 z_a1eBh [STuple2] :: forall (a_11 :: Type) (b_12 :: Type) (n_a1eB5 :: a_11) (n_a1eB6 :: b_12). () => Sing n_a1eB5 -> Sing n_a1eB6 -> STuple2 ('(n_a1eB5, n_a1eB6) :: (a_11 :: Type, b_12 :: Type)) data STuple3 z_a1eBS [STuple3] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (n_a1eBB :: a_11) (n_a1eBC :: b_12) (n_a1eBD :: c_13). () => Sing n_a1eBB -> Sing n_a1eBC -> Sing n_a1eBD -> STuple3 ('(n_a1eBB, n_a1eBC, n_a1eBD) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type)) data STuple4 z_a1eCI [STuple4] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (n_a1eCm :: a_11) (n_a1eCn :: b_12) (n_a1eCo :: c_13) (n_a1eCp :: d_14). () => Sing n_a1eCm -> Sing n_a1eCn -> Sing n_a1eCo -> Sing n_a1eCp -> STuple4 ('(n_a1eCm, n_a1eCn, n_a1eCo, n_a1eCp) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type)) data STuple5 z_a1eDP [STuple5] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (n_a1eDo :: a_11) (n_a1eDp :: b_12) (n_a1eDq :: c_13) (n_a1eDr :: d_14) (n_a1eDs :: e_15). () => Sing n_a1eDo -> Sing n_a1eDp -> Sing n_a1eDq -> Sing n_a1eDr -> Sing n_a1eDs -> STuple5 ('(n_a1eDo, n_a1eDp, n_a1eDq, n_a1eDr, n_a1eDs) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type)) data STuple6 z_a1eFf [STuple6] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (f_16 :: Type) (n_a1eEJ :: a_11) (n_a1eEK :: b_12) (n_a1eEL :: c_13) (n_a1eEM :: d_14) (n_a1eEN :: e_15) (n_a1eEO :: f_16). () => Sing n_a1eEJ -> Sing n_a1eEK -> Sing n_a1eEL -> Sing n_a1eEM -> Sing n_a1eEN -> Sing n_a1eEO -> STuple6 ('(n_a1eEJ, n_a1eEK, n_a1eEL, n_a1eEM, n_a1eEN, n_a1eEO) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type)) data STuple7 z_a1eH0 [STuple7] :: forall (a_11 :: Type) (b_12 :: Type) (c_13 :: Type) (d_14 :: Type) (e_15 :: Type) (f_16 :: Type) (g_17 :: Type) (n_a1eGp :: a_11) (n_a1eGq :: b_12) (n_a1eGr :: c_13) (n_a1eGs :: d_14) (n_a1eGt :: e_15) (n_a1eGu :: f_16) (n_a1eGv :: g_17). () => Sing n_a1eGp -> Sing n_a1eGq -> Sing n_a1eGr -> Sing n_a1eGs -> Sing n_a1eGt -> Sing n_a1eGu -> Sing n_a1eGv -> STuple7 ('(n_a1eGp, n_a1eGq, n_a1eGr, n_a1eGs, n_a1eGt, n_a1eGu, n_a1eGv) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type, g_17 :: Type)) -- | 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 :: 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 :: 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 (%&&) :: Sing a -> Sing b -> Sing (a && b) infixr 3 %&& -- | Disjunction of singletons (%||) :: Sing a -> Sing b -> Sing (a || b) infixr 2 %|| type family Otherwise sOtherwise :: Sing (OtherwiseSym0 :: Bool) -- | The promotion of error. This version is more poly-kinded for -- easier use. type family Error str -- | The singleton for error sError :: HasCallStack => Sing (str :: Symbol) -> a -- | The promotion of errorWithoutStackTrace. This version is more -- poly-kinded for easier use. type family ErrorWithoutStackTrace str -- | The singleton for errorWithoutStackTrace. sErrorWithoutStackTrace :: Sing (str :: Symbol) -> a -- | The promotion of undefined. type family Undefined -- | The singleton for undefined. sUndefined :: HasCallStack => a class POrd a_a1zeQ where { type family Compare (arg_a1zfL :: a_a1zeQ) (arg_a1zfM :: a_a1zeQ) :: Ordering; type family (<) (arg_a1zfQ :: a_a1zeQ) (arg_a1zfR :: a_a1zeQ) :: Bool; type family (<=) (arg_a1zfV :: a_a1zeQ) (arg_a1zfW :: a_a1zeQ) :: Bool; type family (>) (arg_a1zg0 :: a_a1zeQ) (arg_a1zg1 :: a_a1zeQ) :: Bool; type family (>=) (arg_a1zg5 :: a_a1zeQ) (arg_a1zg6 :: a_a1zeQ) :: Bool; type family Max (arg_a1zga :: a_a1zeQ) (arg_a1zgb :: a_a1zeQ) :: a_a1zeQ; type family Min (arg_a1zgf :: a_a1zeQ) (arg_a1zgg :: a_a1zeQ) :: a_a1zeQ; type Compare a_a1zgk a_a1zgl = Apply (Apply Compare_6989586621679383674Sym0 a_a1zgk) a_a1zgl; type (<) a_a1zgF a_a1zgG = Apply (Apply TFHelper_6989586621679383695Sym0 a_a1zgF) a_a1zgG; type (<=) a_a1zgV a_a1zgW = Apply (Apply TFHelper_6989586621679383711Sym0 a_a1zgV) a_a1zgW; type (>) a_a1zhb a_a1zhc = Apply (Apply TFHelper_6989586621679383727Sym0 a_a1zhb) a_a1zhc; type (>=) a_a1zhr a_a1zhs = Apply (Apply TFHelper_6989586621679383743Sym0 a_a1zhr) a_a1zhs; type Max a_a1zhH a_a1zhI = Apply (Apply Max_6989586621679383759Sym0 a_a1zhH) a_a1zhI; type Min a_a1zhX a_a1zhY = Apply (Apply Min_6989586621679383775Sym0 a_a1zhX) a_a1zhY; } infix 4 >= infix 4 > infix 4 <= infix 4 < class SEq a_a1zeQ => SOrd a_a1zeQ sCompare :: forall (t_a1zim :: a_a1zeQ) (t_a1zin :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1zim -> Sing t_a1zin -> Sing (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) (%<) :: forall (t_a1ziq :: a_a1zeQ) (t_a1zir :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziq -> Sing t_a1zir -> Sing (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) (%<=) :: forall (t_a1ziu :: a_a1zeQ) (t_a1ziv :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziu -> Sing t_a1ziv -> Sing (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) (%>) :: forall (t_a1ziy :: a_a1zeQ) (t_a1ziz :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziy -> Sing t_a1ziz -> Sing (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) (%>=) :: forall (t_a1ziC :: a_a1zeQ) (t_a1ziD :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziC -> Sing t_a1ziD -> Sing (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) sMax :: forall (t_a1ziG :: a_a1zeQ) (t_a1ziH :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziG -> Sing t_a1ziH -> Sing (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) sMin :: forall (t_a1ziK :: a_a1zeQ) (t_a1ziL :: a_a1zeQ). SOrd a_a1zeQ => Sing t_a1ziK -> Sing t_a1ziL -> Sing (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) sCompare :: forall (t_a1zim :: a_a1zeQ) (t_a1zin :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) ~ Apply (Apply Compare_6989586621679383674Sym0 t_a1zim) t_a1zin) => Sing t_a1zim -> Sing t_a1zin -> Sing (Apply (Apply CompareSym0 t_a1zim) t_a1zin :: Ordering) (%<) :: forall (t_a1ziq :: a_a1zeQ) (t_a1zir :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) ~ Apply (Apply TFHelper_6989586621679383695Sym0 t_a1ziq) t_a1zir) => Sing t_a1ziq -> Sing t_a1zir -> Sing (Apply (Apply (<@#@$) t_a1ziq) t_a1zir :: Bool) (%<=) :: forall (t_a1ziu :: a_a1zeQ) (t_a1ziv :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) ~ Apply (Apply TFHelper_6989586621679383711Sym0 t_a1ziu) t_a1ziv) => Sing t_a1ziu -> Sing t_a1ziv -> Sing (Apply (Apply (<=@#@$) t_a1ziu) t_a1ziv :: Bool) (%>) :: forall (t_a1ziy :: a_a1zeQ) (t_a1ziz :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) ~ Apply (Apply TFHelper_6989586621679383727Sym0 t_a1ziy) t_a1ziz) => Sing t_a1ziy -> Sing t_a1ziz -> Sing (Apply (Apply (>@#@$) t_a1ziy) t_a1ziz :: Bool) (%>=) :: forall (t_a1ziC :: a_a1zeQ) (t_a1ziD :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) ~ Apply (Apply TFHelper_6989586621679383743Sym0 t_a1ziC) t_a1ziD) => Sing t_a1ziC -> Sing t_a1ziD -> Sing (Apply (Apply (>=@#@$) t_a1ziC) t_a1ziD :: Bool) sMax :: forall (t_a1ziG :: a_a1zeQ) (t_a1ziH :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) ~ Apply (Apply Max_6989586621679383759Sym0 t_a1ziG) t_a1ziH) => Sing t_a1ziG -> Sing t_a1ziH -> Sing (Apply (Apply MaxSym0 t_a1ziG) t_a1ziH :: a_a1zeQ) sMin :: forall (t_a1ziK :: a_a1zeQ) (t_a1ziL :: a_a1zeQ). (SOrd a_a1zeQ, (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) ~ Apply (Apply Min_6989586621679383775Sym0 t_a1ziK) t_a1ziL) => Sing t_a1ziK -> Sing t_a1ziL -> Sing (Apply (Apply MinSym0 t_a1ziK) t_a1ziL :: a_a1zeQ) infix 4 %<= infix 4 %>= infix 4 %> infix 4 %< class SBounded a_a37BL sMinBound :: SBounded a_a37BL => Sing (MinBoundSym0 :: a_a37BL) sMaxBound :: SBounded a_a37BL => Sing (MaxBoundSym0 :: a_a37BL) class PBounded a_a37BL where { type family MinBound :: a_a37BL; type family MaxBound :: a_a37BL; } type MaxBoundSym0 = MaxBound :: a_a37BL type MinBoundSym0 = MinBound :: a_a37BL class SEnum a_a38Hz sToEnum :: forall (t_a38Op :: Nat). SEnum a_a38Hz => Sing t_a38Op -> Sing (Apply ToEnumSym0 t_a38Op :: a_a38Hz) sFromEnum :: forall (t_a38Or :: a_a38Hz). SEnum a_a38Hz => Sing t_a38Or -> Sing (Apply FromEnumSym0 t_a38Or :: Nat) sEnumFromTo :: forall (t_a38Ot :: a_a38Hz) (t_a38Ou :: a_a38Hz). SEnum a_a38Hz => Sing t_a38Ot -> Sing t_a38Ou -> Sing (Apply (Apply EnumFromToSym0 t_a38Ot) t_a38Ou :: [a_a38Hz]) sEnumFromThenTo :: forall (t_a38Ox :: a_a38Hz) (t_a38Oy :: a_a38Hz) (t_a38Oz :: a_a38Hz). SEnum a_a38Hz => Sing t_a38Ox -> Sing t_a38Oy -> Sing t_a38Oz -> Sing (Apply (Apply (Apply EnumFromThenToSym0 t_a38Ox) t_a38Oy) t_a38Oz :: [a_a38Hz]) sEnumFromTo :: forall (t_a38Ot :: a_a38Hz) (t_a38Ou :: a_a38Hz). (SEnum a_a38Hz, (Apply (Apply EnumFromToSym0 t_a38Ot) t_a38Ou :: [a_a38Hz]) ~ Apply (Apply EnumFromTo_6989586621679758515Sym0 t_a38Ot) t_a38Ou) => Sing t_a38Ot -> Sing t_a38Ou -> Sing (Apply (Apply EnumFromToSym0 t_a38Ot) t_a38Ou :: [a_a38Hz]) sEnumFromThenTo :: forall (t_a38Ox :: a_a38Hz) (t_a38Oy :: a_a38Hz) (t_a38Oz :: a_a38Hz). (SEnum a_a38Hz, (Apply (Apply (Apply EnumFromThenToSym0 t_a38Ox) t_a38Oy) t_a38Oz :: [a_a38Hz]) ~ Apply (Apply (Apply EnumFromThenTo_6989586621679758527Sym0 t_a38Ox) t_a38Oy) t_a38Oz) => Sing t_a38Ox -> Sing t_a38Oy -> Sing t_a38Oz -> Sing (Apply (Apply (Apply EnumFromThenToSym0 t_a38Ox) t_a38Oy) t_a38Oz :: [a_a38Hz]) class PEnum a_a38Hz where { type family ToEnum (arg_a38Lv :: Nat) :: a_a38Hz; type family FromEnum (arg_a38Ly :: a_a38Hz) :: Nat; type family EnumFromTo (arg_a38LB :: a_a38Hz) (arg_a38LC :: a_a38Hz) :: [a_a38Hz]; type family EnumFromThenTo (arg_a38LG :: a_a38Hz) (arg_a38LH :: a_a38Hz) (arg_a38LI :: a_a38Hz) :: [a_a38Hz]; type Succ a_a38LN = Apply Succ_6989586621679758492Sym0 a_a38LN; type Pred a_a38M0 = Apply Pred_6989586621679758505Sym0 a_a38M0; type EnumFromTo a_a38M9 a_a38Ma = Apply (Apply EnumFromTo_6989586621679758515Sym0 a_a38M9) a_a38Ma; type EnumFromThenTo a_a38Mk a_a38Ml a_a38Mm = Apply (Apply (Apply EnumFromThenTo_6989586621679758527Sym0 a_a38Mk) a_a38Ml) a_a38Mm; } type EnumFromThenToSym3 (a6989586621679758488 :: a_a38Hz) (a6989586621679758489 :: a_a38Hz) (a6989586621679758490 :: a_a38Hz) = EnumFromThenTo a6989586621679758488 a6989586621679758489 a6989586621679758490 :: [a_a38Hz] data EnumFromThenToSym2 a6989586621679758488 a6989586621679758489 a6989586621679758490 data EnumFromThenToSym1 a6989586621679758488 a6989586621679758489 data EnumFromThenToSym0 a6989586621679758488 type EnumFromToSym2 (a6989586621679758482 :: a_a38Hz) (a6989586621679758483 :: a_a38Hz) = EnumFromTo a6989586621679758482 a6989586621679758483 :: [a_a38Hz] data EnumFromToSym1 a6989586621679758482 a6989586621679758483 data EnumFromToSym0 a6989586621679758482 type FromEnumSym1 (a6989586621679758478 :: a_a38Hz) = FromEnum a6989586621679758478 :: Nat data FromEnumSym0 a6989586621679758478 type ToEnumSym1 (a6989586621679758475 :: Nat) = ToEnum a6989586621679758475 :: a_a38Hz data ToEnumSym0 a6989586621679758475 -- | Exponentiation of type-level naturals. type family (a :: Nat) ^ (b :: Nat) :: Nat infixr 8 ^ -- | The singleton analogue of (^) for Nats. (%^) :: Sing a -> Sing b -> Sing (a ^ b) infixr 8 %^ class PShow a_a5kd9 where { type family ShowsPrec (arg_a5kkc :: Nat) (arg_a5kkd :: a_a5kd9) (arg_a5kke :: Symbol) :: Symbol; type family Show_ (arg_a5kkj :: a_a5kd9) :: Symbol; type family ShowList (arg_a5kkm :: [a_a5kd9]) (arg_a5kkn :: Symbol) :: Symbol; type ShowsPrec a_a5kkr a_a5kks a_a5kkt = Apply (Apply (Apply ShowsPrec_6989586621680279582Sym0 a_a5kkr) a_a5kks) a_a5kkt; type Show_ a_a5kkF = Apply Show__6989586621680279594Sym0 a_a5kkF; type ShowList a_a5kkM a_a5kkN = Apply (Apply ShowList_6989586621680279602Sym0 a_a5kkM) a_a5kkN; } class SShow a_a5kd9 sShowsPrec :: forall (t_a5ko5 :: Nat) (t_a5ko6 :: a_a5kd9) (t_a5ko7 :: Symbol). SShow a_a5kd9 => Sing t_a5ko5 -> Sing t_a5ko6 -> Sing t_a5ko7 -> Sing (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) sShow_ :: forall (t_a5kob :: a_a5kd9). SShow a_a5kd9 => Sing t_a5kob -> Sing (Apply Show_Sym0 t_a5kob :: Symbol) sShowList :: forall (t_a5kod :: [a_a5kd9]) (t_a5koe :: Symbol). SShow a_a5kd9 => Sing t_a5kod -> Sing t_a5koe -> Sing (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) sShowsPrec :: forall (t_a5ko5 :: Nat) (t_a5ko6 :: a_a5kd9) (t_a5ko7 :: Symbol). (SShow a_a5kd9, (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) ~ Apply (Apply (Apply ShowsPrec_6989586621680279582Sym0 t_a5ko5) t_a5ko6) t_a5ko7) => Sing t_a5ko5 -> Sing t_a5ko6 -> Sing t_a5ko7 -> Sing (Apply (Apply (Apply ShowsPrecSym0 t_a5ko5) t_a5ko6) t_a5ko7 :: Symbol) sShow_ :: forall (t_a5kob :: a_a5kd9). (SShow a_a5kd9, (Apply Show_Sym0 t_a5kob :: Symbol) ~ Apply Show__6989586621680279594Sym0 t_a5kob) => Sing t_a5kob -> Sing (Apply Show_Sym0 t_a5kob :: Symbol) sShowList :: forall (t_a5kod :: [a_a5kd9]) (t_a5koe :: Symbol). (SShow a_a5kd9, (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) ~ Apply (Apply ShowList_6989586621680279602Sym0 t_a5kod) t_a5koe) => Sing t_a5kod -> Sing t_a5koe -> Sing (Apply (Apply ShowListSym0 t_a5kod) t_a5koe :: Symbol) -- | The shows functions return a function that prepends the -- output String to an existing String. This allows -- constant-time concatenation of results using function composition. type ShowS = String -> String -- | GHC currently has no notion of type-level Chars, so we fake -- them with single-character Symbols. type SChar = Symbol type family Shows a_a5kk5 a_a5kk6 sShows :: forall a_a5kcU (t_a5knG :: a_a5kcU) (t_a5knH :: Symbol). SShow a_a5kcU => Sing t_a5knG -> Sing t_a5knH -> Sing (Apply (Apply ShowsSym0 t_a5knG) t_a5knH :: Symbol) type family ShowChar a_a5kjF a_a5kjG sShowChar :: forall (t_a5knw :: Symbol) (t_a5knx :: Symbol). Sing t_a5knw -> Sing t_a5knx -> Sing (Apply (Apply ShowCharSym0 t_a5knw) t_a5knx :: Symbol) type family ShowString a_a5kju a_a5kjv sShowString :: forall (t_a5kns :: Symbol) (t_a5knt :: Symbol). Sing t_a5kns -> Sing t_a5knt -> Sing (Apply (Apply ShowStringSym0 t_a5kns) t_a5knt :: Symbol) type family ShowParen a_a5kjd a_a5kje a_a5kjf sShowParen :: forall (t_a5knm :: Bool) (t_a5knn :: (~>) Symbol Symbol) (t_a5kno :: Symbol). Sing t_a5knm -> Sing t_a5knn -> Sing t_a5kno -> Sing (Apply (Apply (Apply ShowParenSym0 t_a5knm) t_a5knn) t_a5kno :: Symbol) class PSemigroup a_a3rto where { type family (<>) (arg_a3rxb :: a_a3rto) (arg_a3rxc :: a_a3rto) :: a_a3rto; type Sconcat a_a3rxj = Apply Sconcat_6989586621679830630Sym0 a_a3rxj; } infixr 6 <> class SSemigroup a_a3rto (%<>) :: forall (t_a3rAs :: a_a3rto) (t_a3rAt :: a_a3rto). SSemigroup a_a3rto => Sing t_a3rAs -> Sing t_a3rAt -> Sing (Apply (Apply (<>@#@$) t_a3rAs) t_a3rAt :: a_a3rto) infixr 6 %<> class PMonoid a_a5BTv where { type family Mempty :: a_a5BTv; type family Mappend (arg_a5BVL :: a_a5BTv) (arg_a5BVM :: a_a5BTv) :: a_a5BTv; type family Mconcat (arg_a5BVQ :: [a_a5BTv]) :: a_a5BTv; type Mappend a_a5BVT a_a5BVU = Apply (Apply Mappend_6989586621680347251Sym0 a_a5BVT) a_a5BVU; type Mconcat a_a5BW8 = Apply Mconcat_6989586621680347265Sym0 a_a5BW8; } class SSemigroup a_a5BTv => SMonoid a_a5BTv sMempty :: SMonoid a_a5BTv => Sing (MemptySym0 :: a_a5BTv) sMappend :: forall (t_a5BX0 :: a_a5BTv) (t_a5BX1 :: a_a5BTv). SMonoid a_a5BTv => Sing t_a5BX0 -> Sing t_a5BX1 -> Sing (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) sMconcat :: forall (t_a5BX4 :: [a_a5BTv]). SMonoid a_a5BTv => Sing t_a5BX4 -> Sing (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) sMappend :: forall (t_a5BX0 :: a_a5BTv) (t_a5BX1 :: a_a5BTv). (SMonoid a_a5BTv, (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) ~ Apply (Apply Mappend_6989586621680347251Sym0 t_a5BX0) t_a5BX1) => Sing t_a5BX0 -> Sing t_a5BX1 -> Sing (Apply (Apply MappendSym0 t_a5BX0) t_a5BX1 :: a_a5BTv) sMconcat :: forall (t_a5BX4 :: [a_a5BTv]). (SMonoid a_a5BTv, (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) ~ Apply Mconcat_6989586621680347265Sym0 t_a5BX4) => Sing t_a5BX4 -> Sing (Apply MconcatSym0 t_a5BX4 :: a_a5BTv) class PFunctor f_a2iYg where { type family Fmap (arg_a2j2U :: (~>) a_a2iYh b_a2iYi) (arg_a2j2V :: f_a2iYg a_a2iYh) :: f_a2iYg b_a2iYi; type family (<$) (arg_a2j2Z :: a_a2iYj) (arg_a2j30 :: f_a2iYg b_a2iYk) :: f_a2iYg a_a2iYj; type (<$) a_a2j34 a_a2j35 = Apply (Apply TFHelper_6989586621679559676Sym0 a_a2j34) a_a2j35; } infixl 4 <$ class SFunctor f_a2iYg sFmap :: forall a_a2iYh b_a2iYi (t_a2j7g :: (~>) a_a2iYh b_a2iYi) (t_a2j7h :: f_a2iYg a_a2iYh). SFunctor f_a2iYg => Sing t_a2j7g -> Sing t_a2j7h -> Sing (Apply (Apply FmapSym0 t_a2j7g) t_a2j7h :: f_a2iYg b_a2iYi) (%<$) :: forall a_a2iYj b_a2iYk (t_a2j7k :: a_a2iYj) (t_a2j7l :: f_a2iYg b_a2iYk). SFunctor f_a2iYg => Sing t_a2j7k -> Sing t_a2j7l -> Sing (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) (%<$) :: forall a_a2iYj b_a2iYk (t_a2j7k :: a_a2iYj) (t_a2j7l :: f_a2iYg b_a2iYk). (SFunctor f_a2iYg, (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) ~ Apply (Apply TFHelper_6989586621679559676Sym0 t_a2j7k) t_a2j7l) => Sing t_a2j7k -> Sing t_a2j7l -> Sing (Apply (Apply (<$@#@$) t_a2j7k) t_a2j7l :: f_a2iYg a_a2iYj) infixl 4 %<$ type family (<$>) a_a31Mv a_a31Mw infixl 4 <$> (%<$>) :: forall a_a31L9 b_a31La f_a31L8 (t_a31NM :: (~>) a_a31L9 b_a31La) (t_a31NN :: f_a31L8 a_a31L9). SFunctor f_a31L8 => Sing t_a31NM -> Sing t_a31NN -> Sing (Apply (Apply (<$>@#@$) t_a31NM) t_a31NN :: f_a31L8 b_a31La) infixl 4 %<$> class PApplicative f_a2iYl where { type family Pure (arg_a2j3j :: a_a2iYm) :: f_a2iYl a_a2iYm; type family (<*>) (arg_a2j3m :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (arg_a2j3n :: f_a2iYl a_a2iYn) :: f_a2iYl b_a2iYo; type family (*>) (arg_a2j3y :: f_a2iYl a_a2iYs) (arg_a2j3z :: f_a2iYl b_a2iYt) :: f_a2iYl b_a2iYt; type family (<*) (arg_a2j3D :: f_a2iYl a_a2iYu) (arg_a2j3E :: f_a2iYl b_a2iYv) :: f_a2iYl a_a2iYu; type (<*>) a_a2j3I a_a2j3J = Apply (Apply TFHelper_6989586621679559716Sym0 a_a2j3I) a_a2j3J; type LiftA2 a_a2j3X a_a2j3Y a_a2j3Z = Apply (Apply (Apply LiftA2_6989586621679559732Sym0 a_a2j3X) a_a2j3Y) a_a2j3Z; type (*>) a_a2j4e a_a2j4f = Apply (Apply TFHelper_6989586621679559748Sym0 a_a2j4e) a_a2j4f; type (<*) a_a2j4p a_a2j4q = Apply (Apply TFHelper_6989586621679559759Sym0 a_a2j4p) a_a2j4q; } infixl 4 <*> infixl 4 *> infixl 4 <* class SFunctor f_a2iYl => SApplicative f_a2iYl sPure :: forall a_a2iYm (t_a2j7q :: a_a2iYm). SApplicative f_a2iYl => Sing t_a2j7q -> Sing (Apply PureSym0 t_a2j7q :: f_a2iYl a_a2iYm) (%<*>) :: forall a_a2iYn b_a2iYo (t_a2j7s :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (t_a2j7t :: f_a2iYl a_a2iYn). SApplicative f_a2iYl => Sing t_a2j7s -> Sing t_a2j7t -> Sing (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) (%*>) :: forall a_a2iYs b_a2iYt (t_a2j7C :: f_a2iYl a_a2iYs) (t_a2j7D :: f_a2iYl b_a2iYt). SApplicative f_a2iYl => Sing t_a2j7C -> Sing t_a2j7D -> Sing (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) (%<*) :: forall a_a2iYu b_a2iYv (t_a2j7G :: f_a2iYl a_a2iYu) (t_a2j7H :: f_a2iYl b_a2iYv). SApplicative f_a2iYl => Sing t_a2j7G -> Sing t_a2j7H -> Sing (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) (%<*>) :: forall a_a2iYn b_a2iYo (t_a2j7s :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (t_a2j7t :: f_a2iYl a_a2iYn). (SApplicative f_a2iYl, (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) ~ Apply (Apply TFHelper_6989586621679559716Sym0 t_a2j7s) t_a2j7t) => Sing t_a2j7s -> Sing t_a2j7t -> Sing (Apply (Apply (<*>@#@$) t_a2j7s) t_a2j7t :: f_a2iYl b_a2iYo) (%*>) :: forall a_a2iYs b_a2iYt (t_a2j7C :: f_a2iYl a_a2iYs) (t_a2j7D :: f_a2iYl b_a2iYt). (SApplicative f_a2iYl, (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) ~ Apply (Apply TFHelper_6989586621679559748Sym0 t_a2j7C) t_a2j7D) => Sing t_a2j7C -> Sing t_a2j7D -> Sing (Apply (Apply (*>@#@$) t_a2j7C) t_a2j7D :: f_a2iYl b_a2iYt) (%<*) :: forall a_a2iYu b_a2iYv (t_a2j7G :: f_a2iYl a_a2iYu) (t_a2j7H :: f_a2iYl b_a2iYv). (SApplicative f_a2iYl, (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) ~ Apply (Apply TFHelper_6989586621679559759Sym0 t_a2j7G) t_a2j7H) => Sing t_a2j7G -> Sing t_a2j7H -> Sing (Apply (Apply (<*@#@$) t_a2j7G) t_a2j7H :: f_a2iYl a_a2iYu) infixl 4 %<*> infixl 4 %*> infixl 4 %<* class PMonad m_a2iYJ where { type family (>>=) (arg_a2j4E :: m_a2iYJ a_a2iYK) (arg_a2j4F :: (~>) a_a2iYK (m_a2iYJ b_a2iYL)) :: m_a2iYJ b_a2iYL; type family (>>) (arg_a2j4J :: m_a2iYJ a_a2iYM) (arg_a2j4K :: m_a2iYJ b_a2iYN) :: m_a2iYJ b_a2iYN; type family Return (arg_a2j4O :: a_a2iYO) :: m_a2iYJ a_a2iYO; type (>>) a_a2j4R a_a2j4S = Apply (Apply TFHelper_6989586621679559787Sym0 a_a2j4R) a_a2j4S; type Return a_a2j59 = Apply Return_6989586621679559804Sym0 a_a2j59; } infixl 1 >>= infixl 1 >> class SApplicative m_a2iYJ => SMonad m_a2iYJ (%>>=) :: forall a_a2iYK b_a2iYL (t_a2j7R :: m_a2iYJ a_a2iYK) (t_a2j7S :: (~>) a_a2iYK (m_a2iYJ b_a2iYL)). SMonad m_a2iYJ => Sing t_a2j7R -> Sing t_a2j7S -> Sing (Apply (Apply (>>=@#@$) t_a2j7R) t_a2j7S :: m_a2iYJ b_a2iYL) (%>>) :: forall a_a2iYM b_a2iYN (t_a2j7V :: m_a2iYJ a_a2iYM) (t_a2j7W :: m_a2iYJ b_a2iYN). SMonad m_a2iYJ => Sing t_a2j7V -> Sing t_a2j7W -> Sing (Apply (Apply (>>@#@$) t_a2j7V) t_a2j7W :: m_a2iYJ b_a2iYN) sReturn :: forall a_a2iYO (t_a2j7Z :: a_a2iYO). SMonad m_a2iYJ => Sing t_a2j7Z -> Sing (Apply ReturnSym0 t_a2j7Z :: m_a2iYJ a_a2iYO) (%>>) :: forall a_a2iYM b_a2iYN (t_a2j7V :: m_a2iYJ a_a2iYM) (t_a2j7W :: m_a2iYJ b_a2iYN). (SMonad m_a2iYJ, (Apply (Apply (>>@#@$) t_a2j7V) t_a2j7W :: m_a2iYJ b_a2iYN) ~ Apply (Apply TFHelper_6989586621679559787Sym0 t_a2j7V) t_a2j7W) => Sing t_a2j7V -> Sing t_a2j7W -> Sing (Apply (Apply (>>@#@$) t_a2j7V) t_a2j7W :: m_a2iYJ b_a2iYN) sReturn :: forall a_a2iYO (t_a2j7Z :: a_a2iYO). (SMonad m_a2iYJ, (Apply ReturnSym0 t_a2j7Z :: m_a2iYJ a_a2iYO) ~ Apply Return_6989586621679559804Sym0 t_a2j7Z) => Sing t_a2j7Z -> Sing (Apply ReturnSym0 t_a2j7Z :: m_a2iYJ a_a2iYO) infixl 1 %>>= infixl 1 %>> class PMonadFail m_a31ec where { type family Fail (arg_a31ew :: [Char]) :: m_a31ec a_a31ed; } class SMonad m_a31ec => SMonadFail m_a31ec sFail :: forall a_a31ed (t_a31eL :: [Char]). SMonadFail m_a31ec => Sing t_a31eL -> Sing (Apply FailSym0 t_a31eL :: m_a31ec a_a31ed) type family MapM_ a_a6dGE a_a6dGF sMapM_ :: forall a_a6dxE m_a6dxD b_a6dxF t_a6dxC (t_a6e3b :: (~>) a_a6dxE (m_a6dxD b_a6dxF)) (t_a6e3c :: t_a6dxC a_a6dxE). (SFoldable t_a6dxC, SMonad m_a6dxD) => Sing t_a6e3b -> Sing t_a6e3c -> Sing (Apply (Apply MapM_Sym0 t_a6e3b) t_a6e3c :: m_a6dxD ()) type family Sequence_ a_a6dGh sSequence_ :: forall t_a6dxs m_a6dxt a_a6dxu (t_a6e33 :: t_a6dxs (m_a6dxt a_a6dxu)). (SFoldable t_a6dxs, SMonad m_a6dxt) => Sing t_a6e33 -> Sing (Apply Sequence_Sym0 t_a6e33 :: m_a6dxt ()) type family (=<<) a_a2j29 a_a2j2a infixr 1 =<< (%=<<) :: forall a_a2iXv m_a2iXu b_a2iXw (t_a2j6A :: (~>) a_a2iXv (m_a2iXu b_a2iXw)) (t_a2j6B :: m_a2iXu a_a2iXv). SMonad m_a2iXu => Sing t_a2j6A -> Sing t_a2j6B -> Sing (Apply (Apply (=<<@#@$) t_a2j6A) t_a2j6B :: m_a2iXu b_a2iXw) infixr 1 %=<< class PFoldable t_a6dyx where { type family FoldMap (arg_a6dHI :: (~>) a_a6dyA m_a6dyz) (arg_a6dHJ :: t_a6dyx a_a6dyA) :: m_a6dyz; type family Foldr (arg_a6dHN :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (arg_a6dHO :: b_a6dyC) (arg_a6dHP :: t_a6dyx a_a6dyB) :: b_a6dyC; type family Foldl (arg_a6dI1 :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (arg_a6dI2 :: b_a6dyF) (arg_a6dI3 :: t_a6dyx a_a6dyG) :: b_a6dyF; type family Foldr1 (arg_a6dIf :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (arg_a6dIg :: t_a6dyx a_a6dyJ) :: a_a6dyJ; type family Foldl1 (arg_a6dIk :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (arg_a6dIl :: t_a6dyx a_a6dyK) :: a_a6dyK; type family Elem (arg_a6dIy :: a_a6dyO) (arg_a6dIz :: t_a6dyx a_a6dyO) :: Bool; type family Maximum (arg_a6dID :: t_a6dyx a_a6dyP) :: a_a6dyP; type family Minimum (arg_a6dIG :: t_a6dyx a_a6dyQ) :: a_a6dyQ; type family Sum (arg_a6dIJ :: t_a6dyx a_a6dyR) :: a_a6dyR; type family Product (arg_a6dIM :: t_a6dyx a_a6dyS) :: a_a6dyS; type Fold a_a6dIP = Apply Fold_6989586621680492512Sym0 a_a6dIP; type FoldMap a_a6dIY a_a6dIZ = Apply (Apply FoldMap_6989586621680492522Sym0 a_a6dIY) a_a6dIZ; type Foldr a_a6dJb a_a6dJc a_a6dJd = Apply (Apply (Apply Foldr_6989586621680492536Sym0 a_a6dJb) a_a6dJc) a_a6dJd; type Foldr' a_a6dJq a_a6dJr a_a6dJs = Apply (Apply (Apply Foldr'_6989586621680492551Sym0 a_a6dJq) a_a6dJr) a_a6dJs; type Foldl a_a6dJN a_a6dJO a_a6dJP = Apply (Apply (Apply Foldl_6989586621680492574Sym0 a_a6dJN) a_a6dJO) a_a6dJP; type Foldl' a_a6dK2 a_a6dK3 a_a6dK4 = Apply (Apply (Apply Foldl'_6989586621680492589Sym0 a_a6dK2) a_a6dK3) a_a6dK4; type Foldr1 a_a6dKp a_a6dKq = Apply (Apply Foldr1_6989586621680492611Sym0 a_a6dKp) a_a6dKq; type Foldl1 a_a6dKK a_a6dKL = Apply (Apply Foldl1_6989586621680492632Sym0 a_a6dKK) a_a6dKL; type ToList a_a6dL5 = Apply ToList_6989586621680492652Sym0 a_a6dL5; type Null a_a6dLe = Apply Null_6989586621680492661Sym0 a_a6dLe; type Length a_a6dLv = Apply Length_6989586621680492678Sym0 a_a6dLv; type Elem a_a6dLN a_a6dLO = Apply (Apply Elem_6989586621680492697Sym0 a_a6dLN) a_a6dLO; type Maximum a_a6dM2 = Apply Maximum_6989586621680492711Sym0 a_a6dM2; type Minimum a_a6dMh = Apply Minimum_6989586621680492726Sym0 a_a6dMh; type Sum a_a6dMw = Apply Sum_6989586621680492741Sym0 a_a6dMw; type Product a_a6dMF = Apply Product_6989586621680492750Sym0 a_a6dMF; } class SFoldable t_a6dyx sFoldMap :: forall a_a6dyA m_a6dyz (t_a6e4m :: (~>) a_a6dyA m_a6dyz) (t_a6e4n :: t_a6dyx a_a6dyA). (SFoldable t_a6dyx, SMonoid m_a6dyz) => Sing t_a6e4m -> Sing t_a6e4n -> Sing (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) sFoldr :: forall a_a6dyB b_a6dyC (t_a6e4q :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (t_a6e4r :: b_a6dyC) (t_a6e4s :: t_a6dyx a_a6dyB). SFoldable t_a6dyx => Sing t_a6e4q -> Sing t_a6e4r -> Sing t_a6e4s -> Sing (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) sFoldl :: forall b_a6dyF a_a6dyG (t_a6e4C :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (t_a6e4D :: b_a6dyF) (t_a6e4E :: t_a6dyx a_a6dyG). SFoldable t_a6dyx => Sing t_a6e4C -> Sing t_a6e4D -> Sing t_a6e4E -> Sing (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) sFoldr1 :: forall a_a6dyJ (t_a6e4O :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (t_a6e4P :: t_a6dyx a_a6dyJ). SFoldable t_a6dyx => Sing t_a6e4O -> Sing t_a6e4P -> Sing (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) sFoldl1 :: forall a_a6dyK (t_a6e4S :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (t_a6e4T :: t_a6dyx a_a6dyK). SFoldable t_a6dyx => Sing t_a6e4S -> Sing t_a6e4T -> Sing (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) sElem :: forall a_a6dyO (t_a6e52 :: a_a6dyO) (t_a6e53 :: t_a6dyx a_a6dyO). (SFoldable t_a6dyx, SEq a_a6dyO) => Sing t_a6e52 -> Sing t_a6e53 -> Sing (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) sMaximum :: forall a_a6dyP (t_a6e56 :: t_a6dyx a_a6dyP). (SFoldable t_a6dyx, SOrd a_a6dyP) => Sing t_a6e56 -> Sing (Apply MaximumSym0 t_a6e56 :: a_a6dyP) sMinimum :: forall a_a6dyQ (t_a6e58 :: t_a6dyx a_a6dyQ). (SFoldable t_a6dyx, SOrd a_a6dyQ) => Sing t_a6e58 -> Sing (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) sSum :: forall a_a6dyR (t_a6e5a :: t_a6dyx a_a6dyR). (SFoldable t_a6dyx, SNum a_a6dyR) => Sing t_a6e5a -> Sing (Apply SumSym0 t_a6e5a :: a_a6dyR) sProduct :: forall a_a6dyS (t_a6e5c :: t_a6dyx a_a6dyS). (SFoldable t_a6dyx, SNum a_a6dyS) => Sing t_a6e5c -> Sing (Apply ProductSym0 t_a6e5c :: a_a6dyS) sFoldMap :: forall a_a6dyA m_a6dyz (t_a6e4m :: (~>) a_a6dyA m_a6dyz) (t_a6e4n :: t_a6dyx a_a6dyA). (SFoldable t_a6dyx, (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) ~ Apply (Apply FoldMap_6989586621680492522Sym0 t_a6e4m) t_a6e4n, SMonoid m_a6dyz) => Sing t_a6e4m -> Sing t_a6e4n -> Sing (Apply (Apply FoldMapSym0 t_a6e4m) t_a6e4n :: m_a6dyz) sFoldr :: forall a_a6dyB b_a6dyC (t_a6e4q :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (t_a6e4r :: b_a6dyC) (t_a6e4s :: t_a6dyx a_a6dyB). (SFoldable t_a6dyx, (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) ~ Apply (Apply (Apply Foldr_6989586621680492536Sym0 t_a6e4q) t_a6e4r) t_a6e4s) => Sing t_a6e4q -> Sing t_a6e4r -> Sing t_a6e4s -> Sing (Apply (Apply (Apply FoldrSym0 t_a6e4q) t_a6e4r) t_a6e4s :: b_a6dyC) sFoldl :: forall b_a6dyF a_a6dyG (t_a6e4C :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (t_a6e4D :: b_a6dyF) (t_a6e4E :: t_a6dyx a_a6dyG). (SFoldable t_a6dyx, (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) ~ Apply (Apply (Apply Foldl_6989586621680492574Sym0 t_a6e4C) t_a6e4D) t_a6e4E) => Sing t_a6e4C -> Sing t_a6e4D -> Sing t_a6e4E -> Sing (Apply (Apply (Apply FoldlSym0 t_a6e4C) t_a6e4D) t_a6e4E :: b_a6dyF) sFoldr1 :: forall a_a6dyJ (t_a6e4O :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (t_a6e4P :: t_a6dyx a_a6dyJ). (SFoldable t_a6dyx, (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) ~ Apply (Apply Foldr1_6989586621680492611Sym0 t_a6e4O) t_a6e4P) => Sing t_a6e4O -> Sing t_a6e4P -> Sing (Apply (Apply Foldr1Sym0 t_a6e4O) t_a6e4P :: a_a6dyJ) sFoldl1 :: forall a_a6dyK (t_a6e4S :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (t_a6e4T :: t_a6dyx a_a6dyK). (SFoldable t_a6dyx, (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) ~ Apply (Apply Foldl1_6989586621680492632Sym0 t_a6e4S) t_a6e4T) => Sing t_a6e4S -> Sing t_a6e4T -> Sing (Apply (Apply Foldl1Sym0 t_a6e4S) t_a6e4T :: a_a6dyK) sElem :: forall a_a6dyO (t_a6e52 :: a_a6dyO) (t_a6e53 :: t_a6dyx a_a6dyO). (SFoldable t_a6dyx, (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) ~ Apply (Apply Elem_6989586621680492697Sym0 t_a6e52) t_a6e53, SEq a_a6dyO) => Sing t_a6e52 -> Sing t_a6e53 -> Sing (Apply (Apply ElemSym0 t_a6e52) t_a6e53 :: Bool) sMaximum :: forall a_a6dyP (t_a6e56 :: t_a6dyx a_a6dyP). (SFoldable t_a6dyx, (Apply MaximumSym0 t_a6e56 :: a_a6dyP) ~ Apply Maximum_6989586621680492711Sym0 t_a6e56, SOrd a_a6dyP) => Sing t_a6e56 -> Sing (Apply MaximumSym0 t_a6e56 :: a_a6dyP) sMinimum :: forall a_a6dyQ (t_a6e58 :: t_a6dyx a_a6dyQ). (SFoldable t_a6dyx, (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) ~ Apply Minimum_6989586621680492726Sym0 t_a6e58, SOrd a_a6dyQ) => Sing t_a6e58 -> Sing (Apply MinimumSym0 t_a6e58 :: a_a6dyQ) sSum :: forall a_a6dyR (t_a6e5a :: t_a6dyx a_a6dyR). (SFoldable t_a6dyx, (Apply SumSym0 t_a6e5a :: a_a6dyR) ~ Apply Sum_6989586621680492741Sym0 t_a6e5a, SNum a_a6dyR) => Sing t_a6e5a -> Sing (Apply SumSym0 t_a6e5a :: a_a6dyR) sProduct :: forall a_a6dyS (t_a6e5c :: t_a6dyx a_a6dyS). (SFoldable t_a6dyx, (Apply ProductSym0 t_a6e5c :: a_a6dyS) ~ Apply Product_6989586621680492750Sym0 t_a6e5c, SNum a_a6dyS) => Sing t_a6e5c -> Sing (Apply ProductSym0 t_a6e5c :: a_a6dyS) class PTraversable t_a7A47 where { type family Traverse (arg_a7A4j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (arg_a7A4k :: t_a7A47 a_a7A49) :: f_a7A48 (t_a7A47 b_a7A4a); type family SequenceA (arg_a7A4o :: t_a7A47 (f_a7A4b a_a7A4c)) :: f_a7A4b (t_a7A47 a_a7A4c); type family MapM (arg_a7A4r :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (arg_a7A4s :: t_a7A47 a_a7A4e) :: m_a7A4d (t_a7A47 b_a7A4f); type family Sequence (arg_a7A4w :: t_a7A47 (m_a7A4g a_a7A4h)) :: m_a7A4g (t_a7A47 a_a7A4h); type Traverse a_a7A4z a_a7A4A = Apply (Apply Traverse_6989586621680816757Sym0 a_a7A4z) a_a7A4A; type SequenceA a_a7A4M = Apply SequenceA_6989586621680816769Sym0 a_a7A4M; type MapM a_a7A4V a_a7A4W = Apply (Apply MapM_6989586621680816779Sym0 a_a7A4V) a_a7A4W; type Sequence a_a7A5a = Apply Sequence_6989586621680816793Sym0 a_a7A5a; } class (SFunctor t_a7A47, SFoldable t_a7A47) => STraversable t_a7A47 sTraverse :: forall a_a7A49 f_a7A48 b_a7A4a (t_a7A5j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (t_a7A5k :: t_a7A47 a_a7A49). (STraversable t_a7A47, SApplicative f_a7A48) => Sing t_a7A5j -> Sing t_a7A5k -> Sing (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) sSequenceA :: forall f_a7A4b a_a7A4c (t_a7A5n :: t_a7A47 (f_a7A4b a_a7A4c)). (STraversable t_a7A47, SApplicative f_a7A4b) => Sing t_a7A5n -> Sing (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) sMapM :: forall a_a7A4e m_a7A4d b_a7A4f (t_a7A5p :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (t_a7A5q :: t_a7A47 a_a7A4e). (STraversable t_a7A47, SMonad m_a7A4d) => Sing t_a7A5p -> Sing t_a7A5q -> Sing (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) sSequence :: forall m_a7A4g a_a7A4h (t_a7A5t :: t_a7A47 (m_a7A4g a_a7A4h)). (STraversable t_a7A47, SMonad m_a7A4g) => Sing t_a7A5t -> Sing (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) sTraverse :: forall a_a7A49 f_a7A48 b_a7A4a (t_a7A5j :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (t_a7A5k :: t_a7A47 a_a7A49). (STraversable t_a7A47, (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) ~ Apply (Apply Traverse_6989586621680816757Sym0 t_a7A5j) t_a7A5k, SApplicative f_a7A48) => Sing t_a7A5j -> Sing t_a7A5k -> Sing (Apply (Apply TraverseSym0 t_a7A5j) t_a7A5k :: f_a7A48 (t_a7A47 b_a7A4a)) sSequenceA :: forall f_a7A4b a_a7A4c (t_a7A5n :: t_a7A47 (f_a7A4b a_a7A4c)). (STraversable t_a7A47, (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) ~ Apply SequenceA_6989586621680816769Sym0 t_a7A5n, SApplicative f_a7A4b) => Sing t_a7A5n -> Sing (Apply SequenceASym0 t_a7A5n :: f_a7A4b (t_a7A47 a_a7A4c)) sMapM :: forall a_a7A4e m_a7A4d b_a7A4f (t_a7A5p :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (t_a7A5q :: t_a7A47 a_a7A4e). (STraversable t_a7A47, (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) ~ Apply (Apply MapM_6989586621680816779Sym0 t_a7A5p) t_a7A5q, SMonad m_a7A4d) => Sing t_a7A5p -> Sing t_a7A5q -> Sing (Apply (Apply MapMSym0 t_a7A5p) t_a7A5q :: m_a7A4d (t_a7A47 b_a7A4f)) sSequence :: forall m_a7A4g a_a7A4h (t_a7A5t :: t_a7A47 (m_a7A4g a_a7A4h)). (STraversable t_a7A47, (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) ~ Apply Sequence_6989586621680816793Sym0 t_a7A5t, SMonad m_a7A4g) => Sing t_a7A5t -> Sing (Apply SequenceSym0 t_a7A5t :: m_a7A4g (t_a7A47 a_a7A4h)) type family Id a_a2cqf sId :: forall a_a2cn9 (t_a2crt :: a_a2cn9). Sing t_a2crt -> Sing (Apply IdSym0 t_a2crt :: a_a2cn9) type family Const a_a2cq9 a_a2cqa sConst :: forall a_a2cn7 b_a2cn8 (t_a2crp :: a_a2cn7) (t_a2crq :: b_a2cn8). Sing t_a2crp -> Sing t_a2crq -> Sing (Apply (Apply ConstSym0 t_a2crp) t_a2crq :: a_a2cn7) type family (.) a_a2cpV a_a2cpW a_a2cpX infixr 9 . (%.) :: forall b_a2cn4 c_a2cn5 a_a2cn6 (t_a2crj :: (~>) b_a2cn4 c_a2cn5) (t_a2crk :: (~>) a_a2cn6 b_a2cn4) (t_a2crl :: a_a2cn6). Sing t_a2crj -> Sing t_a2crk -> Sing t_a2crl -> Sing (Apply (Apply (Apply (.@#@$) t_a2crj) t_a2crk) t_a2crl :: c_a2cn5) infixr 9 %. type family ($) a_a2cpr a_a2cps infixr 0 $ (%$) :: forall a_a2cmY b_a2cmZ (t_a2cr5 :: (~>) a_a2cmY b_a2cmZ) (t_a2cr6 :: a_a2cmY). Sing t_a2cr5 -> Sing t_a2cr6 -> Sing (Apply (Apply ($@#@$) t_a2cr5) t_a2cr6 :: b_a2cmZ) infixr 0 %$ type family ($!) a_a2cpi a_a2cpj infixr 0 $! (%$!) :: forall a_a2cmW b_a2cmX (t_a2cr1 :: (~>) a_a2cmW b_a2cmX) (t_a2cr2 :: a_a2cmW). Sing t_a2cr1 -> Sing t_a2cr2 -> Sing (Apply (Apply ($!@#@$) t_a2cr1) t_a2cr2 :: b_a2cmX) infixr 0 %$! type family Flip a_a2cpJ a_a2cpK a_a2cpL sFlip :: forall a_a2cn1 b_a2cn2 c_a2cn3 (t_a2crd :: (~>) a_a2cn1 ((~>) b_a2cn2 c_a2cn3)) (t_a2cre :: b_a2cn2) (t_a2crf :: a_a2cn1). Sing t_a2crd -> Sing t_a2cre -> Sing t_a2crf -> Sing (Apply (Apply (Apply FlipSym0 t_a2crd) t_a2cre) t_a2crf :: c_a2cn3) type family AsTypeOf a_a2cpC a_a2cpD sAsTypeOf :: forall a_a2cn0 (t_a2cr9 :: a_a2cn0) (t_a2cra :: a_a2cn0). Sing t_a2cr9 -> Sing t_a2cra -> Sing (Apply (Apply AsTypeOfSym0 t_a2cr9) t_a2cra :: a_a2cn0) type family Seq a_a2coR a_a2coS infixr 0 `Seq` sSeq :: forall a_a2cmT b_a2cmU (t_a2cqR :: a_a2cmT) (t_a2cqS :: b_a2cmU). Sing t_a2cqR -> Sing t_a2cqS -> Sing (Apply (Apply SeqSym0 t_a2cqR) t_a2cqS :: b_a2cmU) infixr 0 `sSeq` type family Map a_a2cqs a_a2cqt sMap :: forall a_a2cnb b_a2cnc (t_a2crz :: (~>) a_a2cnb b_a2cnc) (t_a2crA :: [a_a2cnb]). Sing t_a2crz -> Sing t_a2crA -> Sing (Apply (Apply MapSym0 t_a2crz) t_a2crA :: [b_a2cnc]) type family (++) a_a2cqj a_a2cqk infixr 5 ++ (%++) :: forall a_a2cna (t_a2crv :: [a_a2cna]) (t_a2crw :: [a_a2cna]). Sing t_a2crv -> Sing t_a2crw -> Sing (Apply (Apply (++@#@$) t_a2crv) t_a2crw :: [a_a2cna]) infixr 5 %++ type family Filter a_a41Bm a_a41Bn sFilter :: forall a_a40po (t_a41PZ :: (~>) a_a40po Bool) (t_a41Q0 :: [a_a40po]). Sing t_a41PZ -> Sing t_a41Q0 -> Sing (Apply (Apply FilterSym0 t_a41PZ) t_a41Q0 :: [a_a40po]) type family Head a_a41NN sHead :: forall a_a40qQ (t_a41Tj :: [a_a40qQ]). Sing t_a41Tj -> Sing (Apply HeadSym0 t_a41Tj :: a_a40qQ) type family Last a_a41NH sLast :: forall a_a40qP (t_a41Th :: [a_a40qP]). Sing t_a41Th -> Sing (Apply LastSym0 t_a41Th :: a_a40qP) type family Tail a_a41ND sTail :: forall a_a40qO (t_a41Tf :: [a_a40qO]). Sing t_a41Tf -> Sing (Apply TailSym0 t_a41Tf :: [a_a40qO]) type family Init a_a41Nr sInit :: forall a_a40qN (t_a41Td :: [a_a40qN]). Sing t_a41Td -> Sing (Apply InitSym0 t_a41Td :: [a_a40qN]) type family Null (arg_a6dIs :: t_a6dyx a_a6dyM) :: Bool sNull :: forall a_a6dyM (t_a6e4Y :: t_a6dyx a_a6dyM). SFoldable t_a6dyx => Sing t_a6e4Y -> Sing (Apply NullSym0 t_a6e4Y :: Bool) type family Reverse a_a41Nc sReverse :: forall a_a40qL (t_a41T9 :: [a_a40qL]). Sing t_a41T9 -> Sing (Apply ReverseSym0 t_a41T9 :: [a_a40qL]) type family And a_a6dFE sAnd :: forall t_a6dxg (t_a6e2R :: t_a6dxg Bool). SFoldable t_a6dxg => Sing t_a6e2R -> Sing (Apply AndSym0 t_a6e2R :: Bool) type family Or a_a6dFy sOr :: forall t_a6dxf (t_a6e2P :: t_a6dxf Bool). SFoldable t_a6dxf => Sing t_a6e2P -> Sing (Apply OrSym0 t_a6e2P :: Bool) type family Any a_a6dFp a_a6dFq sAny :: forall a_a6dxe t_a6dxd (t_a6e2L :: (~>) a_a6dxe Bool) (t_a6e2M :: t_a6dxd a_a6dxe). SFoldable t_a6dxd => Sing t_a6e2L -> Sing t_a6e2M -> Sing (Apply (Apply AnySym0 t_a6e2L) t_a6e2M :: Bool) type family All a_a6dFg a_a6dFh sAll :: forall a_a6dxc t_a6dxb (t_a6e2H :: (~>) a_a6dxc Bool) (t_a6e2I :: t_a6dxb a_a6dxc). SFoldable t_a6dxb => Sing t_a6e2H -> Sing t_a6e2I -> Sing (Apply (Apply AllSym0 t_a6e2H) t_a6e2I :: Bool) type family Concat a_a6dFU sConcat :: forall t_a6dxk a_a6dxl (t_a6e2X :: t_a6dxk [a_a6dxl]). SFoldable t_a6dxk => Sing t_a6e2X -> Sing (Apply ConcatSym0 t_a6e2X :: [a_a6dxl]) type family ConcatMap a_a6dFI a_a6dFJ sConcatMap :: forall a_a6dxi b_a6dxj t_a6dxh (t_a6e2T :: (~>) a_a6dxi [b_a6dxj]) (t_a6e2U :: t_a6dxh a_a6dxi). SFoldable t_a6dxh => Sing t_a6e2T -> Sing t_a6e2U -> Sing (Apply (Apply ConcatMapSym0 t_a6e2T) t_a6e2U :: [b_a6dxj]) type family Scanl a_a41K1 a_a41K2 a_a41K3 sScanl :: forall b_a40qt a_a40qu (t_a41Sb :: (~>) b_a40qt ((~>) a_a40qu b_a40qt)) (t_a41Sc :: b_a40qt) (t_a41Sd :: [a_a40qu]). Sing t_a41Sb -> Sing t_a41Sc -> Sing t_a41Sd -> Sing (Apply (Apply (Apply ScanlSym0 t_a41Sb) t_a41Sc) t_a41Sd :: [b_a40qt]) type family Scanl1 a_a41JT a_a41JU sScanl1 :: forall a_a40qs (t_a41S7 :: (~>) a_a40qs ((~>) a_a40qs a_a40qs)) (t_a41S8 :: [a_a40qs]). Sing t_a41S7 -> Sing t_a41S8 -> Sing (Apply (Apply Scanl1Sym0 t_a41S7) t_a41S8 :: [a_a40qs]) type family Scanr a_a41JA a_a41JB a_a41JC sScanr :: forall a_a40qq b_a40qr (t_a41S1 :: (~>) a_a40qq ((~>) b_a40qr b_a40qr)) (t_a41S2 :: b_a40qr) (t_a41S3 :: [a_a40qq]). Sing t_a41S1 -> Sing t_a41S2 -> Sing t_a41S3 -> Sing (Apply (Apply (Apply ScanrSym0 t_a41S1) t_a41S2) t_a41S3 :: [b_a40qr]) type family Scanr1 a_a41Jh a_a41Ji sScanr1 :: forall a_a40qp (t_a41RX :: (~>) a_a40qp ((~>) a_a40qp a_a40qp)) (t_a41RY :: [a_a40qp]). Sing t_a41RX -> Sing t_a41RY -> Sing (Apply (Apply Scanr1Sym0 t_a41RX) t_a41RY :: [a_a40qp]) type family Replicate a_a41vm a_a41vn sReplicate :: forall a_a40oV (t_a41Ol :: Nat) (t_a41Om :: a_a40oV). Sing t_a41Ol -> Sing t_a41Om -> Sing (Apply (Apply ReplicateSym0 t_a41Ol) t_a41Om :: [a_a40oV]) type family Take a_a41xR a_a41xS sTake :: forall a_a40pb (t_a41P7 :: Nat) (t_a41P8 :: [a_a40pb]). Sing t_a41P7 -> Sing t_a41P8 -> Sing (Apply (Apply TakeSym0 t_a41P7) t_a41P8 :: [a_a40pb]) type family Drop a_a41xE a_a41xF sDrop :: forall a_a40pa (t_a41P3 :: Nat) (t_a41P4 :: [a_a40pa]). Sing t_a41P3 -> Sing t_a41P4 -> Sing (Apply (Apply DropSym0 t_a41P3) t_a41P4 :: [a_a40pa]) type family SplitAt a_a41xx a_a41xy sSplitAt :: forall a_a40p9 (t_a41OZ :: Nat) (t_a41P0 :: [a_a40p9]). Sing t_a41OZ -> Sing t_a41P0 -> Sing (Apply (Apply SplitAtSym0 t_a41OZ) t_a41P0 :: ([a_a40p9], [a_a40p9])) type family TakeWhile a_a41zK a_a41zL sTakeWhile :: forall a_a40pg (t_a41Pr :: (~>) a_a40pg Bool) (t_a41Ps :: [a_a40pg]). Sing t_a41Pr -> Sing t_a41Ps -> Sing (Apply (Apply TakeWhileSym0 t_a41Pr) t_a41Ps :: [a_a40pg]) type family Span a_a41yD a_a41yE sSpan :: forall a_a40pd (t_a41Pf :: (~>) a_a40pd Bool) (t_a41Pg :: [a_a40pd]). Sing t_a41Pf -> Sing t_a41Pg -> Sing (Apply (Apply SpanSym0 t_a41Pf) t_a41Pg :: ([a_a40pd], [a_a40pd])) type family Break a_a41y4 a_a41y5 sBreak :: forall a_a40pc (t_a41Pb :: (~>) a_a40pc Bool) (t_a41Pc :: [a_a40pc]). Sing t_a41Pb -> Sing t_a41Pc -> Sing (Apply (Apply BreakSym0 t_a41Pb) t_a41Pc :: ([a_a40pc], [a_a40pc])) type family NotElem a_a6dEt a_a6dEu sNotElem :: forall a_a6dx6 t_a6dx5 (t_a6e2v :: a_a6dx6) (t_a6e2w :: t_a6dx5 a_a6dx6). (SFoldable t_a6dx5, SEq a_a6dx6) => Sing t_a6e2v -> Sing t_a6e2w -> Sing (Apply (Apply NotElemSym0 t_a6e2v) t_a6e2w :: Bool) type family Lookup a_a41wn a_a41wo sLookup :: forall a_a40p1 b_a40p2 (t_a41OF :: a_a40p1) (t_a41OG :: [(a_a40p1, b_a40p2)]). SEq a_a40p1 => Sing t_a41OF -> Sing t_a41OG -> Sing (Apply (Apply LookupSym0 t_a41OF) t_a41OG :: Maybe b_a40p2) type family Zip a_a41Gu a_a41Gv sZip :: forall a_a40q8 b_a40q9 (t_a41Rf :: [a_a40q8]) (t_a41Rg :: [b_a40q9]). Sing t_a41Rf -> Sing t_a41Rg -> Sing (Apply (Apply ZipSym0 t_a41Rf) t_a41Rg :: [(a_a40q8, b_a40q9)]) type family Zip3 a_a41Gh a_a41Gi a_a41Gj sZip3 :: forall a_a40q5 b_a40q6 c_a40q7 (t_a41R9 :: [a_a40q5]) (t_a41Ra :: [b_a40q6]) (t_a41Rb :: [c_a40q7]). Sing t_a41R9 -> Sing t_a41Ra -> Sing t_a41Rb -> Sing (Apply (Apply (Apply Zip3Sym0 t_a41R9) t_a41Ra) t_a41Rb :: [(a_a40q5, b_a40q6, c_a40q7)]) type family ZipWith a_a41G5 a_a41G6 a_a41G7 sZipWith :: forall a_a40q2 b_a40q3 c_a40q4 (t_a41R3 :: (~>) a_a40q2 ((~>) b_a40q3 c_a40q4)) (t_a41R4 :: [a_a40q2]) (t_a41R5 :: [b_a40q3]). Sing t_a41R3 -> Sing t_a41R4 -> Sing t_a41R5 -> Sing (Apply (Apply (Apply ZipWithSym0 t_a41R3) t_a41R4) t_a41R5 :: [c_a40q4]) type family ZipWith3 a_a41FP a_a41FQ a_a41FR a_a41FS sZipWith3 :: forall a_a40pY b_a40pZ c_a40q0 d_a40q1 (t_a41QV :: (~>) a_a40pY ((~>) b_a40pZ ((~>) c_a40q0 d_a40q1))) (t_a41QW :: [a_a40pY]) (t_a41QX :: [b_a40pZ]) (t_a41QY :: [c_a40q0]). Sing t_a41QV -> Sing t_a41QW -> Sing t_a41QX -> Sing t_a41QY -> Sing (Apply (Apply (Apply (Apply ZipWith3Sym0 t_a41QV) t_a41QW) t_a41QX) t_a41QY :: [d_a40q1]) type family Unzip a_a41Fz sUnzip :: forall a_a40pW b_a40pX (t_a41QT :: [(a_a40pW, b_a40pX)]). Sing t_a41QT -> Sing (Apply UnzipSym0 t_a41QT :: ([a_a40pW], [b_a40pX])) type family Unzip3 a_a41Fh sUnzip3 :: forall a_a40pT b_a40pU c_a40pV (t_a41QR :: [(a_a40pT, b_a40pU, c_a40pV)]). Sing t_a41QR -> Sing (Apply Unzip3Sym0 t_a41QR :: ([a_a40pT], [b_a40pU], [c_a40pV])) type family Unlines a_a41DI sUnlines :: forall (t_a41QH :: [Symbol]). Sing t_a41QH -> Sing (Apply UnlinesSym0 t_a41QH :: Symbol) type family Unwords a_a41Dy sUnwords :: forall (t_a41QF :: [Symbol]). Sing t_a41QF -> Sing (Apply UnwordsSym0 t_a41QF :: Symbol) type family Maybe_ a_a23H4 a_a23H5 a_a23H6 sMaybe_ :: forall b_a23GM a_a23GN (t_a23He :: b_a23GM) (t_a23Hf :: (~>) a_a23GN b_a23GM) (t_a23Hg :: Maybe a_a23GN). Sing t_a23He -> Sing t_a23Hf -> Sing t_a23Hg -> Sing (Apply (Apply (Apply Maybe_Sym0 t_a23He) t_a23Hf) t_a23Hg :: b_a23GM) type family Either_ a_a67XX a_a67XY a_a67XZ sEither_ :: forall a_a67Xn c_a67Xo b_a67Xp (t_a67Y8 :: (~>) a_a67Xn c_a67Xo) (t_a67Y9 :: (~>) b_a67Xp c_a67Xo) (t_a67Ya :: Either a_a67Xn b_a67Xp). Sing t_a67Y8 -> Sing t_a67Y9 -> Sing t_a67Ya -> Sing (Apply (Apply (Apply Either_Sym0 t_a67Y8) t_a67Y9) t_a67Ya :: c_a67Xo) type family Fst a_a1tdG sFst :: forall a_a1tbY b_a1tbZ (t_a1tdY :: (a_a1tbY, b_a1tbZ)). Sing t_a1tdY -> Sing (Apply FstSym0 t_a1tdY :: a_a1tbY) type family Snd a_a1tdC sSnd :: forall a_a1tbW b_a1tbX (t_a1tdW :: (a_a1tbW, b_a1tbX)). Sing t_a1tdW -> Sing (Apply SndSym0 t_a1tdW :: b_a1tbX) type family Curry a_a1tds a_a1tdt a_a1tdu sCurry :: forall a_a1tbT b_a1tbU c_a1tbV (t_a1tdQ :: (~>) (a_a1tbT, b_a1tbU) c_a1tbV) (t_a1tdR :: a_a1tbT) (t_a1tdS :: b_a1tbU). Sing t_a1tdQ -> Sing t_a1tdR -> Sing t_a1tdS -> Sing (Apply (Apply (Apply CurrySym0 t_a1tdQ) t_a1tdR) t_a1tdS :: c_a1tbV) type family Uncurry a_a1tdl a_a1tdm sUncurry :: forall a_a1tbQ b_a1tbR c_a1tbS (t_a1tdM :: (~>) a_a1tbQ ((~>) b_a1tbR c_a1tbS)) (t_a1tdN :: (a_a1tbQ, b_a1tbR)). Sing t_a1tdM -> Sing t_a1tdN -> Sing (Apply (Apply UncurrySym0 t_a1tdM) t_a1tdN :: c_a1tbS) -- | (Kind) This is the kind of type-level symbols. Declared here because -- class IP needs it data Symbol either_ :: (a_a67Xn -> c_a67Xo) -> (b_a67Xp -> c_a67Xo) -> Either a_a67Xn b_a67Xp -> c_a67Xo maybe_ :: b_a23GM -> (a_a23GN -> b_a23GM) -> Maybe a_a23GN -> b_a23GM bool_ :: a_a1uCX -> a_a1uCX -> Bool -> a_a1uCX -- | 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 FalseSym0 = 'False :: Bool type TrueSym0 = 'True :: Bool data NotSym0 a6989586621679367240 type NotSym1 (a6989586621679367240 :: Bool) = Not a6989586621679367240 :: Bool data (&&@#@$) a6989586621679366665 infixr 3 &&@#@$ data (&&@#@$$) a6989586621679366665 a6989586621679366666 infixr 3 &&@#@$$ type (&&@#@$$$) (a6989586621679366665 :: Bool) (a6989586621679366666 :: Bool) = (&&) a6989586621679366665 a6989586621679366666 :: Bool infixr 3 &&@#@$$$ data (||@#@$) a6989586621679366963 infixr 2 ||@#@$ data (||@#@$$) a6989586621679366963 a6989586621679366964 infixr 2 ||@#@$$ type (||@#@$$$) (a6989586621679366963 :: Bool) (a6989586621679366964 :: Bool) = (||) a6989586621679366963 a6989586621679366964 :: Bool infixr 2 ||@#@$$$ type OtherwiseSym0 = Otherwise :: Bool type NothingSym0 = 'Nothing :: Maybe (a_11 :: Type) data JustSym0 a6989586621679304113 type JustSym1 (a6989586621679304113 :: a_11) = 'Just a6989586621679304113 :: Maybe (a_11 :: Type) data Maybe_Sym0 a6989586621679500654 data Maybe_Sym1 a6989586621679500654 a6989586621679500655 data Maybe_Sym2 a6989586621679500654 a6989586621679500655 a6989586621679500656 type Maybe_Sym3 (a6989586621679500654 :: b_a23GM) (a6989586621679500655 :: (~>) a_a23GN b_a23GM) (a6989586621679500656 :: Maybe a_a23GN) = Maybe_ a6989586621679500654 a6989586621679500655 a6989586621679500656 :: b_a23GM data LeftSym0 a6989586621679304182 type LeftSym1 (a6989586621679304182 :: a_af38) = 'Left a6989586621679304182 :: Either (a_af38 :: Type) (b_af39 :: Type) data RightSym0 a6989586621679304184 type RightSym1 (a6989586621679304184 :: b_af39) = 'Right a6989586621679304184 :: Either (a_af38 :: Type) (b_af39 :: Type) data Either_Sym0 a6989586621680470389 data Either_Sym1 a6989586621680470389 a6989586621680470390 data Either_Sym2 a6989586621680470389 a6989586621680470390 a6989586621680470391 type Either_Sym3 (a6989586621680470389 :: (~>) a_a67Xn c_a67Xo) (a6989586621680470390 :: (~>) b_a67Xp c_a67Xo) (a6989586621680470391 :: Either a_a67Xn b_a67Xp) = Either_ a6989586621680470389 a6989586621680470390 a6989586621680470391 :: c_a67Xo type Tuple0Sym0 = '() :: () data Tuple2Sym0 a6989586621679304233 data Tuple2Sym1 a6989586621679304233 a6989586621679304234 type Tuple2Sym2 (a6989586621679304233 :: a_11) (a6989586621679304234 :: b_12) = '(a6989586621679304233, a6989586621679304234) :: (a_11 :: Type, b_12 :: Type) data Tuple3Sym0 a6989586621679304264 data Tuple3Sym1 a6989586621679304264 a6989586621679304265 data Tuple3Sym2 a6989586621679304264 a6989586621679304265 a6989586621679304266 type Tuple3Sym3 (a6989586621679304264 :: a_11) (a6989586621679304265 :: b_12) (a6989586621679304266 :: c_13) = '(a6989586621679304264, a6989586621679304265, a6989586621679304266) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type) data Tuple4Sym0 a6989586621679304310 data Tuple4Sym1 a6989586621679304310 a6989586621679304311 data Tuple4Sym2 a6989586621679304310 a6989586621679304311 a6989586621679304312 data Tuple4Sym3 a6989586621679304310 a6989586621679304311 a6989586621679304312 a6989586621679304313 type Tuple4Sym4 (a6989586621679304310 :: a_11) (a6989586621679304311 :: b_12) (a6989586621679304312 :: c_13) (a6989586621679304313 :: d_14) = '(a6989586621679304310, a6989586621679304311, a6989586621679304312, a6989586621679304313) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type) data Tuple5Sym0 a6989586621679304373 data Tuple5Sym1 a6989586621679304373 a6989586621679304374 data Tuple5Sym2 a6989586621679304373 a6989586621679304374 a6989586621679304375 data Tuple5Sym3 a6989586621679304373 a6989586621679304374 a6989586621679304375 a6989586621679304376 data Tuple5Sym4 a6989586621679304373 a6989586621679304374 a6989586621679304375 a6989586621679304376 a6989586621679304377 type Tuple5Sym5 (a6989586621679304373 :: a_11) (a6989586621679304374 :: b_12) (a6989586621679304375 :: c_13) (a6989586621679304376 :: d_14) (a6989586621679304377 :: e_15) = '(a6989586621679304373, a6989586621679304374, a6989586621679304375, a6989586621679304376, a6989586621679304377) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type) data Tuple6Sym0 a6989586621679304455 data Tuple6Sym1 a6989586621679304455 a6989586621679304456 data Tuple6Sym2 a6989586621679304455 a6989586621679304456 a6989586621679304457 data Tuple6Sym3 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 data Tuple6Sym4 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 a6989586621679304459 data Tuple6Sym5 a6989586621679304455 a6989586621679304456 a6989586621679304457 a6989586621679304458 a6989586621679304459 a6989586621679304460 type Tuple6Sym6 (a6989586621679304455 :: a_11) (a6989586621679304456 :: b_12) (a6989586621679304457 :: c_13) (a6989586621679304458 :: d_14) (a6989586621679304459 :: e_15) (a6989586621679304460 :: f_16) = '(a6989586621679304455, a6989586621679304456, a6989586621679304457, a6989586621679304458, a6989586621679304459, a6989586621679304460) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type) data Tuple7Sym0 a6989586621679304558 data Tuple7Sym1 a6989586621679304558 a6989586621679304559 data Tuple7Sym2 a6989586621679304558 a6989586621679304559 a6989586621679304560 data Tuple7Sym3 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 data Tuple7Sym4 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 data Tuple7Sym5 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 a6989586621679304563 data Tuple7Sym6 a6989586621679304558 a6989586621679304559 a6989586621679304560 a6989586621679304561 a6989586621679304562 a6989586621679304563 a6989586621679304564 type Tuple7Sym7 (a6989586621679304558 :: a_11) (a6989586621679304559 :: b_12) (a6989586621679304560 :: c_13) (a6989586621679304561 :: d_14) (a6989586621679304562 :: e_15) (a6989586621679304563 :: f_16) (a6989586621679304564 :: g_17) = '(a6989586621679304558, a6989586621679304559, a6989586621679304560, a6989586621679304561, a6989586621679304562, a6989586621679304563, a6989586621679304564) :: (a_11 :: Type, b_12 :: Type, c_13 :: Type, d_14 :: Type, e_15 :: Type, f_16 :: Type, g_17 :: Type) data FstSym0 a6989586621679360446 type FstSym1 (a6989586621679360446 :: (a_a1tbY, b_a1tbZ)) = Fst a6989586621679360446 :: a_a1tbY data SndSym0 a6989586621679360442 type SndSym1 (a6989586621679360442 :: (a_a1tbW, b_a1tbX)) = Snd a6989586621679360442 :: b_a1tbX data CurrySym0 a6989586621679360434 data CurrySym1 a6989586621679360434 a6989586621679360435 data CurrySym2 a6989586621679360434 a6989586621679360435 a6989586621679360436 type CurrySym3 (a6989586621679360434 :: (~>) (a_a1tbT, b_a1tbU) c_a1tbV) (a6989586621679360435 :: a_a1tbT) (a6989586621679360436 :: b_a1tbU) = Curry a6989586621679360434 a6989586621679360435 a6989586621679360436 :: c_a1tbV data UncurrySym0 a6989586621679360426 data UncurrySym1 a6989586621679360426 a6989586621679360427 type UncurrySym2 (a6989586621679360426 :: (~>) a_a1tbQ ((~>) b_a1tbR c_a1tbS)) (a6989586621679360427 :: (a_a1tbQ, b_a1tbR)) = Uncurry a6989586621679360426 a6989586621679360427 :: c_a1tbS data ErrorSym0 a6989586621679472252 type ErrorSym1 (a6989586621679472252 :: k0_a1W1L) = Error a6989586621679472252 :: k_a1W1M data ErrorWithoutStackTraceSym0 a6989586621679472488 type ErrorWithoutStackTraceSym1 (a6989586621679472488 :: k0_a1Wjc) = ErrorWithoutStackTrace a6989586621679472488 :: k_a1Wjd type UndefinedSym0 = Undefined :: k_a1WmZ type LTSym0 = 'LT :: Ordering type EQSym0 = 'EQ :: Ordering type GTSym0 = 'GT :: Ordering data CompareSym0 a6989586621679383640 data CompareSym1 a6989586621679383640 a6989586621679383641 type CompareSym2 (a6989586621679383640 :: a_a1zeQ) (a6989586621679383641 :: a_a1zeQ) = Compare a6989586621679383640 a6989586621679383641 :: Ordering data (<@#@$) a6989586621679383645 infix 4 <@#@$ data (<@#@$$) a6989586621679383645 a6989586621679383646 infix 4 <@#@$$ type (<@#@$$$) (a6989586621679383645 :: a_a1zeQ) (a6989586621679383646 :: a_a1zeQ) = (<) a6989586621679383645 a6989586621679383646 :: Bool infix 4 <@#@$$$ data (<=@#@$) a6989586621679383650 infix 4 <=@#@$ data (<=@#@$$) a6989586621679383650 a6989586621679383651 infix 4 <=@#@$$ type (<=@#@$$$) (a6989586621679383650 :: a_a1zeQ) (a6989586621679383651 :: a_a1zeQ) = (<=) a6989586621679383650 a6989586621679383651 :: Bool infix 4 <=@#@$$$ data (>@#@$) a6989586621679383655 infix 4 >@#@$ data (>@#@$$) a6989586621679383655 a6989586621679383656 infix 4 >@#@$$ type (>@#@$$$) (a6989586621679383655 :: a_a1zeQ) (a6989586621679383656 :: a_a1zeQ) = (>) a6989586621679383655 a6989586621679383656 :: Bool infix 4 >@#@$$$ data (>=@#@$) a6989586621679383660 infix 4 >=@#@$ data (>=@#@$$) a6989586621679383660 a6989586621679383661 infix 4 >=@#@$$ type (>=@#@$$$) (a6989586621679383660 :: a_a1zeQ) (a6989586621679383661 :: a_a1zeQ) = (>=) a6989586621679383660 a6989586621679383661 :: Bool infix 4 >=@#@$$$ data MaxSym0 a6989586621679383665 data MaxSym1 a6989586621679383665 a6989586621679383666 type MaxSym2 (a6989586621679383665 :: a_a1zeQ) (a6989586621679383666 :: a_a1zeQ) = Max a6989586621679383665 a6989586621679383666 :: a_a1zeQ data MinSym0 a6989586621679383670 data MinSym1 a6989586621679383670 a6989586621679383671 type MinSym2 (a6989586621679383670 :: a_a1zeQ) (a6989586621679383671 :: a_a1zeQ) = Min a6989586621679383670 a6989586621679383671 :: a_a1zeQ data (^@#@$) a6989586621679472866 infixr 8 ^@#@$ data (^@#@$$) a6989586621679472866 a6989586621679472867 infixr 8 ^@#@$$ type (^@#@$$$) (a6989586621679472866 :: Nat) (a6989586621679472867 :: Nat) = (^) a6989586621679472866 a6989586621679472867 :: Nat infixr 8 ^@#@$$$ data ShowsPrecSym0 a6989586621680279568 data ShowsPrecSym1 a6989586621680279568 a6989586621680279569 data ShowsPrecSym2 a6989586621680279568 a6989586621680279569 a6989586621680279570 type ShowsPrecSym3 (a6989586621680279568 :: Nat) (a6989586621680279569 :: a_a5kd9) (a6989586621680279570 :: Symbol) = ShowsPrec a6989586621680279568 a6989586621680279569 a6989586621680279570 :: Symbol data Show_Sym0 a6989586621680279573 type Show_Sym1 (a6989586621680279573 :: a_a5kd9) = Show_ a6989586621680279573 :: Symbol data ShowListSym0 a6989586621680279577 data ShowListSym1 a6989586621680279577 a6989586621680279578 type ShowListSym2 (a6989586621680279577 :: [a_a5kd9]) (a6989586621680279578 :: Symbol) = ShowList a6989586621680279577 a6989586621680279578 :: Symbol data ShowsSym0 a6989586621680279560 data ShowsSym1 a6989586621680279560 a6989586621680279561 type ShowsSym2 (a6989586621680279560 :: a_a5kcU) (a6989586621680279561 :: Symbol) = Shows a6989586621680279560 a6989586621680279561 :: Symbol data ShowCharSym0 a6989586621680279534 data ShowCharSym1 a6989586621680279534 a6989586621680279535 type ShowCharSym2 (a6989586621680279534 :: Symbol) (a6989586621680279535 :: Symbol) = ShowChar a6989586621680279534 a6989586621680279535 :: Symbol data ShowStringSym0 a6989586621680279523 data ShowStringSym1 a6989586621680279523 a6989586621680279524 type ShowStringSym2 (a6989586621680279523 :: Symbol) (a6989586621680279524 :: Symbol) = ShowString a6989586621680279523 a6989586621680279524 :: Symbol data ShowParenSym0 a6989586621680279507 data ShowParenSym1 a6989586621680279507 a6989586621680279508 data ShowParenSym2 a6989586621680279507 a6989586621680279508 a6989586621680279509 data (<>@#@$) a6989586621679830624 infixr 6 <>@#@$ data (<>@#@$$) a6989586621679830624 a6989586621679830625 infixr 6 <>@#@$$ type (<>@#@$$$) (a6989586621679830624 :: a_a3rto) (a6989586621679830625 :: a_a3rto) = (<>) a6989586621679830624 a6989586621679830625 :: a_a3rto infixr 6 <>@#@$$$ type MemptySym0 = Mempty :: a_a5BTv data MappendSym0 a6989586621680347244 data MappendSym1 a6989586621680347244 a6989586621680347245 type MappendSym2 (a6989586621680347244 :: a_a5BTv) (a6989586621680347245 :: a_a5BTv) = Mappend a6989586621680347244 a6989586621680347245 :: a_a5BTv data MconcatSym0 a6989586621680347248 type MconcatSym1 (a6989586621680347248 :: [a_a5BTv]) = Mconcat a6989586621680347248 :: a_a5BTv data FmapSym0 a6989586621679559667 data FmapSym1 a6989586621679559667 a6989586621679559668 type FmapSym2 (a6989586621679559667 :: (~>) a_a2iYh b_a2iYi) (a6989586621679559668 :: f_a2iYg a_a2iYh) = Fmap a6989586621679559667 a6989586621679559668 :: f_a2iYg b_a2iYi data (<$@#@$) a6989586621679559672 infixl 4 <$@#@$ data (<$@#@$$) a6989586621679559672 a6989586621679559673 infixl 4 <$@#@$$ type (<$@#@$$$) (a6989586621679559672 :: a_a2iYj) (a6989586621679559673 :: f_a2iYg b_a2iYk) = (<$) a6989586621679559672 a6989586621679559673 :: f_a2iYg a_a2iYj infixl 4 <$@#@$$$ data (<$>@#@$) a6989586621679731630 infixl 4 <$>@#@$ data (<$>@#@$$) a6989586621679731630 a6989586621679731631 infixl 4 <$>@#@$$ type (<$>@#@$$$) (a6989586621679731630 :: (~>) a_a31L9 b_a31La) (a6989586621679731631 :: f_a31L8 a_a31L9) = (<$>) a6989586621679731630 a6989586621679731631 :: f_a31L8 b_a31La infixl 4 <$>@#@$$$ data PureSym0 a6989586621679559691 type PureSym1 (a6989586621679559691 :: a_a2iYm) = Pure a6989586621679559691 :: f_a2iYl a_a2iYm data (<*>@#@$) a6989586621679559695 infixl 4 <*>@#@$ data (<*>@#@$$) a6989586621679559695 a6989586621679559696 infixl 4 <*>@#@$$ type (<*>@#@$$$) (a6989586621679559695 :: f_a2iYl ((~>) a_a2iYn b_a2iYo)) (a6989586621679559696 :: f_a2iYl a_a2iYn) = (<*>) a6989586621679559695 a6989586621679559696 :: f_a2iYl b_a2iYo infixl 4 <*>@#@$$$ data (*>@#@$) a6989586621679559707 infixl 4 *>@#@$ data (*>@#@$$) a6989586621679559707 a6989586621679559708 infixl 4 *>@#@$$ type (*>@#@$$$) (a6989586621679559707 :: f_a2iYl a_a2iYs) (a6989586621679559708 :: f_a2iYl b_a2iYt) = (*>) a6989586621679559707 a6989586621679559708 :: f_a2iYl b_a2iYt infixl 4 *>@#@$$$ data (<*@#@$) a6989586621679559712 infixl 4 <*@#@$ data (<*@#@$$) a6989586621679559712 a6989586621679559713 infixl 4 <*@#@$$ type (<*@#@$$$) (a6989586621679559712 :: f_a2iYl a_a2iYu) (a6989586621679559713 :: f_a2iYl b_a2iYv) = (<*) a6989586621679559712 a6989586621679559713 :: f_a2iYl a_a2iYu infixl 4 <*@#@$$$ data (>>=@#@$) a6989586621679559775 infixl 1 >>=@#@$ data (>>=@#@$$) a6989586621679559775 a6989586621679559776 infixl 1 >>=@#@$$ type (>>=@#@$$$) (a6989586621679559775 :: m_a2iYJ a_a2iYK) (a6989586621679559776 :: (~>) a_a2iYK (m_a2iYJ b_a2iYL)) = (>>=) a6989586621679559775 a6989586621679559776 :: m_a2iYJ b_a2iYL infixl 1 >>=@#@$$$ data (>>@#@$) a6989586621679559780 infixl 1 >>@#@$ data (>>@#@$$) a6989586621679559780 a6989586621679559781 infixl 1 >>@#@$$ type (>>@#@$$$) (a6989586621679559780 :: m_a2iYJ a_a2iYM) (a6989586621679559781 :: m_a2iYJ b_a2iYN) = (>>) a6989586621679559780 a6989586621679559781 :: m_a2iYJ b_a2iYN infixl 1 >>@#@$$$ data ReturnSym0 a6989586621679559784 type ReturnSym1 (a6989586621679559784 :: a_a2iYO) = Return a6989586621679559784 :: m_a2iYJ a_a2iYO data FailSym0 a6989586621679729522 type FailSym1 (a6989586621679729522 :: [Char]) = Fail a6989586621679729522 :: m_a31ec a_a31ed data MapM_Sym0 a6989586621680492379 data MapM_Sym1 a6989586621680492379 a6989586621680492380 type MapM_Sym2 (a6989586621680492379 :: (~>) a_a6dxE (m_a6dxD b_a6dxF)) (a6989586621680492380 :: t_a6dxC a_a6dxE) = MapM_ a6989586621680492379 a6989586621680492380 :: m_a6dxD () data Sequence_Sym0 a6989586621680492355 type Sequence_Sym1 (a6989586621680492355 :: t_a6dxs (m_a6dxt a_a6dxu)) = Sequence_ a6989586621680492355 :: m_a6dxt () data (=<<@#@$) a6989586621679559620 infixr 1 =<<@#@$ data (=<<@#@$$) a6989586621679559620 a6989586621679559621 infixr 1 =<<@#@$$ type (=<<@#@$$$) (a6989586621679559620 :: (~>) a_a2iXv (m_a2iXu b_a2iXw)) (a6989586621679559621 :: m_a2iXu a_a2iXv) = (=<<) a6989586621679559620 a6989586621679559621 :: m_a2iXu b_a2iXw infixr 1 =<<@#@$$$ data ElemSym0 a6989586621680492497 data ElemSym1 a6989586621680492497 a6989586621680492498 type ElemSym2 (a6989586621680492497 :: a_a6dyO) (a6989586621680492498 :: t_a6dyx a_a6dyO) = Elem a6989586621680492497 a6989586621680492498 :: Bool data FoldMapSym0 a6989586621680492445 data FoldMapSym1 a6989586621680492445 a6989586621680492446 type FoldMapSym2 (a6989586621680492445 :: (~>) a_a6dyA m_a6dyz) (a6989586621680492446 :: t_a6dyx a_a6dyA) = FoldMap a6989586621680492445 a6989586621680492446 :: m_a6dyz data FoldrSym0 a6989586621680492451 data FoldrSym1 a6989586621680492451 a6989586621680492452 data FoldrSym2 a6989586621680492451 a6989586621680492452 a6989586621680492453 type FoldrSym3 (a6989586621680492451 :: (~>) a_a6dyB ((~>) b_a6dyC b_a6dyC)) (a6989586621680492452 :: b_a6dyC) (a6989586621680492453 :: t_a6dyx a_a6dyB) = Foldr a6989586621680492451 a6989586621680492452 a6989586621680492453 :: b_a6dyC data FoldlSym0 a6989586621680492465 data FoldlSym1 a6989586621680492465 a6989586621680492466 data FoldlSym2 a6989586621680492465 a6989586621680492466 a6989586621680492467 type FoldlSym3 (a6989586621680492465 :: (~>) b_a6dyF ((~>) a_a6dyG b_a6dyF)) (a6989586621680492466 :: b_a6dyF) (a6989586621680492467 :: t_a6dyx a_a6dyG) = Foldl a6989586621680492465 a6989586621680492466 a6989586621680492467 :: b_a6dyF data Foldr1Sym0 a6989586621680492478 data Foldr1Sym1 a6989586621680492478 a6989586621680492479 type Foldr1Sym2 (a6989586621680492478 :: (~>) a_a6dyJ ((~>) a_a6dyJ a_a6dyJ)) (a6989586621680492479 :: t_a6dyx a_a6dyJ) = Foldr1 a6989586621680492478 a6989586621680492479 :: a_a6dyJ data Foldl1Sym0 a6989586621680492483 data Foldl1Sym1 a6989586621680492483 a6989586621680492484 type Foldl1Sym2 (a6989586621680492483 :: (~>) a_a6dyK ((~>) a_a6dyK a_a6dyK)) (a6989586621680492484 :: t_a6dyx a_a6dyK) = Foldl1 a6989586621680492483 a6989586621680492484 :: a_a6dyK data MaximumSym0 a6989586621680492501 type MaximumSym1 (a6989586621680492501 :: t_a6dyx a_a6dyP) = Maximum a6989586621680492501 :: a_a6dyP data MinimumSym0 a6989586621680492504 type MinimumSym1 (a6989586621680492504 :: t_a6dyx a_a6dyQ) = Minimum a6989586621680492504 :: a_a6dyQ data SumSym0 a6989586621680492507 type SumSym1 (a6989586621680492507 :: t_a6dyx a_a6dyR) = Sum a6989586621680492507 :: a_a6dyR data ProductSym0 a6989586621680492510 type ProductSym1 (a6989586621680492510 :: t_a6dyx a_a6dyS) = Product a6989586621680492510 :: a_a6dyS data TraverseSym0 a6989586621680816742 data TraverseSym1 a6989586621680816742 a6989586621680816743 type TraverseSym2 (a6989586621680816742 :: (~>) a_a7A49 (f_a7A48 b_a7A4a)) (a6989586621680816743 :: t_a7A47 a_a7A49) = Traverse a6989586621680816742 a6989586621680816743 :: f_a7A48 (t_a7A47 b_a7A4a) data SequenceASym0 a6989586621680816746 type SequenceASym1 (a6989586621680816746 :: t_a7A47 (f_a7A4b a_a7A4c)) = SequenceA a6989586621680816746 :: f_a7A4b (t_a7A47 a_a7A4c) data MapMSym0 a6989586621680816750 data MapMSym1 a6989586621680816750 a6989586621680816751 type MapMSym2 (a6989586621680816750 :: (~>) a_a7A4e (m_a7A4d b_a7A4f)) (a6989586621680816751 :: t_a7A47 a_a7A4e) = MapM a6989586621680816750 a6989586621680816751 :: m_a7A4d (t_a7A47 b_a7A4f) data SequenceSym0 a6989586621680816754 type SequenceSym1 (a6989586621680816754 :: t_a7A47 (m_a7A4g a_a7A4h)) = Sequence a6989586621680816754 :: m_a7A4g (t_a7A47 a_a7A4h) data IdSym0 a6989586621679534205 type IdSym1 (a6989586621679534205 :: a_a2cn9) = Id a6989586621679534205 :: a_a2cn9 data ConstSym0 a6989586621679534200 data ConstSym1 a6989586621679534200 a6989586621679534201 type ConstSym2 (a6989586621679534200 :: a_a2cn7) (a6989586621679534201 :: b_a2cn8) = Const a6989586621679534200 a6989586621679534201 :: a_a2cn7 data (.@#@$) a6989586621679534187 infixr 9 .@#@$ data (.@#@$$) a6989586621679534187 a6989586621679534188 infixr 9 .@#@$$ data (.@#@$$$) a6989586621679534187 a6989586621679534188 a6989586621679534189 infixr 9 .@#@$$$ data ($@#@$) a6989586621679534156 infixr 0 $@#@$ data ($@#@$$) a6989586621679534156 a6989586621679534157 infixr 0 $@#@$$ type ($@#@$$$) (a6989586621679534156 :: (~>) a_a2cmY b_a2cmZ) (a6989586621679534157 :: a_a2cmY) = ($) a6989586621679534156 a6989586621679534157 :: b_a2cmZ infixr 0 $@#@$$$ data ($!@#@$) a6989586621679534147 infixr 0 $!@#@$ data ($!@#@$$) a6989586621679534147 a6989586621679534148 infixr 0 $!@#@$$ type ($!@#@$$$) (a6989586621679534147 :: (~>) a_a2cmW b_a2cmX) (a6989586621679534148 :: a_a2cmW) = ($!) a6989586621679534147 a6989586621679534148 :: b_a2cmX infixr 0 $!@#@$$$ data FlipSym0 a6989586621679534175 data FlipSym1 a6989586621679534175 a6989586621679534176 data FlipSym2 a6989586621679534175 a6989586621679534176 a6989586621679534177 data AsTypeOfSym0 a6989586621679534167 data AsTypeOfSym1 a6989586621679534167 a6989586621679534168 type AsTypeOfSym2 (a6989586621679534167 :: a_a2cn0) (a6989586621679534168 :: a_a2cn0) = AsTypeOf a6989586621679534167 a6989586621679534168 :: a_a2cn0 data SeqSym0 a6989586621679534120 infixr 0 `SeqSym0` data SeqSym1 a6989586621679534120 a6989586621679534121 infixr 0 `SeqSym1` type SeqSym2 (a6989586621679534120 :: a_a2cmT) (a6989586621679534121 :: b_a2cmU) = Seq a6989586621679534120 a6989586621679534121 :: b_a2cmU infixr 0 `SeqSym2` data (:@#@$) a6989586621679304138 infixr 5 :@#@$ data (:@#@$$) a6989586621679304138 a6989586621679304139 infixr 5 :@#@$$ type (:@#@$$$) (a6989586621679304138 :: a_11) (a6989586621679304139 :: [a_11]) = '(:) a6989586621679304138 a6989586621679304139 :: [a_11 :: Type] infixr 5 :@#@$$$ type NilSym0 = '[] :: [a_11 :: Type] data MapSym0 a6989586621679534219 data MapSym1 a6989586621679534219 a6989586621679534220 type MapSym2 (a6989586621679534219 :: (~>) a_a2cnb b_a2cnc) (a6989586621679534220 :: [a_a2cnb]) = Map a6989586621679534219 a6989586621679534220 :: [b_a2cnc] data ReverseSym0 a6989586621679970000 type ReverseSym1 (a6989586621679970000 :: [a_a40qL]) = Reverse a6989586621679970000 :: [a_a40qL] data (++@#@$$) a6989586621679534210 a6989586621679534211 infixr 5 ++@#@$$ data (++@#@$) a6989586621679534210 infixr 5 ++@#@$ data FilterSym0 a6989586621679969267 data FilterSym1 a6989586621679969267 a6989586621679969268 type FilterSym2 (a6989586621679969267 :: (~>) a_a40po Bool) (a6989586621679969268 :: [a_a40po]) = Filter a6989586621679969267 a6989586621679969268 :: [a_a40po] data HeadSym0 a6989586621679970037 type HeadSym1 (a6989586621679970037 :: [a_a40qQ]) = Head a6989586621679970037 :: a_a40qQ data LastSym0 a6989586621679970031 type LastSym1 (a6989586621679970031 :: [a_a40qP]) = Last a6989586621679970031 :: a_a40qP data TailSym0 a6989586621679970027 type TailSym1 (a6989586621679970027 :: [a_a40qO]) = Tail a6989586621679970027 :: [a_a40qO] data InitSym0 a6989586621679970015 type InitSym1 (a6989586621679970015 :: [a_a40qN]) = Init a6989586621679970015 :: [a_a40qN] data NullSym0 a6989586621680492490 type NullSym1 (a6989586621680492490 :: t_a6dyx a_a6dyM) = Null a6989586621680492490 :: Bool data ConcatSym0 a6989586621680492332 type ConcatSym1 (a6989586621680492332 :: t_a6dxk [a_a6dxl]) = Concat a6989586621680492332 :: [a_a6dxl] data ConcatMapSym0 a6989586621680492321 data ConcatMapSym1 a6989586621680492321 a6989586621680492322 type ConcatMapSym2 (a6989586621680492321 :: (~>) a_a6dxi [b_a6dxj]) (a6989586621680492322 :: t_a6dxh a_a6dxi) = ConcatMap a6989586621680492321 a6989586621680492322 :: [b_a6dxj] data AndSym0 a6989586621680492316 type AndSym1 (a6989586621680492316 :: t_a6dxg Bool) = And a6989586621680492316 :: Bool data OrSym0 a6989586621680492310 type OrSym1 (a6989586621680492310 :: t_a6dxf Bool) = Or a6989586621680492310 :: Bool data AnySym0 a6989586621680492302 data AnySym1 a6989586621680492302 a6989586621680492303 type AnySym2 (a6989586621680492302 :: (~>) a_a6dxe Bool) (a6989586621680492303 :: t_a6dxd a_a6dxe) = Any a6989586621680492302 a6989586621680492303 :: Bool data AllSym0 a6989586621680492293 data AllSym1 a6989586621680492293 a6989586621680492294 type AllSym2 (a6989586621680492293 :: (~>) a_a6dxc Bool) (a6989586621680492294 :: t_a6dxb a_a6dxc) = All a6989586621680492293 a6989586621680492294 :: Bool data ScanlSym0 a6989586621679969805 data ScanlSym1 a6989586621679969805 a6989586621679969806 data ScanlSym2 a6989586621679969805 a6989586621679969806 a6989586621679969807 type ScanlSym3 (a6989586621679969805 :: (~>) b_a40qt ((~>) a_a40qu b_a40qt)) (a6989586621679969806 :: b_a40qt) (a6989586621679969807 :: [a_a40qu]) = Scanl a6989586621679969805 a6989586621679969806 a6989586621679969807 :: [b_a40qt] data Scanl1Sym0 a6989586621679969796 data Scanl1Sym1 a6989586621679969796 a6989586621679969797 type Scanl1Sym2 (a6989586621679969796 :: (~>) a_a40qs ((~>) a_a40qs a_a40qs)) (a6989586621679969797 :: [a_a40qs]) = Scanl1 a6989586621679969796 a6989586621679969797 :: [a_a40qs] data ScanrSym0 a6989586621679969778 data ScanrSym1 a6989586621679969778 a6989586621679969779 data ScanrSym2 a6989586621679969778 a6989586621679969779 a6989586621679969780 type ScanrSym3 (a6989586621679969778 :: (~>) a_a40qq ((~>) b_a40qr b_a40qr)) (a6989586621679969779 :: b_a40qr) (a6989586621679969780 :: [a_a40qq]) = Scanr a6989586621679969778 a6989586621679969779 a6989586621679969780 :: [b_a40qr] data Scanr1Sym0 a6989586621679969758 data Scanr1Sym1 a6989586621679969758 a6989586621679969759 type Scanr1Sym2 (a6989586621679969758 :: (~>) a_a40qp ((~>) a_a40qp a_a40qp)) (a6989586621679969759 :: [a_a40qp]) = Scanr1 a6989586621679969758 a6989586621679969759 :: [a_a40qp] data ReplicateSym0 a6989586621679968895 data ReplicateSym1 a6989586621679968895 a6989586621679968896 type ReplicateSym2 (a6989586621679968895 :: Nat) (a6989586621679968896 :: a_a40oV) = Replicate a6989586621679968895 a6989586621679968896 :: [a_a40oV] data TakeSym0 a6989586621679969050 data TakeSym1 a6989586621679969050 a6989586621679969051 type TakeSym2 (a6989586621679969050 :: Nat) (a6989586621679969051 :: [a_a40pb]) = Take a6989586621679969050 a6989586621679969051 :: [a_a40pb] data DropSym0 a6989586621679969037 data DropSym1 a6989586621679969037 a6989586621679969038 type DropSym2 (a6989586621679969037 :: Nat) (a6989586621679969038 :: [a_a40pa]) = Drop a6989586621679969037 a6989586621679969038 :: [a_a40pa] data SplitAtSym0 a6989586621679969030 data SplitAtSym1 a6989586621679969030 a6989586621679969031 type SplitAtSym2 (a6989586621679969030 :: Nat) (a6989586621679969031 :: [a_a40p9]) = SplitAt a6989586621679969030 a6989586621679969031 :: ([a_a40p9], [a_a40p9]) data TakeWhileSym0 a6989586621679969167 data TakeWhileSym1 a6989586621679969167 a6989586621679969168 type TakeWhileSym2 (a6989586621679969167 :: (~>) a_a40pg Bool) (a6989586621679969168 :: [a_a40pg]) = TakeWhile a6989586621679969167 a6989586621679969168 :: [a_a40pg] data DropWhileSym0 a6989586621679969152 data DropWhileSym1 a6989586621679969152 a6989586621679969153 type DropWhileSym2 (a6989586621679969152 :: (~>) a_a40pf Bool) (a6989586621679969153 :: [a_a40pf]) = DropWhile a6989586621679969152 a6989586621679969153 :: [a_a40pf] data DropWhileEndSym0 a6989586621679969135 data DropWhileEndSym1 a6989586621679969135 a6989586621679969136 type DropWhileEndSym2 (a6989586621679969135 :: (~>) a_a40pe Bool) (a6989586621679969136 :: [a_a40pe]) = DropWhileEnd a6989586621679969135 a6989586621679969136 :: [a_a40pe] data SpanSym0 a6989586621679969098 data SpanSym1 a6989586621679969098 a6989586621679969099 type SpanSym2 (a6989586621679969098 :: (~>) a_a40pd Bool) (a6989586621679969099 :: [a_a40pd]) = Span a6989586621679969098 a6989586621679969099 :: ([a_a40pd], [a_a40pd]) data BreakSym0 a6989586621679969063 data BreakSym1 a6989586621679969063 a6989586621679969064 type BreakSym2 (a6989586621679969063 :: (~>) a_a40pc Bool) (a6989586621679969064 :: [a_a40pc]) = Break a6989586621679969063 a6989586621679969064 :: ([a_a40pc], [a_a40pc]) data NotElemSym0 a6989586621680492244 data NotElemSym1 a6989586621680492244 a6989586621680492245 type NotElemSym2 (a6989586621680492244 :: a_a6dx6) (a6989586621680492245 :: t_a6dx5 a_a6dx6) = NotElem a6989586621680492244 a6989586621680492245 :: Bool data ZipSym0 a6989586621679969585 data ZipSym1 a6989586621679969585 a6989586621679969586 type ZipSym2 (a6989586621679969585 :: [a_a40q8]) (a6989586621679969586 :: [b_a40q9]) = Zip a6989586621679969585 a6989586621679969586 :: [(a_a40q8, b_a40q9)] data Zip3Sym0 a6989586621679969573 data Zip3Sym1 a6989586621679969573 a6989586621679969574 data Zip3Sym2 a6989586621679969573 a6989586621679969574 a6989586621679969575 type Zip3Sym3 (a6989586621679969573 :: [a_a40q5]) (a6989586621679969574 :: [b_a40q6]) (a6989586621679969575 :: [c_a40q7]) = Zip3 a6989586621679969573 a6989586621679969574 a6989586621679969575 :: [(a_a40q5, b_a40q6, c_a40q7)] data ZipWithSym0 a6989586621679969561 data ZipWithSym1 a6989586621679969561 a6989586621679969562 data ZipWithSym2 a6989586621679969561 a6989586621679969562 a6989586621679969563 type ZipWithSym3 (a6989586621679969561 :: (~>) a_a40q2 ((~>) b_a40q3 c_a40q4)) (a6989586621679969562 :: [a_a40q2]) (a6989586621679969563 :: [b_a40q3]) = ZipWith a6989586621679969561 a6989586621679969562 a6989586621679969563 :: [c_a40q4] data ZipWith3Sym0 a6989586621679969546 data ZipWith3Sym1 a6989586621679969546 a6989586621679969547 data ZipWith3Sym2 a6989586621679969546 a6989586621679969547 a6989586621679969548 data ZipWith3Sym3 a6989586621679969546 a6989586621679969547 a6989586621679969548 a6989586621679969549 data UnzipSym0 a6989586621679969527 type UnzipSym1 (a6989586621679969527 :: [(a_a40pW, b_a40pX)]) = Unzip a6989586621679969527 :: ([a_a40pW], [b_a40pX]) data UnlinesSym0 a6989586621679969412 type UnlinesSym1 (a6989586621679969412 :: [Symbol]) = Unlines a6989586621679969412 :: Symbol data UnwordsSym0 a6989586621679969402 type UnwordsSym1 (a6989586621679969402 :: [Symbol]) = Unwords a6989586621679969402 :: Symbol -- | 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! module Data.Singletons.CustomStar -- | Produce a representation and singleton for the collection of types -- given. -- -- A datatype Rep is created, with one constructor per type in -- the declared universe. When this type is promoted by the singletons -- library, the constructors become full types in *, not just -- promoted data constructors. -- -- For example, -- --
--   $(singletonStar [''Nat, ''Bool, ''Maybe])
--   
-- -- generates the following: -- --
--   data Rep = Nat | Bool | Maybe Rep deriving (Eq, Ord, Read, Show)
--   
-- -- and its singleton. However, because Rep is promoted to -- *, the singleton is perhaps slightly unexpected: -- --
--   data SRep (a :: *) where
--     SNat :: Sing Nat
--     SBool :: Sing Bool
--     SMaybe :: Sing a -> Sing (Maybe a)
--   type instance Sing = SRep
--   
-- -- The unexpected part is that Nat, Bool, and -- Maybe above are the real Nat, Bool, and -- Maybe, not just promoted data constructors. -- -- Please note that this function is very experimental. Use at -- your own risk. singletonStar :: OptionsMonad q => [Name] -> q [Dec]