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

remove ope stuff too

Browse source
This commit is contained in:
rhiannon morris 2023-01-08 15:43:54 +01:00
parent 9dbd0b066c
commit 0c1b3a78c3
5 changed files with 47 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/Quox/Syntax/Var.idr
View file

@ -2,7 +2,7 @@ module Quox.Syntax.Var
import Quox.Name
import Quox.Pretty
import Quox.OPE
-- import Quox.OPE
import Data.Nat
import Data.List
@ -264,10 +264,10 @@ decEqFromBool i j =
public export %inline DecEq (Var n) where decEq = varDecEq
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
-- 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