From 271ae5b8e598af7fe5ebf3960148fde0700fac54 Mon Sep 17 00:00:00 2001 From: Lean stage0 autoupdater <> Date: Thu, 15 Feb 2024 12:32:00 +0000 Subject: [PATCH] chore: update stage0 --- stage0/stdlib/Init/Data/Array.c | 6 +- stage0/stdlib/Init/Data/Array/Lemmas.c | 345 +++++++++++ stage0/stdlib/Init/Data/List.c | 6 +- stage0/stdlib/Init/Data/List/Lemmas.c | 823 +++++++++++++++++++++++++ stage0/stdlib/Lean/Compiler/IR/EmitC.c | 464 ++++++++------ 5 files changed, 1464 insertions(+), 180 deletions(-) create mode 100644 stage0/stdlib/Init/Data/Array/Lemmas.c create mode 100644 stage0/stdlib/Init/Data/List/Lemmas.c diff --git a/stage0/stdlib/Init/Data/Array.c b/stage0/stdlib/Init/Data/Array.c index 94aa2a7a9b..f54da8309d 100644 --- a/stage0/stdlib/Init/Data/Array.c +++ b/stage0/stdlib/Init/Data/Array.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Data.Array -// Imports: Init.Data.Array.Basic Init.Data.Array.QSort Init.Data.Array.BinSearch Init.Data.Array.InsertionSort Init.Data.Array.DecidableEq Init.Data.Array.Mem Init.Data.Array.BasicAux +// Imports: Init.Data.Array.Basic Init.Data.Array.QSort Init.Data.Array.BinSearch Init.Data.Array.InsertionSort Init.Data.Array.DecidableEq Init.Data.Array.Mem Init.Data.Array.BasicAux Init.Data.Array.Lemmas #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -20,6 +20,7 @@ lean_object* initialize_Init_Data_Array_InsertionSort(uint8_t builtin, lean_obje lean_object* initialize_Init_Data_Array_DecidableEq(uint8_t builtin, lean_object*); lean_object* initialize_Init_Data_Array_Mem(uint8_t builtin, lean_object*); lean_object* initialize_Init_Data_Array_BasicAux(uint8_t builtin, lean_object*); +lean_object* initialize_Init_Data_Array_Lemmas(uint8_t builtin, lean_object*); static bool _G_initialized = false; LEAN_EXPORT lean_object* initialize_Init_Data_Array(uint8_t builtin, lean_object* w) { lean_object * res; @@ -46,6 +47,9 @@ lean_dec_ref(res); res = initialize_Init_Data_Array_BasicAux(builtin, lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Data_Array_Lemmas(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); return lean_io_result_mk_ok(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Data/Array/Lemmas.c b/stage0/stdlib/Init/Data/Array/Lemmas.c new file mode 100644 index 0000000000..e4a910eabd --- /dev/null +++ b/stage0/stdlib/Init/Data/Array/Lemmas.c @@ -0,0 +1,345 @@ +// Lean compiler output +// Module: Init.Data.Array.Lemmas +// Imports: Init.Data.Nat Init.Data.List.Lemmas Init.Data.Fin.Basic Init.Data.Array.Mem +#include +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_foldlM_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_foldlM_match__1_splitter(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l_Array_toListRev___rarg___boxed(lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_foldlM_loop_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1___rarg(lean_object*, size_t, size_t, lean_object*); +uint8_t lean_usize_dec_eq(size_t, size_t); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_drop_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter(lean_object*, lean_object*, lean_object*); +size_t lean_usize_of_nat(lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_foldlM_loop_match__1_splitter(lean_object*); +LEAN_EXPORT lean_object* l_Array_toListRev___rarg(lean_object*); +LEAN_EXPORT lean_object* l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1(lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_foldlM_loop_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*); +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter___boxed(lean_object*, lean_object*, lean_object*); +lean_object* lean_nat_sub(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_drop_match__1_splitter(lean_object*, lean_object*); +size_t lean_usize_add(size_t, size_t); +lean_object* lean_array_uget(lean_object*, size_t); +LEAN_EXPORT lean_object* l_Array_toListRev(lean_object*); +lean_object* lean_array_get_size(lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_drop_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_nat_dec_le(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_foldlM_loop_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_unsigned_to_nat(0u); +x_5 = lean_nat_dec_eq(x_1, x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_unsigned_to_nat(1u); +x_7 = lean_nat_sub(x_1, x_6); +x_8 = lean_apply_1(x_3, x_7); +return x_8; +} +else +{ +lean_dec(x_3); +lean_inc(x_2); +return x_2; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_foldlM_loop_match__1_splitter(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Data_Array_Lemmas_0__Array_foldlM_loop_match__1_splitter___rarg___boxed), 3, 0); +return x_2; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_foldlM_loop_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Data_Array_Lemmas_0__Array_foldlM_loop_match__1_splitter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_unsigned_to_nat(0u); +x_6 = lean_nat_dec_eq(x_1, x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_3); +x_7 = lean_unsigned_to_nat(1u); +x_8 = lean_nat_sub(x_1, x_7); +x_9 = lean_apply_2(x_4, x_8, lean_box(0)); +return x_9; +} +else +{ +lean_object* x_10; +lean_dec(x_4); +x_10 = lean_apply_1(x_3, lean_box(0)); +return x_10; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter___rarg___boxed), 4, 0); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_1); +return x_5; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Data_Array_Lemmas_0__Array_forIn_loop_match__1_splitter(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_foldlM_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_6; +lean_dec(x_5); +x_6 = lean_apply_2(x_4, x_1, x_2); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_4); +x_7 = lean_ctor_get(x_3, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 1); +lean_inc(x_8); +lean_dec(x_3); +x_9 = lean_apply_4(x_5, x_1, x_2, x_7, x_8); +return x_9; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_foldlM_match__1_splitter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = lean_alloc_closure((void*)(l___private_Init_Data_Array_Lemmas_0__List_foldlM_match__1_splitter___rarg), 5, 0); +return x_5; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_drop_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_unsigned_to_nat(0u); +x_7 = lean_nat_dec_eq(x_1, x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; +lean_dec(x_3); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_sub(x_1, x_8); +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_10; +lean_dec(x_5); +x_10 = lean_apply_1(x_4, x_9); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_dec(x_4); +x_11 = lean_ctor_get(x_2, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_2, 1); +lean_inc(x_12); +lean_dec(x_2); +x_13 = lean_apply_3(x_5, x_9, x_11, x_12); +return x_13; +} +} +else +{ +lean_object* x_14; +lean_dec(x_5); +lean_dec(x_4); +x_14 = lean_apply_1(x_3, x_2); +return x_14; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_drop_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_Array_Lemmas_0__List_drop_match__1_splitter___rarg___boxed), 5, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_Array_Lemmas_0__List_drop_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l___private_Init_Data_Array_Lemmas_0__List_drop_match__1_splitter___rarg(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +LEAN_EXPORT lean_object* l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1___rarg(lean_object* x_1, size_t x_2, size_t x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; +x_5 = lean_usize_dec_eq(x_2, x_3); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; size_t x_8; size_t x_9; +x_6 = lean_array_uget(x_1, x_2); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_4); +x_8 = 1; +x_9 = lean_usize_add(x_2, x_8); +x_2 = x_9; +x_4 = x_7; +goto _start; +} +else +{ +return x_4; +} +} +} +LEAN_EXPORT lean_object* l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1___rarg___boxed), 4, 0); +return x_2; +} +} +LEAN_EXPORT lean_object* l_Array_toListRev___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; +x_2 = lean_box(0); +x_3 = lean_array_get_size(x_1); +x_4 = lean_unsigned_to_nat(0u); +x_5 = lean_nat_dec_lt(x_4, x_3); +if (x_5 == 0) +{ +lean_dec(x_3); +return x_2; +} +else +{ +uint8_t x_6; +x_6 = lean_nat_dec_le(x_3, x_3); +if (x_6 == 0) +{ +lean_dec(x_3); +return x_2; +} +else +{ +size_t x_7; size_t x_8; lean_object* x_9; +x_7 = 0; +x_8 = lean_usize_of_nat(x_3); +lean_dec(x_3); +x_9 = l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1___rarg(x_1, x_7, x_8, x_2); +return x_9; +} +} +} +} +LEAN_EXPORT lean_object* l_Array_toListRev(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Array_toListRev___rarg___boxed), 1, 0); +return x_2; +} +} +LEAN_EXPORT lean_object* l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +size_t x_5; size_t x_6; lean_object* x_7; +x_5 = lean_unbox_usize(x_2); +lean_dec(x_2); +x_6 = lean_unbox_usize(x_3); +lean_dec(x_3); +x_7 = l_Array_foldlMUnsafe_fold___at_Array_toListRev___spec__1___rarg(x_1, x_5, x_6, x_4); +lean_dec(x_1); +return x_7; +} +} +LEAN_EXPORT lean_object* l_Array_toListRev___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Array_toListRev___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* initialize_Init_Data_Nat(uint8_t builtin, lean_object*); +lean_object* initialize_Init_Data_List_Lemmas(uint8_t builtin, lean_object*); +lean_object* initialize_Init_Data_Fin_Basic(uint8_t builtin, lean_object*); +lean_object* initialize_Init_Data_Array_Mem(uint8_t builtin, lean_object*); +static bool _G_initialized = false; +LEAN_EXPORT lean_object* initialize_Init_Data_Array_Lemmas(uint8_t builtin, lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_io_result_mk_ok(lean_box(0)); +_G_initialized = true; +res = initialize_Init_Data_Nat(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_List_Lemmas(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_Fin_Basic(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_Array_Mem(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +return lean_io_result_mk_ok(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Data/List.c b/stage0/stdlib/Init/Data/List.c index 25585b2070..1445547716 100644 --- a/stage0/stdlib/Init/Data/List.c +++ b/stage0/stdlib/Init/Data/List.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Data.List -// Imports: Init.Data.List.Basic Init.Data.List.BasicAux Init.Data.List.Control +// Imports: Init.Data.List.Basic Init.Data.List.BasicAux Init.Data.List.Control Init.Data.List.Lemmas #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -16,6 +16,7 @@ extern "C" { lean_object* initialize_Init_Data_List_Basic(uint8_t builtin, lean_object*); lean_object* initialize_Init_Data_List_BasicAux(uint8_t builtin, lean_object*); lean_object* initialize_Init_Data_List_Control(uint8_t builtin, lean_object*); +lean_object* initialize_Init_Data_List_Lemmas(uint8_t builtin, lean_object*); static bool _G_initialized = false; LEAN_EXPORT lean_object* initialize_Init_Data_List(uint8_t builtin, lean_object* w) { lean_object * res; @@ -30,6 +31,9 @@ lean_dec_ref(res); res = initialize_Init_Data_List_Control(builtin, lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Data_List_Lemmas(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); return lean_io_result_mk_ok(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Data/List/Lemmas.c b/stage0/stdlib/Init/Data/List/Lemmas.c new file mode 100644 index 0000000000..8f5575b539 --- /dev/null +++ b/stage0/stdlib/Init/Data/List/Lemmas.c @@ -0,0 +1,823 @@ +// Lean compiler output +// Module: Init.Data.List.Lemmas +// Imports: Init.Data.List.BasicAux Init.Data.List.Control Init.PropLemmas Init.Control.Lawful Init.Hints +#include +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWithAll__get_x3f_match__1_splitter(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_filterAuxM_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWith_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWith__get_x3f_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isPrefixOf_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_join_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isPrefixOf_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_join_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_findM_x3f_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_getLast_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_loop_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l_List_mapM_x27___rarg___lambda__1(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_foldlM_match__1_splitter(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l_List_mapM_x27(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapA_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWithAll__get_x3f_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_foldlM_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_x27_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_x27_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isEmpty_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_filterAuxM_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_foldl_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isEmpty_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_findM_x3f_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_loop_match__1_splitter(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWithAll__get_x3f_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l_List_mapM_x27___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isEmpty_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapA_match__1_splitter(lean_object*, lean_object*); +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_findM_x3f_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_join_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_x21_match__1_splitter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_nat_sub(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_x21_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapA_match__1_splitter___rarg___boxed(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_foldl_match__1_splitter(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWith_match__1_splitter(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_x27_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWith__get_x3f_match__1_splitter(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l_List_mapM_x27___rarg(lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_getLast_match__1_splitter(lean_object*, lean_object*); +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_join_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_dec(x_3); +lean_inc(x_2); +return x_2; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_3, x_4, x_5); +return x_6; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_join_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_join_match__1_splitter___rarg___boxed), 3, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_join_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Data_List_Lemmas_0__List_join_match__1_splitter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_x21_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_6; +lean_dec(x_4); +lean_dec(x_3); +x_6 = lean_apply_4(x_5, x_1, x_2, lean_box(0), lean_box(0)); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +lean_dec(x_5); +x_7 = lean_ctor_get(x_1, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_1, 1); +lean_inc(x_8); +lean_dec(x_1); +x_9 = lean_unsigned_to_nat(0u); +x_10 = lean_nat_dec_eq(x_2, x_9); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_dec(x_3); +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_sub(x_2, x_11); +lean_dec(x_2); +x_13 = lean_apply_3(x_4, x_7, x_8, x_12); +return x_13; +} +else +{ +lean_object* x_14; +lean_dec(x_4); +lean_dec(x_2); +x_14 = lean_apply_2(x_3, x_7, x_8); +return x_14; +} +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_x21_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_get_x21_match__1_splitter___rarg), 5, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_getLast_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_6; +lean_dec(x_5); +lean_dec(x_4); +x_6 = lean_apply_1(x_3, lean_box(0)); +return x_6; +} +else +{ +lean_object* x_7; +lean_dec(x_3); +x_7 = lean_ctor_get(x_1, 1); +lean_inc(x_7); +if (lean_obj_tag(x_7) == 0) +{ +lean_object* x_8; lean_object* x_9; +lean_dec(x_5); +x_8 = lean_ctor_get(x_1, 0); +lean_inc(x_8); +lean_dec(x_1); +x_9 = lean_apply_2(x_4, x_8, lean_box(0)); +return x_9; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_dec(x_4); +x_10 = lean_ctor_get(x_1, 0); +lean_inc(x_10); +lean_dec(x_1); +x_11 = lean_ctor_get(x_7, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_7, 1); +lean_inc(x_12); +lean_dec(x_7); +x_13 = lean_apply_4(x_5, x_10, x_11, x_12, lean_box(0)); +return x_13; +} +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_getLast_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_getLast_match__1_splitter___rarg), 5, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +lean_dec(x_1); +x_7 = lean_unsigned_to_nat(0u); +x_8 = lean_nat_dec_eq(x_2, x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +lean_dec(x_3); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_2, x_9); +x_11 = lean_apply_4(x_4, x_5, x_6, x_10, lean_box(0)); +return x_11; +} +else +{ +lean_object* x_12; +lean_dec(x_4); +x_12 = lean_apply_3(x_3, x_5, x_6, lean_box(0)); +return x_12; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_get_match__1_splitter___rarg___boxed), 4, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_get_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Data_List_Lemmas_0__List_get_match__1_splitter___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_2); +return x_5; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isEmpty_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_dec(x_3); +lean_inc(x_2); +return x_2; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_3, x_4, x_5); +return x_6; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isEmpty_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_isEmpty_match__1_splitter___rarg___boxed), 3, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isEmpty_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Data_List_Lemmas_0__List_isEmpty_match__1_splitter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_foldlM_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_6; +lean_dec(x_5); +x_6 = lean_apply_2(x_4, x_1, x_2); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_4); +x_7 = lean_ctor_get(x_3, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 1); +lean_inc(x_8); +lean_dec(x_3); +x_9 = lean_apply_4(x_5, x_1, x_2, x_7, x_8); +return x_9; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_foldlM_match__1_splitter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_foldlM_match__1_splitter___rarg), 5, 0); +return x_5; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_foldl_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; +lean_dec(x_4); +x_5 = lean_apply_1(x_3, x_1); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +lean_dec(x_3); +x_6 = lean_ctor_get(x_2, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_dec(x_2); +x_8 = lean_apply_3(x_4, x_1, x_6, x_7); +return x_8; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_foldl_match__1_splitter(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_foldl_match__1_splitter___rarg), 4, 0); +return x_4; +} +} +LEAN_EXPORT lean_object* l_List_mapM_x27___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_ctor_get(x_4, 1); +lean_inc(x_5); +lean_dec(x_4); +x_6 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_6, 0, x_2); +lean_ctor_set(x_6, 1, x_3); +x_7 = lean_apply_2(x_5, lean_box(0), x_6); +return x_7; +} +} +LEAN_EXPORT lean_object* l_List_mapM_x27___rarg___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +lean_inc(x_1); +x_6 = l_List_mapM_x27___rarg(x_1, x_2, x_3); +x_7 = lean_alloc_closure((void*)(l_List_mapM_x27___rarg___lambda__1), 3, 2); +lean_closure_set(x_7, 0, x_1); +lean_closure_set(x_7, 1, x_5); +x_8 = lean_apply_4(x_4, lean_box(0), lean_box(0), x_6, x_7); +return x_8; +} +} +LEAN_EXPORT lean_object* l_List_mapM_x27___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_ctor_get(x_4, 1); +lean_inc(x_5); +lean_dec(x_4); +x_6 = lean_box(0); +x_7 = lean_apply_2(x_5, lean_box(0), x_6); +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_8 = lean_ctor_get(x_3, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_3, 1); +lean_inc(x_9); +lean_dec(x_3); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +lean_inc(x_2); +x_11 = lean_apply_1(x_2, x_8); +lean_inc(x_10); +x_12 = lean_alloc_closure((void*)(l_List_mapM_x27___rarg___lambda__2), 5, 4); +lean_closure_set(x_12, 0, x_1); +lean_closure_set(x_12, 1, x_2); +lean_closure_set(x_12, 2, x_9); +lean_closure_set(x_12, 3, x_10); +x_13 = lean_apply_4(x_10, lean_box(0), lean_box(0), x_11, x_12); +return x_13; +} +} +} +LEAN_EXPORT lean_object* l_List_mapM_x27(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_List_mapM_x27___rarg), 3, 0); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_loop_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_5; +lean_dec(x_4); +x_5 = lean_apply_1(x_3, x_2); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +lean_dec(x_3); +x_6 = lean_ctor_get(x_1, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_1, 1); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_apply_3(x_4, x_6, x_7, x_2); +return x_8; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_loop_match__1_splitter(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_mapM_loop_match__1_splitter___rarg), 4, 0); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_x27_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_dec(x_3); +lean_inc(x_2); +return x_2; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_3, x_4, x_5); +return x_6; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_x27_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_mapM_x27_match__1_splitter___rarg___boxed), 3, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapM_x27_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Data_List_Lemmas_0__List_mapM_x27_match__1_splitter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWith_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_5; +lean_dec(x_3); +x_5 = lean_apply_3(x_4, x_1, x_2, lean_box(0)); +return x_5; +} +else +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_6; +lean_dec(x_3); +x_6 = lean_apply_3(x_4, x_1, x_2, lean_box(0)); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +lean_dec(x_4); +x_7 = lean_ctor_get(x_1, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_1, 1); +lean_inc(x_8); +lean_dec(x_1); +x_9 = lean_ctor_get(x_2, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_dec(x_2); +x_11 = lean_apply_4(x_3, x_7, x_8, x_9, x_10); +return x_11; +} +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWith_match__1_splitter(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_zipWith_match__1_splitter___rarg), 4, 0); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWith__get_x3f_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_5; +lean_dec(x_3); +x_5 = lean_apply_3(x_4, x_1, x_2, lean_box(0)); +return x_5; +} +else +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_6; +lean_dec(x_3); +x_6 = lean_apply_3(x_4, x_1, x_2, lean_box(0)); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_4); +x_7 = lean_ctor_get(x_1, 0); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_ctor_get(x_2, 0); +lean_inc(x_8); +lean_dec(x_2); +x_9 = lean_apply_2(x_3, x_7, x_8); +return x_9; +} +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWith__get_x3f_match__1_splitter(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_zipWith__get_x3f_match__1_splitter___rarg), 4, 0); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWithAll__get_x3f_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_dec(x_4); +lean_inc(x_3); +return x_3; +} +else +{ +lean_object* x_5; +x_5 = lean_apply_3(x_4, x_1, x_2, lean_box(0)); +return x_5; +} +} +else +{ +lean_object* x_6; +x_6 = lean_apply_3(x_4, x_1, x_2, lean_box(0)); +return x_6; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWithAll__get_x3f_match__1_splitter(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_zipWithAll__get_x3f_match__1_splitter___rarg___boxed), 4, 0); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_zipWithAll__get_x3f_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Data_List_Lemmas_0__List_zipWithAll__get_x3f_match__1_splitter___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isPrefixOf_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_6; +lean_dec(x_5); +lean_dec(x_4); +x_6 = lean_apply_1(x_3, x_2); +return x_6; +} +else +{ +lean_dec(x_3); +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_7; +lean_dec(x_5); +x_7 = lean_apply_2(x_4, x_1, lean_box(0)); +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +lean_dec(x_4); +x_8 = lean_ctor_get(x_1, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_dec(x_1); +x_10 = lean_ctor_get(x_2, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_2, 1); +lean_inc(x_11); +lean_dec(x_2); +x_12 = lean_apply_4(x_5, x_8, x_9, x_10, x_11); +return x_12; +} +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_isPrefixOf_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_isPrefixOf_match__1_splitter___rarg), 5, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapA_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_dec(x_3); +lean_inc(x_2); +return x_2; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_3, x_4, x_5); +return x_6; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapA_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_mapA_match__1_splitter___rarg___boxed), 3, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_mapA_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Data_List_Lemmas_0__List_mapA_match__1_splitter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_filterAuxM_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_5; +lean_dec(x_4); +x_5 = lean_apply_1(x_3, x_2); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +lean_dec(x_3); +x_6 = lean_ctor_get(x_1, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_1, 1); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_apply_3(x_4, x_6, x_7, x_2); +return x_8; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_filterAuxM_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_filterAuxM_match__1_splitter___rarg), 4, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_findM_x3f_match__1_splitter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_dec(x_3); +lean_inc(x_2); +return x_2; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_3, x_4, x_5); +return x_6; +} +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_findM_x3f_match__1_splitter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l___private_Init_Data_List_Lemmas_0__List_findM_x3f_match__1_splitter___rarg___boxed), 3, 0); +return x_3; +} +} +LEAN_EXPORT lean_object* l___private_Init_Data_List_Lemmas_0__List_findM_x3f_match__1_splitter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Data_List_Lemmas_0__List_findM_x3f_match__1_splitter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* initialize_Init_Data_List_BasicAux(uint8_t builtin, lean_object*); +lean_object* initialize_Init_Data_List_Control(uint8_t builtin, lean_object*); +lean_object* initialize_Init_PropLemmas(uint8_t builtin, lean_object*); +lean_object* initialize_Init_Control_Lawful(uint8_t builtin, lean_object*); +lean_object* initialize_Init_Hints(uint8_t builtin, lean_object*); +static bool _G_initialized = false; +LEAN_EXPORT lean_object* initialize_Init_Data_List_Lemmas(uint8_t builtin, lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_io_result_mk_ok(lean_box(0)); +_G_initialized = true; +res = initialize_Init_Data_List_BasicAux(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_List_Control(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_PropLemmas(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Control_Lawful(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Hints(builtin, lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +return lean_io_result_mk_ok(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Lean/Compiler/IR/EmitC.c b/stage0/stdlib/Lean/Compiler/IR/EmitC.c index 715b2986d7..2428c0048c 100644 --- a/stage0/stdlib/Lean/Compiler/IR/EmitC.c +++ b/stage0/stdlib/Lean/Compiler/IR/EmitC.c @@ -132,10 +132,12 @@ static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__15; static lean_object* l_Lean_IR_EmitC_declareVar___closed__1; static lean_object* l_Lean_IR_EmitC_emitExternCall___closed__1; LEAN_EXPORT lean_object* l_List_foldl___at_Lean_IR_EmitC_emitFnDecls___spec__1___boxed(lean_object*, lean_object*); +static lean_object* l_Lean_IR_EmitC_shouldExport___closed__4; LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitSSet(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitFnDecl(lean_object*, uint8_t, lean_object*, lean_object*); static lean_object* l_Lean_IR_EmitC_toCType___closed__4; static lean_object* l_Lean_IR_EmitC_emitReuse___closed__2; +static lean_object* l_Lean_IR_EmitC_shouldExport___closed__1; LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitCName(lean_object*, lean_object*, lean_object*); static lean_object* l_Lean_IR_EmitC_emitInitFn___closed__5; static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__24; @@ -144,6 +146,7 @@ static lean_object* l_Lean_IR_EmitC_emitJmp___lambda__1___closed__2; LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitArgs___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); static lean_object* l_Lean_IR_EmitC_emitNumLit___closed__4; static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__16; +uint8_t l_Lean_Name_isPrefixOf(lean_object*, lean_object*); static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__19; static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__5; static lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___closed__1; @@ -174,6 +177,7 @@ LEAN_EXPORT lean_object* l_Lean_RBNode_revFold___at_Lean_IR_EmitC_emitFnDecls___ static lean_object* l_Lean_IR_EmitC_emitMainFn___closed__2; LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitSet___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitFnBody(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Name_mkStr3(lean_object*, lean_object*, lean_object*); LEAN_EXPORT lean_object* l_List_forM___at_Lean_IR_EmitC_emitLns___spec__1(lean_object*); static lean_object* l_Lean_IR_EmitC_emitSSet___closed__6; LEAN_EXPORT lean_object* l_Nat_foldM_loop___at_Lean_IR_EmitC_emitSimpleExternalCall___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -195,6 +199,7 @@ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__13; LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitNumLit___boxed(lean_object*, lean_object*, lean_object*, lean_object*); LEAN_EXPORT lean_object* l_Nat_anyTR_loop___at_Lean_IR_EmitC_overwriteParam___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__3___closed__3; +LEAN_EXPORT uint8_t l_Lean_IR_EmitC_shouldExport(lean_object*); static lean_object* l_Lean_IR_EmitC_emitInc___closed__2; lean_object* lean_string_utf8_next(lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); @@ -309,6 +314,7 @@ LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitSet(lean_object*, lean_object*, lea static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__6; LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitTailCall___lambda__1(lean_object*, lean_object*, lean_object*); LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitFnBody___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +LEAN_EXPORT lean_object* l_Lean_IR_EmitC_shouldExport___boxed(lean_object*); LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitLns___at_Lean_IR_EmitC_emitMainFn___spec__1___boxed(lean_object*, lean_object*, lean_object*); static lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__17; uint8_t lean_name_eq(lean_object*, lean_object*); @@ -325,6 +331,7 @@ LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitInitFn(lean_object*, lean_object*); LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitBlock(lean_object*, lean_object*, lean_object*); static lean_object* l_Lean_IR_EmitC_emitApp___closed__5; LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitTailCall___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +static lean_object* l_Lean_IR_EmitC_shouldExport___closed__3; static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__1___closed__6; LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitReset___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitPartialApp(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -503,6 +510,7 @@ LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitInc___lambda__1(lean_object*, lean_ static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__26; static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__11; static lean_object* l_String_foldlAux___at_Lean_IR_EmitC_quoteString___spec__1___closed__1; +static lean_object* l_Lean_IR_EmitC_shouldExport___closed__2; static lean_object* l_Lean_IR_EmitC_emitNumLit___closed__1; lean_object* l_Lean_mkHashMapImp___rarg(lean_object*); static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__29; @@ -595,7 +603,6 @@ static lean_object* l_Lean_IR_EmitC_toCType___closed__7; LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitOffset___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_repr(lean_object*); static lean_object* l_Array_foldlMUnsafe_fold___at_Lean_IR_EmitC_emitCase___spec__1___closed__2; -static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4; LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitCInitName___boxed(lean_object*, lean_object*, lean_object*); LEAN_EXPORT lean_object* l_Lean_IR_EmitC_emitDeclAux___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); static lean_object* l_Lean_IR_EmitC_emitMainFn___lambda__2___closed__14; @@ -1748,6 +1755,71 @@ lean_dec(x_2); return x_4; } } +static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string_from_bytes("Lean", 4); +return x_1; +} +} +static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string_from_bytes("Compiler", 8); +return x_1; +} +} +static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string_from_bytes("LCNF", 4); +return x_1; +} +} +static lean_object* _init_l_Lean_IR_EmitC_shouldExport___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_IR_EmitC_shouldExport___closed__1; +x_2 = l_Lean_IR_EmitC_shouldExport___closed__2; +x_3 = l_Lean_IR_EmitC_shouldExport___closed__3; +x_4 = l_Lean_Name_mkStr3(x_1, x_2, x_3); +return x_4; +} +} +LEAN_EXPORT uint8_t l_Lean_IR_EmitC_shouldExport(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint8_t x_3; +x_2 = l_Lean_IR_EmitC_shouldExport___closed__4; +x_3 = l_Lean_Name_isPrefixOf(x_2, x_1); +if (x_3 == 0) +{ +uint8_t x_4; +x_4 = 1; +return x_4; +} +else +{ +uint8_t x_5; +x_5 = 0; +return x_5; +} +} +} +LEAN_EXPORT lean_object* l_Lean_IR_EmitC_shouldExport___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_IR_EmitC_shouldExport(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { @@ -2145,58 +2217,72 @@ if (x_10 == 0) { if (x_3 == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; -x_11 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1; -x_12 = lean_string_append(x_9, x_11); +lean_object* x_11; uint8_t x_12; +x_11 = l_Lean_IR_Decl_name(x_1); +x_12 = l_Lean_IR_EmitC_shouldExport(x_11); +lean_dec(x_11); +if (x_12 == 0) +{ +lean_object* x_13; lean_object* x_14; x_13 = lean_box(0); -x_14 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_13, x_4, x_12); +x_14 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_13, x_4, x_9); return x_14; } else { -lean_object* x_15; lean_object* x_16; -x_15 = lean_box(0); -x_16 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_15, x_4, x_9); -return x_16; +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_15 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1; +x_16 = lean_string_append(x_9, x_15); +x_17 = lean_box(0); +x_18 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_17, x_4, x_16); +return x_18; } } else { -lean_object* x_17; uint8_t x_18; -x_17 = l_Lean_IR_Decl_name(x_1); -x_18 = l_Lean_isClosedTermName(x_8, x_17); -lean_dec(x_17); -if (x_18 == 0) +lean_object* x_19; lean_object* x_20; +x_19 = lean_box(0); +x_20 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_19, x_4, x_9); +return x_20; +} +} +else +{ +lean_object* x_21; uint8_t x_22; +x_21 = l_Lean_IR_Decl_name(x_1); +x_22 = l_Lean_isClosedTermName(x_8, x_21); +lean_dec(x_21); +if (x_22 == 0) { if (x_3 == 0) { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_19 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1; -x_20 = lean_string_append(x_9, x_19); -x_21 = lean_box(0); -x_22 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_21, x_4, x_20); -return x_22; -} -else -{ lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_23 = l_Lean_IR_EmitC_emitFnDeclAux___closed__2; +x_23 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1; x_24 = lean_string_append(x_9, x_23); x_25 = lean_box(0); x_26 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_25, x_4, x_24); return x_26; } -} else { lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; -x_27 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3; +x_27 = l_Lean_IR_EmitC_emitFnDeclAux___closed__2; x_28 = lean_string_append(x_9, x_27); x_29 = lean_box(0); x_30 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_29, x_4, x_28); return x_30; } } +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_31 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3; +x_32 = lean_string_append(x_9, x_31); +x_33 = lean_box(0); +x_34 = l_Lean_IR_EmitC_emitFnDeclAux___lambda__3(x_1, x_2, x_6, x_8, x_33, x_4, x_32); +return x_34; +} +} } } LEAN_EXPORT lean_object* l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { @@ -3512,22 +3598,14 @@ return x_21; static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__1() { _start: { -lean_object* x_1; -x_1 = lean_mk_string_from_bytes("Lean", 4); -return x_1; -} -} -static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__1; +x_2 = l_Lean_IR_EmitC_shouldExport___closed__1; x_3 = l_Lean_Name_str___override(x_1, x_2); return x_3; } } -static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3() { +static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2() { _start: { lean_object* x_1; @@ -3535,7 +3613,7 @@ x_1 = lean_mk_string_from_bytes("void lean_initialize_runtime_module();", 38); return x_1; } } -static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4() { +static lean_object* _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3() { _start: { lean_object* x_1; @@ -3554,12 +3632,12 @@ lean_inc(x_7); x_8 = lean_ctor_get(x_6, 1); lean_inc(x_8); lean_dec(x_6); -x_9 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2; +x_9 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__1; x_10 = l_Lean_IR_usesModuleFrom(x_7, x_9); if (x_10 == 0) { lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_11 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3; +x_11 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2; x_12 = lean_string_append(x_8, x_11); x_13 = l_Lean_IR_EmitC_emitLn___rarg___closed__1; x_14 = lean_string_append(x_12, x_13); @@ -3570,7 +3648,7 @@ return x_16; else { lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_17 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4; +x_17 = l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3; x_18 = lean_string_append(x_8, x_17); x_19 = l_Lean_IR_EmitC_emitLn___rarg___closed__1; x_20 = lean_string_append(x_18, x_19); @@ -12378,19 +12456,19 @@ lean_inc(x_10); x_11 = l_Lean_hasInitAttr(x_5, x_10); if (x_11 == 0) { -uint8_t x_65; -x_65 = 0; -x_12 = x_65; -goto block_64; +uint8_t x_71; +x_71 = 0; +x_12 = x_71; +goto block_70; } else { -uint8_t x_66; -x_66 = 1; -x_12 = x_66; -goto block_64; +uint8_t x_72; +x_72 = 1; +x_12 = x_72; +goto block_70; } -block_64: +block_70: { if (x_12 == 0) { @@ -12430,169 +12508,193 @@ x_24 = lean_nat_dec_eq(x_22, x_23); lean_dec(x_22); if (x_24 == 0) { -lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; -x_25 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1; -x_26 = lean_string_append(x_21, x_25); -x_27 = lean_box(0); -x_28 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_27, x_2, x_26); -return x_28; +uint8_t x_25; +x_25 = l_Lean_IR_EmitC_shouldExport(x_13); +if (x_25 == 0) +{ +lean_object* x_26; lean_object* x_27; +x_26 = lean_box(0); +x_27 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_26, x_2, x_21); +return x_27; } else { -lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_29 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3; -x_30 = lean_string_append(x_21, x_29); -x_31 = lean_box(0); -x_32 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_31, x_2, x_30); -return x_32; +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; +x_28 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1; +x_29 = lean_string_append(x_21, x_28); +x_30 = lean_box(0); +x_31 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_30, x_2, x_29); +return x_31; } } else { -uint8_t x_33; +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_32 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3; +x_33 = lean_string_append(x_21, x_32); +x_34 = lean_box(0); +x_35 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_20, x_34, x_2, x_33); +return x_35; +} +} +else +{ +uint8_t x_36; lean_dec(x_2); lean_dec(x_16); lean_dec(x_15); lean_dec(x_14); lean_dec(x_13); lean_dec(x_10); -x_33 = !lean_is_exclusive(x_19); -if (x_33 == 0) +x_36 = !lean_is_exclusive(x_19); +if (x_36 == 0) { return x_19; } else { -lean_object* x_34; lean_object* x_35; lean_object* x_36; -x_34 = lean_ctor_get(x_19, 0); -x_35 = lean_ctor_get(x_19, 1); -lean_inc(x_35); -lean_inc(x_34); -lean_dec(x_19); -x_36 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_36, 0, x_34); -lean_ctor_set(x_36, 1, x_35); -return x_36; -} -} -} -else -{ -lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; -x_37 = lean_ctor_get(x_2, 0); -x_38 = lean_ctor_get(x_2, 1); -x_39 = lean_ctor_get(x_2, 3); -x_40 = lean_ctor_get(x_2, 4); -lean_inc(x_40); -lean_inc(x_39); +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_19, 0); +x_38 = lean_ctor_get(x_19, 1); lean_inc(x_38); lean_inc(x_37); -lean_dec(x_2); -x_41 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_41, 0, x_37); -lean_ctor_set(x_41, 1, x_38); -lean_ctor_set(x_41, 2, x_9); -lean_ctor_set(x_41, 3, x_39); -lean_ctor_set(x_41, 4, x_40); -lean_inc(x_13); -x_42 = l_Lean_IR_EmitC_toCName(x_13, x_41, x_6); -if (lean_obj_tag(x_42) == 0) +lean_dec(x_19); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; +} +} +} +else { -lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; -x_43 = lean_ctor_get(x_42, 0); +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_40 = lean_ctor_get(x_2, 0); +x_41 = lean_ctor_get(x_2, 1); +x_42 = lean_ctor_get(x_2, 3); +x_43 = lean_ctor_get(x_2, 4); lean_inc(x_43); -x_44 = lean_ctor_get(x_42, 1); -lean_inc(x_44); -lean_dec(x_42); -x_45 = lean_array_get_size(x_14); -x_46 = lean_unsigned_to_nat(0u); -x_47 = lean_nat_dec_eq(x_45, x_46); -lean_dec(x_45); -if (x_47 == 0) -{ -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; -x_48 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1; -x_49 = lean_string_append(x_44, x_48); -x_50 = lean_box(0); -x_51 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_43, x_50, x_41, x_49); -return x_51; -} -else -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_52 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3; -x_53 = lean_string_append(x_44, x_52); -x_54 = lean_box(0); -x_55 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_43, x_54, x_41, x_53); -return x_55; -} -} -else -{ -lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; -lean_dec(x_41); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_10); -x_56 = lean_ctor_get(x_42, 0); -lean_inc(x_56); -x_57 = lean_ctor_get(x_42, 1); -lean_inc(x_57); -if (lean_is_exclusive(x_42)) { - lean_ctor_release(x_42, 0); - lean_ctor_release(x_42, 1); - x_58 = x_42; -} else { - lean_dec_ref(x_42); - x_58 = lean_box(0); -} -if (lean_is_scalar(x_58)) { - x_59 = lean_alloc_ctor(1, 2, 0); -} else { - x_59 = x_58; -} -lean_ctor_set(x_59, 0, x_56); -lean_ctor_set(x_59, 1, x_57); -return x_59; -} -} -} -else -{ -lean_object* x_60; lean_object* x_61; -lean_dec(x_10); -lean_dec(x_9); +lean_inc(x_42); +lean_inc(x_41); +lean_inc(x_40); lean_dec(x_2); -lean_dec(x_1); -x_60 = lean_box(0); -if (lean_is_scalar(x_7)) { - x_61 = lean_alloc_ctor(0, 2, 0); -} else { - x_61 = x_7; +x_44 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_44, 0, x_40); +lean_ctor_set(x_44, 1, x_41); +lean_ctor_set(x_44, 2, x_9); +lean_ctor_set(x_44, 3, x_42); +lean_ctor_set(x_44, 4, x_43); +lean_inc(x_13); +x_45 = l_Lean_IR_EmitC_toCName(x_13, x_44, x_6); +if (lean_obj_tag(x_45) == 0) +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_45, 1); +lean_inc(x_47); +lean_dec(x_45); +x_48 = lean_array_get_size(x_14); +x_49 = lean_unsigned_to_nat(0u); +x_50 = lean_nat_dec_eq(x_48, x_49); +lean_dec(x_48); +if (x_50 == 0) +{ +uint8_t x_51; +x_51 = l_Lean_IR_EmitC_shouldExport(x_13); +if (x_51 == 0) +{ +lean_object* x_52; lean_object* x_53; +x_52 = lean_box(0); +x_53 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_46, x_52, x_44, x_47); +return x_53; } -lean_ctor_set(x_61, 0, x_60); -lean_ctor_set(x_61, 1, x_6); +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_54 = l_Lean_IR_EmitC_emitFnDeclAux___closed__1; +x_55 = lean_string_append(x_47, x_54); +x_56 = lean_box(0); +x_57 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_46, x_56, x_44, x_55); +return x_57; +} +} +else +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_58 = l_Lean_IR_EmitC_emitFnDeclAux___closed__3; +x_59 = lean_string_append(x_47, x_58); +x_60 = lean_box(0); +x_61 = l_Lean_IR_EmitC_emitDeclAux___lambda__3(x_15, x_13, x_14, x_16, x_10, x_46, x_60, x_44, x_59); return x_61; } } else { -lean_object* x_62; lean_object* x_63; +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; +lean_dec(x_44); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_14); +lean_dec(x_13); +lean_dec(x_10); +x_62 = lean_ctor_get(x_45, 0); +lean_inc(x_62); +x_63 = lean_ctor_get(x_45, 1); +lean_inc(x_63); +if (lean_is_exclusive(x_45)) { + lean_ctor_release(x_45, 0); + lean_ctor_release(x_45, 1); + x_64 = x_45; +} else { + lean_dec_ref(x_45); + x_64 = lean_box(0); +} +if (lean_is_scalar(x_64)) { + x_65 = lean_alloc_ctor(1, 2, 0); +} else { + x_65 = x_64; +} +lean_ctor_set(x_65, 0, x_62); +lean_ctor_set(x_65, 1, x_63); +return x_65; +} +} +} +else +{ +lean_object* x_66; lean_object* x_67; lean_dec(x_10); lean_dec(x_9); lean_dec(x_2); lean_dec(x_1); -x_62 = lean_box(0); +x_66 = lean_box(0); if (lean_is_scalar(x_7)) { - x_63 = lean_alloc_ctor(0, 2, 0); + x_67 = lean_alloc_ctor(0, 2, 0); } else { - x_63 = x_7; + x_67 = x_7; } -lean_ctor_set(x_63, 0, x_62); -lean_ctor_set(x_63, 1, x_6); -return x_63; +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_6); +return x_67; +} +} +else +{ +lean_object* x_68; lean_object* x_69; +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_2); +lean_dec(x_1); +x_68 = lean_box(0); +if (lean_is_scalar(x_7)) { + x_69 = lean_alloc_ctor(0, 2, 0); +} else { + x_69 = x_7; +} +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_6); +return x_69; } } } @@ -14449,6 +14551,14 @@ l_Lean_IR_EmitC_toCName___closed__4 = _init_l_Lean_IR_EmitC_toCName___closed__4( lean_mark_persistent(l_Lean_IR_EmitC_toCName___closed__4); l_Lean_IR_EmitC_toCInitName___closed__1 = _init_l_Lean_IR_EmitC_toCInitName___closed__1(); lean_mark_persistent(l_Lean_IR_EmitC_toCInitName___closed__1); +l_Lean_IR_EmitC_shouldExport___closed__1 = _init_l_Lean_IR_EmitC_shouldExport___closed__1(); +lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__1); +l_Lean_IR_EmitC_shouldExport___closed__2 = _init_l_Lean_IR_EmitC_shouldExport___closed__2(); +lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__2); +l_Lean_IR_EmitC_shouldExport___closed__3 = _init_l_Lean_IR_EmitC_shouldExport___closed__3(); +lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__3); +l_Lean_IR_EmitC_shouldExport___closed__4 = _init_l_Lean_IR_EmitC_shouldExport___closed__4(); +lean_mark_persistent(l_Lean_IR_EmitC_shouldExport___closed__4); l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___closed__1 = _init_l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___closed__1(); lean_mark_persistent(l_Nat_forM_loop___at_Lean_IR_EmitC_emitFnDeclAux___spec__1___closed__1); l_Lean_IR_EmitC_emitFnDeclAux___lambda__1___closed__1 = _init_l_Lean_IR_EmitC_emitFnDeclAux___lambda__1___closed__1(); @@ -14587,8 +14697,6 @@ l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2 = _init_l_Lean_IR_EmitC_emitM lean_mark_persistent(l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__2); l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3 = _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3(); lean_mark_persistent(l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__3); -l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4 = _init_l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4(); -lean_mark_persistent(l_Lean_IR_EmitC_emitMainFn___lambda__4___closed__4); l_Lean_IR_EmitC_emitMainFn___closed__1 = _init_l_Lean_IR_EmitC_emitMainFn___closed__1(); lean_mark_persistent(l_Lean_IR_EmitC_emitMainFn___closed__1); l_Lean_IR_EmitC_emitMainFn___closed__2 = _init_l_Lean_IR_EmitC_emitMainFn___closed__2();