From 88b6df5dd91c062a96e646e6e6b0ac5fd57b7c03 Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Sun, 18 Dec 2022 13:19:06 +0000 Subject: Add False type. --- src/Obs/Abstract.idr | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'src/Obs/Abstract.idr') diff --git a/src/Obs/Abstract.idr b/src/Obs/Abstract.idr index fe00621..1b72965 100644 --- a/src/Obs/Abstract.idr +++ b/src/Obs/Abstract.idr @@ -37,9 +37,14 @@ abstractSyntax ctx (Var b str) = do let Just i = lookup str ctx | Nothing => report b "unbound variable: \{str}" pure (Var b i) -abstractSyntax ctx (Sort b s) = pure (Sort b s) -abstractSyntax ctx (Top b) = pure (Top b) -abstractSyntax ctx (Point b) = pure (Point b) +abstractSyntax ctx (Sort b s) = pure (Sort b s) +abstractSyntax ctx (Top b) = pure (Top b) +abstractSyntax ctx (Point b) = pure (Point b) +abstractSyntax ctx (Bottom b) = pure (Bottom b) +abstractSyntax ctx (Absurd b a t) = do + a <- abstractSyntax ctx a + t <- abstractSyntax ctx t + pure (Absurd b a t) export abstractDefinition : Context n -> Definition -> Error (Definition n) -- cgit v1.2.3