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
@@ -71,7 +71,7 @@ mutual
        let (py, nextFresh) := prettyTmWith names nextFresh y
        let (pp, nextFresh) := prettyTmWith names nextFresh p
        (s!"(idElim {pm} {pr} {py} {pp})", nextFresh)
-    | .univ i     => (s!"U{i}", nextFresh)
+    | .univ i     => (s!"U{i.pretty}", nextFresh)
    | .letE a t u =>
        let x := s!"x{nextFresh}"
        let (pa, nextFresh) := prettyTmWith names (nextFresh + 1) a