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

test(lua): add test for inductive datatype positivity check

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-05-17 20:12:55 -07:00
parent 950d69b977
commit fcf94ad7c2
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/lua/ind1.lua
View file

@ -70,3 +70,9 @@ env = add_inductive(env, {},
"succ_odd", Pi(b, Nat, mk_arrow(Odd(b), Even(succ(b))))}, "succ_odd", Pi(b, Nat, mk_arrow(Odd(b), Even(succ(b))))},
{"Odd", mk_arrow(Nat, Bool), {"Odd", mk_arrow(Nat, Bool),
"succ_even", Pi(b, Nat, mk_arrow(Even(b), Odd(succ(b))))}) "succ_even", Pi(b, Nat, mk_arrow(Even(b), Odd(succ(b))))})
local flist_l = Const("flist", {l})
env = add_inductive(env,
"flist", {l}, 1, mk_arrow(U_l, U_l1),
"fnil", Pi({{A, U_l, true}}, flist_l(A)),
"fcons", Pi({{A, U_l, true}}, mk_arrow(A, mk_arrow(Nat, flist_l(A)), flist_l(A))))