michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test(lua): add more universe level expression tests

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-05-20 11:41:17 -07:00
parent 8872d4a531
commit fae07771ec
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/lua/level8.lua Normal file
View file

@ -0,0 +1,10 @@
local l = max_univ()
assert(l == mk_level_zero())
assert(l == max_univ(l))
local l1 = param_univ("l1")
local l2 = param_univ("l2")
assert(max_univ(l1, l2):is_geq(max_univ(l2, l1)))
assert(max_univ(l1+1, l2+1):is_geq(max_univ(l2, l1)+1))
-- is_geq_core assumes the levels are normalized
assert(not max_univ(l1+1, l2+1):is_geq_core(max_univ(l2, l1)+1))