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

feat(library/tactic/class_instance_synth): restrict higher-order unification even more during type class resolution

Browse source
This commit is contained in:
Leonardo de Moura 2015-03-03 20:26:49 -08:00
parent 7db6ed7c14
commit 51504a1872
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/library/tactic/class_instance_synth.cpp
View file

@ -349,6 +349,7 @@ constraint mk_class_instance_root_cnstr(std::shared_ptr<class_instance_context>
unifier_config new_cfg(cfg); unifier_config new_cfg(cfg);
new_cfg.m_discard = false; new_cfg.m_discard = false;
new_cfg.m_use_exceptions = false; new_cfg.m_use_exceptions = false;
new_cfg.m_pattern = true;
new_cfg.m_conservative = C->m_conservative; new_cfg.m_conservative = C->m_conservative;
auto to_cnstrs_fn = [=](substitution const & subst, constraints const & cnstrs) -> constraints { auto to_cnstrs_fn = [=](substitution const & subst, constraints const & cnstrs) -> constraints {
@ -461,6 +462,7 @@ optional<expr> mk_class_instance(environment const & env, io_state const & ios,
unifier_config new_cfg(cfg); unifier_config new_cfg(cfg);
new_cfg.m_discard = true; new_cfg.m_discard = true;
new_cfg.m_use_exceptions = true; new_cfg.m_use_exceptions = true;
new_cfg.m_pattern = true;
new_cfg.m_conservative = C->m_conservative; new_cfg.m_conservative = C->m_conservative;
try { try {
auto p = unify(env, 1, &c, C->m_ngen.mk_child(), substitution(), new_cfg).pull(); auto p = unify(env, 1, &c, C->m_ngen.mk_child(), substitution(), new_cfg).pull();