Skip to content

Commit

Permalink
[ cleanup ] remove unused unsafe definition
Browse files Browse the repository at this point in the history
  • Loading branch information
gallais committed Nov 28, 2023
1 parent 9f6ffc9 commit f9206e2
Showing 1 changed file with 0 additions and 7 deletions.
7 changes: 0 additions & 7 deletions src/Core/Name/Scoped.idr
Original file line number Diff line number Diff line change
Expand Up @@ -119,13 +119,6 @@ keeps : (args : List a) -> Thin xs ys -> Thin (args ++ xs) (args ++ ys)
keeps [] th = th
keeps (x :: xs) th = keep (keeps xs th)

namespace Thin
-- At runtime, Thin's `Refl` does not carry any additional
-- information. So this is safe!
export
embed : Thin xs ys -> Thin (xs ++ outer) (ys ++ outer)
embed = believe_me

||| Compute the thinning getting rid of the listed de Bruijn indices.
-- TODO: is the list of erased arguments guaranteed to be sorted?
-- Should it?
Expand Down

0 comments on commit f9206e2

Please sign in to comment.