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

feat(library/blast/blast): add blast::internalize

Browse source
This commit is contained in:
Leonardo de Moura 2015-11-04 15:52:38 -08:00
parent 43efc11f36
commit 98b79373cc
2 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/library/blast/blast.cpp
View file

@ -447,6 +447,15 @@ public:
ctx->clear();
m_tmp_ctx_pool.push_back(ctx);
}
/** \brief Convert an external expression into a blast expression
It converts meta-variables to blast meta-variables, and ensures the expressions
are maximally shared.
\remark This procedure should only be used for debugging purposes. */
expr internalize(expr const & e) {
name_map<expr> local2href;
return to_blast_expr_fn(m_env, m_curr_state, m_uvar2uref, m_mvar2meta_mref, local2href)(e);
}
};
LEAN_THREAD_PTR(blastenv, g_blastenv);
@ -626,6 +635,11 @@ blast_tmp_type_context::blast_tmp_type_context() {
blast_tmp_type_context::~blast_tmp_type_context() {
g_blastenv->recycle_tmp_type_context(m_ctx);
}
expr internalize(expr const & e) {
lean_assert(g_blastenv);
return g_blastenv->internalize(e);
}
}
optional<expr> blast_goal(environment const & env, io_state const & ios, list<name> const & ls, list<name> const & ds,
goal const & g) {

7
src/library/blast/blast.h
View file

@ -94,6 +94,13 @@ public:
tmp_type_context const & operator*() const { return *m_ctx; }
tmp_type_context & operator*() { return *m_ctx; }
};
/**
\brief Convert an external expression into a blast expression
It converts meta-variables to blast meta-variables, and ensures the expressions
are maximally shared.
\remark This procedure should only be used for **debugging purposes**. */
expr internalize(expr const & e);
}
optional<expr> blast_goal(environment const & env, io_state const & ios, list<name> const & ls, list<name> const & ds,
goal const & g);