CanShift Dim

This commit is contained in:
rhiannon morris 2021-12-23 19:01:39 +01:00
parent a11e4d5ef1
commit 568dba6f0b
1 changed files with 5 additions and 0 deletions

View File

@ -61,6 +61,11 @@ prettyDSubst th =
export FromVar Dim where fromVar = B
export
CanShift Dim where
K e // _ = K e
B i // by = B (i // by)
export
CanSubst Dim Dim where
K e // _ = K e