max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: remove transparency_mode::None

Browse source
This commit is contained in:
Leonardo de Moura 2019-11-08 10:03:02 -08:00
parent 975188cee1
commit dce1de3905
4 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2267,7 +2267,7 @@ class validate_and_collect_lhs_mvars : public replace_visitor {
of definitions compiled using the equation compiler */
{
/* Try without use delta reduction */
type_context_old::transparency_scope scope(ctx(), transparency_mode::None);
type_context_old::transparency_scope scope(ctx(), transparency_mode::Reducible); // it was None
expr new_e = ctx().whnf(e);
if (new_e != e) return some_expr(new_e);
}

2
src/library/abstract_context_cache.cpp
View file

@ -73,8 +73,6 @@ context_cacheless::context_cacheless(abstract_context_cache const & c, bool):
}
bool context_cacheless::is_transparent(type_context_old & ctx, transparency_mode m, constant_info const & info) {
if (m == transparency_mode::None)
return false;
name const & n = info.get_name();
if (get_proj_info(ctx, n))
return false;

4
src/library/abstract_context_cache.h
View file

@ -12,8 +12,8 @@ Author: Leonardo de Moura
#include "library/fun_info.h"
namespace lean {
#define LEAN_NUM_TRANSPARENCY_MODES 5
enum class transparency_mode { All = 0, Semireducible, Reducible, None };
#define LEAN_NUM_TRANSPARENCY_MODES 3
enum class transparency_mode { All = 0, Semireducible, Reducible };
class type_context_old;

3
src/library/type_context.cpp
View file

@ -2995,9 +2995,6 @@ lbool type_context_old::try_numeral_eq_numeral(expr const & t, expr const & s) {
/* Solve offset constraints. See discussion at issue #1226 */
lbool type_context_old::try_nat_offset_cnstrs(expr const & t, expr const & s) {
/* We should not use this feature when transparency_mode is none.
See issue #1295 */
if (m_transparency_mode == transparency_mode::None) return l_undef;
lbool r;
r = try_offset_eq_offset(t, s);
if (r != l_undef) return r;