michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

chore(library/definitional/equations): cleanup

Browse source
This commit is contained in:
Leonardo de Moura 2015-01-06 14:53:21 -08:00
parent a3a6697f44
commit 760dc2162a
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/library/definitional/equations.cpp
View file

@ -764,7 +764,8 @@ class equation_compiler_fn {
// Convert goal and implementation_list back into a program. // Convert goal and implementation_list back into a program.
// - nvars is the number of new variables in the variable stack. // - nvars is the number of new variables in the variable stack.
program to_program(expr const & fn, goal const & g, unsigned nvars, list<optional<name>> const & new_var_stack, inversion::implementation_list const & imps) { program to_program(expr const & fn, goal const & g, unsigned nvars, list<optional<name>> const & new_var_stack,
inversion::implementation_list const & imps) {
buffer<expr> new_context; buffer<expr> new_context;
g.get_hyps(new_context); g.get_hyps(new_context);
expr new_type = g.get_type(); expr new_type = g.get_type();
@ -819,7 +820,6 @@ class equation_compiler_fn {
subst.assign(new_g.get_name(), new_g.abstract(t)); subst.assign(new_g.get_name(), new_g.abstract(t));
} }
expr t = subst.instantiate_all(g.get_meta()); expr t = subst.instantiate_all(g.get_meta());
// out() << "RESULT: " << t << "\n";
return some_expr(t); return some_expr(t);
} else { } else {
throw_error(sstream() << "patter matching failed"); throw_error(sstream() << "patter matching failed");
@ -970,7 +970,8 @@ class equation_compiler_fn {
get_app_args(I, args); get_app_args(I, args);
return return
all_distinct_locals(nindices, args.end() - nindices) && all_distinct_locals(nindices, args.end() - nindices) &&
std::all_of(args.end() - nindices, args.end(), [&](expr const & idx) { return contains_local(idx, ctx); }); std::all_of(args.end() - nindices, args.end(),
[&](expr const & idx) { return contains_local(idx, ctx); });
} else { } else {
return true; return true;
} }
@ -1588,7 +1589,6 @@ public:
expr operator()(expr eqns) { expr operator()(expr eqns) {
check_limitations(eqns); check_limitations(eqns);
// out() << "Equations:\n" << eqns << "\n";
buffer<program> prgs; buffer<program> prgs;
initialize(eqns, prgs); initialize(eqns, prgs);
if (is_recursive(prgs)) { if (is_recursive(prgs)) {