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

fix(frontends/lean,kernel/inductive): compilation errors in Debug mode

Browse source
This commit is contained in:
Leonardo de Moura 2015-08-16 19:02:48 -07:00
parent b0dbc31d4b
commit edb4c09bc1
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1302,7 +1302,7 @@ expr parser::parse_notation_core(parse_table t, expr * left, bool as_tactic) {
r = instantiate_rev(r, new_args.size(), new_args.data()); r = instantiate_rev(r, new_args.size(), new_args.data());
cs.push_back(r); cs.push_back(r);
} else { } else {
lean_assert(nargs.empty() && ps_sz.empty()); lean_assert(nargs.empty() && scoped_info.empty());
if (args.empty()) { if (args.empty()) {
// Notation does not have arguments. Thus, the info-manager should treat is as a single thing. // Notation does not have arguments. Thus, the info-manager should treat is as a single thing.
r = mk_notation_info(r, r.get_tag()); r = mk_notation_info(r, r.get_tag());

4
src/kernel/inductive/inductive.cpp
View file

@ -198,8 +198,8 @@ environment certified_inductive_decl::add_constant(environment const & env, name
} }
environment certified_inductive_decl::add_core(environment const & env, bool update_ext_only) const { environment certified_inductive_decl::add_core(environment const & env, bool update_ext_only) const {
lean_assert(m_data); lean_assert(m_decl_data);
lean_assert(length(m_data) == length(m_elim_types)); lean_assert(length(m_decl_data) == length(m_elim_types));
environment new_env = env; environment new_env = env;
inductive_env_ext ext(get_extension(new_env)); inductive_env_ext ext(get_extension(new_env));
level_param_names levels = m_levels; level_param_names levels = m_levels;