Replace hardcoded universe levels with a proper level language and constraint solving

2026-04-19 15:50:59 +00:00
parent 963c9f3e94
commit 28c9f2f9f8
8 changed files with 90 additions and 13 deletions
@@ -1,3 +1,5 @@
+import BidirTT.Level
+
 namespace BidirTT

 abbrev Name := String
@@ -23,7 +25,7 @@ inductive Raw where
  | id   : Raw → Raw → Raw → Raw
  | refl : Raw
  | idElim : Name → Name → Raw → Raw → Raw → Raw → Raw
-  | univ : Nat → Raw
+  | univ : Level → Raw
  | letE : Name → Raw → Raw → Raw → Raw
  | ann  : Raw → Raw → Raw
  deriving Repr, Inhabited, BEq, DecidableEq
@@ -49,7 +51,7 @@ inductive Tm where
  | id   : Tm → Tm → Tm → Tm
  | refl : Tm
  | idElim : Tm → Tm → Tm → Tm → Tm
-  | univ : Nat → Tm
+  | univ : Level → Tm
  | letE : Tm → Tm → Tm → Tm
  deriving Repr, Inhabited, BEq, DecidableEq