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

test(lua): add normalize and type_check tests for terms containing metavariables

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-05-20 09:56:27 -07:00
parent ddccca529a
commit 9e55c8766f
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
tests/lua/expr9.lua Normal file
View file

@ -0,0 +1,23 @@
local env = environment()
local m = mk_metavar("m", mk_arrow(Bool, Bool))
local a = Local("a", Bool)
print(env:normalize(Fun(a, m)))
print(env:normalize(Fun(a, m(a))))
local m2 = mk_metavar("m2", mk_arrow(Bool, Bool, Bool))
print(env:normalize(Fun(a, (m2(a))(a))))
env:type_check(m)
env:type_check(Fun(a, m(a)))
env:type_check(Fun(a, (m2(a))(a)))
local m3 = mk_metavar("m3", mk_metavar("m4", mk_sort(mk_meta_univ("l"))))
env:type_check(m3)
-- The following call fails, because the type checker will try to
-- create a constraint, but constraint generation is not supported by
-- the type checker used to implement the method type_check
assert(not pcall(function()
env:type_check(m3(a))
end
))