add Subst.one
This commit is contained in:
parent
3ea9db1c82
commit
76c02adf03
1 changed files with 5 additions and 0 deletions
|
@ -90,6 +90,11 @@ drop1 (Shift by) = Shift $ drop1 by
|
|||
drop1 (t ::: th) = th
|
||||
|
||||
|
||||
public export %inline
|
||||
one : f n -> Subst f (S n) n
|
||||
one x = x ::: id
|
||||
|
||||
|
||||
||| `prettySubst pr names bnd op cl th` pretty-prints the substitution `th`,
|
||||
||| with the following arguments:
|
||||
|||
|
||||
|
|
Loading…
Reference in a new issue