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

fix(library/definitional/no_confusion): mark no_confusion as reducible

Browse source 
Auxiliary definitions should be marked as reducible
This commit is contained in:
Leonardo de Moura 2015-01-13 18:44:47 -08:00
parent e48df78938
commit ef529c660f
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/library/definitional/no_confusion.cpp
View file

@ -13,6 +13,7 @@ Author: Leonardo de Moura
#include "library/protected.h"
#include "library/module.h"
#include "library/util.h"
#include "library/reducible.h"
namespace lean {
static void throw_corrupted(name const & n) {
@ -139,6 +140,7 @@ optional<environment> mk_no_confusion_type(environment const & env, name const &
declaration new_d = mk_definition(env, no_confusion_type_name, lps, no_confusion_type_type, no_confusion_type_value,
opaque, ind_decl.get_module_idx(), use_conv_opt);
environment new_env = module::add(env, check(env, new_d));
new_env = set_reducible(new_env, no_confusion_type_name, reducible_status::On);
return some(add_protected(new_env, no_confusion_type_name));
}
@ -278,6 +280,7 @@ environment mk_no_confusion(environment const & env, name const & n) {
declaration new_d = mk_definition(new_env, no_confusion_name, lps, no_confusion_ty, no_confusion_val,
opaque, no_confusion_type_decl.get_module_idx(), use_conv_opt);
new_env = module::add(new_env, check(new_env, new_d));
new_env = set_reducible(new_env, no_confusion_name, reducible_status::On);
return add_protected(new_env, no_confusion_name);
}
}