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

chore: rename assign delayed method

Browse source
This commit is contained in:
Leonardo de Moura 2019-10-25 10:44:42 -07:00
parent 14afe50384
commit 34acf2003c
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/library/metavar_context.cpp
View file

@ -139,7 +139,7 @@ void metavar_context::assign(expr const & e, expr const & v) {
lean_assert(is_assigned(e));
}
void metavar_context::assign(expr const & e, local_context const & lctx, exprs const & locals, expr const & v) {
void metavar_context::assign_delayed(expr const & e, local_context const & lctx, exprs const & locals, expr const & v) {
m_obj = lean_metavar_ctx_assign_delayed(m_obj, mvar_name(e).to_obj_arg(), lctx.to_obj_arg(), locals.to_obj_arg(), v.to_obj_arg());
lean_assert(is_delayed_assigned(e));
}
@ -187,7 +187,7 @@ struct metavar_context::interface_impl {
if (has_expr_metavar(new_v)) {
m_delayed_found.insert(mvar_name(e));
if (!is_eqp(new_v, d->get_val()))
m_ctx.assign(e, d->get_lctx(), d->get_locals(), new_v);
m_ctx.assign_delayed(e, d->get_lctx(), d->get_locals(), new_v);
return none_expr();
} else {
m_ctx.m_obj = lean_metavar_ctx_erase_delayed(m_ctx.m_obj, mvar_name(e).to_obj_arg());

2
src/library/metavar_context.h
View file

@ -99,7 +99,7 @@ public:
\pre is_metavar_decl_ref(e)
*/
void assign(expr const & e, local_context const & lctx, exprs const & locals, expr const & v);
void assign_delayed(expr const & e, local_context const & lctx, exprs const & locals, expr const & v);
level instantiate_mvars(level const & l);
expr instantiate_mvars(expr const & e);

2
src/library/tactic/intro_tactic.cpp
View file

@ -46,7 +46,7 @@ optional<expr> intron_core(environment const & env, options const & opts, metava
}
expr new_M = ctx.mk_metavar_decl(ctx.lctx(), type);
mctx = ctx.mctx();
mctx.assign(mvar, ctx.lctx(), exprs(new_Hs), new_M);
mctx.assign_delayed(mvar, ctx.lctx(), exprs(new_Hs), new_M);
return some_expr(new_M);
}