remove some noLocs

This commit is contained in:
rhiannon morris 2023-08-06 11:07:17 +02:00
parent 1da902d13a
commit ca1adcce47
11 changed files with 36 additions and 36 deletions

View file

@ -197,7 +197,7 @@ namespace EqContext
toTyContext : (e : EqContext n) -> TyContext e.dimLen n
toTyContext (MkEqContext {dimLen, dassign, dnames, tctx, tnames, qtys}) =
MkTyContext {
dctx = fromGround dassign,
dctx = fromGround dnames dassign,
tctx = map (// shift0 dimLen) tctx,
dnames, tnames, qtys
}