diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-05-24 15:48:28 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-05-24 15:48:28 +0100 |
| commit | 224c59ec520c92ed9e7e1d4e228e3c53acdff61e (patch) | |
| tree | 20ee8ee8f8c0d44a91c8739c84af8862aecd5475 /src/NormalForm.idr | |
| parent | 2aa256f4c60caa57a641ecf0962db0f69cab455a (diff) | |
Give a defunctionalised fuel-powered interpreter.
Diffstat (limited to 'src/NormalForm.idr')
| -rw-r--r-- | src/NormalForm.idr | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/NormalForm.idr b/src/NormalForm.idr index f4697f5..ea3b2c0 100644 --- a/src/NormalForm.idr +++ b/src/NormalForm.idr @@ -36,6 +36,9 @@ record Normal (ctx : SnocList Ty) (ty : Ty) where -- Inversions ------------------------------------------------------------------ export +Uninhabited (IsNormal (Sub t sub)) where uninhabited (Ntrl prf) impossible + +export predNorm : IsNormal (Succ t) -> IsNormal t predNorm (Succ prf) = prf |