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

fix(kernel/inductive): remove unused argument, bug in is_rec_argument (free variable occurrence)

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-05-19 17:02:20 -07:00
parent 3e3d3c8380
commit df9c935f0a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -318,7 +318,7 @@ struct add_inductive_fn {
optional<unsigned> is_rec_argument(expr t) {
t = m_tc.whnf(t);
while (is_pi(t))
t = m_tc.whnf(binding_body(t));
t = m_tc.whnf(instantiate(binding_body(t), mk_local_for(t)));
return is_valid_it_app(t);
}
@ -345,7 +345,7 @@ struct add_inductive_fn {
\see check_intro_rules
*/
void check_intro_rule(inductive_decl const &, unsigned d_idx, intro_rule const & ir) {
void check_intro_rule(unsigned d_idx, intro_rule const & ir) {
expr t = intro_rule_type(ir);
name n = intro_rule_name(ir);
m_tc.check(t, m_level_names);
@ -400,7 +400,7 @@ struct add_inductive_fn {
unsigned i = 0;
for (auto d : m_decls) {
for (auto ir : inductive_decl_intros(d))
check_intro_rule(d, i, ir);
check_intro_rule(i, ir);
i++;
}
}