/* Copyright (c) 2013-2014 Microsoft Corporation. All rights reserved. Released under Apache 2.0 license as described in the file LICENSE. Author: Leonardo de Moura */ #pragma once #include #include #include "util/lua.h" #include "util/optional.h" #include "util/name_set.h" #include "kernel/metavar.h" #include "library/tactic/goal.h" namespace lean { typedef list goals; class proof_state { goals m_goals; substitution m_subst; name_generator m_ngen; public: proof_state(goals const & gs, substitution const & s, name_generator const & ngen): m_goals(gs), m_subst(s), m_ngen(ngen) {} proof_state(proof_state const & s, goals const & gs, substitution const & subst):proof_state(gs, subst, s.m_ngen) {} proof_state(proof_state const & s, goals const & gs):proof_state(s, gs, s.m_subst) {} proof_state(proof_state const & s, name_generator const & ngen):proof_state(s.m_goals, s.m_subst, ngen) {} goals const & get_goals() const { return m_goals; } substitution const & get_subst() const { return m_subst; } name_generator const & get_ngen() const { return m_ngen; } /** \brief Return true iff this state does not have any goals left */ bool is_final_state() const { return empty(m_goals); } format pp(formatter const & fmt) const; }; inline optional some_proof_state(proof_state const & s) { return some(s); } inline optional none_proof_state() { return optional (); } proof_state to_proof_state(expr const & meta, expr const & type, name_generator ngen); goals map_goals(proof_state const & s, std::function(goal const & g)> f); io_state_stream const & operator<<(io_state_stream const & out, proof_state const & s); UDATA_DEFS_CORE(goals) UDATA_DEFS(proof_state) void open_proof_state(lua_State * L); void initialize_proof_state(); void finalize_proof_state(); }