From 8baf4268940277164f1462187501225033ec93c4 Mon Sep 17 00:00:00 2001 From: Chloe Brown Date: Sun, 23 Apr 2023 14:53:40 +0100 Subject: Define shape views. --- src/Core/Term/NormalForm.idr | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/Core/Term') 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 -- cgit v1.2.3