diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2023-01-02 15:43:24 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2023-01-02 15:43:24 +0000 |
| commit | 74f0dc953839179aae071dda1ddb924295bc6061 (patch) | |
| tree | 6a4b29383502ec1ebbe12d5e46f5658d382859d2 /src/Obs/Abstract.idr | |
| parent | 7e184c20d545afb55f6e962b8bfea882b23699fa (diff) | |
Add more program structure to type universes.
Diffstat (limited to 'src/Obs/Abstract.idr')
| -rw-r--r-- | src/Obs/Abstract.idr | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Obs/Abstract.idr b/src/Obs/Abstract.idr index b32af2d..a9ef411 100644 --- a/src/Obs/Abstract.idr +++ b/src/Obs/Abstract.idr @@ -25,7 +25,7 @@ abstractSyntax ctx (Var var) = do let Just i = lookup var ctx | Nothing => inScope "unbound variable" $ fatal var pure (Var var i) -abstractSyntax ctx (Sort s) = pure (Sort s) +abstractSyntax ctx (Universe s) = pure (Universe s) abstractSyntax ctx (Pi var a b) = do a <- abstractSyntaxBounds ctx a b <- abstractSyntaxBounds (bind ctx var.val) b |