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

fix(library/compiler/reduce_arity): incorrect assertion

Browse source
This commit is contained in:
Leonardo de Moura 2016-05-25 14:20:16 -07:00
parent 76e2f92d9c
commit b8ea69b3cd
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/library/compiler/reduce_arity.cpp
View file

@ -43,9 +43,12 @@ class remove_args_fn : public compiler_step_visitor {
buffer<expr> args;
get_app_args(e, args);
buffer<expr> new_args;
lean_assert(args.size() == bv->size());
for (unsigned i = 0; i < args.size(); i++) {
if ((*bv)[i])
/* The case i >= bv->size() can happen when the function is returning a closure.
We eta-expand terms, but we may miss cases where the type is opaque (e.g., IO a),
or the type is dependent (e.g., T b) where (T is defined as T b := bool.cases_on b nat (nat -> nat)).
*/
if (i >= bv->size() || (*bv)[i])
new_args.push_back(visit(args[i]));
}
return mk_app(fn, new_args);