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

more fromparser stuff

Browse source
This commit is contained in:
rhiannon morris 2023-03-10 21:52:29 +01:00
parent 426c138c2b
commit d9bc68446f
7 changed files with 130 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/Quox/Syntax/Dim.idr
View file

@ -84,6 +84,12 @@ prettyDSubst th =
public export FromVar Dim where fromVar = B
export
inject : Dim d -> Dim (d + inj)
inject (K e) = K e
inject (B i) = B $ inject i
export
CanShift Dim where
K e // _ = K e
@ -127,9 +133,3 @@ DecEq (Dim d) where
public export %inline
BV : (i : Nat) -> (0 _ : LT i d) => Dim d
BV i = B $ V i
export
inject : {0 d' : Nat} -> Dim d -> Dim (d + d')
inject (K e) = K e
inject (B i) = B $ inject i