4f8db64e23
fix(simplifier): missing simp rule in prop simplifier fix(library/unfold_macros): do not look for untrusted macros when using sufficient trust level
45 lines
1.6 KiB
C++
45 lines
1.6 KiB
C++
/*
|
|
Copyright (c) 2015 Daniel Selsam. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Author: Daniel Selsam
|
|
*/
|
|
#pragma once
|
|
#include "library/type_context.h"
|
|
|
|
namespace lean {
|
|
|
|
struct simp_result {
|
|
/* Invariant [m_pf : m_orig <rel> m_new] */
|
|
expr m_new;
|
|
|
|
/* If proof is not provided, it is assumed to be reflexivity */
|
|
optional<expr> m_proof;
|
|
|
|
bool m_done{false};
|
|
public:
|
|
simp_result() {}
|
|
simp_result(expr const & e): m_new(e) {}
|
|
simp_result(expr const & e, expr const & proof, bool done = false): m_new(e), m_proof(proof), m_done(done) {}
|
|
simp_result(expr const & e, optional<expr> const & proof): m_new(e), m_proof(proof) {}
|
|
simp_result(pair<expr, optional<expr>> const & r): m_new(r.first), m_proof(r.second) {}
|
|
|
|
bool has_proof() const { return static_cast<bool>(m_proof); }
|
|
|
|
expr const & get_new() const { return m_new; }
|
|
expr const & get_proof() const { lean_assert(m_proof); return *m_proof; }
|
|
optional<expr> const & get_optional_proof() const { return m_proof; }
|
|
|
|
/* The following assumes that [e] and [m_new] are definitionally equal */
|
|
void update(expr const & e) { m_new = e; }
|
|
|
|
void set_done() { m_done = true; }
|
|
bool is_done() const { return m_done; }
|
|
};
|
|
|
|
simp_result finalize(type_context & tctx, name const & rel, simp_result const & r);
|
|
simp_result join(type_context & tctx, name const & rel, simp_result const & r1, simp_result const & r2);
|
|
|
|
simp_result finalize_eq(abstract_type_context & tctx, simp_result const & r);
|
|
simp_result join_eq(abstract_type_context & tctx, simp_result const & r1, simp_result const & r2);
|
|
|
|
}
|