19 lines
306 B
Idris
19 lines
306 B
Idris
module Ctx
|
|
|
|
import Misc
|
|
|
|
import Data.Nat
|
|
|
|
%default total
|
|
|
|
infixr 7 ::
|
|
|
|
public export
|
|
data Ctx : (Index -> Type) -> (_ : Index) -> Type where
|
|
Nil : Ctx ty 0
|
|
(::) : ty n -> Ctx ty n -> Ctx ty (S n)
|
|
|
|
public export
|
|
data Closure : (Index -> Type) -> Type where
|
|
MkClosure : Ctx ty n -> ty n -> Closure ty
|