rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

use DimEq directly in typing context

Browse source
This commit is contained in:
rhiannon morris 2023-02-14 21:29:04 +01:00
parent 4b7379f094
commit 065ebedf2d
3 changed files with 8 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tests/Tests/Typechecker.idr
View file

@ -70,12 +70,12 @@ parameters (label : String) (act : Lazy (M ()))
ctx : TContext Three 0 n -> TyContext Three 0 n
ctx = MkTyContext DNil
ctx = MkTyContext new
inferredTypeEq : TyContext Three d n -> (exp, got : Term Three d n) -> M ()
inferredTypeEq ctx exp got =
catchError
(inj $ equalType (makeDimEq ctx.dctx) ctx.tctx exp got)
(inj $ equalType ctx.dctx ctx.tctx exp got)
(\_ : Error' => throwError $ WrongInfer exp got)
qoutEq : (exp, got : QOutput Three n) -> M ()