add Dim.toConst

This commit is contained in:
rhiannon morris 2022-04-06 20:32:56 +02:00
parent 2c1ca7e19b
commit e6d942ce1b

View file

@ -50,6 +50,11 @@ PrettyHL (Dim n) where
prettyM (B i) = prettyVar DVar DVarErr (!ask).dnames i prettyM (B i) = prettyVar DVar DVarErr (!ask).dnames i
public export %inline
toConst : Dim 0 -> DimConst
toConst (K e) = e
public export public export
DSubst : Nat -> Nat -> Type DSubst : Nat -> Nat -> Type
DSubst = Subst Dim DSubst = Subst Dim