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

feat(frontends/lean/elaborator): use local declarations as class instances

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-07-04 18:03:13 -07:00
parent 00e1a7db23
commit 8ab0b5bee3
2 changed files with 40 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
src/frontends/lean/elaborator.cpp
View file

@ -28,7 +28,20 @@ Author: Leonardo de Moura
#include "library/error_handling/error_handling.h" #include "library/error_handling/error_handling.h"
#include "frontends/lean/class.h" #include "frontends/lean/class.h"
#ifndef LEAN_DEFAULT_ELABORATOR_LOCAL_INSTANCES
#define LEAN_DEFAULT_ELABORATOR_LOCAL_INSTANCES true
#endif
namespace lean { namespace lean {
// ==========================================
// elaborator configuration options
static name g_elaborator_local_instances{"lean", "elaborator", "local_instances"};
RegisterBoolOption(g_elaborator_local_instances, LEAN_DEFAULT_ELABORATOR_LOCAL_INSTANCES, "(lean elaborator) use local declarates as class instances");
bool get_elaborator_local_instances(options const & opts) {
return opts.get_bool(g_elaborator_local_instances, LEAN_DEFAULT_ELABORATOR_LOCAL_INSTANCES);
}
// ==========================================
class elaborator { class elaborator {
typedef list<expr> context; typedef list<expr> context;
typedef std::vector<constraint> constraint_vect; typedef std::vector<constraint> constraint_vect;
@ -49,6 +62,7 @@ class elaborator {
mvar2meta m_mvar2meta; mvar2meta m_mvar2meta;
name_set m_displayed_errors; // set of metavariables that we already reported unsolved/unassigned name_set m_displayed_errors; // set of metavariables that we already reported unsolved/unassigned
bool m_check_unassigned; bool m_check_unassigned;
bool m_use_local_instances;
/** /**
\brief Auxiliary object for creating backtracking points. \brief Auxiliary object for creating backtracking points.
@ -120,6 +134,7 @@ class elaborator {
elaborator & m_elab; elaborator & m_elab;
expr m_mvar; expr m_mvar;
expr m_mvar_type; expr m_mvar_type;
list<expr> m_local_instances;
list<name> m_instances; list<name> m_instances;
context m_ctx; context m_ctx;
substitution m_subst; substitution m_subst;
@ -127,9 +142,23 @@ class elaborator {
class_elaborator(elaborator & elab, expr const & mvar, expr const & mvar_type, list<name> const & instances, class_elaborator(elaborator & elab, expr const & mvar, expr const & mvar_type, list<name> const & instances,
context const & ctx, substitution const & s, justification const & j): context const & ctx, substitution const & s, justification const & j):
m_elab(elab), m_mvar(mvar), m_mvar_type(mvar_type), m_instances(instances), m_ctx(ctx), m_subst(s), m_jst(j) {} m_elab(elab), m_mvar(mvar), m_mvar_type(mvar_type), m_instances(instances), m_ctx(ctx), m_subst(s), m_jst(j) {
if (elab.m_use_local_instances)
m_local_instances = ctx;
}
virtual optional<constraints> next() { virtual optional<constraints> next() {
while (!empty(m_local_instances)) {
expr inst = head(m_local_instances);
m_local_instances = tail(m_local_instances);
if (!is_local(inst))
continue;
expr inst_type = mlocal_type(inst);
if (!is_constant(get_app_fn(inst_type)) || const_name(get_app_fn(inst_type)) != const_name(get_app_fn(m_mvar_type)))
continue;
constraints cs(mk_eq_cnstr(m_mvar, inst, m_jst));
return optional<constraints>(cs);
}
while (!empty(m_instances)) { while (!empty(m_instances)) {
name inst = head(m_instances); name inst = head(m_instances);
m_instances = tail(m_instances); m_instances = tail(m_instances);
@ -175,6 +204,7 @@ public:
m_ngen(ngen), m_tc(env, m_ngen.mk_child(), mk_default_converter(m_env, optional<module_idx>(0))), m_ngen(ngen), m_tc(env, m_ngen.mk_child(), mk_default_converter(m_env, optional<module_idx>(0))),
m_pos_provider(pp) { m_pos_provider(pp) {
m_check_unassigned = check_unassigned; m_check_unassigned = check_unassigned;
m_use_local_instances = get_elaborator_local_instances(ios.get_options());
} }
expr mk_local(name const & n, expr const & t, binder_info const & bi) { expr mk_local(name const & n, expr const & t, binder_info const & bi) {

9
tests/lean/run/class2.lean Normal file
View file

@ -0,0 +1,9 @@
import standard
using num
theorem H {A B : Type} (H1 : inhabited A) : inhabited (Bool × A × (B → num))
:= _
(*
print(get_env():find("H"):value())
*)