remove universe type

2023-03-05 16:48:29 +01:00 · 2023-03-05 16:48:29 +01:00 · b7acf39c39
commit b7acf39c39
parent 0cae84c75b
8 changed files with 21 additions and 44 deletions
--- a/lib/Quox/Parser/Syntax.idr
+++ b/lib/Quox/Parser/Syntax.idr
@ -84,7 +84,7 @@ mutual
                   (t : Term Three d n) -> (0 _ : NotClo t) =>
                   PTerm
    toPTermWith' ds ns s = case s of
-      TYPE (U l) =>
+      TYPE l =>
        TYPE l
      Pi qty arg (S [x] res) =>
        Pi qty (Just x) (toPTermWith ds ns arg)