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

fix(kernel/inductive): typo

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-05-19 13:27:05 -07:00
parent f3ed20a229
commit eb92f3722f
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

@ -122,7 +122,7 @@ struct inductive_env_ext : public environment_extension {
};
// mapping from introduction rule name to computation rule data
rb_map<name, elim_info, name_quick_cmp> m_elim_info;
rb_map<name, comp_rule, name_quick_cmp> m_com_rules;
rb_map<name, comp_rule, name_quick_cmp> m_comp_rules;
inductive_env_ext() {}
@ -131,7 +131,7 @@ struct inductive_env_ext : public environment_extension {
}
void add_comp_rhs(name const & n, name const & e, unsigned num_bu, expr const & rhs) {
m_com_rules.insert(n, comp_rule(e, num_bu, rhs));
m_comp_rules.insert(n, comp_rule(e, num_bu, rhs));
}
};
@ -726,7 +726,7 @@ public:
if (!is_constant(intro_fn))
return none_expr();
// Check if intro_fn is an introduction rule matching elim_fn
auto it2 = ext.m_com_rules.find(const_name(intro_fn));
auto it2 = ext.m_comp_rules.find(const_name(intro_fn));
if (!it2 || it2->m_elim_name != const_name(elim_fn))
return none_expr();
buffer<expr> intro_args;