max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore(kernel): get_constructor ==> get_cnstr

Browse source
This commit is contained in:
Leonardo de Moura 2018-09-03 12:30:27 -07:00
parent 5e6d3511f4
commit 7928dbb239
3 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/print_cmd.cpp
View file

@ -392,7 +392,7 @@ void print_id_info(parser & p, message_builder & out, name const & id, bool show
print_constant(p, out, "(new) recursor", d);
out << "reduction rules\n";
for (recursor_rule const & rule : d.to_recursor_val().get_rules()) {
out << rule.get_constructor() << " ==>\n" << rule.get_rhs() << "\n";
out << rule.get_cnstr() << " ==>\n" << rule.get_rhs() << "\n";
}
}
// print_patterns(p, c);

2
src/kernel/declaration.h
View file

@ -312,7 +312,7 @@ public:
recursor_rule(recursor_rule && other):object_ref(other) {}
recursor_rule & operator=(recursor_rule const & other) { object_ref::operator=(other); return *this; }
recursor_rule & operator=(recursor_rule && other) { object_ref::operator=(other); return *this; }
name const & get_constructor() const { return static_cast<name const &>(cnstr_obj_ref(*this, 0)); }
name const & get_cnstr() const { return static_cast<name const &>(cnstr_obj_ref(*this, 0)); }
unsigned get_nfields() const { return static_cast<nat const &>(cnstr_obj_ref(*this, 1)).get_small_value(); }
expr const & get_rhs() const { return static_cast<expr const &>(cnstr_obj_ref(*this, 2)); }
};

2
src/kernel/inductive.cpp
View file

@ -992,7 +992,7 @@ environment environment::add_inductive(declaration const & d) const {
buffer<recursor_rule> new_rules;
for (recursor_rule const & rule : rec_val.get_rules()) {
expr new_rhs = res.restore_nested(rule.get_rhs(), aux_env, aux_rec_name_map);
name cnstr_name = rule.get_constructor();
name cnstr_name = rule.get_cnstr();
name new_cnstr_name = cnstr_name;
if (new_rec_name != rec_name) {
/* We need to fix the constructor name */