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

feat(kernel/inductive): remove problematic check

Browse source 
see discussion at issue #563

closes #563
This commit is contained in:
Leonardo de Moura 2015-04-28 16:37:57 -07:00
parent 1be72f1faa
commit 16f237f042
1 changed files with 0 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -920,18 +920,6 @@ auto inductive_normalizer_extension::operator()(expr const & e, extension_contex
// Check intro num_args // Check intro num_args
if (intro_args.size() != it1->m_num_params + it2->m_num_bu) if (intro_args.size() != it1->m_num_params + it2->m_num_bu)
return none_ecs(); return none_ecs();
if (it1->m_num_params > 0) {
// Global parameters of elim and intro be definitionally equal
simple_delayed_justification jst([=]() {
return mk_justification("elim/intro global parameters must match", some_expr(e));
});
for (unsigned i = 0; i < it1->m_num_params; i++) {
auto dcs = ctx.is_def_eq(elim_args[i], intro_args[i], jst);
if (!dcs.first)
return none_ecs();
cs = cs + dcs.second;
}
}
// Number of universe levels must match. // Number of universe levels must match.
if (length(const_levels(elim_fn)) != length(it1->m_level_names)) if (length(const_levels(elim_fn)) != length(it1->m_level_names))
return none_ecs(); return none_ecs();