Replace hardcoded universe levels with a proper level language and constraint solving
This commit is contained in:
@@ -46,6 +46,8 @@ def fstDepPair : Raw := .fst depPairAnn
|
||||
|
||||
def sndDepPair : Raw := .snd depPairAnn
|
||||
|
||||
def univMax : Raw := .univ (.max 0 1)
|
||||
|
||||
def natTwo : Raw :=
|
||||
.succ (.succ .zero)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user