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

make tighten into an interface

Browse source
This commit is contained in:
rhiannon morris 2022-04-11 23:36:01 +02:00
parent 7faca8ac27
commit 67d8c59cd1
2 changed files with 20 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/Quox/Syntax/Var.idr
View file

@ -264,23 +264,10 @@ decEqFromBool i j =
public export %inline DecEq (Var n) where decEq = varDecEq
parameters {auto _ : Alternative f}
export
tighten : OPE m n -> Var n -> f (Var m)
export
Tighten Var where
tighten Id i = pure i
tighten (Drop q) VZ = empty
tighten (Drop q) (VS i) = tighten q i
tighten (Keep q) VZ = pure VZ
tighten (Keep q) (VS i) = VS <$> tighten q i
export
tightenInner : {n : Nat} -> m `LTE` n -> Var n -> f (Var m)
tightenInner = tighten . dropInner
export
tightenN : (m : Nat) -> Var (m + n) -> f (Var n)
tightenN m = tighten $ dropInnerN m
export
tighten1 : Var (S n) -> f (Var n)
tighten1 = tightenN 1