module Elab.WiredIn where

import GHC.Stack.Types

import Syntax

wiType  :: WiredIn -> NFType
wiValue :: WiredIn -> NFType

iand, ior :: NFEndp -> NFEndp -> NFEndp
inot      :: NFEndp -> NFEndp
ielim     :: NFSort -> Value -> Value -> Value -> NFEndp -> Value

outS :: HasCallStack => NFSort -> NFEndp -> Value -> Value -> Value
comp :: NFLine -> NFEndp -> Value -> Value -> Value
fill :: NFLine -> NFEndp -> Value -> Value -> Value -> Value
hComp :: NFSort -> NFEndp -> Value -> Value -> Value

glueType :: NFSort -> NFEndp -> NFPartial -> NFPartial -> Value
glueElem :: NFSort -> NFEndp -> NFPartial -> NFPartial -> NFPartial -> Value -> Value
unglue   :: NFSort -> NFEndp -> NFPartial -> NFPartial -> Value -> Value

fun :: (Value -> Value) -> Value
system :: (Value -> Value -> Value) -> Value