diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-23 14:53:40 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-04-23 14:53:40 +0100 |
| commit | 8baf4268940277164f1462187501225033ec93c4 (patch) | |
| tree | 2a0407ca60b22dffad98e8daa5ab1db237959465 /src/Core/Term | |
| parent | 52b9e2f139444f012f3610e60321e4336d888bec (diff) | |
Define shape views.
Diffstat (limited to 'src/Core/Term')
| -rw-r--r-- | src/Core/Term/NormalForm.idr | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Core/Term/NormalForm.idr b/src/Core/Term/NormalForm.idr index 2cd16a1..fc7ed6e 100644 --- a/src/Core/Term/NormalForm.idr +++ b/src/Core/Term/NormalForm.idr @@ -28,6 +28,14 @@ public export NeutralTerm : Nat -> Type NeutralTerm n = Subset (Term n) Neutral +-- Impossibilities ------------------------------------------------------------- + +export +Uninhabited (Neutral Set) where uninhabited n impossible + +export +Uninhabited (Neutral $ Pi f g) where uninhabited n impossible + -- Inversion ------------------------------------------------------------------- invertNtrlApp : Neutral (App t u) -> Neutral t |