Skip to content

Commit

Permalink
chore: update constants
Browse files Browse the repository at this point in the history
  • Loading branch information
kim-em committed Sep 9, 2024
1 parent 172c1ac commit 21905bc
Show file tree
Hide file tree
Showing 3 changed files with 7 additions and 7 deletions.
2 changes: 1 addition & 1 deletion src/library/compiler/erase_irrelevant.cpp
Original file line number Diff line number Diff line change
Expand Up @@ -215,7 +215,7 @@ class erase_irrelevant_fn {
expr minor = visit_minor(args[3]);
lean_always_assert(is_lambda(minor));
return
::lean::mk_let(next_name(), mk_enf_object_type(), mk_app(mk_constant(get_array_data_name()), mk_enf_neutral(), major),
::lean::mk_let(next_name(), mk_enf_object_type(), mk_app(mk_constant(get_array_to_list_name()), mk_enf_neutral(), major),
binding_body(minor));
}

Expand Down
10 changes: 5 additions & 5 deletions src/library/constants.cpp
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,7 @@ name const * g_and_rec = nullptr;
name const * g_and_cases_on = nullptr;
name const * g_array = nullptr;
name const * g_array_sz = nullptr;
name const * g_array_data = nullptr;
name const * g_array_to_list = nullptr;
name const * g_auto_param = nullptr;
name const * g_bit0 = nullptr;
name const * g_bit1 = nullptr;
Expand Down Expand Up @@ -127,8 +127,8 @@ void initialize_constants() {
mark_persistent(g_array->raw());
g_array_sz = new name{"Array", "sz"};
mark_persistent(g_array_sz->raw());
g_array_data = new name{"Array", "data"};
mark_persistent(g_array_data->raw());
g_array_to_list = new name{"Array", "toList"};
mark_persistent(g_array_to_list->raw());
g_auto_param = new name{"autoParam"};
mark_persistent(g_auto_param->raw());
g_bit0 = new name{"bit0"};
Expand Down Expand Up @@ -330,7 +330,7 @@ void finalize_constants() {
delete g_and_cases_on;
delete g_array;
delete g_array_sz;
delete g_array_data;
delete g_array_to_list;
delete g_auto_param;
delete g_bit0;
delete g_bit1;
Expand Down Expand Up @@ -436,7 +436,7 @@ name const & get_and_rec_name() { return *g_and_rec; }
name const & get_and_cases_on_name() { return *g_and_cases_on; }
name const & get_array_name() { return *g_array; }
name const & get_array_sz_name() { return *g_array_sz; }
name const & get_array_data_name() { return *g_array_data; }
name const & get_array_to_list_name() { return *g_array_to_list; }
name const & get_auto_param_name() { return *g_auto_param; }
name const & get_bit0_name() { return *g_bit0; }
name const & get_bit1_name() { return *g_bit1; }
Expand Down
2 changes: 1 addition & 1 deletion src/library/constants.h
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ name const & get_and_rec_name();
name const & get_and_cases_on_name();
name const & get_array_name();
name const & get_array_sz_name();
name const & get_array_data_name();
name const & get_array_to_list_name();
name const & get_auto_param_name();
name const & get_bit0_name();
name const & get_bit1_name();
Expand Down

0 comments on commit 21905bc

Please sign in to comment.