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

fix(library/compiler/csimp): inlining at projections

Browse source
This commit is contained in:
Leonardo de Moura 2018-09-18 21:09:49 -07:00
parent d0e804b780
commit 17a779c36f
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/library/compiler/csimp.cpp
View file

@ -109,20 +109,22 @@ class csimp_fn {
}
expr visit_proj(expr const & e) {
expr s = find(proj_expr(e));
expr s = proj_expr(e);
if (is_constant(s) && should_inline(const_name(s), 0)) {
if (optional<constant_info> info = env().find(mk_cstage1_name(const_name(s)))) {
s = instantiate_value_lparams(*info, const_levels(s));
s = visit(instantiate_value_lparams(*info, const_levels(s)));
}
}
if (is_constructor_app(env(), s)) {
expr new_s = find(s);
if (is_constructor_app(env(), new_s)) {
buffer<expr> args;
expr const & k = get_app_args(s, args);
expr const & k = get_app_args(new_s, args);
constructor_val k_val = env().get(const_name(k)).to_constructor_val();
lean_assert(k_val.get_nparams() + proj_idx(e).get_small_value() < args.size());
return args[k_val.get_nparams() + proj_idx(e).get_small_value()];
} else {
return update_proj(e, s);
}
return e;
}
expr reduce_cases_cases(expr const & c, buffer<expr> const & args, inductive_val const & I_val, expr const & major) {