diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-18 12:00:01 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-18 12:00:01 +0000 |
| commit | b6fb551360b283c38b3ede9ef3e6d2922bd62b58 (patch) | |
| tree | 84fbb185fcf3e29c09012fc75a6d394ba88e3e62 /src/Obs/Abstract.idr | |
| parent | 95de9b2913be536972f3921d41c24d9c0458c538 (diff) | |
Add the True type.
Diffstat (limited to 'src/Obs/Abstract.idr')
| -rw-r--r-- | src/Obs/Abstract.idr | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Obs/Abstract.idr b/src/Obs/Abstract.idr index bac6d04..fe00621 100644 --- a/src/Obs/Abstract.idr +++ b/src/Obs/Abstract.idr @@ -38,6 +38,8 @@ abstractSyntax ctx (Var b str) = do | 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) export abstractDefinition : Context n -> Definition -> Error (Definition n) |