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

chore(library/compiler/util): remove dead code

Browse source
This commit is contained in:
Leonardo de Moura 2018-02-02 08:34:14 -08:00
parent a6a1f7d874
commit dbeafaaeed
2 changed files with 0 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -82,39 +82,6 @@ void get_rec_args(environment const & env, name const & n, buffer<buffer<bool>>
}
}
bool is_recursive_rec_app(environment const & env, expr const & e) {
buffer<expr> args;
expr const & f = get_app_args(e, args);
if (!is_constant(f))
return false;
auto I_name = inductive::is_elim_rule(env, const_name(f));
if (!I_name || !is_recursive_datatype(env, *I_name) || is_inductive_predicate(env, *I_name))
return false;
unsigned nparams = *inductive::get_num_params(env, *I_name);
unsigned nminors = *inductive::get_num_minor_premises(env, *I_name);
unsigned ntypeformers = 1;
buffer<buffer<bool>> is_rec_arg;
get_rec_args(env, *I_name, is_rec_arg);
for (unsigned i = nparams + ntypeformers, j = 0; i < nparams + ntypeformers + nminors; i++, j++) {
buffer<bool> const & minor_is_rec_arg = is_rec_arg[j];
expr minor = args[i];
buffer<expr> minor_ctx;
expr minor_body = fun_to_telescope(minor, minor_ctx, optional<binder_info>());
unsigned sz = std::min(minor_is_rec_arg.size(), minor_ctx.size());
if (find(minor_body, [&](expr const & e, unsigned) {
if (!is_local(e))
return false;
for (unsigned k = 0; k < sz; k++) {
if (minor_is_rec_arg[k] && mlocal_name(e) == mlocal_name(minor_ctx[k]))
return true;
}
return false;
}))
return false;
}
return true;
}
bool is_cases_on_recursor(environment const & env, name const & n) {
return ::lean::is_aux_recursor(env, n) && strcmp(n.get_string(), "cases_on") == 0;
}

6
src/library/compiler/util.h
View file

@ -23,12 +23,6 @@ void get_rec_args(environment const & env, name const & n, buffer<buffer<bool>>
unsigned get_constructor_arity(environment const & env, name const & n);
/** \brief Return true iff \c e is of the form <tt>(C.rec ...)</tt> and is recursive.
That is, \c C is a recursive inductive datatype, \c C is *not* an inductive predicate,
and at least one minor premise uses a recursive argument.
*/
bool is_recursive_rec_app(environment const & env, expr const & e);
/** \brief Return true iff \c n is an auxiliary cases_on recursor */
bool is_cases_on_recursor(environment const & env, name const & n);