add Dim.toConst
This commit is contained in:
parent
2c1ca7e19b
commit
e6d942ce1b
1 changed files with 5 additions and 0 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue