max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat(library/tactic/kabstract): expose kabstract to VM

Browse source
This commit is contained in:
Gabriel Ebner 2017-08-12 18:31:46 +02:00
parent 867bc46d99
commit 32ddac5f40
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
library/init/meta/tactic.lean
View file

@ -484,6 +484,8 @@ meta constant open_namespaces : tactic (list name)
The main idea is to minimize the number of `is_def_eq` checks
performed. -/
meta constant kdepends_on (e t : expr) (md := reducible) : tactic bool
/-- Abstracts all occurrences of the term `t` in `e` using keyed matching. -/
meta constant kabstract (e t : expr) (md := reducible) : tactic expr
/-- Blocks the execution of the current thread for at least `msecs` milliseconds.
This tactic is used mainly for debugging purposes. -/

12
src/library/tactic/kabstract.cpp
View file

@ -213,11 +213,23 @@ vm_obj tactic_kdepends_on(vm_obj const & e, vm_obj const & t, vm_obj const & md,
}
}
vm_obj tactic_kabstract(vm_obj const & e, vm_obj const & t, vm_obj const & md, vm_obj const & s0) {
tactic_state s = tactic::to_state(s0);
try {
type_context ctx = mk_type_context_for(s, to_transparency_mode(md));
auto a = kabstract(ctx, to_expr(e), to_expr(t), occurrences());
return tactic::mk_success(to_obj(a), set_mctx(s, ctx.mctx()));
} catch (exception & ex) {
return tactic::mk_exception(ex, s);
}
}
void initialize_kabstract() {
register_trace_class("kabstract");
g_ext = new key_equivalence_ext_reg();
key_equivalence_modification::init();
DECLARE_VM_BUILTIN(name({"tactic", "kdepends_on"}), tactic_kdepends_on);
DECLARE_VM_BUILTIN(name("tactic", "kabstract"), tactic_kabstract);
}
void finalize_kabstract() {