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.idr | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/Core/Term.idr') diff --git a/src/Core/Term.idr b/src/Core/Term.idr index a3ddac5..8c05e03 100644 --- a/src/Core/Term.idr +++ b/src/Core/Term.idr @@ -20,6 +20,14 @@ data Term : Nat -> Type where %name Term t, u, v +-- Impossibilities ------------------------------------------------------------- + +export +Uninhabited (Set = Pi f g) where uninhabited prf impossible + +export +Uninhabited (Pi f g = Set) where uninhabited prf impossible + -- Weakening ------------------------------------------------------------------- public export -- cgit v1.2.3