From c64650ee0f41a1ebe45cf92c9b999f39825e9f5e Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Thu, 8 Jun 2023 14:23:29 +0100
Subject: Fully expand thinnings.

This makes adding CoDebruijn syntax simpler. If carrying the lengths of
contexts around is too inefficient, I can always switch back to
truncated thinnings.
---
 src/Total/NormalForm.idr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Total/NormalForm.idr')

diff --git a/src/Total/NormalForm.idr b/src/Total/NormalForm.idr
index b5580b5..266d00d 100644
--- a/src/Total/NormalForm.idr
+++ b/src/Total/NormalForm.idr
@@ -93,8 +93,8 @@ recNf' :
 recNf' Zero n relU relV = backStepsRel relU [<RecZero]
 recNf' (Suc t') n relU relV =
   let rec = recNf' t' (invSuc n) relU relV in
-  let step : Rec (Suc t') u v > App (wkn v Id) (Rec t' u v) = rewrite wknId v in RecSuc in
-  backStepsRel (snd relV Id _ rec) [<step]
+  let step : Rec (Suc t') u v > App (wkn v id) (Rec t' u v) = rewrite wknId v in RecSuc in
+  backStepsRel (snd relV id _ rec) [<step]
 recNf' t'@(Var _) n relU relV =
   let nfU = escape relU in
   let nfV = escape {ty = ty ~> ty} relV in
-- 
cgit v1.2.3