9eb4dc4a81
This commit affects different modules. I used the following approach: 1- I store the metavariable environment at unification_failure_justifications. The idea is to capture the set of instantiated metavariables at the time of failure. 2- I added a remove_detail function. It removes propagation steps from the justification tree object. I also remove the backtracking search space associated with higher-order unificiation. I keep only the search related to case-splits due to coercions and overloads. 3- I use the metavariable environment captured at step 1 when pretty printing the justification of an elaborator_exception. Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
81 lines
2.7 KiB
C++
81 lines
2.7 KiB
C++
/*
|
|
Copyright (c) 2013 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
Author: Leonardo de Moura
|
|
*/
|
|
#include <vector>
|
|
#include "util/buffer.h"
|
|
#include "kernel/justification.h"
|
|
#include "kernel/metavar.h"
|
|
|
|
namespace lean {
|
|
void justification_cell::add_pos_info(format & r, optional<expr> const & e, pos_info_provider const * p) {
|
|
if (!p || !e)
|
|
return;
|
|
format f = p->pp(*e);
|
|
if (!f)
|
|
return;
|
|
r += f;
|
|
r += space();
|
|
}
|
|
|
|
format justification_cell::pp(formatter const & fmt, options const & opts, pos_info_provider const * p, bool display_children,
|
|
optional<metavar_env> const & menv) const {
|
|
format r;
|
|
add_pos_info(r, get_main_expr(), p);
|
|
r += pp_header(fmt, opts, menv);
|
|
if (display_children) {
|
|
buffer<justification_cell *> children;
|
|
get_children(children);
|
|
unsigned indent = get_pp_indent(opts);
|
|
for (justification_cell * child : children) {
|
|
r += nest(indent, compose(line(), child->pp(fmt, opts, p, display_children, menv)));
|
|
}
|
|
}
|
|
return r;
|
|
}
|
|
|
|
bool justification::has_children() const {
|
|
buffer<justification_cell *> r;
|
|
get_children(r);
|
|
return !r.empty();
|
|
}
|
|
format justification::pp(formatter const & fmt, options const & opts, pos_info_provider const * p,
|
|
bool display_children, optional<metavar_env> const & menv) const {
|
|
lean_assert(m_ptr);
|
|
return m_ptr->pp(fmt, opts, p, display_children, menv);
|
|
}
|
|
format justification::pp(formatter const & fmt, options const & opts, pos_info_provider const * p, bool display_children) const {
|
|
lean_assert(m_ptr);
|
|
return m_ptr->pp(fmt, opts, p, display_children, optional<metavar_env>());
|
|
}
|
|
|
|
assumption_justification::assumption_justification(unsigned idx):m_idx(idx) {}
|
|
void assumption_justification::get_children(buffer<justification_cell*> &) const {}
|
|
optional<expr> assumption_justification::get_main_expr() const { return none_expr(); }
|
|
format assumption_justification::pp_header(formatter const &, options const &, optional<metavar_env> const &) const {
|
|
return format{format("Assumption"), space(), format(m_idx)};
|
|
}
|
|
|
|
|
|
bool depends_on(justification const & t, justification const & d) {
|
|
buffer<justification_cell *> todo;
|
|
buffer<justification_cell *> children;
|
|
todo.push_back(t.raw());
|
|
while (!todo.empty()) {
|
|
justification_cell * curr = todo.back();
|
|
todo.pop_back();
|
|
if (curr == d.raw()) {
|
|
return true;
|
|
} else {
|
|
children.clear();
|
|
curr->get_children(children);
|
|
for (justification_cell * child : children) {
|
|
todo.push_back(child);
|
|
}
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
}
|