CanShift Dim

This commit is contained in:
rhiannon morris 2021-12-23 19:01:39 +01:00
parent a11e4d5ef1
commit 568dba6f0b

View file

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