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

chore(library/compiler/util): reduce term size if possible

Browse source
This commit is contained in:
Leonardo de Moura 2019-03-28 17:34:24 -07:00
parent 8c58314b84
commit 9d325515d4
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/library/compiler/util.cpp
View file

@ -244,8 +244,9 @@ pair<unsigned, unsigned> get_cases_on_minors_range(environment const & env, name
expr mk_lc_unreachable(type_checker::state & s, local_ctx const & lctx, expr const & type) {
type_checker tc(s, lctx);
level lvl = sort_level(tc.ensure_type(type));
return mk_app(mk_constant(get_lc_unreachable_name(), {lvl}), type);
expr t = cheap_beta_reduce(type);
level lvl = sort_level(tc.ensure_type(t));
return mk_app(mk_constant(get_lc_unreachable_name(), {lvl}), t);
}
bool is_join_point_name(name const & n) {