OPE & scope stuff

lib/Quox/Syntax/Term/Reduce.idr

@@ -116,6 +116,7 @@ pushSubstsE' : Elim d n -> Elim d n
 pushSubstsE' e = (pushSubstsE e).fst
 
 
+{- [todo] remove these probably?
 mutual
   -- tightening a term/elim also causes substitutions to be pushed through.
   -- this is because otherwise a variable in an unused part of the subst
@@ -156,6 +157,7 @@ mutual
   Tighten (ScopeTerm d) where
     tighten p (TUsed   body) = TUsed   <$> tighten (Keep p) body
     tighten p (TUnused body) = TUnused <$> tighten p body
+-}
 
 
 public export %inline