diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-16 14:50:55 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-16 14:50:55 +0100 |
| commit | 5a53c75f533f2ae758635e1989c4e7fb2b6469d5 (patch) | |
| tree | 09adf279aa9b29964a4330673b6f2c4152838f4b /src/Core/Term | |
| parent | f0b34a9132f1d0606a80f7f84b0ee55c8c09d46e (diff) | |
Prove whnfs do not reduce.
Diffstat (limited to 'src/Core/Term')
| -rw-r--r-- | src/Core/Term/NormalForm.idr | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/src/Core/Term/NormalForm.idr b/src/Core/Term/NormalForm.idr new file mode 100644 index 0000000..9984bee --- /dev/null +++ b/src/Core/Term/NormalForm.idr @@ -0,0 +1,22 @@ +module Core.Term.NormalForm + +import Core.Term + +-- Definition ------------------------------------------------------------------ + +public export +data Neutral : Term n -> Type where + Var : Neutral (Var i) + App : Neutral t -> Neutral (App t u) + +public export +data Whnf : Term n -> Type where + Ntrl : Neutral t -> Whnf t + + Set : Whnf Set + + Pi : Whnf (Pi a b) + Abs : Whnf (Abs t) + +%name Neutral n, m +%name Whnf n, m |