22 lines
352 B
Idris
22 lines
352 B
Idris
module Quox.Typing.Context
|
|
|
|
import Quox.Syntax
|
|
import Quox.Context
|
|
|
|
|
|
public export
|
|
TContext : Type -> Nat -> Nat -> Type
|
|
TContext q d = Context (Term q d)
|
|
|
|
public export
|
|
QOutput : Type -> Nat -> Type
|
|
QOutput = Context'
|
|
|
|
|
|
public export
|
|
record TyContext q d n where
|
|
constructor MkTyContext
|
|
dctx : DimEq d
|
|
tctx : TContext q d n
|
|
|
|
%name TyContext ctx
|