oops Shift.drop1 and ssDown were the same
This commit is contained in:
parent
956c677614
commit
77e94a3033
4 changed files with 4 additions and 28 deletions
|
@ -86,7 +86,7 @@ push th = fromVar VZ ::: (th . shift 1)
|
|||
|
||||
public export
|
||||
drop1 : Subst f (S from) to -> Subst f from to
|
||||
drop1 (Shift by) = Shift $ drop1 by
|
||||
drop1 (Shift by) = Shift $ ssDown by
|
||||
drop1 (t ::: th) = th
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue