diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-08 14:23:29 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-08 14:23:29 +0100 |
| commit | c64650ee0f41a1ebe45cf92c9b999f39825e9f5e (patch) | |
| tree | 3458f26548dd5b8d857632a5aca3550fc0a30d69 /src/Total/NormalForm.idr | |
| parent | 6590816a835110b8181472a5116dd4ecf67c957c (diff) | |
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.
Diffstat (limited to 'src/Total/NormalForm.idr')
| -rw-r--r-- | src/Total/NormalForm.idr | 4 |
1 files changed, 2 insertions, 2 deletions
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 |