test(tests/lean/run): missing tests
This commit is contained in:
parent
303ef37a23
commit
94169fb8d6
2 changed files with 61 additions and 0 deletions
5
tests/lean/run/meta3.lean
Normal file
5
tests/lean/run/meta3.lean
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
open name
|
||||
|
||||
check "foo" <s> "bla"
|
||||
|
||||
vm_eval "foo" <s> "bla" <n> 10 <n> 20
|
||||
56
tests/lean/run/meta_tac2.lean
Normal file
56
tests/lean/run/meta_tac2.lean
Normal 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 ()
|
||||
Loading…
Add table
Reference in a new issue