oops Shift.drop1 and ssDown were the same

This commit is contained in:
rhiannon morris 2022-06-24 11:28:25 +02:00
parent 956c677614
commit 77e94a3033
4 changed files with 4 additions and 28 deletions

View file

@ -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