From 349cf2f477a4dc0d1ea1a042126606e529e1f346 Mon Sep 17 00:00:00 2001
From: rhiannon morris <rhi@rhiannon.website>
Date: Mon, 17 Jul 2023 18:10:13 +0200
Subject: [PATCH] remove unused Tighten impl

---
 lib/Quox/Syntax/Term/Tighten.idr | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/lib/Quox/Syntax/Term/Tighten.idr b/lib/Quox/Syntax/Term/Tighten.idr
index 8d67c2b..24c7018 100644
--- a/lib/Quox/Syntax/Term/Tighten.idr
+++ b/lib/Quox/Syntax/Term/Tighten.idr
@@ -8,23 +8,11 @@ import Quox.No
 %default total
 
 
-export
-Tighten (Shift f) where
-  -- `OPE m n` is a spicy `m ≤ n`,
-  -- and `Shift f n` is a (different) spicy `f ≤ n`
-  -- so the value is `f ≤ m` (as a `Shift`), if that is the case
-  tighten _        SZ      = Nothing
-  tighten Id       by      = Just by
-  tighten (Drop p) (SS by) = tighten p by
-  tighten (Keep p) (SS by) = [|SS $ tighten p by|]
-
-
 export
 Tighten Dim where
   tighten p (K e loc) = pure $ K e loc
   tighten p (B i loc) = B <$> tighten p i <*> pure loc
 
-
 export
 tightenScope : (forall m, n. OPE m n -> f n -> Maybe (f m)) ->
                {s : Nat} -> OPE m n -> Scoped s f n -> Maybe (Scoped s f m)