Language.SMTLib2.Internals.Type.List

Documentation

type family Head lst :: a

Equations

Head (x : xs) = x

type family Tail lst :: [a]

Equations

Tail (x : xs) = xs

type family Index lst idx :: a

Equations

Index (x : xs) Z = x

Index (x : xs) (S n) = Index xs n

type family Insert lst idx el :: [a]

Equations

Insert (x : xs) Z y = y : xs

Insert (x : xs) (S n) y = x : Insert xs n y

type family Remove lst idx :: [a]

Equations

Remove (x : xs) Z = xs

Remove (x : xs) (S n) = x : Remove xs n

type family Append lst el :: [a]

Equations

Append `[]` y = y : `[]`

Append (x : xs) y = x : Append xs y

type family Length lst :: Nat

Equations

Length `[]` = Z

Length (x : xs) = S (Length xs)

type family Drop lst i :: [a]

Equations

Drop lst Z = lst

Drop (x : xs) (S n) = Drop xs n

type family Take lst i :: [a]

Equations

Take xs Z = `[]`

Take (x : xs) (S n) = x : Take xs n

type family StripPrefix lst pre :: [a]

Equations

StripPrefix xs `[]` = xs

StripPrefix (x : xs) (x : ys) = StripPrefix xs ys

type family Last lst :: a

Equations

Last `[x]` = x

Last (x : (y : rest)) = Last (y : rest)

type family DropLast lst :: [a]

Equations

DropLast `[x]` = `[]`

DropLast (x : (y : rest)) = x : DropLast (y : rest)

type family Reverse lst :: [a]

Equations

Reverse `[]` = `[]`

Reverse (x : xs) = Append (Reverse xs) x

type family Map lst f :: [b]

Equations

Map `[]` f = `[]`

Map (x : xs) f = f x : Map xs f

data List e tp where

Constructors

Nil :: List e `[]`

(:::) :: e x -> List e xs -> List e (x : xs) infixr 9

Instances

HasMonad (m (List Type e tp))

GCompare k e => GCompare [k] (List k e)

GEq k e => GEq [k] (List k e)

GShow k e => GShow [k] (List k e)

GEq k e => Eq (List k e lst)

GCompare k e => Ord (List k e lst)

GShow k e => Show (List k e lst)

HasMonad (List Type e tp)

type MonadResult (m (List Type e tp)) = List Type e tp

type MatchMonad (m (List Type e tp)) m' = (~) (* -> *) m m'

type MonadResult (List Type e tp) = List Type e tp

type MatchMonad (List Type e tp) m = ()

list :: [ExpQ] -> ExpQ

nil :: List e `[]`

list1 :: e t1 -> List e `[t1]`

list2 :: e t1 -> e t2 -> List e `[t1, t2]`

list3 :: e t1 -> e t2 -> e t3 -> List e `[t1, t2, t3]`

reifyList :: (forall r'. a -> (forall tp. e tp -> r') -> r') -> [a] -> (forall tp. List e tp -> r) -> r

access :: Monad m => List e lst -> Natural idx -> (e (Index lst idx) -> m (a, e tp)) -> m (a, List e (Insert lst idx tp))

access' :: Monad m => List e lst -> Natural idx -> (e (Index lst idx) -> m (a, e (Index lst idx))) -> m (a, List e lst)

head :: List e lst -> e (Head lst)

tail :: List e lst -> List e (Tail lst)

index :: List e lst -> Natural idx -> e (Index lst idx)

insert :: List e lst -> Natural idx -> e tp -> List e (Insert lst idx tp)

remove :: List e lst -> Natural idx -> List e (Remove lst idx)

mapM :: Monad m => (forall x. e x -> m (e' x)) -> List e lst -> m (List e' lst)

mapIndexM :: Monad m => (forall n. Natural n -> e (Index lst n) -> m (e' (Index lst n))) -> List e lst -> m (List e' lst)

cons :: e x -> List e xs -> List e (x : xs)

append :: List e xs -> e x -> List e (Append xs x)

length :: List e lst -> Natural (Length lst)

drop :: List e lst -> Natural i -> List e (Drop lst i)

take :: List e lst -> Natural i -> List e (Take lst i)

last :: List e lst -> e (Last lst)

dropLast :: List e lst -> List e (DropLast lst)

stripPrefix :: GEq e => List e lst -> List e pre -> Maybe (List e (StripPrefix lst pre))

reverse :: List e lst -> List e (Reverse lst)

map :: List e lst -> (forall x. e x -> e (f x)) -> List e (Map lst f)

unmap :: List p lst -> List e (Map lst f) -> (forall x. e (f x) -> e x) -> List e lst

unmapM :: Monad m => List p lst -> List e (Map lst f) -> (forall x. e (f x) -> m (e x)) -> m (List e lst)

mapM' :: Monad m => List e lst -> (forall x. e x -> m (e (f x))) -> m (List e (Map lst f))

toList :: Monad m => (forall x. e x -> m a) -> List e lst -> m [a]

toListIndex :: Monad m => (forall n. Natural n -> e (Index lst n) -> m a) -> List e lst -> m [a]

foldM :: Monad m => (forall x. s -> e x -> m s) -> s -> List e lst -> m s

zipWithM :: Monad m => (forall x. e1 x -> e2 x -> m (e3 x)) -> List e1 lst -> List e2 lst -> m (List e3 lst)

zipToListM :: Monad m => (forall x. e1 x -> e2 x -> m a) -> List e1 lst -> List e2 lst -> m [a]

mapAccumM :: Monad m => (forall x. s -> e x -> m (s, e' x)) -> s -> List e xs -> m (s, List e' xs)