test(tests/lean/run): missing tests

This commit is contained in:
Leonardo de Moura 2016-06-11 10:25:16 -07:00
parent 303ef37a23
commit 94169fb8d6
2 changed files with 61 additions and 0 deletions

View file

@ -0,0 +1,5 @@
open name
check "foo" <s> "bla"
vm_eval "foo" <s> "bla" <n> 10 <n> 20

View file

@ -0,0 +1,56 @@
set_option pp.all true
open tactic name list
set_option pp.goal.compact true
set_option pp.binder_types true
#tactic (∀ (p : Prop), p → p → p),
do
intro_lst ["_", "H1", "H2"],
revert "H1",
trace_state,
r ← result,
trace_expr r,
intro "H3",
r ← result,
trace_expr r,
assumption,
r ← result,
trace_expr r,
return ()
print "====================="
#tactic (∀ (p : Prop), p → p → p),
do
intro_lst ["_", "H1", "H2"],
revert_lst ["H1", "H2"],
trace_state,
r ← result,
trace_expr r,
intro "H3",
trace_state,
trace "------------",
r ← result,
trace_expr r,
(assumption <|> trace "assumption failed"),
intro "H4",
assumption,
trace "------------",
r ← result,
trace_expr r,
return ()
print "====================="
#tactic (∀ (p : Prop), p → p → p),
do
intros,
revert "p",
trace_state,
intros,
assumption,
r ← result,
trace_expr r,
return ()